TEXTSAVE "work.bastext"
PROCbas_saveconst
QUIT
SAVE "work.stage-2"
QUIT
RENUMBER 0,1
!(PAGE + &44) = (TOP - PAGE + 7) AND -4
SAVE "bc.bas"
f% = OPENUP "bc.bas"
PTR #f% = EXT #f%
WHILE EXT #f% AND 3: BPUT#f%, 0: ENDWHILE
CLOSE #f%
QUIT