10 ' Arkanoid II Cheat Mode
11 '(C) 1989 1st Choice Software
12 MEMORY &9FFF:CALL &BC02:CALL &BBFF:BORDER 0:INK 0,0:INK 1,25:PAPER 0:PEN 1:MODE 1
13 PAPER 3:PEN 1
14 RESTORE 40:GOSUB 19:PAPER 0:PEN 2:PRINT:PRINT:GOSUB 19
15 RESTORE 50:FOR i=&A000 TO &A153:READ a$:POKE i,VAL("&"+a$):NEXT:GOSUB 200:RESTORE 48:PEN 3:CLS:GOSUB 19
16 a$=INKEY$:IF a$<>" " THEN 16
17 PEN 1:MODE 1:a$="O.k. Here We Go...":GOSUB 22:POKE &BE78,255:CALL &A000
18 a$="A Disk Error Has Occured, Press Space To Try Again":GOSUB 22:GOTO 16
19 ' Messages
20 READ a$:IF a$="XX" THEN RETURN
21 GOSUB 22:GOTO 20
22 ' Print Routine For Mode 1 - Rather Long Winded N'est Pas ?
23 t=1:b$="":ma=39
24 IF LEN(a$)<ma+1 THEN c$=a$:GOTO 39
25 c$=""
26 mat=1
27 b$="":tt=0
28 WHILE MID$(a$,t,1)<>" " AND t<>LEN(a$)+1
29 b$=b$+MID$(a$,t,1):IF MID$(a$,t,1)="" THEN tt=tt+2
30 t=t+1:WEND
31 IF MID$(a$,t,1)=" " THEN b$=b$+" ":t=t+1
32 mat=mat+LEN(b$)-tt
33 IF mat>ma THEN 36
34 IF mat<ma+1 THEN c$=c$+b$:IF t<LEN(a$)+1 THEN 27
35 IF t=LEN(a$) OR t>LEN(a$) THEN GOSUB 39:PRINT:RETURN
36 t=t-LEN(b$)
37 GOSUB 39:PRINT
38 c$="":GOTO 26
39 FOR x=1 TO LEN(c$):GOSUB 150:SOUND 1,ASC(MID$(c$,x,1))+100,1:SOUND 2,ASC(MID$(c$,x,1))+200,1:NEXT:PAPER 0:PRINT" ":RETURN
40 ' Place Instruction Data
41 DATA "ARKANOID II - Cheat Mode"
42 DATA "(C) 1989 1st Choice Software."
43 DATA XX
44 DATA "This Cheat For Imagine's Arkanoid II Gives You Infinite Lives.","There Is Also A Built In Cheat Mode."
45 DATA "After The Game Has Loaded, Press The Keys 3R T2 and 3F2 Together. The Border Will Turn Blue To Show That The Cheat Mode Is On. At Any Point During The Game, Pressing 3ESC2 Will Then Open The Doors To The Next Level."
47 DATA XX
48 DATA "Please Insert Your Arkanoid Disc In Drive A:","When You Are Ready Press Space."
49 DATA XX
50 DATA 21,FF,AB,11,40,00,0E,07,CD,CE,BC,21,4E,A1,CD,D4,BC,79,22,4F
51 DATA A1,32,51,A1,21,00,01,11,00,00,0E,41,DF,4F,A1,D0,21,2D,A0,22
52 DATA 11,01,CD,00,01,F3,F3,31,FE,BF,3E,09,ED,4F,21,E1,1C,01,DE,03
53 DATA 16,05,ED,5F,AE,AA,77,57,23,0B,14,79,B0,CA,4F,A0,C3,3E,A0,11
54 DATA F4,1C,21,CB,03,ED,5F,EB,AE,EB,12,2B,13,7D,B4,C2,55,A0,EB,11
55 DATA BC,03,2B,35,1B,7A,FE,FF,C2,66,A0,23,E8,21,03,1D,01,64,00,11
56 DATA 02,1D,ED,B8,21,22,1D,01,9D,03,ED,5F,AE,77,23,0B,78,B1,C2,82
57 DATA A0,C3,90,A0,01,E8,FE,ED,79,3A,00,00,FE,F3,C2,9D,A0,21,3C,1D
58 DATA 11,3B,1D,01,64,00,ED,B8,01,53,03,21,6C,1D,DD,21,50,1D,00,11
59 DATA 1C,00,DD,19,ED,5F,DD,AC,96,DD,AD,77,0B,79,23,B0,C2,CA,A0,C3
60 DATA CD,A0,C3,B8,A0,21,6C,1D,11,6B,1D,01,64,00,ED,B8,01,23,03,21
61 DATA 9C,1D,DD,21,80,1D,00,11,1C,00,DD,19,ED,5F,DD,AC,96,DD,AD,77
62 DATA 0B,79,23,B0,C2,FA,A0,C3,FD,A0,C3,E8,A0,11,15,03,2B,34,1B,7A
63 DATA FE,FF,C2,00,A1,23,EA,00,40,1D,11,A9,1D,01,64,00,ED,B8,21,C6
64 DATA 1D,01,F9,02,ED,5F,AE,77,23,0B,79,B0,C2,1C,A1,21,E3,1D,11,00
65 DATA A8,01,DC,02,ED,B0,21,80,BE,22,E5,A8,21,46,A1,11,80,BE,01,50
66 DATA 00,ED,B0,C3,4D,A8,AF,32,18,33,C3,FD,30,C9,84,00,00,00,00,00
150 Z$=MID$(c$,x,1)
160 IF Z$="" THEN PRINT Z$; ELSE PRINT Z$;CHR$(24);" ";CHR$(24);CHR$(8);
170 RETURN
200 i=TIME+450:WHILE i>TIME:WEND
210 PAPER 1:PEN 3:LOCATE 10,25:PRINT "HIT SPACE TO PROCEED";
220 WHILE INKEY$<>" ":WEND
230 PAPER 0:RETURN
