Искра-1256/Остров сокровищ

Текст из журнала "ВТ и ее применение", 3/1988. Не вычитан.

На экране 16x64 расставлены мины, пять пиратов, клад и игрок. Игрок находится в левом верхнем углу, клад - в правом нижнем. Доступ за пределы экрана невозможен - мины.

Движение игрока осуществляется цифровыми клавишами в правой части клавиатуры. <...>

Цель - дойти до клада. Совпадение игрока с миной или пиратом - поражение. При удаче увеличивается количество мин и скорость передвижения пиратов. И наоборот, если пираты вас поймали. Если вы попали на мину - уменьшается количество мин. И - вне зависимости от успеха - игра начинается заново. Таким образом, сложность игровой ситуации зависит от вашего уровня игры. Окончание игры устанавливается самим игроком, логического конца игры нет.

1 СЕЛЕКТ(0,0,0)
2 СЕЛЕКТ(1,64,20)
3 СЕЛЕКТ(2,12,20)
4 СЕЛЕКТ(3,5,255)
5 HEX(000909090909090909090909090909090909090909009090909090909090909090909090909090909090909090909090909090909090909090909090090909)=>CA19
6 HEX(010A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)=>CA18
7 1=>A00
8 ПЕЧАТЬ(HEX(030A0A0A), F09(20), "ОСТРОВ СОКРОВИЩ",)
9 ПЕЧАТЬ(HEX(0A),)
10 ПЕЧАТЬ(F09(17),"АВТОР ИГРЫ - ПЕТР ГАНГНУС",)
11 ПЕЧАТЬ(HEX(0A0A0A),)
12 ПЕЧАТЬ(F09(10)," НАБЕРИТЕ ЧТО-НИБУДЬ и НАЖМИТЕ 'ПУСК'")
13 20=>A02
14 0.3=A04
15 ПЕЧАТЬ(F09(31),,)
16 ПЕРЕХ П11
17 HEX(00090A090A000A0800080C080C000C090000)=>STR(CA16,1,18)
18 HEX(010202020201020001000000000100020101)=>STR(CA16,19,18)
19 HEX(040302050901060708)=>STR(CA16,37,9)
20 M00
21 ПЕЧАТЬ(HEX(030E0A),)
22 ПЕЧАТЬ("НА ПОЛЕ МИН :", A02(3.0),)
23 A02>20ПЕРЕХ M03
24 СЕЛЕКТ(0,2,0)
25 M03
26 ПЕЧАТЬ("СКОРОСТЬ ПИРАТОВ :",A04(1.2),)
27 СЕЛЕКТ(0,0,0)
28 ПЕРЕХ П12
29 "ЖЖЖЖЖЖЖЖ"=>STR(CA13,57,8)
30 "Ж КЛАД Ж"=>STR(CA14,57,8)
31 "ЖЖЖЖЖЖЖЖ"=>STR(CA15,57,8)
32 " "=>STR(CA00,1,10)
33 ПЕЧАТЬ(HEX(030F),)
34 0=>A05
35 55=>A06
36 15=>A07
37 64=>A08
38 5=>A12
39 5=>A13
40 15=>A14
41 33=>A15
42 15=>A16
43 57=>A17
44 0=>И08
45 ПЕРЕХ П16
46 5=>И09
47 ПЕРЕХ П20
48 7=>И09
49 ПЕРЕХ П20
50 12=>И09
51 ПЕРЕХ П20
52 14=>И09
53 ПЕРЕХ П20
54 16=>И09
55 ПЕРЕХ П20
56 ПЕЧАТЬ(HEX(01),"*",HEX(08),,)
57 0=>A03
58 ПЕРЕХ П13
59 ПЕРЕХ М00
60 П13
61 СЕЛЕКТ(15,5,1)
62 1=>И12
63 1=>И14
64 F07
65 13=>И14
66 F08
67 9=>И00
68 1=>И05
69 1=>И06
70 M00
71 И00*2-1=>И01
72 И01=0ПЕРЕХ М15
73 И00*2+17=>И02
74 И02+1=>И03
75 ПЕЧАТЬ(HEX(2E08),STR(CA16,И01,2),"*",HEX(08),,)
76 STR(CA16,И02,1)=>СИ02
77 STR(CA16,И03,1)=>СИ03
78 И02+И05-1=>И05
79 И03+И06-1=>И06
80 И05=0ПЕРЕХ М15
81 И05>16ПЕРЕХ М15
82 И06=0ПЕРЕХ М15
83 И06>64ПЕРЕХ М15
84 И05-1=>И07
85 STR(CAИ07,И06,1)="M"ПЕРЕХ М15
86 ПЕРЕХ П18
87 И05-1=>И07
88 ((A09-A05)ABS+(A10-A06)ABS)*((A09-A07)ABS+(A10-A08)ABS)*((A09-A12)ABS+(A10-A13)ABS)*((A09-A14)ABS+(A10-A15)ABS)*((A09-A16)ABS+(A10-A17)ABS)=0ПЕРЕХ М12
89 STR(CAИ07,И06,1)="Ж"ПЕРЕХ М14
90 4=>И14
91 F08
92 (И15-2)ABS>0ПЕРЕХ М01
93 ПЕРЕХ П14
94 М01
95 ПЕРЕХ М00
96 М12
97 СЕЛЕКТ(15,1,1)
98 СЕЛЕКТ(0,1,0)
99 ПЕЧАТЬ(HEX(030E0A)," ПОЙМАЛИ!",)
100 ПЕЧАТЬ(HEX(030E0A0A),"УБИЛИ!",)
101 A04/(1.15-(A04+0.2)^2/10)=>A04
102 ПЕЧАТЬ(HEX(030A0A0A)," ЗАРЕЗАЛИ!",)
103 ПЕРЕХ М13
104 М15
105 СЕЛЕКТ(15,1,1)
106 СЕЛЕКТ(0,2,0)
107 ПЕЧАТЬ(HEX(030E0A0A)," ТРАХ-ТАРАРАХ-ТАХ-ТАХ!",)
108 A02-10=>A02
109 A02>0ПЕРЕХ М13
110 1=>A02
111 A04/(1.15-(A04+0.2)^2/10)=>A04
112 ПЕРЕХ М13
113 М14
114 СЕЛЕКТ(15,1,1)
115 СЕЛЕКТ(0,3,0)
116 ПЕЧАТЬ(HEX(030E0A0A0A),"  КЛАД ВЗЯТ !!!",HEX(0808080808080808),,)
117 A04*(1.2-(A04+0.2)^2/10)=>A04
118 A02+20=>A02
119 A04<0.801ПЕРЕХ М13
120 0.8=>A04
121 A02+20=>A02
122 М13
123 СЕЛЕКТ(0,0,0)
124 ПЕЧАТЬ(HEX(030F),,)
125 П14
126 И13=0ПЕРЕХ М00
127 И13>9ПЕРЕХ М00
128 И13+36=>И13
129 STR(CA16,И13,1)=>СИ00
130 М00
131 13=>И14
132 F07
133 П12
134 0=>И00
135 ЦИКЛ(И00,1,15)
136 " "=САИ00
137 ЦИКЛ*
138 1=>A03
139 ЦИКЛ(А03,1,А02)
140 ПЕРЕХ П10
141 A01+1=>A01
142 (A01-1)/64=>И01
143 A01-И01*64=>И02
144 "M"=>STR(CAИ01,И02,1)
145 ЦИКЛ*
146 П16
147 0=>И00
148 ЦИКЛ(И00,1,15)
149 ПЕЧАТЬ(HEX(0A0D),,)
150 ПЕЧАТЬ(CAИ00,,)
151 ЦИКЛ*
152 ПЕЧАТЬ(HEX(01),,)
153 П11
154 НС=>CA00
155 1=>И00
156 0=>A00
157 ЦИКЛ(И00,1,64)
158 STR(CA00,И00,1)=>СИ01
159 И01+А00=>А00
160 ЦИКЛ*
161 A00/1024=>А00
162 ((A00-A00INT)*1024+0.5)INT=>A00
163 A00*4+1=>A00
164 П10
165 A00*125/4096=>A00
166 ((A00-A00INT)*4096+0.5)INT=>A00
167 (A00-1)/4=>A01
168 П9
169 1=>И11
170 A03+A04=>A03
171 A03>1ПЕРЕХ М01
172 ЦИКЛ(И11,1,48)
173 ПЕЧАТЬ(,)
174 ЦИКЛ*
175 ПЕРЕХ М00
176 М01
177 A03-A03INT=>A03
178 5=>И09
179 ПЕРЕХ П17
180 7=>И09
181 ПЕРЕХ П17
182 12=>И09
183 ПЕРЕХ П17
184 14=>И09
185 ПЕРЕХ П17
186 16=>И09
187 ПЕРЕХ П17
188 5=>И09
189 ПЕРЕХ П19
190 7=>И09
191 ПЕРЕХ П19
192 12=>И09
193 ПЕРЕХ П19
194 14=>И09
195 ПЕРЕХ П19
196 16=>И09
197 ПЕРЕХ П19
198 ПЕЧАТЬ(STR(CA18,1,И05),STR(CA19,1,И06),,)
199 М00
200 П17
201 АИ09+1=>А11
202 АИ09=>И07
203 И09+1=>И10
204 ПЕЧАТЬ(STR(CA18,1,A11),STR(CA19,1,АИ10),STR(САИ07,АИ10,1),,)
205 П19
206 И09<16ПЕРЕХ М00
207 И06<44ПЕРЕХ М01
208 М00
209 И09+1=>И10
210 ((A09-АИ09)/((А09-АИ09)ABS-0.001))INT+АИ09=>АИ09
211 ((A10-АИ10)/((А10-АИ10)ABS-0.001))INT+АИ10=>АИ10
212 М01
213 ПЕРЕХ П20
214 П20
215 И09+1=>И10
216 АИ09=>И07
217 И07+1=>А11
218 ПЕЧАТЬ(STR(CA18,1,A11),STR(CA19,1,АИ10),HEX(19),,)
219 П18
220 И05-1=>А09
221 И06=>А10
222 ПЕРЕХ П9