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