10REM TAPE>ADFS Transfer 20REM (C) By Ben Dooks 1990 30IF PAGE<>&E00 PROCrel 40M%=&1300 50MODE 7:HIMEM=M%:PROCevent:PROCtitle 60PROCload:PROCsave:GOTO 60 70DEFPROCevent: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 80DEFPROCtitle: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 90DEFPROCload:OSCLI("TAPE"):OSCLI("*L OAD "+CHR$34+CHR$34+" "+STR$÷M%):L%=(?&3 C6+?&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 100DEFPROCsave:OSCLI("ADFS"):S$="SAVE "+N$+" "+STR$÷M%+"+"+STR$÷L%+" "+STR$÷E% +" "+STR$÷R%+CHR$13:$&7F48=S$:OSCLI(S$): ENDPROC 110DEFPROCrel:OSCLI("K.0 FOR I%=0 TO T OP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE =&E00|M20|M110|MRUN|M"):OSCLI("FX 138 0 128"):END