10
20
30 CLEARVAL"25999":LETmem=VAL"26000"
40 CLEAR#:OPEN#VAL"9";"b"
100 FORa=VAL"23300"TOVAL"23356":READb$:POKEa,VALb$:NEXTa
110 DATA"195","19","91","221","42","252","91","237","91"
120 DATA"250","91","62","255","24","8","221","33","239","91"
130 DATA"17","17","0","175","55","20","8","21","243","205"
140 DATA"98","5","245","58","72","92","230","56","15","15","15"
150 DATA"211","254","241","251","1","0","0","216","62","127"
160 DATA"219","254","15","203","1","12","201"
200 PRINT#PI-PI;"Play tape";:LETbc=USRVAL"23300"
210 INPUT;:IFbcTHENINPUT;:PRINT"Header error ";bc'':GOTOVAL"200"
220 LETtype=PEEKVAL"23535"
230 LETn$="":FORa=VAL"23536"TOVAL"23545":LETn$=n$+CHR$PEEKa:NEXTa
240 LETsize=PEEKVAL"23546"+VAL"256"*PEEKVAL"23547"
250 LETload=PEEKVAL"23548"+VAL"256"*PEEKVAL"23549"
260 LETexec=PEEKVAL"23550"+VAL"256"*PEEKVAL"23551"
270 PRINT"File: ";n$'"Type: ";type'"Size: ";size'"Load: ";load'"Exec: ";exec
280 IFmem+size>VAL"65536"THENPRINT"Too big"'':GOTOVAL"200"
290 POKEVAL"23549",INT(mem/VAL"256")
300 POKEVAL"23548",mem-VAL"256"*PEEKVAL"23549"
310 PRINT#PI-PI;"Play tape";:LETbc=USRVAL"23303"
320 INPUT;:IFbcTHENPRINT"Data error ";bc'':GOTOVAL"200"
330 PRINT#PI-PI;"Pause tape";
340 PRINT#VAL"9";"S";n$;" ";load;" ";exec;" ";exec;" ";type
350 INPUT#VAL"9";a$:INPUT;:IFa$<>""THENPRINTa$(VAL"2"TO)
360 IFa$=""THENSAVE*"b"CODEmem,size
370 PRINT':GOTO200