10 PRINTCHR$(147)CHR$(18)"AUTO-RUN CONVERTER"
20 S=0:FORI=828TO862:READV:POKEI,V:S=S+V:NEXTI:IFS=3677THEN40
30 PRINT"ERROR IN DATA":END
40 PRINT"INSERT PROGRAM DISK"
50 INPUT"PROGRAM NAME";F1$
60 CLOSE4:CLOSE5:CLOSE15:OPEN15,8,15,"I":CLOSE15:OPEN15,8,15
70 OPEN4,8,4,"0:"+F1$+",P,R":GOSUB230:IFER<>0THENCLOSE4:GOTO50
80 INPUT"OUTPUT NAME";F1$
90 OPEN5,8,5,"0:"+F1$+",P,W":GOSUB230:IFER<>0THENCLOSE5:GOTO80
100 Z$=CHR$(0)
110 POKE829,PEEK(770):POKE834,PEEK(771):POKE857,PEEK(771)
120 PRINTCHR$(147)"WAIT"
130 GET#4,A$:GET#4,B$:L=ASC(A$+Z$)+256*ASC(B$+Z$)-1
140 PRINT#5,CHR$(2)CHR$(3)CHR$(60)CHR$(3);
150 C$="RUN"+CHR$(0)
160 FORI=1TOLEN(C$):POKE858+I,ASC(MID$(C$,I,1)):NEXTI
170 FORI=772TOL:PRINT#5,CHR$(PEEK(I));:NEXTI
180 PRINT"COPYING FILE"
190 GET#4,A$:S=ST:PRINT#5,CHR$(ASC(A$+Z$));:IFS=0THEN190
200 GOSUB230
210 CLOSE4:CLOSE5:CLOSE15
220 PRINTE1$:PRINT"DONE":END
230 INPUT#15,ER,E1$,T,S:IFER=0THENRETURN
240 PRINTE1$;T;S:RETURN
250 DATA169,131,141,2,3,169,196,141,3,3
260 DATA160,0,185,91,3,153,0,2,240,3
270 DATA200,208,245,162,255,160,1,76,134,196
280 DATA0,82,85,78,0