1 IF CH=1 THEN 117
2 GOSUB 97:SYS 26624
3 N1$="":N2$="":BK=7:LG=1:NM$=N2$:GOTO111
4 EC=0:XD=0:YD=0:LI=40:HI=24:XA=0:YA=0:GOSUB169
5 LG=2:NM$=N1$:GOTO111
6 GOSUB 149:DIM M(9)
7 GOSUB137:POKE53269,7
8 GOSUB 102:GOSUB 107
9 PRINT""
10 POKE53265,PEEK(53265)OR16:POKE50950,4:SYS50944
11 X=34:Y=14:GA=0:BU=0:MU=0:BA=0
12 GOSUB 41
13 IFX=14AND Y=8 THEN GOSUB 49:GOTO17
14 IFX=4 AND Y=13 THEN GOSUB 57:GOTO17
15 IFX=25 AND Y=12 THEN GOSUB 68:GOTO17
16 IFX=14 AND Y=1 THEN GOSUB 82:GOTO17
17 GOSUB 102:POKE 53269,7:IF GA=0 THEN 12
18 GOSUB 164
19 POKE53280,0:POKE53281,0:PRINT""
20 PRINT""
21 POKE50950,5:SYS50944:END
22 SYS 49306:IF PEEK(49381)=0 THEN 22
23 GOSUB 102:PRINT"";
24 RETURN
25 REM
26 SYS 49306:XX=PEEK(49381)
27 IF XX=0 THEN 26
28 IF XX=16 THEN 48
29 XI=X:YI=Y
30 DX=((XX=4)−(XX=8))
31 DY=((XX=1)−(XX=2))
32 CO=((X+Y)AND2)/2:IF CO<>AC THEN POKE SO,SE:AC=CO
33 IF DX<>0 THEN HD=0
34 IF DY<>0 THEN HD=1
35 CD=CO+HD*6:POKE2040,32+CD:POKE2041,34+CD−CO:POKE2042,36+CD
36 X=X+DX
37 Y=Y+DY
38 AD=27392+X+Y*40
39 POKESO,OF
40 IF (PEEK(AD)<>1) GOTO46
41 XS=(X*8+20)AND255:YS=Y*8+48
42 POKE53264,−1*(X*8+22>255)*255
43 POKE53248,XS:POKE53250,XS:POKE53252,XS
44 POKE53249,YS:POKE53251,YS:POKE53253,YS
45 GOTO 47
46 X=XI:Y=YI
47 GOTO 26
48 RETURN
49 GOSUB 102:XD=2:YD=1:HI=9:LI=14:XA=13:YA=6:EC=0:GOSUB 169:POKE53269,0
50 PRINT"";
51 IF MU=1 THEN 53
52 PRINT"";:BU=1:GOTO55
53 PRINT"";
54 PRINT"";:BU=2
55 SYS 49306:IF PEEK(49381)=0 THEN 55
56 GOSUB 169:RETURN
57 GOSUB 102:XD=19:YD=1:HI=9:LI=14:XA=13:YA=6:EC=0:GOSUB 169
58 PRINT"";
59 IF BU>0 THEN 63
60 PRINT"";
61 PRINT"";
62 GOTO 66
63 IF MU=1 THEN 65
64 PRINT"";:MU=1:GOTO66
65 PRINT""
66 SYS 49306:IF PEEK(49381)=0 THEN 66
67 GOSUB 169:RETURN
68 REM
69 GOSUB 102:XD=2:YD=14:HI=9:LI=14:XA=13:YA=6:EC=0:GOSUB 169:POKE53269,0
70 PRINT"";
71 IF BU=2 THEN 75
72 PRINT"";
73 PRINT"";
74 GOTO 79
75 PRINT"";
76 PRINT"";
77 REM
78 BA=1
79 SYS 49306:IF PEEK(49381)=0 THEN 79
80 GOSUB 169
81 RETURN
82 GOSUB 102:XD=19:YD=14:HI=9:LI=14:XA=13:YA=6:EC=0:GOSUB 169
83 PRINT"";
84 IF BA=1 THEN 89
85 PRINT"";
86 PRINT"";
87 PRINT"";
88 GOTO 94
89 PRINT"";
90 PRINT"";:GOSUB 22
91 PRINT"";
92 PRINT"";:GOSUB 22
93 PRINT"";:PRINT"":GA=1
94 SYS 49306:IF PEEK(49381)=0 THEN 94
95 GOSUB 169
96 RETURN
97 IF PEEK(49152)<>120 THEN LOAD"",8,1
98 NO=NO+1:IFNO=1THENLOAD"",8,1
99 IF NO=2 THEN LOAD"",8,1
100 IF NO=3 THEN LOAD"",8,1
101 RETURN
102 PRINT"";
103 FOR I=1 TO 2:PRINT"";:NEXTI
104 PRINT"";
105 POKE2023,32
106 RETURN
107 POKE54296,7:POKE54272,0:POKE54273,10:POKE54278,16:POKE54277,17
108 SO=54276:SE=129:OF=128
109 POKE SO,OF
110 RETURN
111 REM
112 REM
113 REM
114 REM
115 E=0:CH=1
116 POKE53265,PEEK(53265) AND 239
117 E=E+1
118 POKE53280,E−1
119 IF E=1 THEN LOAD""+NM$,8,1
120 IF E=2 THEN LOAD""+NM$,8,1
121 IF E=3 THEN LOAD""+NM$,8,1
122 CH=0
123 IF LG=1 THEN 4
124 GOTO 6
125 REM
126 REM
127 REM
128 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0
129 DATA 168,0,2,170,0,10,170,128
130 DATA 10,250,128,43,174,160,46
131 DATA 171,160,46,171,160,46,171
132 DATA 160,43,174,160,10,250,128
133 DATA 10,170,128,2,170,0,0,168
134 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0
135 DATA 0,0,0
136 REM
137 REM
138 REM
139 RESTORE
140 POKE2040,32:POKE2041,34:POKE2042,36
141 REM
142 POKE53276,0
143 POKE53287,0:POKE53288,1:POKE53289,8
144 POKE53271,0:POKE53277,0
145 RETURN
146 REM
147 REM
148 REM
149 POKE49266,212:POKE49267,20:POKE49271,27:POKE49273,200
150 REM
151 POKE49274,24:POKE49269,00
152 REM
153 POKE 49276,0:POKE49277,0
154 REM
155 POKE49278,151
156 HO=8192
157 REM
158 POKE49268,BK:POKE49269,0
159 SYS49152
160 RETURN
161 REM
162 REM
163 REM
164 SYS49296
165 RETURN
166 REM
167 REM
168 REM
169 POKE49603,EC
170 REM
171 REM
172 POKE49288,XD
173 POKE49289,YD
174 POKE49290,LI
175 POKE49291,HI
176 REM
177 REM
178 POKE49292,XA
179 POKE49293,YA
180 REM
181 SYS 50096
182 RETURN
READY.
