63000 POKE826,0:POKE827,0:POKE52,84:POKE56,84:CLR:FORI=1TO5000:NEXT:CLR
63001 PRINT"[147]SEQ TO PRG FILE CONVERTER - K. STANGE":POKE53280,2:POKE53281,2
63002 INPUT"[158]FILE TO BE CONVERTED";NA$:PRINT"NOW READING THE FILE... "
63003 OPEN15,8,15,"I":OPEN8,8,8,"0:"+NA$+",S,R":INPUT#15,EN,ER$,ET,ES
63004 IFEN<>0THENPRINT"DISK ERROR: ";ER$:CLOSE8:PRINT#15,"I":CLOSE15:RUN
63005 C=C+1:GET#8,A$:RS=ST:POKE21510+C,ASC(A$):IFRS<>64THEN63005
63006 CLOSE8:POKE21510+C+1,61:POKE21510+C+2,13:PRINT"[147]":FORI=63000TO63007
63007 PRINTI:NEXT:PRINT"RUN63008";:POKE198,10:FORI=631TO640:POKEI,13:NEXT:END
63008 PRINT"[147]":CLR
63009 C=(PEEK(826)*100)+PEEK(827)+21510
63010 IFPEEK(827)=100THENPOKE826,(PEEK(826)+1):POKE827,0
63011 POKE827,(PEEK(827)+1):PRINTCHR$(PEEK(C));:IFPEEK(C)<>13THEN63009
63012 IFPEEK(C-1)=61THENPRINT"[147]":FORI=1TO8:PRINT63007+I:NEXT:GOTO63014
63013 PRINT"GOTO63008";:POKE198,10:FORI=631TO640:POKEI,13:NEXT:END
63014 POKE826,0:POKE827,0:POKE52,160:POKE56,160:CLR
63015 PRINT"LIST";:POKE198,10:FORI=631TO640:POKEI,13:NEXT:END