home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_09_1986_Transactor_Publishing.d64 / stripper.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  573 b   |  33 lines
  1. 100 rem stripper
  2. 102 rem remove comments from
  3. 104 rem pal source code
  4. 106 :
  5. 108 for i=900 to i+20
  6. 110 read a: poke i,a
  7. 112 next
  8. 114 :
  9. 116 u$="' ' ' ' ' ' ' ' ]": q$=chr$(34)
  10. 118 :
  11. 120 print "keyc[200](149),";q$;"s/' ;*]//";
  12. 122 print q$;":clr"
  13. 124 :
  14. 126 for i=150 to 153
  15. 128 print:print
  16. 130 v$=mid$(str$(i),2)
  17. 132 print "keyc[200](";v$;"),";q$;
  18. 134 print "s/";right$(u$,2^(154-i)+1);
  19. 136 print "//";q$;":clr"
  20. 138 next i
  21. 140 :
  22. 142 print "use sys 900"
  23. 144 :
  24. 146 for i=1 to 19: print "[145]";: next
  25. 148 for i=631 to 635: poke i,13: next
  26. 150 poke 198,5
  27. 152 end
  28. 154 :
  29. 156 data 160, 10,162,153,132,198
  30. 158 data 169, 13,136,153,119,  2
  31. 160 data 138,202,136,153,119,  2
  32. 162 data  16,242, 96
  33.