10 REM > SerToDisk
   20 REM Spools Spectrum output to disk
   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