chiark / gitweb /
~mdw / ssr / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Initial revision
[ssr] / 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
The Straylight Source Distribution (obsolete software for RISC OS)