10REM TAPE>DISC Transfer 15REM 1990 Ben Dooks 20IF PAGE>&1200 PROCrel 30M%=256*(?&13+2) 40MODE 7:HIMEM=M%:PROCevent:PROCtitle 50PROCload:PROCsave:GOTO 50 60DEFPROCevent:P%=&880:[OPT 0:PHA:LDA &3CA:AND #254:STA &3CA:PLA:RTS:]:?&220= &80:?&221=&8:A%=14:X%=4:CALL &FFF4:ENDPR OC 70DEFPROCtitle: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 80DEFPROCload: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?&3 B2):NEXT:ENDPROC 90DEFPROCsave:PROCos("DISK"):S$="SAVE "+N$+" "+STR$÷M%+"+"+STR$÷L%+" "+STR$÷E %+" "+STR$÷R%+CHR$13:$&7F48=S$:PROCos(S$ ):ENDPROC 100DEFPROCos($&700):X%=0:Y%=7:CALL &FF F7:ENDPROC 110DEFPROCrel:PROCos("K.0 FOR I%=0 TO TOP-PAGE STEP4:I%!&1200=I%!PAGE:NEXT|MPA GE=&1200|M20|M110|MRUN|M"):PROCos("FX 13 8 0 128"):END