1 CLEAR 25599 5 LET t=0: LET w=0 10 FOR f=64000 TO 64037 20 READ a: POKE f,a 30 LET t=t+a*w: LET w=w+1 40 NEXT f
50 IF t<>82517 THEN PRINT "ERROR IN DATA": STOP
100 DATA 33,14,250,17,0,91,1,50
110 DATA 0,237,176,195,0,91
120 DATA 33,255,227,17,255,255,1,0
130 DATA 128,237,184,175,58
140 DATA 32,143,58,176,160,58
150 DATA 64,158,195,0,128
190 POKE 23658,8
200 INPUT "INFINITE AMMO (Y/N)?"; a$ 210 IF a$="Y" THEN POKE 64026,50 220 INPUT "INVINCIBLE (Y/N)? ":a$ 230 IF a$="Y" THEN POKE 64029,50 240 INPUT "INFINITE KEYS (Y/N)?";a$ 250 IF a$="Y" THEN POKE 64032,50
300 PRINT AT 10,0; "START 'INTO THE EAGLE'S NEST' TAPE
310 LOAD "" CODE
400 POKE 58380,26
410 POKE 58392,250
420 POKE 58695,100
450 RANDOMIZE USR 58368