home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 May & June / rerun-1986-05-06.d64 / tokenizer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  759b  |  17 lines
  1. 63000 poke826,0:poke827,0:poke52,84:poke56,84:clr:fori=1to5000:next:clr
  2. 63001 print"[147]seq to prg file converter - k. stange":poke53280,2:poke53281,2
  3. 63002 input"[158]file to be converted";na$:print"now reading the file... "
  4. 63003 open15,8,15,"i":open8,8,8,"0:"+na$+",s,r":input#15,en,er$,et,es
  5. 63004 ifen<>0thenprint"disk error: ";er$:close8:print#15,"i":close15:run
  6. 63005 c=c+1:get#8,a$:rs=st:poke21510+c,asc(a$):ifrs<>64then63005
  7. 63006 close8:poke21510+c+1,61:poke21510+c+2,13:print"[147]":fori=63000to63007
  8. 63007 printi:next:print"run63008";:poke198,10:fori=631to640:pokei,13:next:end
  9. 63008 print"[147]":clr
  10. 63009 c=(peek(826)*100)+peek(827)+21510
  11. 63010 ifpeek(827)=100thenpoke826,(peek(826)+1):poke827,0
  12. 63011 poke827,(peek(827)+1):printchr$(peek(c));:ifpeek(c)<>13then63009
  13. 63012 ifpeek(c-1)=61thenprint"[147]":fori=1to8:print63007+i:next:goto63014
  14. 63013 print"goto63008";:poke198,10:fori=631to640:pokei,13:next:end
  15. 63014 poke826,0:poke827,0:poke52,160:poke56,160:clr
  16. 63015 print"list";:poke198,10:fori=631to640:pokei,13:next:end
  17.