1 :'Rasterscan - Tape
2 :'By Julian Page
9 :'Don't remove!
10 DATA 21,00,40,3E
20 DATA 16,E5,E5,F5
30 DATA CD,A1,BC,F1
40 DATA D1,E1,E5,CD
50 DATA A1,BC,21,25
60 DATA BF,22,24,40
70 DATA C9,42,52,41
80 DATA 58,58,5B,48
90 DATA 41,43,4B,45
100 DATA 52,21,19,BF
110 DATA 11,F7,0B,01
120 DATA 0C,00,ED,B0
130 DATA ED,62,AF
139 :'Infinite power
140 DATA 32,DF,48
149 :'Locks auto-open
150 DATA 22,D5,3E
159 :'No nasty music
160 DATA 32,FD,14
170 DATA 22,FE,14
179 :'No music bug
180 DATA 22,07,15
190 DATA 32,09,15
199 :'Invulnerability
200 DATA 21,62,15
210 DATA 22,F6,0C
219 :'Don't remove!
220 DATA C3,FD,03,JPS
230 X=&BF00:MODE 1
240 READ A$
250 IF A$="JPS" THEN 280
260 POKE X,VAL("&"+A$)
270 X=X+1:GOTO 240
280 FOR X=&BF00 TO &BF32
290 C=C+PEEK(X):NEXT X
300 IF C<>&16E6 THEN 320
310 CALL &BF00
320 PRINT"DATA ERROR"