mdw@git.distorted.org.uk Git - ssr/blob - StraySrc/Libraries/BAS/src/scripts/execit,ffe

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