100 FORI=53181TO53247:READA:POKEI,A:NEXT
110 PRINT"[147]      TAPE TO DISK TRANSFER PROGRAM "
120 PRINT:PRINT"INSERT AND REWIND TAPE TO BE COPIED"
130 PRINT:PRINT"INSERT DISK INTO DISK DRIVE"
140 PRINT:PRINT"DOES THE DISK NEED TO BE FORMATTED? Y/N"
150 GETA$:IFA$=""THEN150
160 IFA$><"Y"THENSYS53181
170 INPUT"NAME OF DISK";A$
180 INPUT"DISK ID";B$
190 PRINT"[147]"
200 PRINT"OPEN15,8,15"
210 PRINT"P[210]15,"CHR$(34)"N0:"A$","B$CHR$(34)
220 PRINT"SYS53181":PRINT"[145][145][145][145][145][145][145][145][145][145]"
230 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
910 DATA169,1,162,1,160,1,32,186,255,169,0,162,65,160,3,32,189,255,169,0
920 DATA32,213,255,169,8,162,8,160,255,32,186,255,169,20,162,65,160,3,32
930 DATA189,255,173,61,3,141,251,0,173,62,3,141,252,0,169,251,174,63,3,172
940 DATA64,3,32,216,255,76,189,207