10
20
30 :
40 ON ERROR IF FNerr:PROCend:END
50 in%=0:out%=0
60 INPUT"Spool filename: "f$
70 PRINT"Press Escape when finished"
80 out%=OPENOUT(f$)
90 *FX2,1
100 REPEAT
110 A%=GET:BPUT#out%,A%
120 IFA%=13ORA%>31:VDUA%:IFA%=13:VDU10
130 UNTIL0
140 PROCend
150 END
160 :
170 DEFFNerr:REPORT:*FX2
180 IFout%:A%=out%:out%=0:CLOSE#A%
190 PRINT:=INKEY-1
200 :
210 DEFPROCend:*FX2
220 END