10 IFPAGE<>&900THENQ%=PAGE:PAGE=&900:CHAIN"$.Tape-Disc!"

   20 REM Tape-Disc!

   30 MODE4:HIMEM=&D00:VDU28;31,39,28:P%=&880:[OPT0:PHP:PHA:TYA:PHA:LSR&3CA:ASL&3CA:LDA&3C6:EQUW&BD0:LDY#7:LDA&3BE,Y:STA&39F,Y:DEY:EQUW&F710:LDA#0:STA&3C7:PLA:TAY:PLA:PLP:RTS:]:Y%=0:A%=0:FS%=USR-38AND&FF

   40 A$="":?&220=128:?&221=8:OSCLI"FX13,4":REPEATINPUT"Target Filename:"Z$:A%=OPENINZ$:IFA%THENCLOSE#A%:PRINT"Do you want to delete this file:(Y/N):";:REPEATA$=GET$:UNTILA$="Y"ORA$="N":PRINTA$:IFA$="Y"THENOSCLI"DEL."+Z$

   50 UNTILA$="Y"ANDA%ORA%=0:OSCLI"FX14,4":OSCLI"T.":PRINT"Source Filename:";:INPUTLINEA$:OSCLI"L."+A$+" "+STR$~Q%:OSCLI"FX13,4":OSCLI"FX143,18,"+STR$FS%:OSCLI"SA."+Z$+" "+STR$~Q%+"+"+STR$~(?&3C6*256+(65535AND!&3C8))+" "+STR$~!&3A3+" "+STR$~!&39F:GOTO40