10 REM Mike Wong's Cheat program
20 REM Improved by T.Konetzko
25 REM and Anthony Jones.
30 REM (c) Computing with the Amstrad
40 REM Vol 2 No 8 Page 30
50 MODE 1:INK 0,0:INK 1,20:INK 2,16:INK 3,26:BORDER 0
55 PEN 3:PRINT"     ADVENTURE GAME CHEAT PROGRAM":PEN 2:PRINT
60 PRINT"Reset tape-counter and insert cassette"
70 PRINT
80 PRINT"Press ESCAPE twice when you see :":PEN 3:PRINT"<name> block 1 & Ok":PEN 2
90 PRINT
100 ON BREAK GOSUB 270
110 CAT
120 a=VAL("&"+HEX$(PEEK(47266),2)+HEX$(PEEK(47265) ,2))
130 b=VAL("&"+HEX$(PEEK(47269),2)+HEX$(PEEK(47268) ,2))
140 PRINT"Rewind tape to 000"
150 PRINT:PRINT
160 MEMORY a-1
170 PEN 3:LOAD"
180 CLS:MODE 1:PEN 1:PRINT"Vocabulary":PRINT:PRINT"Press any key to pause":PEN 3:PRINT CHR$(7)
190 FOR z=a TO a+b
200 p=PEEK(z)
210 IF p>31 AND p<129 THEN PEN 3:PRINT CHR$(p);:IF INKEY$=""THEN 230 ELSE WHILE INKEY$="":WEND:GOTO 230
220 IF p>31 THEN PEN 2:PRINT"*";
230 NEXT:PRINT CHR$(7):PRINT:PRINT:PRINT:PEN 1:PRINT"AGAIN? ";:PEN 2:INPUT"",q$
240 Q$=LOWER$(LEFT$(q$,1))
250 IF q$<>"y"THEN CLS:STOP
260 GOTO 180
270 ON BREAK GOSUB 290
280 GOTO 120
290 END0 GOTO 180
270 ON BREAK GOSUB 290
280 GOTO 120
290 END