[ssr] / StraySrc / Libraries / BAS / src / scripts / execit,ffe

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
Commit	Line	Data
2ee739cc	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