10 REM TAPE>ADFS Transfer 20 REM (C) By Ben Dooks 1990 30 IF PAGE<>&E00 PROCrel 40 M%=&1300 50 MODE 7:HIMEM=M%:PROCevent:PROCtitle 60 PROCload:PROCsave:GOTO 60 70 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 80 DEFPROCtitle:PRINT "„";CHR$157;CHR$141;"† TAPE‡to†ADFS‡utility "'"„";CHR$157;CHR$141;"† TAPE‡to†ADFS‡utility "'"„";CHR$157"‡ By B.J. Dooks (c) 1990 BARKSOFT ":VDU 28,1,20,38,3:ENDPROC 90 DEFPROCload:OSCLI("TAPE"):OSCLI("*LOAD "+CHR$34+CHR$34+" "+STR$~M%):L%=(?&3C6+?&3C7*256)*256+(?&3C8+?&3C9*256):E%=!&3C2:R%=!&3BE:N$="":I=-1:REPEAT:I=I+1:IF I?&3B2<13 THEN ENDPROC ELSE N$=N$+CHR$(I?&3B2):UNTIL I=9:ENDPROC 100 DEFPROCsave:OSCLI("ADFS"):S$="SAVE "+N$+" "+STR$~M%+"+"+STR$~L%+" "+STR$~E%+" "+STR$~R%+CHR$13:$&7F48=S$:OSCLI(S$):ENDPROC 110 DEFPROCrel:OSCLI("K.0 FOR I%=0 TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|M20|M110|MRUN|M"):OSCLI("FX 138 0 128"):END