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