1 :' Gauntlet - tape
2 :' by Tony Hoyle
3 :' 037
10 DATA CD,18,BB,FE,31,28
20 DATA 08,21,30,BE,36,18
30 DATA 23,36,04,21,70,01
40 DATA 11,70,02,3E,16,CD
50 DATA A1,BC,21,ED,01,36
60 DATA 3E,23,36,6B,21,A3
70 DATA 02,36,46,23,36,D5
80 DATA C3,ED,01,CD,14,03
90 DATA 21,95,96,36,C9,C9
100 DATA 21,33,85,36,03,09
110 CLS:y=0
120 FOR x=&BE00 TO &BE3B
130 READ a$:a=VAL("&"+a$)
140 POKE x,a:y=y+a:NEXT
150 IF y=&1487 THEN 190
160 PRINT"1) INFINITE HEALTH
170 PRINT"2) EXTRA BONUS"
180 CALL &BE00
190 PRINT"DATA ERROR!"

1 :' Gauntlet - disk
2 :' 038
10 sum=0:FOR a=&109F TO &10FF
20 READ a$
30 POKE a,VAL("&"+a$):sum=sum+PEEK(a)
40 NEXT:IF sum<>7292 THEN PRINT"error in data":STOP
50 MODE 0:PRINT"Insert Gauntlet Disk"
60 PRINT"Press a key...":CALL &BB18
70 LOCATE 1,22:INPUT"Restore to normal   (Y/N) ";a$
80 add=49152
90 FOR t=29 TO 32
100 FOR s=&11 TO &18
110 CALL &109F,add,s,t
120 NEXT s,t
130 READ t,s
140 IF t=-1 THEN END
150 CALL &109F,&1100,s,t
160 READ x,y:IF x<&1000 THEN t1=x:s1=y:GOTO 190 ELSE READ z
170 IF a$="n" OR a$="N" THEN POKE x,y ELSE POKE x,z
180 GOTO 160
190 a=0:WHILE a<1000:a=a+1:WEND
200 CALL &10B1,&1100,s,0,t
210 t=x:s=y
220 GOTO 140

1 :'Gauntlet Disk
2 :' 039
10 MODE 2:INK 0,0:BORDER 0: GOSUB 290
20 PRINT"G A U N T L E T  P O K E S":PRINT:PRINT
30 PRINT"Prevent Generators creating the enemy? (Y/N)";
40 a$=UPPER$(INKEY$):IF a$<>"Y" AND a$<>"N" THEN 40
50 PRINT a$:PRINT
60 PRINT"Stop yourself dying when health reaches zero? (Y/N)";
70 b$=UPPER$(INKEY$):IF b$<>"Y" AND b$<>"N" THEN 70
80 PRINT b$:PRINT
90 PRINT"Turn enemy invisible - only Phantoms will now cause damage (Y/N) ? ";
100 c$=UPPER$(INKEY$):IF c$<>"Y" AND c$<>"N" THEN 100
110 PRINT c$:PRINT
120 PRINT"Turn yourself invisible - the enemy is still attracted by you (Y/N) ? ";
130 d$=UPPER$(INKEY$):IF d$<> "Y" AND d$<>"N" THEN 130
140 PRINT d$:PRINT
150 PRINT:PRINT"Is this to your satisfaction (Y/N) ?"
160 e$=UPPER$(INKEY$):IF e$<>"Y" AND e$<>"N" THEN 160
170 IF e$="N" THEN RUN
180 PRINT:PRINT"INSERT THE GAUNTLET DISK INTO DRIVE A WITH THE WRITE-PROTECTION OFF"
190 PRINT:PRINT"Press a key when ready...":CALL &BB18
200 CALL &4000:a=&613A:b=&613D :c=&611B:d=&611E:e=&CD
210 a=&613A:b=&613D:c=&611B :d=&611E:e=&CD
220 IF a$="Y" THEN POKE a,0:POKE a+1,0:POKE a+2,0 ELSE POKE a,e:POKE a+1,&B5:POKE a+2,&8C
230 IF b$="Y" THEN POKE b,0:POKE b+1,0:POKE b+2,0 ELSE POKE b,e:POKE b+1,&20:POKE b+2,&94
240 IF c$="Y" THEN POKE c,0:POKE c+1,0:POKE c+2,0 ELSE POKE c,e:POKE c+1,&F0:POKE c+2,&A2
250 IF d$="Y" THEN POKE d,0:POKE d+1,0:POKE d+2,0 ELSE POKE d,e:POKE d+1,&13:POKE d+2,&87
260 CALL &401F
270 PRINT:PRINT"POKES NOW SAVED TO DISK":PRINT:PRINT "Press a key to play game"
280 CALL &BB18:ùCPM
290 FOR z=&4000 TO &4064:READ y$:POKE z,VAL("&"+y$)
300 x=x+VAL("&"+y$):NEXT z
310 IF x<>7668 THEN PRINT" ERROR IN DATA":STOP ELSE RETURN
320 DATA 21,5d,40,cd,d4,bc,22,5e,40, 21,61
330 DATA 40,cd,d4,bc,22,62,40,21,00, 60,1e
340 DATA 00,16,18,0e,11,df,5e,40,c9, 21,00
350 DATA 60,1e,00,16,18,0e,11,df,62, 40,21
360 DATA 00,70,1e,00,16,1c,0e,11,df, 5e,40
370 DATA 3e,29,87,32,0c,70,d6,02,32, 0d,70
380 DATA d6,03,32,0e,70,1e,00,16,1c, 0e,11
390 DATA 21,00,70,e5,d5,df,62,40,d1, e1,0e
400 DATA 12,df,62,40,c9,84,00,00,07, 85,00
410 DATA 00,07