(<>&900Q%=:=&900:"$.Tape-Disc!"  Tape-Disc! 4:=&D00:28;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%=-38&FF (A$="":?&220=128:?&221=8:"FX13,4":"Target Filename:"Z$:A%=Z$:A%#A%:"Do you want to delete this file:(Y/N):";:A$=:A$="Y"A$="N":A$:A$="Y""DEL."+Z$ 2A$="Y"A%A%=0:"FX14,4":"T.":"Source Filename:";:A$:"L."+A$+" "+~Q%:"FX13,4":"FX143,18,"+FS%:"SA."+Z$+" "+~Q%+"+"+~(?&3C6*256+(65535!&3C8))+" "+~!&3A3+" "+~!&39F:Th@