62990 A=PEEK(61)+256*PEEK(62)+3:POKE786,INT(A/256):POKE785,A-256*PEEK(786)
62995 IFERTHENPOKEA-2,0:POKEA-1,0:POKE45,PEEK(785):POKE46,PEEK(786):CLR:END
63000 POKE53280,0:POKE53281,0:POKE646,1
63009 PRINTCHR$(147)
63010 PRINT "THIS PROGRAM WILL TURN TEXT BASIC FILES INTO RUN BASIC PROGRAMS";
63020 PRINT "USING THE COMMODORE DATASETTE OR DISK DRIVE."
63030 PRINTCHR$(17)"THE PROGRAM WILL DELETE ANY LINE"
63040 PRINT"OF THE FILE IN CASE IT IS NOT A PROGRAM LINE."CHR$(147)
63043 INPUT"NAME OF FILE TO BE CONVERTED";F$
63045 PRINT "    "CHR$(18)"T"CHR$(146)"APE OR "CHR$(18)"D"CHR$(146)"ISK?"
63046 GETA$:IFA$=""THEN63046
63047 IFA$="T"THEND=1:SA=0:N=1:GOTO63080
63048 IFA$<>"D"THEN63046
63050 D=8:SA=3:N=3
63080 PRINT "HIT A KEY WHEN READY!"
63085 GETA$:IF A$=""THEN63085
63090 PRINTCHR$(147)
63097 OPEN3,D,SA,F$:PRINT"READING FILE, PLEASE BE PATIENT!":FORX=1TO1000:NEXT
63099 POKE152,3:T$=""
63100 GET#3,A$:IF A$=""THEN63100
63105 IF ST=64THEN63250
63106 IF A$=CHR$(13)THEN63130
63110 T$=T$+A$
63115 A$="":GOTO63100
63130 IFLEN(T$)<3THENT$="":GOTO63100
63140 IFLEFT$(T$,1)=CHR$(10)THEN63250
63142 IFVAL(LEFT$(T$,1))=0THENPRINTT$:T$=RIGHT$(T$,(LEN(T$)-1)):GOTO63140
63220 PRINTCHR$(147)"      TRANSLATING TEXT INTO BASIC..."
63225 PRINTCHR$(17)CHR$(17);T$:PRINT"GOTO 63099"
63235 POKE198,2:POKE631,13:POKE632,13:PRINTCHR$(19):END
63240 IFVAL(LEFT$(T$,1))=0THENT$=RIGHT$(T$,(LEN(T$)-1)):GOTO63140
63250 PRINTCHR$(147)"CONVERSION COMPLETE!!!":CLOSE3:PRINT
63260 PRINT"DO YOU WANT THIS CONVERTER"
63262 PRINT "DELETED BEFORE YOU SAVE THE NEW PROGRAM?"
63265 GETA$:IFA$=""THEN63265
63266 IFA$="Y"THENER=1:GOTO62990
63270 PRINT"ALL DONE! CHECK IT OUT!"
63280 END