5 PRINT"[147]":POKE646,14:POKE53280,14:POKE53281,6
10 OPEN15,8,15:INPUT"[147]FILENAME OF DATA";F$:OPEN1,8,8,"0:"+F$+",P,R":GOSUB140
20 INPUT"FILENAME TO CREATE";FC$:OPEN2,8,9,"0:"+FC$+",P,W":GOSUB140
30 GET#1,LO$,HI$:LO=ASC(LO$+CHR$(0)):HI=ASC(HI$+CHR$(0)):LK$="

":BE=LO+HI*256
40 EN=BE:PRINT#2,CHR$(1)CHR$(8)LK$;:FORI=1TO9:READA:PRINT#2,CHR$(A);:NEXTI
50 PRINT#2,LK$CHR$(LO)CHR$(HI)CHR$(131)CHR$(32);:CT=1
60 GET#1,A$:S=ST:PRINT#2,MID$(STR$(ASC(A$+CHR$(0))),2);:CT=CT+1:EN=EN+1
70 IFCT<7ANDS=0THENPRINT#2,",";:GOTO60
80 IF(S)THEN110
90 LO=LO+6:IFLO>255THENLO=LO-256:HI=HI+1
100 PRINT#2,CHR$(0);:GOTO50
110 PRINT#2,CHR$(0)LK$;:FORI=1TO5:READA:PRINT#2,CHR$(A);:NEXTI
120 PRINT#2,STR$(BE)CHR$(164)STR$(EN-1);:FORI=1TO14:READA:PRINT#2,CHR$(A);
130 NEXTI:CLOSE1:CLOSE2:CLOSE15:END
140 INPUT#15,EN,EM$,ET,ES:IFEN=0THENRETURN
150 CLOSE1:CLOSE2:CLOSE15:PRINT"DISK ERROR> "EN;EM$;ET;ES
160 DATA 10,0,137,54,51,57,57,57,0
170 DATA 255,249,129,73,178,58,135
180 DATA 65,58,151,73,44,65,58,130
190 DATA 73,0,0,0