10 REM TAPE>DISC Transfer
   15 REM 1990 Ben Dooks
   20 IF PAGE>&1200 PROCrel
   30 M%=256*(?&13+2)
   40 MODE 7:HIMEM=M%:PROCevent:PROCtitle
   50 PROCload:PROCsave:GOTO 50
   60 DEFPROCevent:P%=&880:[OPT 0:PHA:LDA &3CA:AND #254:STA &3CA:PLA:RTS:]:?&220=&80:?&221=&8:A%=14:X%=4:CALL &FFF4:ENDPROC
   70 DEFPROCtitle:PRINT "„";CHR$157;CHR$141;"†    TAPE‡to†DISC‡utility "'"„";CHR$157;CHR$141;"†    TAPE‡to†DISC‡utility "'"„";CHR$157"‡   By B.J. Dooks (c) 1990 BARKSOFT ":VDU 28,1,20,38,3:ENDPROC
   80 DEFPROCload:PROCos("TAPE"):PROCos("LOAD "+CHR$34+CHR$34+" "+STR$~M%):L%=(?&3C6+?&3C7*256)*256+(?&3C8+?&3C9*256):E%=!&3C2:R%=!&3BE:N$="":FOR I=0 TO 7:IF I?&3B2<13 THEN ENDPROC ELSE N$=N$+CHR$(I?&3B2):NEXT:ENDPROC
   90 DEFPROCsave:PROCos("DISK"):S$="SAVE "+N$+" "+STR$~M%+"+"+STR$~L%+" "+STR$~E%+" "+STR$~R%+CHR$13:$&7F48=S$:PROCos(S$):ENDPROC
  100 DEFPROCos($&700):X%=0:Y%=7:CALL &FFF7:ENDPROC
  110 DEFPROCrel:PROCos("K.0 FOR I%=0 TO TOP-PAGE STEP4:I%!&1200=I%!PAGE:NEXT|MPAGE=&1200|M20|M110|MRUN|M"):PROCos("FX 138 0 128"):END