CIMFIL/ON,CALLSB $$ Call subroutine
sb_num=POSTF(7,4) $$ Get sub
number
POSTN/OUT,M,98,P,(TLNUM*100+SB_NUM) $$ Output P# M98
CIMFIL/OFF
CIMFIL/ON,SUBS $$ Start of subroutine
subnm=POSTF(7,4) $$ Get sub number
INSERT/' $'
INSERT/'%$'
POSTN/OUT,O,(TLNUM*100+SB_NUM) $$ Output O#
CIMFIL/OFF
CIMFIL/ON,SUBE $$ End of subroutine
POSTN/OUT,M,99 $$ Output M99
INSERT/'( * END OF SUB * )$'
INSERT/'%$'
CIMFIL/OFF