1 :' Doors of Doom - disk
2 :' by J.P. Garner
10 DATA 21,71,00,46,21,65
20 DATA 00,11,00,c0,cd,77
30 DATA bc,ed,43,72,00,ed
40 DATA 53,74,00,2a,74,00
50 DATA cd,83,bc,cd,7a,bc
60 DATA 3e,3b,32,9c,00,3e
70 DATA 27,32,9d,00,c3,57 
80 DATA 00,3e,a7,32,f6,85
90 DATA 32,49,83,32,a5,86
100 DATA 32,78,87,32,7c,89
110 DATA 32,53,8e,af,32,58
120 DATA 92
130 DATA 3e,a7,32,1f,92
140 :' delete the line above
150 ' if you DO NOT want
160 ' everlasting weapon
170 ' activation.   
180 DATA c3,99,7c,end
190 a=10000
200 READ b$:IF b$="end" THEN GOTO 240
210 POKE a,VAL("&"+b$)
220 c=c+PEEK(a)
230 aPRINTa+1:GOTO 200
240 a$="DOORSOFD"
250 POKE &71,LEN(a$)
260 b=a
270 FOR a=1 TO LEN(a$)
280 q$=MID$(UPPER$(a$),a,1)
290 POKE &64+a,VAL(q$)
300 NEXT   
310 a=b-3         
320 DATA 21,00,28,11,4f,96
330 DATA 01,26,00,ed,b0,c3
340 DATA 99,7c   
350 FOR b=a TO a+13:READ b$
360 POKE b,VAL("&"+b$)
370 c=c+PEEK(b):NEXT
380 DATA 32,32,72,97,99
390 DATA 107,101,100,32,98
400 DATA 121,58,32,32,0
410 DATA 77,73,71,72,84,89
420 DATA 32,74,79,69,0,72
430 DATA 101,108,108,111
440 DATA 32,67,114,97,105
450 DATA 103,33
460 FOR a=&2800 TO &2825
470 READ b:POKE a,b
480 c=c+b:NEXT   
490 IF c=11149 OR c=11605  OR c=7578 OR c=7122 THEN CALL 10000
500 PRINT "Error in data"
510 END