input Enter procedure name
assign str1 {str0}

input Enter required parameters

text {comment} ¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤{lf}{lf}

text [proc] proc [parameters]
selectline
replace [proc]**{str1}
selectline
replace [parameters]**{str0}

text {lf}{lf}
text  {comment} {str1} PROTO {str0}

text {lf}{lf}{lf}
text     ret{lf}{lf}

text [proc] endp
selectline
replace [proc]**{str1}
text {lf}{lf}

text {comment} ¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤=÷=¤{lf}
