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 END |