1 REM       * *      * *                ** -06 ** -25.03.88 **             
2 REM       **   .. **
3 SCREEN2,15:I=255:SCREEN3,I,I,I,I,I,I,I,I:CLEAR:SCREEN0,0,64,128,16,208,6,134,22,63,0,197,34,192,2,152,164,255
4 CLS:C=128:J=0:I=0:BD=0:DIM BB(14,2),B(13),G(13),F(50),S1(80),S2(80):CH=0
5 BB(0,1)=141:BB(1,1)=130:BB(2,1)=131:BB(3,1)=134:BB(4,1)=135
6 BB(5,1)=137:BB(6,1)=143:BB(7,1)=141:BB(8,1)=130
7 BB(9,1)=131:BB(10,1)=134:BB(11,1)=135:BB(12,1)=137:BB(13,1)=143
8 COLOR10,C,1:PLOT0,0,1:LINE255,255,B
9 COLOR2,C:PLOT7,210,1:LINE248,248,BF
10 COLOR15,C:PLOT8,211,1:LINE247,247,B
11 PLAY"L7 O4AB-A.DEFDAB-A.EFGEAB-A.EFG.AB-A1PS.O5DE-D.O4AB-O5CO4AO5DE-D.O4GAB-O5DCO4B-O5D.O4AFE.GFD..PS."
12 COLOR13,C:PLOT15,214,2:LINE2,4,BS:PRINT"-" 
13 COLOR8,C:PLOT7,7,1:LINE247,43,BF
14 COLOR12,C:PLOT42,75,2:LINE1,17,BS:PRINT"I"
15 PLOT208,75,2:LINE1,17,BS:PRINT"I"
16 COLOR8,C:FOR J=1 TO 37 
17 PLOT7+J,43+J,1:LINE247-J,43+J:NEXTJ
18 COLOR2,C:PLOT7,7,1:LINE248,44,B
19 PLOT7,43,1:LINE44,80:LINE211,80:LINE248,43
20 I=0:FOR J=1 TO 30:I=I+1
21 COLOR6,C:PLOT15+J,47+I:LINE240-J,47+I
22 NEXT J
23 COLOR2,C:PLOT45,62,1:LINE211,77,B
24 PLOT44,61,1:LINE32,48:PLOT211,61,1:LINE223,48
25 J=0:FOR I=75 TO 135:J=J+1
26 COLOR8,C:PLOTI,47,1:LINE95+J,77:NEXTI 
27 I=0:FOR J=128 TO 178
28 PLOT157,77:LINEJ,47:NEXT J
29 COLOR2,C:PLOT157,77,1:LINE178,47:LINE239,47:LINE210,77
30 PLOT45,77,1:LINE15,47:LINE75,47:LINE95,77
31 COLOR8,C:PLOT7,175,1:LINE247,180,BF
32 FOR J=1 TO 17:
33 PLOT7+2*J,180+J,1:LINE247-2*J,180+J:NEXTJ
34 COLOR2,C:PLOT7,175,1:LINE247,180,B
35 PLOT7,180,1:LINE41,197:LINE214,197:LINE247,180
36 COLOR9,C:PLOT121,63,2:LINE2,13,BS:PRINT""
37 COLOR4,C:PLOT120,60,1:LINE2,13,BS:PRINT""
38 COLOR12,C:PLOT4,48,2:LINE1,18,BS:PRINT"!"
39 PLOT246,48,2:LINE1,18,BS:PRINT"!"
40 F=7:V=68:A=2:GOSUB 382:F=222:V=68:A=13:GOSUB 382:PLOT7,68,2:GET26,22,ADDR(S1(1)):PLOT223,68,2:GET25,22,ADDR(S2(1))
41 COLOR7,C:PLOT10,67,1:LINE30,67:PLOT225,67,1:LINE245,67
42 COLOR15,C:PLOT120,64,1:LINE110,71
43 PLOT120,57,1:LINE130,56:LINE133,60
44 COLOR9,C:PLOT37,189,2:LINE2,2,BS:PRINT" "
45 COLOR4,C:PLOT35,188,2:LINE2,2,BS:PRINT"  "
46 COLOR2,C:CUR3,14:PRINT"  * * " 
47 CUR3,13:PRINT"   -"
48 CUR3,12:PRINT" , -" 
49 CUR3,11:PRINT"  "
50 CUR4,10:PRINT" ! -(D)- ! "
51 CUR27,14:PRINT" * * "
52 CUR27,13:PRINT"     "
53 CUR27,12:PRINT"  (N)"
54 CUR27,11:PRINT"   "
55 CUR27,10:PRINT" -  - " 
56 A$=INKEY$:CUR2,22
57 COLORINT(RND(1)*10),C:PLOT24,15,2:LINE7,3,BS:PRINT""
58 PAUSE1:PLAY"O4CDEDC","O4DEFED"
59 IF A$="N" OR A$="" THEN 62
60 IF A$="D" OR A$="" THEN 304
61 GOTO 56
62 V=125:S=0
63 CLS:COLOR15,C:PLOT0,0,1:LINE255,255,B
64 COLOR14,C:PLOT2,200,1:LINE253,253,BF
65 COLOR4,C:PLOT7,207,1:LINE248,248,BF
66 PLAY"L5 O3CDEFGFEDC."
67 COLOR7,C:PLOT8,208,1:LINE247,247,B
68 COLOR7,C:PLOT0,198,1:LINE255,198
69 COLOR1,C:PLOT28,215,2:LINE7,4,BS:PRINT""
70 COLOR10,C:PLOT26,213,2:LINE7,4,BS:PRINT""
71 COLOR8,C:PLOT4,59,1:LINE251,191,BF:COLOR10,C
72 W=0
73 COLOR10,C:PLOT25,40,2:LINE2,2,BS:PRINT"  "
74 COLOR7,C:PLOT50,24,2:LINE2,1,BS:PRINT" ?"
75 COLOR3,C:PLOT45,8,2:LINE3,1,BS:PRINT"(D)(N)":CUR2,22
76 Z$=INKEY$
77 IF Z$="D"OR Z$=""THEN KD=1:GOTO 80
78 IF Z$="N"OR Z$=""THEN KD=2:GOTO 80
79 GOTO 76
80 REM "."
81 IF T1=0 THEN 88
82 W=W+D:C1=0:IF T1>=5 THEN PAUSE2:GOTO267
83 COLOR10,C:PLOT8,7,2:LINE2,1,BS:PRINT" ?D==N"
84 A$=INKEY$
85 IF A$<>"D" AND A$<>"" AND A$<>"N" AND A$<>"" THEN 84
86 IF A$="N" OR A$="" THEN 267
87 CUR0,24
88 COLOR8,C:PLOT3,59,1:LINE251,191,BF:COLOR15,C
89 PLOT5,60,1:LINE250,190,B:PLOT97,60,1:LINE157,190,B
90 PLOT36,60,1:LINE218,190,B:PLOT127,60,1:LINE127,190
91 PLOT37,125,1:LINE218,125:PLOT67,60,1:LINE188,190,B
92 COLORBB(0,1),C:PLOT32,115,2:LINE2,1,BS:PRINT1
93 COLORBB(1,1),C:PLOT64,115,2:LINE2,1,BS:PRINT2
94 COLORBB(2,1),C:PLOT94,115,2:LINE2,1,BS:PRINT3
95 COLORBB(3,1),C:PLOT123,115,2:LINE2,1,BS:PRINT4
96 COLORBB(4,1),C:PLOT154,115,2:LINE2,1,BS:PRINT5
97 COLORBB(5,1),C:PLOT184,115,2:LINE2,1,BS:PRINT6
98 COLORBB(5,1),C:PLOT34,180,2:LINE2,1,BS:PRINT6
99 COLORBB(4,1),C:PLOT64,180,2:LINE2,1,BS:PRINT5
100 COLORBB(3,1),C:PLOT94,180,2:LINE2,1,BS:PRINT4
101 COLORBB(2,1),C:PLOT125,180,2:LINE2,1,BS:PRINT3
102 COLORBB(1,1),C:PLOT155,180,2:LINE2,1,BS:PRINT2
103 COLORBB(0,1),C:PLOT184,180,2:LINE2,1,BS:PRINT1
104 COLOR1,C:PLOT2,2,1:LINE253,57,BF
105 CUR1,4:COLOR7,C:PRINT"     ?":CUR0,24
106 COLOR2,C:PLOT10,30,2:LINE2,1,BS:PRINT"C-.(1)"
107 COLOR7,C:PLOT10,15,2:LINE2,1,BS:PRINT"  -.(2)"
108 A$=INKEY$:GOSUB 362:Z1=I
109 IF Z1<>1 AND Z1<>2  THEN 108
110 COLOR1,C:PLOT2,2,1:LINE253,55,BF
111 GOSUB 294:T1=T1+1:C1=0
112 IF KD=2 THENCOLOR10,C:PLOT223,37,1:LINE243,57,B:COLOR4,C:PLOT224,38,1:LINE242,56,BF:CUR2,22
113 IF KD=2 THENCOLOR7,C:PLOT216,40,2:LINE2,2,BS:PRINT0:CUR2,22
114 IF KD=2 THENCOLOR10,C:PLOT11,37,1:LINE31,57,B:COLOR4,C:PLOT12,38,1:LINE30,56,BF:CUR2,22
115 IF KD=2 THENCOLOR10,C:PLOT4,40,2:LINE2,2,BS:PRINT0:CUR2,22
116 PUT8,168,ADDR(S1(1)),1:PUT222,168,ADDR(S2(1)),1
117 PLAY"L5 O5CDEFGAGFEDC"
118 GOSUB 200
119 IF KD=1THENCUR15,4:COLOR10,C:PRINT"  =        ":GOSUB 153
120 IF KD=2THENCUR14,4:COLOR10,C:PRINT" 1-=        ":J=-1:CH=-1:GOSUB 153
121 IF (B(6)-30)*(B(13)-30)<=0 THEN 135
122 IF E=0 THEN 135
123 IF M<>H THEN 125
124 GOSUB 152
125 IF E=0 THEN 135
126 IF KD=1THENCUR15,4:COLOR7,C:PRINT"  =     "
127 IF KD=2THENCUR14,4:COLOR7,C:PRINT" 2-=     ":J=-1:CH=-1:GOSUB 162
128 IF KD=1THENO=24:COLOR7,C:GOSUB 231:GOSUB 200
129 IF E=0 THEN 135
130 IF M<>H THEN 134
131 IF KD=2THEN CUR14,4:COLOR10,C:PRINT"   =    ":COLOR10,C:GOSUB 162:GOTO 134
132 CUR26,4:COLOR7,C:PRINT","
133 O=27:GOSUB 231
134 IF E>0 THEN 118
135 CUR10,4:COLOR87,C:PRINT"     ..."
136 PLAY"L7O4DFF.E.P.EGG.F.P.FAA.G.P.B-AO5C1PO4AO5CC.O4B-.P.GB-B-.A.P.FAG.P.A1D.P.P.AO5CC.O4B-.P.GB-B-.A.P.FAG.P.A1O5D.P.R"
137 D=B(6)-B(13)
138 IF D>=0 THEN 143
139 IF KD=1THENCUR2,3:COLOR120,C:PRINT" *   -":GOSUB 373
140 IF KD=2THENCUR2,3:COLOR120,C:PRINT" 2- -":GOSUB 373
141 COLOR15,C:PLOT129,35,2:LINE1,1,BS:DD=ABS(D):PRINT"["DD"]"
142 GOTO 80
143 N=N+1
144 IF D<>0 THEN 147
145 CUR8,3:COLOR154,C:PRINT"* !   *" 
146 CUR3,2:PRINT" P   .":GOTO 80
147 IF KD=1THENCUR2,3:COLOR160,C:PRINT"*   -":GOSUB 374
148 IF KD=2THENCUR2,3:COLOR160,C:PRINT" * 1-  -":GOSUB 374
149 COLOR3,C:PLOT129,35,2:LINE1,1,BS:PRINT"["D"]":COLOR160,C
150 IF KD=1THENCUR1,2:PRINT"     ,-  ":GOTO 80
151 GOTO 80
152 CUR14,4:COLOR10,C:PRINT"   =    ":COLOR10,C
153 A$=INKEY$:GOSUB 362:M=I:MM=I:J=J+1
154 IF KD=1 THEN 159
155 IF CH>=9 THEN 158
156 IF J/15=INT(J/15)THENCOLOR10,C:PLOT223,37,1:LINE243,57,B:COLOR4,C:PLOT224,38,1:LINE242,56,BF:CH=CH+1:PLAY"FB"
157 COLOR7,C:PLOT216,40,2:LINE2,2,BS:PRINTCH:CUR2,22
158 IF KD=2AND CH>=9THENPLAY"FBCA"
159 IF M>6 OR M<1 THEN 153
160 CUR24,4:PRINT M
161 M=M-1:GOTO 181
162 A$=INKEY$:GOSUB 362:M=I:MM=I:J=J+1
163 IF KD=1 THEN 171
164 IF CH>=9 THEN 167
165 IF J/14=INT(J/14)THENCOLOR10,C:PLOT11,37,1:LINE31,57,B:COLOR4,C:PLOT12,38,1:LINE30,56,BF:CH=CH+1:PLAY"DB"
166 COLOR10,C:PLOT4,40,2:LINE2,2,BS:PRINTCH:CUR2,22
167 IF CH>=9THENPLAY"FBCA"
168 IF KD=2THENFORI=7TO12:BD=BD+B(I):NEXTI
169 IF KD=2THEN IF BD=0 THEN 135
170 BD=0
171 IF M>6 OR M<1 THEN 162
172 CUR24,4:PRINT M
173 M=M+6:GOTO 184
174 CUR10,2:COLOR13,C:PRINT"   ":CUR0,19
175 CUR6,1:PRINT". ";MM;" ."
176 FOR I=0 TO 1000:NEXT I
177 COLOR1,C:PLOT2,2,1:LINE253,35,BF
178 CUR25,4:PRINT"   ":COLOR10,C
179 IF M<6 THEN 153
180 IF M>6 THEN 162
181 IF B(M)=0 THEN 174
182 H=6:GOSUB 187
183 GOTO 200
184 IF B(M)=0 THEN 174
185 H=13:GOSUB 187
186 GOTO 200
187 K=M:GOSUB 219
188 E=0:IF K<=6 THEN 190
189 K=K-7
190 C1=C1+1
191 IF C1>=9 THEN 193
192 F(N)=F(N)*6+K
193 FOR I=0 TO 5
194 IF B(I)<>0 THEN 197
195 NEXT I:RETURN
196 FOR I=7 TO 12
197 IF B(I)=0 THEN 199
198 E=1:RETURN
199 NEXT I:RETURN
200 T=31:V=12:FOR I=7 TO 12 
201 COLOR BB(I,1),C:GOSUB 208:NEXT I
202 I=13:T=1:V=6:COLOR BB(I,1),C:GOSUB 208
203 T=6:V=6:FOR I=0 TO 5
204 COLOR BB(I,1),C:GOSUB 208:NEXT I
205 I=6:T=36:V=6:COLOR BB(I,1),C:GOSUB 208
206 FOR I=0 TO 13:BB(I,0)=B(I):NEXT I
207 RETURN 
208 Q=1:F=0:IF B(I)>=1 THEN 210
209 COLOR8,C:PLOTT*6.2,V*11+3,1:LINET*6.2+24,V*11+47,BF:GOTO 216
210 FOR J=1 TO B(I)
211 IF BB(I,0)=B(I) THEN 213
212 IF J>BB(I,0) THEN PLAY"O6G","O6B":COLOR Z,C
213 IF J/3<>INT(J/3)THENCURJ+T+F,Q+V:PRINT"*":GOTO 215
214 CURJ+T+F,Q+V:PRINT"*":Q=Q+1:F=F-3
215 NEXT J
216 IF I>=0 AND I<=5 THENT=T+5
217 IF I>=7 AND I<=12 THENT=T-5
218 RETURN
219 P=B(M):B(M)=0:Z=BB(M,1)
220 IF M<6THEN T=M*5+6:COLOR8,C:PLOTT*6.25+1,V*11+3,1:LINET*6.2+23,V*11+47,BF
221 FOR P=P TO1 STEP-1
222 M=M+1
223 IF M<=13 THEN 225
224 M=M-14
225 B(M)=B(M)+1:NEXT P
226 IF B(M)<>1 THEN 229
227 IF(M-6)*(M-13)=0 THEN 229
228 IF B(12-M)<>0 THEN 230
229 RETURN
230 B(H)=B(H)+B(12-M)+1:B(M)=0:B(12-M)=0:RETURN
231 D=-99:H=13
232 FOR I=0 TO 13:G(I)=B(I):NEXT I
233 FOR J=12 TO7 STEP-1:IF B(J)=0THEN 262
234 B1=B(13):Q=0:M=J:GOSUB 219
235 IF S=0 THEN 237
236 COLOR10,C:CUR8,4:PRINTJ-6;" ";B(13)-B1;"  "
237 FOR I=0 TO 5
238 IF B(I)=0 THEN 249
239 L=B(I)+I:R=0
240 IF L<=13 THEN 242
241 L=L-14:R=1:GOTO 240
242 IF B(L)<>0 THEN 245
243 IF(L-6)*(L-13)=0 THEN 245
244 R=B(12-L)+R
245 IF S=0 THEN 247
246 CLS7:CUR8,4:PRINTR*(-1)
247 IF R<=0 THEN 249
248 Q=R
249 NEXT I
250 IF S=0 THEN 251
251 Q=B(13)-B(6)-Q
252 IF C1>8 THEN 259
253 K=J:IF K<=6 THEN 255
254 K=K-7
255 FOR I=0 TO N-1
256 IF F(N)*6+K<>INT(F(I)/6^(7-C1)+.1) THEN 258
257 Q=Q-2
258 NEXT I
259 FOR I=0 TO 13:B(I)=G(I):NEXT I
260 IF Q<D THEN 262
261 D=Q:X2=J 
262 NEXT J
263 M=X2:X2=0
264 IF M=0 THEN 135
265 CURO,4:PRINTM-6:GOTO 187:RETURN
266 FOR I=0 TO N-1:PRINTB(I):NEXT I
267 COLOR12,C:PLOT2,170,1:LINE253,90,BF:COLOR10,C:PLOT3,171,1:LINE252,89,B
268 FOR I=0 TO4:COLOR14,C:PLOT3+2*I,172+I,1:LINE252-2*I,172+I:NEXT I
269 PLAY"L5O4P.AO5CC.O4B-.P.GB-B-.A.P.FAG.P.A1O5D."
270 COLOR2,C:CUR2,23:PLOT45,140,2:LINE1,3,BS:PRINT"*    *"
271 COLOR1,C:PLOT2,2,1:LINE253,57,BF
272 IF W<>0 THEN 275
273 COLOR7,C:PLOT90,100,2:LINE2,3,BS:PRINT"!!":CUR22,22
274 PUT37,100,ADDR(S1(1)),1:PUT190,100,ADDR(S2(1)),1:GOTO289
275 IF W>0 THEN 283
276 D=-W:IF KD=1THENCOLOR10,C:PLOT62,100,2:LINE2,3,BS:PRINT" "
277 D=-W:IF KD=2THENCOLOR10,C:PLOT62,100,2:LINE2,3,BS:PRINT"2- "
278 PUT8,120,ADDR(S1(1)),1:PUT222,120,ADDR(S2(1)),1
279 CUR2,3:IF KD=1THENCOLOR154,C:PRINT" * O =":GOSUB 374:
280 CUR2,3:IF KD=2THENCOLOR154,C:PRINT" 1- O 2-=":GOSUB 374:
281 COLOR15,C:PLOT131,33,2:LINE1,2,BS:PRINT"["D"]"
282 GOTO 289
283 D=W:IF KD=1THENCOLOR7,C:PLOT39,100,2:LINE2,3,BS:PRINT"- !!-"
284 IF KD=2THENCOLOR7,C:PLOT52,100,2:LINE2,3,BS:PRINT"1- !!"
285 CUR2,3:IF KD=1THENCOLOR151,C:PRINT"*   =":GOSUB 374:CUR23,24
286 CUR2,3:IF KD=2THENCOLOR151,C:PRINT"2-  1-=":GOSUB 374:CUR23,24
287 PUT8,120,ADDR(S1(1)),1:PUT222,120,ADDR(S2(1)),1
288 COLOR2,C:PLOT131,33,2:LINE1,2,BS:PRINT"["D"]"
289 COLOR202,C:CUR7,1:PRINT" *    =";T1:CUR22,22
290 COLOR90,C:CUR12,5:PRINT" *  ..."
291 IF W<-40 THENCOLOR15,C:CUR12,7:PRINT" ."
292 IF W<-40 THENCUR10,6:PRINT"     !."
293 COLOR15,C:PAUSE7:PLAY"P","P","P":PAUSE1:RUN
294 IF Z1<>1 THEN 296
295 GOSUB 298:GOTO 297
296 GOSUB 301
297 RETURN
298 FOR I=0 TO 12:B(I)=3:BB(I,0)=3:NEXT I
299 B(6)=0:B(13)=0 :BB(6,0)=0:BB(13,0)=0
300 RETURN
301 FOR I=0 TO 13
302 B(I)=INT(RND(8)*4)+2:BB(I,0)=B(I):NEXT I
303 B(13)=0:B(6)=0:BB(6,0)=0:BB(13,0)=0:RETURN
304 HOME:COLOR15,C:PLOT1,1,1:LINE255,255,B
305 COLOR4,C:PLOT53,230,2:LINE2,1,BS:PRINT" ."
306 COLOR7,C:PLOT52,227,2:LINE200,227
307 CUR2,21:COLOR10,C:PRINT"      DA"
308 CUR2,20:PRINT"     -."
309 CUR2,19:PRINT" - T , (-" 
310 CUR2,18:PRINT").    "
311 CUR2,17:PRINT"K  ...    -"
312 CUR2,16:PRINT" .   , "
313 CUR2,15:PRINT"        "
314 CUR2,14:PRINT"        -"
315 CUR2,13:PRINT"   ,  " 
316 CUR2,12:PRINT" ."
317 CUR2,11:PRINT"      ,-"
318 CUR2,10:PRINT"  .    -" 
319 CUR2,9:PRINT"    ,   "
320 CUR2,8:PRINT"         -"
321 CUR2,7:PRINT"   ,   ." 
322 CUR2,6:PRINT"     , "
323 CUR2,5:PRINT" ,  ."
324 COLOR4,C:PLOT7,67,2:LINE2,1,BS:PRINT"B"
325 PLOT8,216,2:LINE2,1,BS:PRINT""
326 PLOT7,117,2:LINE2,1,BS:PRINT"E"
327 PUT22,228,ADDR(S1(1)),1:PUT206,228,ADDR(S2(1)),1:CUR0,24
328 COLOR14,C:PLOT15,6,1:LINE33,50,BF:LINE143,26,BF
329 COLOR2,C:PLOT33,6,1:LINE143,28,BF:PLOT143,6,1:LINE162,50,BF
330 COLOR8,C:PLOT33,6,1:LINE143,50,B:PLOT51,6,1:LINE124,50,B
331 PLOT70,6,1:LINE105,50,B
332 PLOT88,6,1:LINE88,50:PLOT15,6,1:LINE162,50,B
333 PLOT33,28,1:LINE143,28:COLOR10,C:PLOT14,5,1:LINE163,51,B
334 COLOR7,C:PLOT168,6,1:LINE247,50,BF
335 COLOR4,C:PLOT188,39,2:LINE1,1,BS:PRINT""
336 COLOR4,C:PLOT188,26,2:LINE1,1,BS:PRINT""
337 COLOR8,C:PLOT183,12,2:LINE3,1,BS:PRINT"(D)"
338 CUR22,22:COLOR8,C:PLOT169,7,1:LINE246,49,B:I=1:
339 COLORI,C:PLOT40,13,2:LINE1,1,BS:PRINT"1":PAUSE.5:X=2:CUR0,24:GOTO 358
340 COLORI,C:PLOT59,13,2:LINE1,1,BS:PRINT"2":PAUSE.5:X=3:GOTO 358
341 COLORI,C:PLOT76,13,2:LINE1,1,BS:PRINT"3":PAUSE.5:X=4:GOTO 358
342 COLORI,C:PLOT94,13,2:LINE1,1,BS:PRINT"4":PAUSE.5:X=5:GOTO 358
343 COLORI,C:PLOT112,13,2:LINE1,1,BS:PRINT"5":PAUSE.5:X=6:GOTO 358
344 COLORI,C:PLOT131,13,2:LINE1,1,BS:PRINT"6":PAUSE.5:X=7:GOTO 358
345 COLORI,C:PLOT150,41,2:LINE1,1,BS:PRINT"B"
346 PLOT150,27,2:LINE1,1,BS:PRINT"A"
347 PLOT150,11,2:LINE1,1,BS:PRINT"":PAUSE.5:X=8:GOTO 358
348 COLORI,C:PLOT124,35,2:LINE1,1,BS:PRINT1:PAUSE.5:X=9:GOTO 358
349 COLORI,C:PLOT106,35,2:LINE1,1,BS:PRINT2:PAUSE.5:X=10:GOTO 358
350 COLORI,C:PLOT88,35,2:LINE1,1,BS:PRINT3:PAUSE.5:X=11:GOTO 358
351 COLORI,C:PLOT71,35,2:LINE1,1,BS:PRINT4:PAUSE.5:X=12:GOTO 358
352 COLORI,C:PLOT51,35,2:LINE1,1,BS:PRINT5:PAUSE.5:X=13:GOTO 358
353 COLORI,C:PLOT33,35,2:LINE1,1,BS:PRINT6:PAUSE.5:X=14:GOTO 358
354 COLORI,C:PLOT22,41,2:LINE1,1,BS:PRINT"M"
355 PLOT22,27,2:LINE1,1,BS:PRINT"O"
356 PLOT22,11,2:LINE1,1,BS:PRINT"":PAUSE.5:X=15:GOTO 358
357 I=(RND(1)*15):X=1
358 Z$=INKEY$:PLAY" O5FD"
359 IF Z$="D" OR Z$="" THEN 361
360 ON X GOTO 339, 340, 341, 342, 343, 344, 345, 348, 349, 350, 351, 352, 353, 354, 357
361 I=0:Z$="":GOTO 62
362 IF A$="1" THENI=1
363 IF A$="2" THENI=2
364 IF A$="3" THENI=3
365 IF A$="4" THENI=4
366 IF A$="5" THENI=5
367 IF A$="6" THENI=6
368 IF A$="7" THENI=7
369 IF A$="8" THENI=8
370 IF A$="9" THENI=9
371 IF A$="0" THENI=0
372 RETURN
373 DD=-D:GOTO 375
374 DD=D
375 IF DD>10ANDDD<15ORDD>110ANDDD<115THENCUR31,3:PRINT"-  *" 
376 IF DD>10ANDDD<15ORDD>110ANDDD<115 THEN RETURN
377 IF DD>10 THEN DD=DD-10:GOTO 377
378 IF DD=1 THENCUR31,3:PRINT" -  *":RETURN
379 IF DD=2 OR DD=3 OR DD=4THENCUR31,3:PRINT"-  *":RETURN
380 CUR31,3:PRINT"-  *":RETURN
381 F=10:V=100
382 DATA8,2,12,2,14,2,18,2,9,3,10,3,16,3,17,3,10,4,11,4,15,4,16,4
383 DATA11,5,12,5,14,5,15,5,11,6,15,6,11,7,12,7,14,7,15,7
384 DATA10,8,11,8,15,8,16,8,9,9,9,10,16,9,17,9,8,10,10,10
385 DATA16,10,18,10,7,11,11,11,15,11,18,11,6,12,12,12,14,12,20,14 
386 DATA7,13,19,13,6,14,8,14,18,14,20,14,6,15,4,17,3,17,4,16
387 DATA20,15,22,17,23,17,22,16,1,16,4,16,23,16,25,16,4,10,6,12
388 DATA20,12,22,10,1,12,3,12,1,14,4,14,22,14,25,14,23,12,25,12
389 FOR I=1 TO36:READ X,Y,X1,Y1:COLORA,C
390 PLOTX+F,Y+V,1:LINEX1+F,Y1+V:NEXT I
391 DATA1,10,1,16,2,5,2,9,3,1,3,8,4,7,4,10,22,7,22,10
392 DATA23,1,23,8,24,5,24,9,25,10,25,16,8,1,8,2,10,1,10,2
393 DATA10,1,10,2,12,1,12,2,14,1,14,2,16,1,16,2,18,1,18,2
394 FOR I=1 TO14:READ X,Y,X1,Y1:COLOR14,C
395 PLOTX+F,Y+V,1:LINEX1+F,Y1+V:NEXT I
396 DATA11,14,15,14,11,15,15,15,10,16,16,16,10,17,16,17
397 DATA10,18,16,18,11,19,15,19,12,20,14,20
398 FOR I=1 TO7:READX,Y,X1,Y1:COLOR10,C
399 PLOTX+F,Y+V,1:LINEX1+F,Y1+V:NEXT I:COLOR8,C
400 COLOR14,C:PLOT12+F,15+V,1:LINE14+F,15+V:PLOT11+F,17+V,1:LINE12+F,17+V
401 PLOT14+F,17+V,1:LINE15+F,17+V:COLOR4,C:PLOT12+F,9+V,1:LINE14+F,10+V,B
402 RESTORE:RETURN
403 REM * * I N. B O B.* * 
