2 MEMORY HIMEM
7 bububu=0:lastmys=0:KCO=0:GOSUB 20000:GOTO 59500
9 bilpav=1:superpav=0:zarovka=1:bububu=0:cthrabmez=10:hraben=4:prden=3:KCO=0:enton=1:oja=1:GOSUB 49000:DIM blud$(20,20):RESTORE 1000
:x=2:y=2:ziv=9
10 pavx=0:pavy=0:obr=1:kohouten=20:cum$="R":SPEED KEY 15,3
12 FOR i=0 TO 15:INK I,0:NEXT:MODE 0
15 '
20 TIX=TIME:en=20:pavschov=0
38 GOSUB 10600 ' HLAV
39 GOSUB 10000:GOSUB 10200:GOSUB 10300:GOSUB 20000
40 RANDOMIZE TIME:GOSUB 170:pavx=0:pavy=0:xmapa=obr:GOSUB 4100 ' NALIST
41 READ obr:h=0:s=0:GOSUB 20000
42 FOR t=1 TO 20:READ a$:FOR o=1 TO 20

43 oja$=MID$(a$,o,1)
44 IF oja$="2" THEN oja$="1":GOTO 47
45 IF (oja$="4") OR (oja$="5") THEN oja$="6"
47 blud$(o,t)=oja$
48 NEXT o:NEXT t:GOSUB 10200:GOSUB 10400 'SUTRY
49 GOSUB 10500:GOSUB 10550
50 CLS:LOCATE 1,1:bobek=0
51 FOR tt=1 TO 20:FOR oo=1 TO 20:x$=blud$(oo,tt)
52 GOSUB 7000:NEXT oo:NEXT tt
72 GOSUB 10200:mx=x:my=y
73 cthrab=0:GOTO  350 ' ZJEV MYS
74 '
75 IF OBR=1 AND KCO=1 AND X=2 AND Y=2 THEN KCO=0:GOSUB 20000:GOTO 63004
76 a=JOY(0):IF INKEY$<>"" THEN 76
77 ' FOR RI=1 TO 3:NEXT
78 ' IF INKEY$<>"" THEN 76
80 GOSUB 100:IF kous=1 THEN GOSUB 59000
82 IF (a AND 1)=1 OR INKEY(0)=0 THEN 200
84 IF (a AND 2)=2 OR INKEY(2)=0 THEN 300

85 IF (a AND 4)=4 OR INKEY(8)=0 THEN 400
86 IF (a AND 8)=8 OR INKEY(1)=0 THEN 500
87 IF (a AND 32)=32 THEN cum$="L":GOSUB 455:GOTO 8500
88 IF (a AND 16)=16 THEN cum$="R":GOSUB 455:GOTO 8500
89 IF (a AND 64)=64 THEN GOSUB 4300
90 IF INKEY(45)=0 THEN 8000
91 IF INKEY(47)=0 THEN 8500
92 IF INKEY(23)=128 THEN GOSUB 4300

95 GOTO 74
100 IF pavx=0 THEN 145
101 IF RND(1)<0.9 THEN RETURN
102 MVY=-1+pavy+INT(RND(1)*3):MVX=-1+pavx+INT(RND(1)*3)
103 IF mvx=pavx AND mvy=pavy THEN 114
104 IF blud$(mvx,mvy)="X" AND (RND(1)>0.85) THEN 140 ' ZER KAMOS
105 IF blud$(mvx,mvy)="0" THEN 110
109 RETURN
110 IF ((mvx=x) AND (mvy=y)) OR ((mvx=x+1) AND (mvy=y)) THEN kous=1:RETURN 'KOUS
111 PAPER 0:blud$(mvx,mvy)="X":blud$(pavx,pavy)="0"
114 LOCATE pavx,pavy:PEN 2:PAPER 0:PRINT pvc$;
115 FOR QWE=1 TO 3:NEXT
116 LOCATE mvx,mvy:PAPER 0:PEN 4:PRINT CHR$(244); 'PVK
118 SOUND 1,1300,5,15,,5,5
119 pavx=MVX:pavy=MVY
120 IF pavx=1 OR pavx=20 OR pavy=1 OR pavy=20 THEN blud$(pavx,pavy)="0":LOCATE pavx,pavy:PEN 2:PRINT pvc$;:pavx=0:pavy=0
125 PAPER 0:PEN 14
130 RETURN
140 ' PAV x PAV

142 SOUND 1,1300,15,10,,5,5:blud$(mvx,mvy)="3":blud$(pavx,pavy)="0":LOCATE pavx,pavy:PEN 2:PRINT pvc$;:pavx=0:pavy=0:LOCATE mvx,mvy:
PEN 15:PRINT CHR$(230);:SOUND 1,150,25:PEN 14:GOTO 125
144 '
145 ' NEW PAV
146 IF RND>0.95 THEN GOSUB 150 ELSE GOSUB 165
147 RETURN
150 ' NEW PAV
152 nx=INT(RND*18)+2:ny=INT(RND*18)+2
154 IF blud$(1,ny)="0" AND x>3 THEN pavx=2:pavy=ny:GOSUB 170:RETURN
156 IF blud$(nx,1)="0" AND y>3 THEN pavx=nx:pavy=2:GOSUB 170:RETURN
158 IF blud$(20,ny)="0" AND x<16 THEN pavx=19:pavy=ny:GOSUB 170:RETURN
160 IF blud$(nx,20)="0" AND y<18 THEN pavx=nx:pavy=19:GOSUB 170:RETURN
162 RETURN
165 '== PAV 2
166 nx=INT(RND*18)+2:ny=INT(RND*18)+2
167 IF blud$(nx,ny)="X" AND RND(1)>0.9 THEN pavx=nx:pavy=ny:GOSUB 170
168 RETURN
170 ' == TVAR PAVU
172 IF RND(1)<0.3 THEN pvc$="H" ELSE IF RND<0.7 THEN pvc$="I" ELSE pvc$="x"
174 ' pvc$=CHR$(255)
176 RETURN
199 '
200 ' UP
201 cthrab=0:f=f+1:IF f>=100 THEN GOSUB 57000
202 a1$=blud$(x,y-1):a2$=blud$(x+1,y-1)
203 IF a1$="1" OR a1$="Q" OR a2$="1" OR a2$="Q" THEN GOTO 74
204 IF a1$="6" OR a2$="6" OR a1$="V" OR a2$="V" OR a1$="S" OR a2$="S" OR a1$="X" OR a2$="X"  THEN 59000
205 IF a1$="8" OR a1$="9" OR a2$="8" OR a2$="9" THEN GOSUB 255:GOTO 74
206 IF (a1$="3") OR (a1$="K") THEN GOSUB 58100:blud$(x,y-1)="0"
207 IF (a2$="3") OR (a2$="K") THEN GOSUB 58100:blud$(x+1,y-1)="0"
208 IF a1$="M" OR a2$="M" THEN GOSUB 63000
209 IF a1$="*" OR a2$="*" THEN GOSUB 870:GOSUB 865 'ZAR
210 IF a1$="#" OR a2$="#" THEN GOSUB 850:GOSUB 865 ' B PAV
211 GOSUB 30000:IF y>1 THEN y=y-1
212 GOSUB 455:PEN 14:SOUND 1,18,1
213 '
215 IF y=1 THEN 750
220 GOTO 74
250 ' == SKRAB
251 IF cum$="R" AND (x>=18) THEN 255
252 IF cum$="L" AND (x<=2) THEN 255

253 GOTO 258
254 IF cum$="L" AND (x<=2) THEN 255
255 cthrab=0 ' NEJDE
256 RETURN
258 cthrab=cthrab+1:f=f+hraben:SOUND 1,300,3,15,,5,5:FOR qwe=1 TO 100:NEXT 'JDE
259 RETURN
299 '
300 ' DOWN
301 cthrab=0:f=f+1:IF f>=100 THEN GOSUB 57000
302 a1$=blud$(x,y+1):a2$=blud$(x+1,y+1)
303 IF a1$="1" OR a1$="Q" OR a2$="1" OR a2$ ="Q" THEN GOTO 74
304 IF a1$="8" OR a1$="9" OR a2$="8" OR a2$="9" THEN GOSUB 255:GOTO 74
305 IF a1$="X" OR a2$="X" OR a1$="6" OR a2$="6" OR a1$="V" OR a2$="V" OR a1$="S" OR a2$="S" THEN GOTO 59000
306 IF (a1$="3") OR (a1$="K") THEN GOSUB 58100:blud$(x,y+1)="0"
307 IF (a2$="3") OR (a2$="K")  THEN GOSUB 58100:blud$(x+1,y+1)="0"
308 IF a1$="M" OR a2$="M" THEN GOSUB  63000
309 IF a1$="*" OR a2$="*" THEN GOSUB 870:GOSUB 866 ' ZAR
310 IF a1$="#" OR a2$="#" THEN GOSUB 850:GOSUB 866 ' BILEJ PAV
314 GOSUB 30000:IF y<20 THEN y=y+1
315 GOSUB 455:PEN 14:SOUND 1,18,1
317 IF y=20 THEN 600
320 GOTO 440
350 '
354 ' == ZJEV MYS
358 IF y=20 THEN 200
362 IF y=1 THEN 300
366 IF x=19 THEN cum$="L":GOTO 400
370 IF x=1 THEN cum$="R":GOTO 500
374 GOSUB 450 ' KLASIKA
378 GOTO 74
399 '
400 ' LEFT
401 f=f+1:IF f>=100 THEN GOSUB 57000
402 IF cum$="R" THEN cum$="L":cthrab=0:GOSUB 450:GOTO 470
403 a1$=blud$(x-1,y):a2$=""
404 IF a1$="1" OR a1$="Q" OR a2$="1" OR a2$ ="Q" THEN GOSUB 250:GOTO 425
405 IF a1$="8" OR a1$="9" THEN GOSUB 255:GOTO 74 'hnizdo
406 cthrab=0:IF a1$="6" OR a1$="S" OR a1$="V" OR a1$="X" THEN GOTO 59000
407 IF (a1$="3") OR (a1$="K")  THEN GOSUB 58100:blud$(x-1,y)="0"
409  IF a1$="M" THEN GOSUB 63000
410 IF a1$="*" THEN GOSUB 870:blud$(x-1,y)="0" ' ZAR
411 IF a1$="#" THEN GOSUB 850:blud$(x-1,y)="0" ' BILEJ PAV
414 GOSUB 30000:IF x>1 THEN x=x-1

415 GOSUB 455 ' KRESLI
416 PEN 14:SOUND 1,15,1
419 IF x=1 THEN 800
420 cum$="L":GOTO 440
425 ' HRABU L
426 IF cthrab<cthrabmez THEN 430

427 cthrab=0:blud$(x-1,y)="0":GOTO 403
430 GOTO 74
440 ' NASLAP TEST
441 IF y>19 THEN 74
442 IF blud$(x,y+1)="S" OR blud$(x+1,y+1)="S" OR blud$(x,y+1)="6" OR blud$(x+1,y+1)="6" OR blud$(x,y+1)="V" OR blud$(x+1,y+1)="V" TH

N 59000
444 IF RND(1)>0.8 AND (blud$(x,y+1)="X" OR blud$(x+1,y+1)="X") THEN 59000
449 GOTO 74
450 '
452 '
453 PEN 14
455 '
456 PAPER 0:LOCATE x,y
458 IF cum$="R" THEN PRINT MY2$; ELSE PRINT MY$;
460 RETURN
470 '
471 ' ZPOZ NAVRT
472 '
473 SOUND 1,15,1
475 FOR I=1 TO 100:NEXT
478 GOTO 74
479 '
500 ' RIGHT
501 f=f+1:IF f>=100 THEN GOSUB 57000
502 IF cum$="L" THEN cum$="R":cthrab=0:GOSUB 450:GOTO 470
503 a1$=blud$(x+2,y):a2$=""

504 IF a1$="1" OR a1$="Q" OR a2$="1" OR a2$ ="Q" THEN GOSUB 250:GOTO 525
506 cthrab=0:IF a1$="6" OR a1$="S" OR a1$="V" OR a1$="X" THEN GOTO 59000
507 IF (a1$="3") OR (a1$="K") THEN GOSUB 58100:blud$(x+2,y)="0"
508 IF a1$="M" THEN GOSUB 63000
510 IF a1$="*" THEN GOSUB 870:blud$(x+2,y)="0" ' ZAROVKA
511 IF a1$="#" THEN GOSUB 850:blud$(x+2,y)="0" ' BILEJ PAV
515 GOSUB 30000:IF x<19 THEN x=x+1
516 GOSUB 455:PEN 14:SOUND 1,15,1
519 IF x=19  THEN 900

520 cum$="R":GOTO 440

525 ' HRABU R
526 IF cthrab<cthrabmez THEN 530
527 cthrab=0:blud$(x+2,y)="0":GOTO 503
530 GOTO 74

540 '
542 '
590 FOR t=300 TO 50 STEP -15:SOUND 1,t,2,15:NEXT:SOUND 1,18,1:RETURN
591 '
595 IF obr>30 THEN RESTORE 706:GOTO 599
596 IF obr>20 THEN RESTORE 686:GOTO 599
597 IF obr>10 THEN RESTORE 666:GOTO 599
598 RESTORE 650
599 RETURN
600 REM DOLU
602 GOSUB 595
606 GOSUB 740
608 IF (obrx=0) OR (obr1)=-1 THEN 74 'NENI
610 IF (obrx=obr) AND (obrd>0) THEN obr=obrd:GOTO 620 'OK
612 IF (obrx=obr) AND (obrd=0) THEN GOTO 74 ' NENI
618 GOTO 606
620 de=1:GOSUB 590:LOCATE x,y:PRINT "  ";:y=1:GOTO 40
646 '
648 ' === L,R,UP,DWN
650 DATA 1,0,7,34,3
652 DATA 3,0,8,1,4
654 DATA 4,0,9,3,5
656 DATA 5,0,10,4,0

658 DATA 6,34,12,0,7
660 DATA 7,1,13,6,8
662 DATA 8,3,14,7,9
664 DATA 9,4,15,14,16
666 DATA 10,5,16,9,11
668 DATA 11,0,17,10,0
670 DATA 12,6,20,0,13
672 DATA 13,7,22,12,14
674 DATA 14,8,23,13,15
676 DATA 15,9,24,14,16
678 DATA 16,10,25,15,17
680 DATA 17,11,18,16,0
682 DATA 18,17,19,25,0
684 DATA 19,18,0,29,0
686 DATA 20,12,21,0,22
688 DATA 21,20,33,0,26
690 DATA 22,13,26,20,23
692 DATA 23,14,27,22,24
694 DATA 24,15,28,23,25
696 DATA 25,16,29,24,18
698 DATA 26,22,30,21,27

700 DATA 27,23,31,26,28
702 DATA 28,24,32,27,29
704 DATA 29,25,0,28,19
706 DATA 30,26,0,33,31
708 DATA 31,27,0,30,0
710 DATA 32,28,0,31,0
712 DATA 33,21,0,0,30
714 DATA 35,0,11,5,0
716 DATA 34,0,6,0,1
726 DATA 0,-1,-1,-1,-1
739 ' CTI
740 READ obrx,obrl,obrr,obru,obrd:RETURN
750 REM NAHORU
752 '
756 GOSUB 595
758 GOSUB 740
760 IF (obrx=0) OR (obr1)=-1 THEN 74 'NENI
762 IF (obrx=obr) AND (obru>0) THEN obr=obru:GOTO 770 ' OK
764 IF (obrx=obr) AND (obru=0) THEN GOTO 74 ' NENI
766 GOTO 758
770 de=0:GOSUB 590:LOCATE x,y:PRINT "  ";:y=20:GOTO 40
800 REM NALEVO
804 GOSUB 595
806 GOSUB 706
808 IF (obrx=0) OR (obr1)=-1 THEN 74 'NENI
810 IF (obrx=obr) AND (obrl>0) THEN obr=obrl:GOTO 820
812 IF (obrx=obr) AND (obrl=0) THEN GOTO 74 ' NENI
814 GOTO 806
820 de=0:GOSUB 590:LOCATE x,y:PRINT CHR$(241)+" ";:GOSUB 867:GOSUB 30000:x=19:GOTO 40
850 'BIL PAV
852 IF bilpav=0 THEN RETURN
853 FOR wi=1 TO 5:INK 11,wi+1:SOUND 1,530,5,15,,1,1:GOSUB 867:NEXT:INK 11,13
855 superpav=3:bilpav=0
860 RETURN
864 ' UNI
865 blud$(x,y-1)="0":blud$(x+1,y-1)="0":RETURN
866 blud$(x,y+1)="0":blud$(x+1,y+1)="0":RETURN
867 FOR www=1 TO 100:NEXT:RETURN
868 FOR www=1 TO 500:NEXT:RETURN
870 ' ZAR
872 IF zarovka=0 THEN RETURN
875 SOUND 1,30,15,15,,1,1:zarovka=0:bububu=1:GOSUB 20000
880 RETURN
900 REM NAPRAVO
904 GOSUB 595
906 READ obrx,obrl,obrr,obru,obrd
908 IF (obrx=0) OR (obr1)=-1 THEN 74 'NENI
910 IF (obrx=obr) AND (obrr>0) THEN obr=obrr:GOTO 920
912 IF (obrx=obr) AND (obrr=0) THEN GOTO 74 ' NENI
914 GOTO 906
920 de=0:GOSUB 590:LOCATE x,y:PRINT " "+CHR$(242);:GOSUB 867:GOSUB 30000:x=1:GOTO 40
1000 DATA 1,11111111111100111111
1001 DATA 10000000000000000001:DATA 18911000000000000001:DATA 111110000000000000K1
1002 DATA 11111000000000000001
1003 DATA 11111000000000000001
1004 DATA 10000001222111122001
1005 DATA 10011100010*011#0001
1006 DATA 10061122210001100001
1008 DATA 10000333310001100001
1010 DATA 12200111110001100221
1012 DATA 1X000000000001100111
1013 DATA 100000000000000000X1
1014 DATA 10011001122222200001
1015 DATA 10000000000000000001
1016 DATA 10011001100001111111
1017 DATA 100000000000000X0001
1018 DATA 10000000000000000001
1019 DATA 10000000000000000001
1020 DATA 11111111111111100111
1022 '
1064 '
1066 DATA 3,11111111111111100111
1068 DATA 10000010000000000001
1070 DATA 10000010022000000001
1072 DATA 10022220022010010001
1074 DATA 1001X000000010010001
1076 DATA 10010022220010010001
1078 DATA 10010013000010010000
1080 DATA 10010022220010022221
1082 DATA 10010000310010001001
1084 DATA 10010022220010011000

1086 DATA 1001001X000010001001
1088 DATA 10010010000022001001
1090 DATA 10010010022220001001
1092 DATA 10010010000010001001
1094 DATA 10010011100010001001
1096 DATA 10010000000010011001
1098 DATA 10010000000010031001
1100 DATA 10022222200011111001
1102 DATA 10000000000000000001

1104 DATA 11111111110011111111
1106 '
1108 DATA 4,11111111110011111111
1109 DATA 10000000000000000001
1110 DATA 10310000000000000001
1112 DATA 10010022222200012001
1114 DATA 1001001X000000010001
1116 DATA 10010010001000010001
1118 DATA 10010010001000010021
1120 DATA 10010010022222210001
1122 DATA 10000010000000012001
1124 DATA 10000010022220010000
1126 DATA 12222210000000013001
1128 DATA 10000000001002212001
1130 DATA 10012222001001222221
1132 DATA 1001X000001001000001
1134 DATA 10010022110001001001

1136 DATA 10010000100021001001
1138 DATA 10010000100230001001
1140 DATA 10012100100111111001
1142 DATA 10003100100000000001
1144 DATA 11111111111111001111
1146 '
1148 DATA 5,11111111111111001111
1192 DATA 10013022100000000001
1194 DATA 10010000100002200001
1196 DATA 10022200103002200001
1198 DATA 10000000122222222001
1200 DATA 10000000000000000001
1202 DATA 10022222222222222221
1204 DATA 10000000000000000001
1206 DATA 12222222221000000000
1208 DATA 1X000000001000001001
1210 DATA 10000000000000031001
1212 DATA 10000010002222222001
1214 DATA 1000001000000X000001
1216 DATA 12220010000000000001
1218 DATA 10000010000000022221
1220 DATA 10000010001000022221
1222 DATA 10010010001000000X31
1224 DATA 10010000001000000021
1226 DATA 13010000001032200001
1228 DATA 11111111111111111111
1230 '
1396 '
1400 DATA 6,HHHHHHHHHNNHHHHHHHHH
1402 DATA HHHHHHHHHNNHHHHHHHHH
1404 DATA HHHHHHHHHNNHHHHHHHHH
1406 DATA HHHHHHHHHNNHHHHHHHHH
1408 DATA HHHHHHHHHNNHHHHHHHHH
1410 DATA POPOPOPOPOPOPOPOPOPO
1412 DATA 11111111111111111111
1414 DATA 00000001000000000000

1416 DATA 00000031000000000000
1418 DATA 10000001001000300000
1420 DATA 10066001001001111111
1422 DATA 10066001001001111111
1424 DATA 10066001001001111111
1426 DATA 100660010010030030X0
1428 DATA 10066001001000000000
1430 DATA 1000X001001000000000
1432 DATA 10000000001000111111
1434 DATA 10000000001000100000
1436 DATA 10000000001000100000
1438 DATA 11111110011111111111
1440 '
1450 DATA 7,11111110011111111111
1452 DATA 13010000000001100001
1454 DATA 10010000000001100031
1456 DATA 10010066611001100001
1458 DATA 10010066611000000161
1460 DATA 10010011111111100101
1462 DATA 10000011111111100101
1464 DATA 10000011111111100101
1466 DATA 16610011111111100101
1468 DATA 10010011111111100101
1470 DATA 10010011111111100101
1472 DATA 10010000311111100101
1474 DATA 10010011111111100101
1476 DATA 10010011111111100101
1478 DATA 10010011111111100101
1480 DATA 10010001111111100101
1482 DATA 10011001111000000161
1484 DATA 10011001111001111031
1486 DATA 10000000000000000001
1488 DATA 10000006666666666661
1490 '
1500 DATA 8
1501 DATA 10000006666666666661
1502 DATA 10000000000000000001
1504 DATA 1001110611VV11661111
1506 DATA 10011130113311001111
1508 DATA 10011160113311001111
1510 DATA 1001110011VV11031000
1512 DATA 00000000000000000001
1514 DATA 10000000000000000001
1516 DATA 11111111001111111111
1518 DATA 00000000000600000031
1520 DATA 11001111111111001111
1522 DATA 11001111111111001111
1524 DATA 10000000000000001001
1526 DATA 11111111111100001000

1528 DATA 16666600000600661001
1530 DATA 10000000100000661001
1532 DATA 10011111111111111001
1534 DATA 10000000000000000001
1536 DATA 10010000000001110311
1538 DATA 11111110011111111111
1540 '

1550 DATA 9,11111110011111111111
1552 DATA 163000100S0000000000
1554 DATA 160000100S0000000000
1556 DATA 111100100S1001VV1000
1558 DATA 100000100S600036S000
1560 DATA 100111100S600006S000
1562 DATA 100000100S666666S000
1564 DATA 1110011001VVV1VV1000
1566 DATA 10000110000001111000
1568 DATA 00000110010001031000
1570 DATA 11100110010001001000
1572 DATA 11100110010001001000
1576 DATA 11100110010001001000
1578 DATA 11100110010001001000
1580 DATA 11100110010001001000
1582 DATA 11100000010000000000
1584 DATA 11111111111111100000
1586 DATA 10000000000000000001
1588 DATA 10000000000000000001
1590 DATA 11111111001111111111
1592 '

1600 DATA 10,11111111001111111111
1602 DATA 10000010000000000001
1604 DATA 10010010000000003001
1606 DATA 100100111VVVVVVV1001
1608 DATA 10010000011111111001
1610 DATA 10011110011111111001
1612 DATA 10000010011111111001
1614 DATA 11110010011111111001
1616 DATA 00010010011111111001
1618 DATA 1001001001003001S000
1620 DATA 1001001001001001S001
1622 DATA 1001001001001001S001
1624 DATA 1001001001001001S001
1626 DATA 1001001001001001S001
1628 DATA 1001001001001001S001
1630 DATA 1001001001001001S001
1632 DATA 1001001001001001S001
1634 DATA 10010010010010011001
1636 DATA 10000010000010000001
1638 DATA    11111110011111111111
1640 '
1650 DATA 11,11111110011111111111
1652 DATA 10000000000000106066
1654 DATA 10011111100100106006
1656 DATA 10016666100100106006
1658 DATA 10010000100100106001
1660 DATA 10010003100100106661
1662 DATA 10010011100100100001
1664 DATA 10010011100100100000
1666 DATA 60010000000100000001
1668 DATA 10010011111100100011
1670 DATA 10010013000100100011
1672 DATA 10010011100100100001
1674 DATA 10010011100100100000
1676 DATA 10010011100100100001
1678 DATA 10010011100100100001
1680 DATA 10010000000006166666
1682 DATA 1001111111111110060S
1684 DATA 1001111111111113000S
1686 DATA 1000000000000000060S
1688 DATA 11111111111111111111
1690 '
1750 DATA 13,11110011111111111111
1752 DATA 13010000011000006006
1754 DATA 10010010011001006006
1756 DATA 10010010011001006000
1758 DATA 10010010011001006006
1760 DATA 10010010011001006000
1762 DATA 10010010011001006000
1764 DATA 10000010000001003000
1766 DATA 11110011111111166000
1768 DATA 10000000000000166000
1770 DATA 13311111111100166001
1772 DATA 10000000000100166001
1774 DATA 10011111100100166001
1776 DATA 10000003100100166001

1778 DATA 10000000100100166001
1780 DATA 10010016100100166001
1782 DATA 10010011100100166001
1784 DATA 10010010000000166001
1786 DATA 10010010000000100001
1788 DATA 11110011111100110011
1790 '
1800 DATA 14,11110011111100110011
1802 DATA 10060003100100160061
1804 DATA 10060000100100160061
1806 DATA 10060000100100100061
1808 DATA 10060066100100100061
1810 DATA 00060066100100100661
1812 DATA 10000066100100100661
1814 DATA 10000066100100100061
1816 DATA 11111111100100160000
1818 DATA 10001000000100160301
1820 DATA 10001000000100111111
1822 DATA 10001000000100000061
1824 DATA 10001000000000000061
1826 DATA 00001000111111111111
1828 DATA 10001000000000000031
1830 DATA 10001000111111111001
1832 DATA 10001000111111111661
1834 DATA 10001000000000000001
1836 DATA 10000000000000000001
1838 DATA 11100000000000000001
1840 '
1850 DATA 12,HHHHHHNNHHH111111111
1852 DATA HHHHHHNNHHH111111111
1854 DATA HHHHHHNNHHH111111111
1856 DATA HHHHHHNNHHH111111111
1858 DATA HHHHHHNNHHH111111111
1860 DATA POPOPOPOPOP111111111
1862 DATA 11111111111111111111
1864 DATA 00000000000111111111
1866 DATA 00000000000111111111
1868 DATA 00000000000011111111
1870 DATA 11000000110011111111
1872 DATA 11000000110011111111
1874 DATA 11000000000011111111
1876 DATA 00000000000011111111
1878 DATA 00000000000011111111
1880 DATA 00000000000000000000
1882 DATA 11111000000000000000
1884 DATA 00000000000000000000
1886 DATA 00000000000000000000
1888 DATA 11110011111111111111
1890 '
1900 DATA 15,11100000000000000001
1902 DATA 00000000000000000000
1904 DATA 00011111111111100000
1906 DATA 00010311111111100000
1908 DATA 00010011111111100000
1910 DATA 00010011111111100000
1912 DATA 00010011111111100000
1914 DATA 00010000000000000000
1916 DATA 00011111111111111000
1918 DATA 0001VVVVVVVVVVVV1000
1920 DATA 00010000000000001000
1922 DATA 00000000000000031000
1924 DATA 00011000011111111000
1926 DATA 000S1000000000000000
1928 DATA 000S1111111111100000
1930 DATA 000S1600000100000000
1932 DATA 000S1600100100100006
1934 DATA 00011300100000100006
1936 DATA 00001111111111100006
1938 DATA 10060000000000660001
1940 '
1950 DATA 16,1001VVVVV1VVVVV10001
1952 DATA 10000000010000000001
1954 DATA 10000000000000000001
1956 DATA 10000000010000000000
1958 DATA 10001111111111111111
1960 DATA 10001001001001000031
1962 DATA 10001001001001006661
1964 DATA 10001001000001000661
1966 DATA 10001001001000000661
1968 DATA 00000001001001006661
1970 DATA 10001001001001111111
1972 DATA 10001001001001006661
1974 DATA 10001000000000000031
1976 DATA 10001001001001000001
1978 DATA 10001001001001666661
1980 DATA 10001111111111111111
1982 DATA 10000000000000000000
1984 DATA 10000000000000000001
1986 DATA 10000000000000000001
1988 DATA 11111111111111111111
1990 '
2000 DATA 17,11111111111111111111
2002 DATA 16000001301000000000
2004 DATA 16000001001000000000
2006 DATA 16001001001111111000
2008 DATA 16001001001000000000
2010 DATA 16001001001000000000

2012 DATA 16001001001001111111
2014 DATA 00001001001000000000
2016 DATA 10001000001000000000
2018 DATA 11111110001111116000
2022 DATA 10010000001003116000
2024 DATA 10010000001003116000
2026 DATA 00010010000000116000
2028 DATA 10010010001000116000
2030 DATA 10010010001666116000

2032 DATA 10010010001000113000
2034 DATA 10010010001000116000
2036 DATA 10000010001000000000
2038 DATA 10000310000000000000
2040 DATA 11111111111111111111
2042 '
2050 DATA 18,11111111111110011111
2052 DATA 00011031001000006661
2054 DATA 00011001001000000061
2056 DATA 00011001001001000001
2058 DATA 00011001000001000000
2060 DATA 00000001001001660001

2062 DATA 10011001001001600061
2064 DATA 00011661001001300061
2066 DATA 00011001001001000061
2068 DATA 00011001001111111111

2070 DATA 00011000001000000000
2072 DATA 00000001001000000001
2074 DATA 00011001001000006661
2076 DATA 00011001001001006601
2078 DATA 00011001001001000001
2080 DATA 00011001000001000000
2082 DATA 00011001001001006001
2084 DATA 00011001001001006661
2086 DATA 00011001001001306661
2088 DATA 11111111111111111111
2090 '
3000 DATA 19,11111111111111001111
3002 DATA 1001000000S001000061
3004 DATA 1001000000S001000001
3006 DATA 1001001000S001001001
3008 DATA 0001001000S001001001
3010 DATA 1000001003S001001001
3012 DATA 11111111111001001001

3014 DATA 16666036661001001001
3016 DATA 16660006661001001001
3017 DATA 16660006661001001001
3018 DATA 00000006661001001001
3020 DATA 11111111111001001001
3022 DATA 10000013010001001001
3024 DATA 10010010010001001001
3026 DATA 10010010010001001001
3028 DATA 00010010010001001001
3030 DATA 10010010010001001001
3032 DATA 10010010010001001001
3034 DATA 10010000000000001031
3036 DATA 11111111111111111111
3038 '
3050 DATA 20,11HHHHHHHHHHHHHHHHHH
3052 DATA 11HHHHHHHHHHHHHHHHHH
3054 DATA 11HHHHHHHHHHHHHHHHHH
3056 DATA 11HHHHHHHHHHHHHHHHHH
3058 DATA 11HHHHHHHHHHHHHHHHHH
3060 DATA 11ZZZZZZZZZZZZZZZZZZ
3062 DATA 11000000000000000000
3064 DATA 11VVVVVVVVVVVVVVVVVV
3066 DATA 11X00000000000000000
3068 DATA 11000000000000000000
3070 DATA 11001100011111110000
3072 DATA 1100110001X000000000
3074 DATA 11001100016611100011
3076 DATA 11001100316611100011
3078 DATA 11001111111111111111
3080 DATA 00001111111111111111
3082 DATA 00001111111111111111
3084 DATA 00000000000000000000
3086 DATA 00000000000000000000
3088 DATA 10000000010000000001
3090 '
3100 DATA 21,HHHHHHHHHHNNNNNNNNNN
3102 DATA HHHHHHHHHHHHNNHHHHHH
3104 DATA HHHHHHHHHHHHNNHHHHHH
3106 DATA HHHHHHHHHHHHNNHHHHHH
3108 DATA HHHHHHHHHHHHNNHHHHHH
3110 DATA ZZZZZZZZZZZZNNZZZZZZ
3112 DATA 00000000000000000000
3114 DATA VVVVVVVVVVVVVVVVVVVV
3116 DATA 0000000000X000000000
3118 DATA 00000000000000000000
3120 DATA 00001000011006110000
3122 DATA 00001000011006110000
3124 DATA 11001000011006110000
3126 DATA 11301000011006110000
3128 DATA 1111111001100X110000
3130 DATA 11111110011000116000
3132 DATA 11111110011000116000
3134 DATA 00000000011600116000
3136 DATA 00000000011603116000
3138 DATA 11111111111111111111
3140 '
3150 DATA 22
3151 DATA 100000000S0000000001
3152 DATA 100000000S0000000001
3154 DATA 111000000S0000000001
3156 DATA 133100000S0011111111
3158 DATA 110310000S0066666661
3160 DATA 160001000S0066666661
3162 DATA 000006100S0011111111
3164 DATA 00000000000000000001
3166 DATA 00000000000000000000
3168 DATA 00000000011110011111
3170 DATA 111111100S1660011331
3172 DATA 100000000S1660011331
3174 DATA 10011111111660013331
3176 DATA 100000006S0000013301
3178 DATA 11111100010011113361
3180 DATA 13010000000066613361
3182 DATA 10510010010000013361
3184 DATA 100100100S0000033361
3186 DATA 100000103S5550053361
3188 DATA 11111111111111111111
3190 '
3200 DATA 23,11111111111111111111
3202 DATA 100000000S00000000K1
3204 DATA 100100100S0011111111

3206 DATA 100100100S0000000001
3208 DATA 100100100S1111111001
3210 DATA 100100100S0000000001
3212 DATA 10015010010011111111
3214 DATA 10010010000000000000
3216 DATA 00010010011111110011
3218 DATA 100133100S6666660061
3220 DATA 100133100S0000000061
3222 DATA 100133100S0011111111
3224 DATA 100133100S0000000061
3226 DATA 100133100S1111110001
3228 DATA 100133100S3030000001
3230 DATA 100133100S5656000001
3232 DATA 10016610011111001111
3234 DATA 10016100000000000001
3236 DATA 10316100000000000001
3238 DATA 11111100111110011111
3240 '
3250 DATA 24,11111100111110011111
3252 DATA 000166006S0000000001
3254 DATA 000166006S0000000001

3256 DATA 000100006S0001111111
3258 DATA 000100006S0000000031
3260 DATA 00010066610000000001
3262 DATA 00010000000001111111
3264 DATA 00010000010000016661
3266 DATA 000100000S0000016661
3268 DATA 000100000S0010016661
3270 DATA 000100000S0010016661
3272 DATA 000100666S0010016001
3274 DATA 000100003S0310016001
3276 DATA 00000011111110016001
3278 DATA 00000000010000010031
3280 DATA 00000000010000000051
3282 DATA 11111100010000010061
3284 DATA 110000000S0000010061
3286 DATA 110000000S0000010061
3288 DATA 11001111111100110011
3290 '
3300 DATA 25,11001111111100110011
3302 DATA 10000600010000160061
3304 DATA 10000633310000160061
3306 DATA 000006363S0000100001
3308 DATA 100006333S0000100111
3310 DATA 1VVVVVVVV11100100001
3312 DATA 10001000610000100001
3314 DATA 16661000010000166001
3316 DATA 10001110010000100001
3318 DATA 13000000010000100001
3320 DATA 111001100S0000100661
3322 DATA 111001000S0000100001
3324 DATA 111001000S0000111001
3326 DATA 11100100111100100001
3328 DATA 11100100610000100111
3330 DATA 11100100010000100061
3332 DATA 00000100010000110000
3334 DATA 11111100030000111111
3336 DATA 16000000000000000031
3338 DATA 11111111111110011111
3340 '
3350 DATA 26,11111111111111111111
3352 DATA 16666666660000003331
3354 DATA 10000000000006555551
3356 DATA 10011111111001111111
3358 DATA 10010000000006666031
3360 DATA 10010000000000000001
3362 DATA 10010011111111111111
3364 DATA 10010001630616631031
3366 DATA 00010001600616001001
3368 DATA 10010001000610001001
3370 DATA 10010001000610061VV1
3372 DATA 10310001006610061001
3374 DATA 13010006000060006001
3376 DATA 10310000000000000000
3378 DATA 13010011111111111111
3380 DATA 10310011103111301111

3382 DATA 13610011160111001111
3384 DATA 11110011100111VV1111
3386 DATA 10000000000000000001
3388 DATA 10000000111110006661
3390 '
3400 DATA 27,10000000111110006661
3402 DATA 10000000660060000001
3404 DATA 10000000111111100001
3406 DATA 10000000S66666666661
3408 DATA 10000000S00000000001
3410 DATA 10011000S00000000001
3412 DATA 10011600S00111100001
3414 DATA 00011000S00600100000
3416 DATA 10011000S00003100111
3418 DATA 10011006S00111100001
3420 DATA 10011000S00000100001
3422 DATA 10011000S00603166001
3424 DATA 10011600S00111110001
3426 DATA 10011000S00000160001
3428 DATA 10011000S00603160061
3430 DATA 10011006S00111160001
3432 DATA 10011006S00000160031
3434 DATA 10011006S00000160031
3436 DATA 10011003S00000130361
3438 DATA 10011111111100111111
3440 '
3450 DATA 28,10011111111100111111
3452 DATA 10000031110000000061
3454 DATA 10000001110000000001
3456 DATA 10000001110000001001

3458 DATA 11111001110001001001
3460 DATA 10000001110001001001
3462 DATA 10000000000001001001
3464 DATA 10000000000001001001
3466 DATA 16666001110001001001
3468 DATA 16666001110001001001
3470 DATA 10000001110001001001
3472 DATA 10000001110001001001
3474 DATA 10066661110001001001
3476 DATA 10066661110001001001
3478 DATA 10000001110001001001
3480 DATA 10000001110001001001
3482 DATA 16660001110001301301
3484 DATA 10000001110001111111
3486 DATA 10000001110000000001
3488 DATA 10000001110000000001
3490 DATA 10000001110000000001
3492 '
3500 DATA 29,10000001110000000001
3502 DATA 10000001110000000001
3504 DATA 10000001111111110001
3506 DATA 10000000000010000001
3508 DATA 10000000000010000001
3510 DATA 11111111100010011111
3512 DATA 10000000000010000001
3514 DATA 10011111111110000001
3516 DATA 10000000000011111001
3518 DATA 11111111100010000001
3520 DATA 10000000000010000001
3522 DATA 10011111111110011111
3524 DATA 10000000000000000001
3526 DATA 10011111111111111001
3528 DATA 10006000600000060001
3530 DATA 10000000000000000001
3532 DATA 00011111111111111111
3534 DATA 10066660000000000061

3536 DATA 10000000000000000031
3538 DATA 11111111111111001111
3540 '
3550 DATA 30,11111111111111001111
3552 DATA 1001666666S616006661
3554 DATA 1001000006S616000001
3556 DATA 1031001006S613001001
3558 DATA 1001001000S611111001
3560 DATA 1001001100S000000001
3562 DATA 10010016001001111111
3564 DATA 10010010003000000001
3566 DATA 1001001V111111100001
3568 DATA 1001001003S600000001
3570 DATA 1001001000S000001001
3572 DATA 1001001600S001001001
3574 DATA 1001001600S001001001
3576 DATA 1001001000S001001001
3578 DATA 1001001000S001001001
3580 DATA 0000001000S001001001
3582 DATA 1111111100S001001001
3584 DATA 1000000000S001001001
3586 DATA 1000000000S031001531
3588 DATA 11111001111111001111
3590 '
3600 DATA 31,11111001111111001111
3602 DATA 1666100100S600000061
3604 DATA 1006100100S000000001
3606 DATA 1006100100S000000001
3608 DATA 1006100100S000110001
3610 DATA 1006100000S000110001
3612 DATA 1006100000S000110001
3614 DATA 0006111000S000110001
3616 DATA 1006100000S000110031
3618 DATA 1006111000S000110061
3620 DATA 1006100000S000110061
3622 DATA 1006100000S600110061
3624 DATA 1006100000S000110001
3626 DATA 1000000000S001111001
3628 DATA 11111100001001111001
3630 DATA 13011000000001111001
3632 DATA 10011000001001111001
3634 DATA 1000000166S001111001
3636 DATA 10000001X6S001111001
3638 DATA 11111111111111111111
3690 '
3700 DATA 33,NNNNNNNNNNNNNNNNNNNN
3702 DATA HHHHHHHHHHHHHHHHNNHH
3704 DATA HHHHHHHHHHHHHHHHNNHH
3706 DATA HHHHHHHHHHHHHHHHNNHH
3708 DATA HHHHHHHHHHHHHHHHNNHH
3710 DATA ZZZZZZZZZZZZZZZZNNZZ
3712 DATA 00000000000000000000
3714 DATA VVVVVVVVV1VVVVVVVVVV
3716 DATA 00303000016000001001
3718 DATA 00300003011110000001
3720 DATA 00310010010000001111
3722 DATA 00313010310000001661
3724 DATA 00310010010001001661
3726 DATA 00313013010011001661
3728 DATA 00310010010001001661
3730 DATA 00310010310001001661
3732 DATA 00310010010001001661
3734 DATA 003300100000010016K1
3736 DATA 00330013000001001661
3738 DATA 11111111111111001111
3740 '
3750 DATA 34,HHHHHHHHHHHHHHHHHHHH
3752 DATA HHHHHHHHHHHHHHHHHHHH
3754 DATA HHHHHHHHHHHHHHHHHHHH
3756 DATA HHHHHHHHHHHHHHHHHHHH
3758 DATA HHHHHHHHHHHHHHHHHHHH
3760 DATA POPOPOPOPOPOPOPOPOPO
3762 DATA 11111111111111111111
3764 DATA 1X000031000000000000
3766 DATA 1000X001000000000000

3768 DATA 13X00001001000000001
3770 DATA 100000X1001001111111
3772 DATA 100X0001001000000011
3774 DATA 100000X1001000011111
3776 DATA 1X000001001000000001

3778 DATA 10X00X01001000000001
3782 DATA 10000001001000111111
3784 DATA 10000001001000100001
3786 DATA 1X0000X10010001XXXX1
3787 DATA 10000001001000100001
3788 DATA 11111111111100111111
4000 ' ADR MIST
4005 '
4010 RESTORE 1000:RETURN ' 1
4011 RESTORE 1024:RETURN
4012 RESTORE 1066:RETURN
4013 RESTORE 1108:RETURN
4014 RESTORE 1148:RETURN
4015 RESTORE 1400:RETURN
4016 RESTORE 1450:RETURN
4017 RESTORE 1500:RETURN
4018 RESTORE 1550:RETURN
4019 RESTORE 1600:RETURN ' 10
4020 RESTORE 1650:RETURN
4021 RESTORE 1850:RETURN
4022 RESTORE 1750:RETURN
4023 RESTORE 1800:RETURN
4024 RESTORE 1900:RETURN '15
4025 RESTORE 1950:RETURN
4026 RESTORE 2000:RETURN
4027 RESTORE 2050:RETURN
4028 RESTORE 3000:RETURN
4029 RESTORE 3050:RETURN '20
4030 RESTORE 3100:RETURN
4031 RESTORE 3150:RETURN
4032 RESTORE 3200:RETURN
4033 RESTORE 3250:RETURN
4034 RESTORE 3300:RETURN '25
4035 RESTORE 3350:RETURN
4036 RESTORE 3400:RETURN
4037 RESTORE 3450:RETURN
4038 RESTORE 3500:RETURN
4039 RESTORE 3550:RETURN
4040 RESTORE 3600:RETURN '31
4041 RESTORE 3650:RETURN
4042 RESTORE 3700:RETURN
4043 RESTORE 3750:RETURN
4044 RESTORE 3800:RETURN
4045 '
4046 '
4047 '
4048 '
4049 '
4050 '
4099 RETURN
4100 '
4103 ' NALIST MISTNOST
4104 '
4105 obrmapa=xmapa:IF obrmapa>10 THEN 4115
4110 ON obrmapa GOSUB 4010,4011,4012,4013,4014,4015,4016,4017,4018,4019
4111 GOTO 4140
4115 IF obrmapa>20 THEN 4125
4116 obrmapa=xmapa-10
4120 ON obrmapa GOSUB 4020,4021,4022,4023,4024,4025,4026,4027,4028,4029
4121 GOTO 4140
4125 IF obrmapa>30 THEN 4135
4126 obrmapa=xmapa-20
4130 ON obrmapa GOSUB 4030,4031,4032,4033,4034,4035,4036,4037,4038,4039
4131 GOTO 4140
4135 obrmapa=xmapa-30
4136 ON obrmapa GOSUB 4040,4041,4042,4043,4044,4045,4046,4047,4048,4049
4139 '
4140 '
4160 RETURN
4200 '
4210 '
4220 FOR UU=1 TO 33:xmapa=uu:GOSUB 4100:NEXT
4230 RETURN
4300 ' NAV
4302 SOUND 1,50,20,15
4310 mapy=1:RESTORE 4400:GOSUB 4350
4312 mapy=2:RESTORE 4410:GOSUB 4350
4314 mapy=3:RESTORE 4420:GOSUB 4350
4316 mapy=4:RESTORE 4430:GOSUB 4350
4318 mapy=5:RESTORE 4440:GOSUB 4350
4320 mapy=6:RESTORE 4450:GOSUB 4350

4330 '
4331 ' IF smery>smerx+2 THEN xsmer$=" ":GOTO 4342
4332 smerx=xmys-xmyse:smery=ymys-ymyse
4334 IF smerx=0 THEN xsmer$=" ":GOTO 4340
4338 IF smerx>0 THEN xsmer$="<" ELSE xsmer$=">"
4340 '
4341 ' IF smerx>smery+2 THEN ysmer$=" ":GOTO 4380
4342 IF smery=0 THEN ysmer$=" ":GOTO 4380
4346 IF smery>0 THEN ysmer$="D" ELSE ysmer$="F"
4348 GOTO 4380
4350 ' == HLED MYS A MYSE
4352 FOR mapx=1 TO 6:READ xdt
4354 IF xdt=obr THEN xmys=mapx:ymys=mapy
4356 IF KCO=0 AND xdt=umys THEN xmyse=mapx:ymyse=mapy:GOTO 4370
4358 IF KCO=1 AND xdt=1 THEN xmyse=mapx:ymyse=mapy ' DOMU
4370 NEXT:RETURN
4380 '
4382 SOUND 1,350,30,15
4384 INK 12,24:PEN 12:PAPER 10
4386 IF xsmer$="<" THEN LOCATE 1,10:PRINT xsmer$:GOTO 4390
4388 IF xsmer$=">" THEN LOCATE 20,10:PRINT xsmer$:GOTO 4390
4390 IF ysmer$="D" THEN LOCATE 10,1:PRINT ysmer$:GOTO 4396
4392 IF ysmer$="F" THEN LOCATE 10,20:PRINT ysmer$:GOTO 4396
4396 GOTO 4460
4400 DATA 34,6,12,20,21,33
4410 DATA 1,7,13,22,26,30
4420 DATA 3,8,14,23,27,31
4430 DATA 4,9,15,24,28,0
4440 DATA 5,10,16,25,29,0
4450 DATA 0,11,17,18,19,0
4455 '
4460 FOR blik=1 TO 4:FOR qwe=1 TO 500:NEXT:INK 12,0
4461 SOUND 1,50,20,15
4462 FOR qwe=1 TO 500:NEXT:INK 12,24
4463 SOUND 1,350,20,15:NEXT
4464 x$=blud$(1,10):LOCATE 1,10:GOSUB 7000
4466 x$=blud$(20,10):LOCATE 20,10:GOSUB 7000
4468 x$=blud$(10,1):LOCATE 10,1:GOSUB 7000
4470 x$=blud$(10,20):LOCATE 10,20:GOSUB 7000
4490 RETURN
4583 '
4585 PN$=MID$(a$,oo,1)
4586 IF PN$="0" THEN PN=10:RETURN
4587 IF PN$="1" THEN PN=7:RETURN

4588 PN=4:RETURN
6999 '
7000 '
7004 PAPER 10
7008 IF x$="0" THEN PEN 10:PAPER 0:PRINT CHR$(250);:RETURN 'HLN
7012 IF x$="1" THEN PAPER 6:PEN 7:PRINT CHR$(249);:RETURN ' CIH
7016 IF x$="6" THEN PEN 4:PRINT CHR$(246);:RETURN ' KOULE
7020 IF x$="3" THEN PEN 15:PRINT CHR$(230);:RETURN ' SYR
7024 IF x$="V" THEN PEN 4:PRINT CHR$(251);:RETURN ' OSTN
7028 IF x$="S" THEN PEN 4:PRINT CHR$(252);:RETURN
7032 IF x$="X" THEN GOSUB 7100:PEN 11:PRINT CHR$(244);:RETURN ' PAV
7036 IF x$="Q" THEN PEN 6:PRINT CHR$(245);:RETURN ' SUTR
7060 '---
7061 IF (obr=34) OR (obr=6) OR (obr=12) THEN bv=2 ELSE bv=3 'VZD
7062 IF x$="K" THEN PEN 15:PRINT CHR$(231);:RETURN ' KOH
7063 IF x$="M" THEN PEN 9:PRINT CHR$(247);:RETURN ' MYSE
7067 IF x$="H" THEN PAPER bv:PRINT " ";:RETURN ' VZDUCH
7069 IF x$="Z" THEN PEN 10:PAPER bv:PRINT CHR$(232+INT(RND*4));:RETURN ' ZEM
7070 IF x$="N" THEN PAPER 8:PRINT " ";:RETURN 'NOHA
7075 IF x$="O" THEN PEN 1:PRINT CHR$(225);:RETURN  'PODL
7076 IF x$="P" THEN PEN 1:PRINT CHR$(224);:RETURN 'PODL
7080 IF x$="8" THEN PEN 9: PRINT CHR$(253);:RETURN ' HNIZDO
7084 IF x$="9" THEN PEN 9:PRINT CHR$(254);:RETURN ' HNIZDO
7088 IF x$="*" AND zarovka=1 THEN INK 3,24:PEN 3:PRINT "2";:RETURN 'ZAR
7089 IF x$="#" AND bilpav=1 THEN PEN 2:PRINT CHR$(244);:RETURN ' B PAV
7094 PEN 10:PRINT "?";
7095 RETURN
7100 ' CHOD PAV
7110 IF pavx=0 AND RND(1)>0.6 THEN pavx=oo:pavy=tt:GOSUB 170
7150 RETURN
8000 ' JUMP
8019 LOCATE 1,1:PRINT SPC(20);
8020 IF INKEY$<>"" THEN 8020
8025 LOCATE 1,1:PRINT "KAM ";:INPUT xxobr
8026 IF (xxobr>0) AND (xxobr<40) THEN obr=xxobr
8030 xmapa=obr:GOSUB 4100 ' NALIST
8040 GOTO 40
8490 LOCATE prdx,prdy:PEN CINT(RND(1)*10)+3:PRINT prd$;:FOR wti=1 TO 5:NEXT:RETURN
8499 '
8500 ' FIRE
8505 IF cum$="L" THEN prdx=x+2:prdy=y:prd2x=x+3 ELSE prdx=x-1:prdy=y:prd2x=x-2
8510 PAPER 0:LOCATE prdx,prdy:PRD$="o":blprd$=blud$(prdx,prdy):blprd2$=blud$(prdx,prdy+1):blprd3$=blud$(prdx,prdy-1)
8512 IF prd2x<1 OR prd2x>20 THEN prd2x=0
8520 IF prd2x<>0 THEN blprd4$=blud$(prd2x,prdy) ELSE blprd4$=""
8525 SOUND 1,1300,15,15,,5,5
8530 FOR FIRE=1 TO 5:GOSUB 8490:GOSUB 8490
8540 LOCATE prdx,prdy
8545 PEN 14:PRINT " ";
8550 FOR wti=1 TO 5:NEXT
8560 NEXT
8566 ' ANALYZA
8570 IF (prdx<2) OR (prdx>19) THEN 8800
8571 '
8572 IF (blprd$="3") OR (blprd$="K") THEN 8690 ' SYR
8573 IF (blprd$="X") OR (blprd2$="X") OR (blprd3$="X") OR (blprd4$="X") THEN 8680
8575 IF (blprd$="0") OR (blprd$="1") OR (blprd$="S") OR (blprd$="V") OR (blprd$="6") OR (blprd$="5") THEN 8600
8576 IF (blprd$="*") THEN GOSUB 870:GOTO 8600
8577 IF (blprd$="#") THEN GOSUB 850:GOTO 8600
8579 GOTO 8800

8600 ' == OK
8645 blprd$="0":blud$(prdx,prdy)=blprd$:LOCATE prdx,prdy:PRINT " ";
8670 GOTO 8840

8680 ' === PAV NA SYR
8681 x$="3"
8682 IF blprd$="X" THEN blud$(prdx,prdy)="3":LOCATE prdx,prdy:GOSUB 7000
8683 IF blprd2$="X" THEN blud$(prdx,prdy+1)="3":LOCATE prdx,prdy+1:GOSUB 7000
8684 IF blprd3$="X" THEN blud$(prdx,prdy-1)="3":LOCATE prdx,prdy-1:GOSUB 7000
8686 FOR pvk=(prdy-1) TO (prdy+1):IF pavx=prdx AND pavy=pvk THEN pavx=0:pavy=0
8687 NEXT:IF blprd4$="X" THEN blud$(prd2x,prdy)="3":LOCATE prd2x,prdy:GOSUB 7000:IF pavx=prd2x AND pavy=prdy THEN pavx=0:pavy=0
8688 IF bububu=0 THEN INK 11,pavschov ELSE INK 11,13 ' SCHOV PAV
8689 SOUND 1,150,15,15:GOTO 8840
8690 ' = SYR
8692 blprd$="6"
8693 SOUND 1,1300,15,15
8695 GOTO 8810
8800 ' = EE
8810 ' === ULOZ
8820 blud$(prdx,prdy)=blprd$

8830 LOCATE prdx,prdy:bobek=1:x$=blprd$:GOSUB 7000:bobek=0
8840 PAPER 0
8845 FOR qwe=1 TO prden:GOSUB 57002:IF dead=1 THEN 59001
8846 NEXT
8848 GOTO 74
8850 '
9010 RETURN
9999 '
10000 ' ZIV
10005 WINDOW 1,12,4,4
10010 PEN 1:PRINT "ZV";ziv;" ";
10090 '
10095 ' EN
10098 '
10100 WINDOW 6,12,4,4
10108 PEN 15:IF en<6 THEN PEN 5
10110 PRINT "EN";en;
10120 GOTO 10900
10200 '
10250 ' MIST
10251 '
10260 PAPER 0:WINDOW 13,17,4,4:PEN 14:PRINT obr;
10265 WINDOW 12,14,4,4:PEN 14:PRINT my2$
10270 GOTO 10900

10300 ' MYSE
10305 '
10310 PAPER 0
10311 IF KCO=1 THEN WINDOW 17,20,4,4:CLS:GOTO 10900
10315 WINDOW 17,20,4,4:PEN 9:PRINT umys;
10320 LOCATE 1,1:PRINT CHR$(247);
10330 GOTO 10900
10350 '
10400 ' SUT+PAV
10401 '
10405 IF (obr=1) OR OBR=34 THEN RETURN
10409 RANDOMIZE TIME
10410 pocs=1+INT(RND(1)*6):znakx$="Q":GOSUB 10420
10411 RANDOMIZE TIME
10412 pocs=1+INT(RND(1)*(2+2*superpav)):znakx$="X":GOSUB 10420
10414 RETURN
10420 FOR sutrex=1 TO pocs
10430 xsutr=4+INT(RND(1)*14)
10432 IF (obr=6) OR (obr=12) OR (obr=20) OR (obr=21) OR (obr=33) OR (obr=34) THEN ysutr=12+INT(RND(1)*6) ELSE ysutr=4+INT(RND(1)*14)

10440 blud$(xsutr,ysutr)=znakx$
10450 NEXT:RETURN
10500 ' == MYSE
10510 IF OBR=UMYS THEN BLUD$(UX,UY)="M":BLUD$(UK,UY)="K"
10520 RETURN
10550 ' DYN BARVY
10555 IF bububu=0 THEN INK 11,1,2 ELSE INK 11,1,12 'PAVO
10556 INK 3,20  'VZDUCH
10560 RETURN
10590 '
10600 ' === HLAVICKA
10605 my$=CHR$(240)+CHR$(241):my2$=CHR$(242)+CHR$(243) ' L R MYS
10610 WINDOW 1,20,1,2:PAPER 0:PEN 14:PRINT MY2$;:PEN 13:PRINT " MYS V BLUDISTI ";:PEN 14:PRINT MY$;
10640 WINDOW 1,20,5,25
10650 RETURN
10900 ' NAVRAT
10910 WINDOW 1,20,5,25:PAPER 0
10915 PEN 14
10920 RETURN
10950 '
20000 ' BARVY
20001 '
20002 BORDER 0
20005 PAPER 0
20006 SPEED INK 7,7
20010 INK 0,0
20011 INK 1,15 ' ORANZ
20012 INK 2,26  ' BILA
20013 INK 3,20 ' VZDUCH
20014 INK 4,11  ' MODR
20015 INK 5,6,18 ' VYSTR
20016 INK 6,10  ' SEDA UNI
20017 IF bububu=0 THEN INK 7,6 ELSE INK 7,0 'CIH
20018 INK 8,3 'NOHA
20019 INK 9,16  ' RUZ
20020 IF bububu=0 THEN INK 10,3 ELSE INK 10,0 'HLI
20021 ' 11 je DYN - PAVOUK
20022 INK 12,24
20023 INK 13,10 ' HOR TXT
20025 IF KCO=0 THEN INK 14,10 ELSE INK 14,16 'MYS
20026 INK 15,24,25  ' SYR
20028 GOSUB 10550 'DYN BARV
20099 RETURN
30000 ' ZRUS
30005 LOCATE x,y:PAPER 0
30006 PRINT "  ";:RETURN
30020 '
49000 ' MYSKA
49002 '
49004 RANDOMIZE TIME:MSTX=INT(RND*7)+1

49006 RESTORE 49050
49008 FOR QWE=1 TO MSTX:READ UMYS,UX,UY,UK,UKY:NEXT
49009 IF lastmys=UMYS THEN 49004
49010 lastmys=UMYS
49012 RETURN
49050 DATA 30,2,2,5,0
49052 DATA 13,18,2,10,0
49054 DATA 23,12,3,9,0
49056 DATA 19,12,2,9,0
49058 DATA 5,2,2,10,0
49060 DATA 15,5,4,3,0
49062 DATA 22,3,19,9,0
49063 '
52000 IF CINT(RND*1)=1 THEN sy=230 ELSE sy=244
52002 RETURN
53006 H=INT(VG/60):VG=VG-H*60:M=INT(VG/60):S=VG-M*60
55000 '
57000 F=0:PAPER pap:dead=0
57002 en=en-1:IF en<=0 THEN en=0: dead=1 ' GOTO 57500
57003 IF enton=0 THEN 57004 ELSE IF en>5 THEN SOUND 1,800,5,15:FOR M=1 TO 50:NEXT ELSE SOUND 1,1500,20,15:FOR M=1 TO 200:NEXT
57004 enton=1:GOSUB 10100:PEN 14
57006 RETURN
57495 '
57500 PAPER 2:PEN 8:WINDOW 1,17,4,4:CLS:PRINT "DOSLA ENERGIE";:PAPER 0:WINDOW 1,20,5,25
57520 GOTO 59002
58100 REM
58102 SOUND 1,30,10
58105 IF (a1$="K") OR (a2$="K") THEN enplus=kohouten:enton=1 ELSE enplus=INT(RND*6)+1:enton=0
58110 FOR xt=1 TO enplus
58115 en=en+1:IF en>99 THEN en=99
58116 GOSUB 10100
58120 IF enton=1 THEN SOUND 1,300-(xt*10),4,15 ELSE SOUND 1,200-(xt*30),4,15:FOR xt2=1 TO 40:NEXT
58125 NEXT
58128 IF enton=0 THEN FOR xt2=1 TO 100:NEXT
58130 f=0:t=1:PEN 15:RETURN
58140 '
59000 kous=0:GOTO 59100 'UB ENERG
59001 ' DEAD !!!
59002 FOR T=1 TO 30:SOUND 1,T*50,4,15
59003 PEN T/2
59004 LOCATE X,Y:PRINT "**";
59008 LOCATE X,Y:PRINT "++";
59016 NEXT:dead=0
59018 LOCATE X,Y:PRINT CHR$(218)+CHR$(218);:GOSUB 10550 'DYN B
59019 IF oja=1 THEN FOR i=1 TO 3000:NEXT
59020 ziv=ziv-1:en=20:GOSUB 10000:FOR T=1 TO 3000:NEXT:LOCATE X,Y:PRINT "  ";:X=MX:Y=MY
59027 IF ziv<1 THEN WINDOW 1,20,1,4:PAPER 11:CLS:PEN 8:LOCATE 1,2:PRINT "     KONEC HRY.    ";:FOR T=1 TO 3000:NEXT:CLEAR INPUT:GOTO
 59050
59030 GOTO 73
59050 IF INKEY$="" THEN 59050
59060 BORDER 0:INK 0,0:PAPER 0:CLS:CLEAR:GOTO 59500
59100 '
59105 '
59115 'TOCENI MYSI
59118 FOR toceni=1 TO 10
59120 PEN 5:LOCATE x,y:PRINT MY2$;
59123 SOUND 1,CINT(RND(toceni)*50),1,15
59124 FOR m=1 TO 20: NEXT
59125 LOCATE x,y:PRINT MY$;:SOUND 1,CINT(RND(toceni)*50),1,15
59128 FOR m=1 TO 20: NEXT
59129 INK 7,CINT(RND*15):INK 10,CINT(RND*15)
59130 NEXT:GOSUB 20000:PEN 14:GOSUB 455
59131 INK 11,3,12 ' PAV MAJI RADOST
59132 FOR xt=1 TO 5:GOSUB 57000
59135 IF dead=1 THEN 59002
59136 NEXT
59140 GOTO 74
59200 '
59500 REM START
59506 MODE 0:CLS
59600 PEN 9:LOCATE 3,12:PRINT "HODNE  ZDARU !!!"
59601 FOR t=11 TO 15:INK t,0:NEXT
59602 FOR Y=1 TO 3:SOUND 1,200,10:SOUND 1,300,10:SOUND 1,400,10:SOUND 1,100,10:NEXT:FOR T=1 TO 1000:NEXT
59604 GOTO 9
59700 REM
59742 GOTO 59500
62000 s=s+10:SOUND 1,s*2+30,4:FOR t=1 TO 20:NEXT:RETURN
63000 FOR T=130 TO 20 STEP -1:SOUND 1,T,2,15:INK 14,RND*24:NEXT
63003 INK 14,16:BLUD$(UX,UY)="0":UMYS=0:KCO=1:GOSUB 10300:GOSUB 10250:GOSUB 20000:RETURN
63004 bububu=0:GOSUB 20000:LOCATE 2,2:PEN 9:PRINT CHR$(247);:PEN 14:PRINT " "+CHR$(242)+CHR$(243);:FOR T=130 TO 20 STEP -1:SOUND 1,T
,2,15:INK 14,RND*24:NEXT:INK 14,7,13:FOR T=1 TO 3000:NEXT
63010 CLS:LOCATE 1,10:PEN 5:PAPER 0:PRINT "GRATULUJI TI !!!!!!!"
63030 FOR i=1 TO 1000:NEXT:CLEAR:GOSUB 20000:GOTO 9
65534 FOR I=100 TO 255:PRINT CHR$(I);"  ";:NEXT

