psub_st_s$ #Header in sub leveln
result = nwadrs(stro, sub_prg_no$)
if first_sub & subs_before, first_sub = zero #suppress blank line before first sub with subs before main
else, " ", e$
snameext$ = no2str(sub_prg_no$)
sextext$ = ".NC"
extprg$ = 1
newext$
subout$ = 3
*sub_prg_no$, e$
pbld, n$, sgabsinc, e$
psub_end_s$ #End in sub level
n$, "M99", e$
subout$ = 0
prv_absinc$ = -1
sub_is_active = 0