1 ' Super mario like game 1998
\r
2 ' Code by: Svjatoslav Agejenko
\r
3 ' Levels by: Risto Ipsberg, Fred Freimann
\r
5 ' at least 8 MHz 8086 CPU
\r
6 ' & CGA video card is required
\r
8 DECLARE SUB norm (nrm%)
\r
11 DECLARE SUB level (y%)
\r
12 DECLARE SUB pildid (p%, o%, m%, fr%, teler%)
\r
13 DECLARE SUB wiew (r$, a%, b%)
\r
14 DECLARE SUB joonist ()
\r
15 DECLARE SUB save (y$)
\r
17 DIM SHARED uun(1 TO 20) AS STRING * 31
\r
18 DIM SHARED siib, siia, siib1, siia1
\r
19 DIM SHARED elu, raha
\r
20 DIM SHARED uks1, uks2, uks3, uks4
\r
22 DIM SHARED text$(1 TO 1000)
\r
24 DIM SHARED asend(0 TO 34, -10 TO 20) AS STRING * 1
\r
25 DIM SHARED asend1(0 TO 34, -10 TO 20) AS STRING * 1
\r
30 DIM SHARED pilv(209)
\r
33 DIM SHARED siil1(30)
\r
34 DIM SHARED siil2(30)
\r
36 DIM SHARED poosas(100)
\r
37 DIM SHARED aken(100)
\r
38 DIM SHARED vedru(50)
\r
39 DIM SHARED intro(6000)
\r
40 DIM SHARED puu(3000)
\r
41 DIM SHARED noolt(51)
\r
42 DIM SHARED noolt1(51)
\r
44 DIM SHARED sipp1(51)
\r
45 DIM SHARED sipp2(51)
\r
46 DIM SHARED sipp10(51)
\r
47 DIM SHARED sipp20(51)
\r
48 DIM SHARED sipp3(51)
\r
51 DIM SHARED ruutm(51)
\r
52 DIM SHARED tuhim(51)
\r
53 DIM SHARED kastm(51)
\r
54 DIM SHARED marm1(70)
\r
55 DIM SHARED pilvm(209)
\r
56 DIM SHARED tahtm(50)
\r
57 DIM SHARED siilm(30)
\r
58 DIM SHARED siilm1(30)
\r
59 DIM SHARED siilm2(30)
\r
60 DIM SHARED muntm(30)
\r
61 DIM SHARED poosasm(100)
\r
62 DIM SHARED akenm(100)
\r
63 DIM SHARED vedrum(50)
\r
64 DIM SHARED puum(3000)
\r
65 DIM SHARED nooltm(51)
\r
66 DIM SHARED nooltm1(51)
\r
68 DIM SHARED sippm1(51)
\r
69 DIM SHARED sippm2(51)
\r
70 DIM SHARED sippm10(51)
\r
71 DIM SHARED sippm20(51)
\r
72 DIM SHARED sippm3(51)
\r
79 vas7$ = CHR$(0) + "K"
\r
80 par7$ = CHR$(0) + "M"
\r
81 ule7$ = CHR$(0) + "H"
\r
82 all7$ = CHR$(0) + "P"
\r
88 GET (1, 1)-(20, 20), tuhi
\r
89 pildid 0, 0, 1, 1, 1
\r
90 GET (1, 1)-(20, 20), ruut
\r
91 pildid 0, 0, 4, 1, 1
\r
92 GET (1, 1)-(20, 20), kast
\r
93 PUT (1, 180), ruut, PSET
\r
94 PUT (300, 1), ruut, PSET
\r
95 PUT (300, 180), ruut, PSET
\r
96 pildid 30, 50, 2, 1, 1
\r
97 GET (31, 51)-(91, 76), pilv
\r
98 PUT (160, 10), pilv, PSET
\r
99 pildid 20, 100, 3, 1, 1
\r
100 GET (21, 101)-(31, 114), taht
\r
102 pildid 0, 0, 5, 1, 1
\r
103 GET (1, 1)-(11, 8), siil
\r
105 pildid 0, 0, 6, 1, 1
\r
106 GET (1, 1)-(8, 10), munt
\r
108 pildid 0, 0, 7, 1, 1
\r
109 GET (1, 1)-(31, 11), poosas
\r
111 pildid 0, 0, 8, 1, 1
\r
112 GET (1, 1)-(26, 21), aken
\r
114 pildid 0, 0, 9, 1, 1
\r
115 GET (1, 1)-(21, 11), vedru
\r
117 pildid 0, 0, 11, 1, 1
\r
118 GET (1, 1)-(51, 81), puu
\r
120 pildid 0, 0, 12, 1, 1
\r
121 GET (1, 1)-(20, 20), noolt
\r
123 pildid 0, 0, 12, 50, 1
\r
124 GET (1, 1)-(20, 20), noolt1
\r
126 pildid 0, 0, 13, 1, 1
\r
127 GET (1, 1)-(20, 20), auk
\r
129 pildid 0, 0, 14, 1, 1
\r
130 GET (1, 1)-(20, 20), sipp1
\r
132 pildid 0, 0, 15, 1, 1
\r
133 GET (1, 1)-(20, 20), sipp2
\r
135 pildid 0, 0, 14, 50, 1
\r
136 GET (1, 1)-(20, 20), sipp10
\r
138 pildid 0, 0, 15, 50, 1
\r
139 GET (1, 1)-(20, 20), sipp20
\r
141 pildid 0, 0, 16, 1, 1
\r
142 GET (1, 1)-(20, 20), sipp3
\r
144 GET (1, 1)-(10, 10), tuhim
\r
145 pildid 0, 0, 1, 1, 2
\r
146 GET (1, 1)-(10, 10), ruutm
\r
147 pildid 0, 0, 4, 1, 2
\r
148 GET (1, 1)-(10, 10), kastm
\r
149 PUT (1, 180), ruut, PSET
\r
150 PUT (300, 1), ruut, PSET
\r
151 PUT (300, 180), ruut, PSET
\r
152 pildid 30, 50, 2, 1, 2
\r
153 GET (16, 26)-(46, 38), pilvm
\r
154 pildid 20, 100, 3, 1, 2
\r
155 GET (11, 51)-(16, 72), tahtm
\r
157 pildid 0, 0, 5, 1, 2
\r
158 GET (1, 1)-(6, 4), siilm
\r
160 pildid 0, 0, 6, 1, 2
\r
161 GET (1, 1)-(4, 5), muntm
\r
163 pildid 0, 0, 7, 1, 2
\r
164 GET (1, 1)-(16, 6), poosasm
\r
166 pildid 0, 0, 8, 1, 2
\r
167 GET (1, 1)-(13, 11), akenm
\r
169 pildid 0, 0, 9, 1, 2
\r
170 GET (1, 1)-(11, 6), vedrum
\r
172 pildid 0, 0, 11, 1, 2
\r
173 GET (1, 1)-(26, 41), puum
\r
175 pildid 0, 0, 12, 1, 2
\r
176 GET (1, 1)-(10, 10), nooltm
\r
178 pildid 0, 0, 12, 50, 2
\r
179 GET (1, 1)-(10, 10), nooltm1
\r
181 pildid 0, 0, 13, 1, 2
\r
182 GET (1, 1)-(10, 10), aukm
\r
184 pildid 0, 0, 14, 1, 2
\r
185 GET (1, 1)-(10, 10), sippm1
\r
187 pildid 0, 0, 15, 1, 2
\r
188 GET (1, 1)-(10, 10), sippm2
\r
190 pildid 0, 0, 14, 50, 2
\r
191 GET (1, 1)-(10, 10), sippm10
\r
193 pildid 0, 0, 15, 50, 2
\r
194 GET (1, 1)-(10, 10), sippm20
\r
196 pildid 0, 0, 16, 1, 2
\r
197 GET (1, 1)-(10, 10), sippm3
\r
199 pildid 0, 0, 17, 1, 1
\r
200 GET (1, 1)-(21, 31), uks
\r
202 pildid 0, 0, 17, 1, 2
\r
203 GET (1, 1)-(11, 16), intro
\r
206 pildid -1, -1, 10, 4, 1
\r
207 GET (1, 1)-(318, 124), intro
\r
210 PUT (1, 1), intro, PSET
\r
221 IF voolual = 2 THEN b = b * 2: GOTO 106
\r
222 IF b > 0 THEN GET (a, b)-(a + 20, b + 20), mar1
\r
223 IF b > 0 THEN IF sipp = 1 THEN PUT (a, b), sipp1, OR
\r
224 IF b > 0 THEN IF sipp = 2 THEN PUT (a, b), sipp2, OR
\r
225 IF b > 0 THEN IF sipp = 10 THEN PUT (a, b), sipp10, OR
\r
226 IF b > 0 THEN IF sipp = 20 THEN PUT (a, b), sipp20, OR
\r
227 IF b > 0 THEN IF sipp = 3 THEN PUT (a, b), sipp3, OR
\r
229 GET (siia, siib)-(siia + 10, siib + 10), siil1
\r
230 PUT (siia, siib), siil, OR
\r
231 GET (siia1, siib1)-(siia1 + 10, siib1 + 10), siil2
\r
232 PUT (siia1, siib1), siil, OR
\r
234 IF asend((a + 38) \ 20, (b + 37) \ 20) = "z" THEN eda = -1: r = 9: lke = 0
\r
235 IF asend((a + 38) \ 20, (b + 22) \ 20) = "z" THEN eda = -1: r = 9: lke = 0
\r
237 IF asend((a + 21) \ 20, (b + 22) \ 20) = "z" THEN eda = 1: r = 9: lke = 0
\r
238 IF asend((a + 21) \ 20, (b + 37) \ 20) = "z" THEN eda = 1: r = 9: lke = 0
\r
240 IF asend((a + 22) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0
\r
241 IF asend((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0
\r
243 IF asend((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
\r
244 IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
\r
246 qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -10: all = -5: elud
\r
247 IF qwer > 100 THEN qwer = 50
\r
248 IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: elud: asend((a + 30) \ 20, (b + 30) \ 20) = ""
\r
249 IF asend((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3
\r
250 IF asend1((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3
\r
251 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3
\r
253 r = r + 1: IF r > 10 THEN r = 0: IF eda > 0 THEN eda = eda - 1: ELSE IF eda < 0 THEN eda = eda + 1
\r
254 r1 = r1 + 1: IF r1 > 3 THEN r1 = 0: all = all + 1
\r
255 lk = lk + 1: cd = cd - 1
\r
256 IF asend1((a + 30) \ 20, (b + 21) \ 20) = "o" THEN asend((a + 30) \ 20, (b + 21) \ 20) = "": asend1((a + 30) \ 20, (b + 21) \ 20) = "": kustuta = 1
\r
257 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38) \ 20) = "": asend1((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1
\r
258 IF asend((siia + 25) \ 20, (siib + 25) \ 20) = "z" THEN siiall = -1
\r
259 IF asend((siia + 30) \ 20, (siib + 10) \ 20) = "z" THEN siie = -1
\r
260 IF asend((siia + 20) \ 20, (siib + 10) \ 20) = "z" THEN siie = 1
\r
261 IF asend((siia1 + 25) \ 20, (siib1 + 25) \ 20) = "z" THEN siiall1 = -1
\r
262 IF asend((siia1 + 30) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = -1
\r
263 IF asend((siia1 + 20) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = 1
\r
264 IF siia > 300 THEN siie = -1
\r
265 IF siia < 3 THEN siie = 1
\r
266 IF siia1 > 300 THEN siie1 = -1
\r
267 IF siia1 < 3 THEN siie1 = 1
\r
268 PUT (siia1, siib1), siil2, PSET
\r
269 PUT (siia, siib), siil1, PSET
\r
270 IF b > 0 THEN PUT (a, b), mar1, PSET
\r
271 IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 20, (b \ 20) * 20), tuhi, PSET
\r
272 IF kustuta1 = 1 THEN kustuta1 = 0: PUT (((a + 10) \ 20) * 20, ((b + 10) \ 20) * 20), tuhi, PSET
\r
273 IF kustuta2 = 1 THEN kustuta2 = 0: PUT (((a + 10) \ 20) * 20, ((b + 28) \ 20) * 20), tuhi, PSET
\r
274 IF makk = 1 THEN makk = 0: a = a - 20
\r
275 asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = ""
\r
277 siib = siib + siiall
\r
278 siia1 = siia1 + siie1
\r
279 siib1 = siib1 + siiall1
\r
280 asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q"
\r
281 siiall = siiall + 1: IF siiall > 2 THEN siiall = 2
\r
282 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2
\r
285 IF a > 297 THEN a = 2: maa = maa + 1: level maa: siie = 1: siie1 = 1
\r
286 IF a < 1 THEN a = 296: IF maa = 1 THEN level maa: ELSE maa = maa - 1: level maa: IF voolual = 2 THEN a = 594
\r
287 IF b > 179 THEN elu = elu - 1: elud: maa = maa - 1: level maa: b = 100: a = 2: elud
\r
288 IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 10: b = uks4: eda = 0
\r
289 IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 10: b = uks2: eda = 0
\r
291 a$ = kbd$: kbd$ = ""
\r
292 IF a$ = par7$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5
\r
293 IF a$ = par7$ THEN IF sipa = 1 THEN sipp = 1: ELSE sipp = 2
\r
294 IF a$ = vas7$ THEN IF sipa = 1 THEN sipp = 10: ELSE sipp = 20
\r
295 IF a$ = vas7$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5
\r
296 IF a$ = ule7$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3
\r
297 IF a$ = all7$ THEN all = all + 1
\r
298 IF a$ = "/" THEN a = 2: b = 50: maa = maa + 1: level maa: siie = 1: siie1 = 1
\r
299 IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: level maa: siie = 1: siie1 = 1
\r
300 IF a$ = "q" THEN END
\r
302 IF sipa = 3 THEN sipa = 1
\r
309 IF voolual = 1 THEN b = b / 2: GOTO 6
\r
310 IF b > 0 THEN GET (a \ 2, b \ 2)-((a + 20) \ 2, (b + 20) \ 2), marm1
\r
311 IF b > 0 THEN IF sipp = 1 THEN PUT (a \ 2, b \ 2), sippm1, OR
\r
312 IF b > 0 THEN IF sipp = 2 THEN PUT (a \ 2, b \ 2), sippm2, OR
\r
313 IF b > 0 THEN IF sipp = 10 THEN PUT (a \ 2, b \ 2), sippm10, OR
\r
314 IF b > 0 THEN IF sipp = 20 THEN PUT (a \ 2, b \ 2), sippm20, OR
\r
315 IF b > 0 THEN IF sipp = 3 THEN PUT (a \ 2, b \ 2), sippm3, OR
\r
317 GET (siia \ 2, siib \ 2)-((siia + 10) \ 2, (siib + 10) \ 2), siilm1
\r
318 PUT (siia \ 2, siib \ 2), siilm, OR
\r
319 GET (siia1 \ 2, siib1 \ 2)-((siia1 + 10) \ 2, (siib1 + 10) \ 2), siilm2
\r
320 PUT (siia1 \ 2, siib1 \ 2), siilm, OR
\r
322 IF asend((a + 38) \ 20, (b + 37) \ 20) = "z" THEN eda = -1: r = 9: lke = 0
\r
323 IF asend((a + 38) \ 20, (b + 22) \ 20) = "z" THEN eda = -1: r = 9: lke = 0
\r
325 IF asend((a + 21) \ 20, (b + 22) \ 20) = "z" THEN eda = 1: r = 9: lke = 0
\r
326 IF asend((a + 21) \ 20, (b + 37) \ 20) = "z" THEN eda = 1: r = 9: lke = 0
\r
328 IF asend((a + 22) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0
\r
329 IF asend((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0
\r
331 IF asend((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
\r
332 IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
\r
334 qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -5: all = -3: elud
\r
335 IF qwer > 100 THEN qwer = 50
\r
336 IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: elud: asend((a + 30) \ 20, (b + 30) \ 20) = ""
\r
337 IF asend((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3
\r
338 IF asend1((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3
\r
339 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3
\r
341 r = r + 1: IF r > 10 THEN r = 0: IF eda > 0 THEN eda = eda - 1: ELSE IF eda < 0 THEN eda = eda + 1
\r
342 r1 = r1 + 1: IF r1 > 3 THEN r1 = 0: all = all + 1
\r
343 lk = lk + 1: cd = cd - 1
\r
344 IF asend1((a + 30) \ 20, (b + 21) \ 20) = "o" THEN asend((a + 30) \ 20, (b + 21) \ 20) = "": asend1((a + 30) \ 20, (b + 21) \ 20) = "": kustuta = 1
\r
345 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38) \ 20) = "": asend1((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1
\r
346 IF asend((siia + 25) \ 20, (siib + 25) \ 20) = "z" THEN siiall = -1
\r
347 IF asend((siia + 30) \ 20, (siib + 10) \ 20) = "z" THEN siie = -1
\r
348 IF asend((siia + 20) \ 20, (siib + 10) \ 20) = "z" THEN siie = 1
\r
349 IF asend((siia1 + 25) \ 20, (siib1 + 25) \ 20) = "z" THEN siiall1 = -1
\r
350 IF asend((siia1 + 30) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = -1
\r
351 IF asend((siia1 + 20) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = 1
\r
352 IF siia > 600 THEN siie = -1
\r
353 IF siia < 3 THEN siie = 1
\r
354 IF siia1 > 600 THEN siie1 = -1
\r
355 IF siia1 < 3 THEN siie1 = 1
\r
356 PUT (siia1 \ 2, siib1 \ 2), siilm2, PSET
\r
357 PUT (siia \ 2, siib \ 2), siilm1, PSET
\r
358 IF b > 0 THEN PUT (a \ 2, b \ 2), marm1, PSET
\r
359 IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 10, (b \ 20) * 10), tuhim, PSET
\r
360 IF kustuta1 = 1 THEN kustuta1 = 0: PUT (((a + 10) \ 20) * 10, ((b + 10) \ 20) * 10), tuhim, PSET
\r
361 IF kustuta2 = 1 THEN kustuta2 = 0: PUT (((a + 10) \ 20) * 10, ((b + 28) \ 20) * 10), tuhim, PSET
\r
362 IF makk = 1 THEN makk = 0: a = a - 20
\r
363 asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = ""
\r
365 siib = siib + siiall
\r
366 siia1 = siia1 + siie1
\r
367 siib1 = siib1 + siiall1
\r
368 asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q"
\r
369 siiall = siiall + 1: IF siiall > 2 THEN siiall = 2
\r
370 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2
\r
373 IF a > 594 THEN a = 2: maa = maa + 1: level maa: siie = 1: siie1 = 1
\r
374 IF a < 1 THEN a = 594: IF maa = 1 THEN level maa: ELSE maa = maa - 1: level maa: IF voolual = 1 THEN a = 297
\r
375 IF b > 358 THEN elu = elu - 1: elud: maa = maa - 1: level maa: b = 100: a = 2: elud
\r
376 IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 5: b = uks4: eda = 0
\r
377 IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 5: b = uks2: eda = 0
\r
379 a$ = kbd$: kbd$ = ""
\r
380 IF a$ = par7$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5
\r
381 IF a$ = par7$ THEN IF sipa = 1 THEN sipp = 1: ELSE sipp = 2
\r
382 IF a$ = vas7$ THEN IF sipa = 1 THEN sipp = 10: ELSE sipp = 20
\r
383 IF a$ = vas7$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5
\r
384 IF a$ = ule7$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3
\r
385 IF a$ = all7$ THEN all = all + 1
\r
386 IF a$ = "/" THEN a = 2: b = 50: maa = maa + 1: level maa: siie = 1: siie1 = 1
\r
387 IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: level maa: siie = 1: siie1 = 1
\r
388 IF a$ = "q" THEN END
\r
390 IF sipa = 3 THEN sipa = 1
\r
395 IF voolual = 2 THEN GOTO 12
\r
397 IF raha > 9 THEN raha = 0: elu = elu + 1
\r
399 PRINT "o "; raha; " Elu "; elu
\r
401 IF elu < 0 THEN END
\r
405 tuhi$ = "0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
\r
407 INPUT "laius", laius
\r
408 INPUT "pikkus", pikkus
\r
409 FOR a = 1 TO pikkus
\r
410 text$(a) = RIGHT$(tuhi$, laius)
\r
419 IF zx = 1 THEN CIRCLE (a * 2, b * 2), 1, z
\r
420 po = ASC(RIGHT$(LEFT$(text$(b), a), 1)) - 1
\r
421 IF zx = -1 THEN CIRCLE (a * 2, b * 2), 1, po
\r
422 IF a$ = "6" THEN a = a + 1
\r
423 IF a$ = "4" THEN a = a - 1
\r
424 IF a$ = "8" THEN b = b - 1
\r
425 IF a$ = "2" THEN b = b + 1
\r
426 IF a$ = " " THEN zx = zx * -1
\r
427 IF a$ = "e" THEN GOTO 5
\r
428 IF a$ = "s" THEN GOTO 3
\r
429 IF a$ = "z" THEN z = 0
\r
430 IF a$ = "x" THEN z = 1
\r
431 IF a$ = "c" THEN z = 2
\r
432 IF a$ = "v" THEN z = 3
\r
434 IF a < 1 THEN a = 1
\r
435 IF b < 1 THEN b = 1
\r
436 IF b > pikkus THEN b = pikkus
\r
437 IF a > laius THEN a = laius
\r
438 IF z > 3 THEN z = 3
\r
439 IF z < 0 THEN z = 0
\r
440 IF zx = 1 THEN MID$(text$(b), a) = CHR$(z + 1)
\r
441 IF zx = 1 THEN CIRCLE (a * 2, b * 2), 1, z
\r
442 IF zx = 1 THEN PAINT (a * 2, b * 2), z
\r
444 IF zx = 1 THEN IF z = 0 THEN o = 3
\r
445 po = ASC(RIGHT$(LEFT$(text$(b), a), 1)) - 1
\r
446 IF zx = -1 THEN IF po = 0 THEN o = 3
\r
447 CIRCLE (a * 2, b * 2), 1, o
\r
464 asend1(a1, b1) = ""
\r
476 uun(3) = " . - mmm"
\r
477 uun(4) = "o . . mymm"
\r
479 uun(6) = "o t mxmm"
\r
482 uun(9) = "o p p 1 1 1"
\r
483 uun(10) = "mmmmmmmmmmmmmmmm"
\r
486 uun(1) = "mmmmmmmmmmmmmmmm"
\r
488 uun(3) = "mmx m mmmymmm"
\r
489 uun(4) = "mmommmmmm mom m"
\r
490 uun(5) = "mo 1 1 1 o1m1m"
\r
491 uun(6) = "momm m m m m111m"
\r
492 uun(7) = "m h mmmmoom"
\r
494 uun(9) = " v mmm mm"
\r
495 uun(10) = "mmmmmmmmmmmmmmmm"
\r
497 uun(1) = "mmmmmmmmmmmmmmmm"
\r
498 uun(2) = " h h h h h ym11"
\r
499 uun(3) = "mm mmmmmmmmmmm1m"
\r
500 uun(4) = "m h m xm "
\r
501 uun(5) = "mm m m mmmmmmmmm"
\r
502 uun(6) = "mmmm m1m "
\r
503 uun(7) = "m h m1moo m"
\r
504 uun(8) = "m mmmmmm m1moomm"
\r
505 uun(9) = "m 11111m h h "
\r
506 uun(10) = "mmmmmmmmmmmmmmmm"
\r
508 uun(1) = "mmmmmmmmmmmmmmmm"
\r
509 uun(2) = " h1 h1 m"
\r
510 uun(3) = "mmm 1 11 1 o1m"
\r
511 uun(4) = " m 1 oo 1o1m"
\r
512 uun(5) = "m moo oo1m"
\r
514 uun(7) = "mmm h o "
\r
517 uun(10) = "mmmmmmmmmmmmmmmm"
\r
519 uun(1) = "m . y - "
\r
521 uun(3) = "m. mxm mmo"
\r
522 uun(4) = "m - m mmmmmm"
\r
523 uun(5) = "m . m mm "
\r
524 uun(6) = "mt o o m "
\r
525 uun(7) = "m o om o ooo "
\r
526 uun(8) = "m ooooooooooo "
\r
528 uun(10) = "oooooooooooooooo"
\r
530 PRINT "1-2 Maailm . Kood: teine": elud
\r
535 uun(3) = " oo- oo "
\r
536 uun(4) = " - 11 11 ."
\r
538 uun(6) = " m ym11 11 "
\r
540 uun(8) = " ooom <> <> "
\r
541 uun(9) = " xmmm mmm"
\r
542 uun(10) = "mmmmmmmmmmm mmm"
\r
545 uun(2) = " o111 . "
\r
546 uun(3) = " oooo> >>>>>>"
\r
547 uun(4) = " . x v m"
\r
553 uun(10) = "oooaaaaaaaaaoooo"
\r
557 uun(3) = ". ommm t o"
\r
558 uun(4) = " mom mm o"
\r
559 uun(5) = " pmmoyxmmm o"
\r
560 uun(6) = " mmmomammmm m"
\r
561 uun(7) = "p mmmmv mmmm "
\r
562 uun(8) = "mmmmmmmmm mmmmmm"
\r
564 uun(10) = ">>>>>>>>>>>>>>>>"
\r
569 uun(3) = "m 111 - m"
\r
570 uun(4) = "mmmmm>>> ammm"
\r
572 uun(6) = "mmm t a m"
\r
575 uun(9) = " m yx m m"
\r
576 uun(10) = ">>>mmmmmmmmmmm m"
\r
578 uun(1) = "mammmmmmmmmmmmm "
\r
579 uun(2) = "m1m y xmo "
\r
580 uun(3) = "mamooo>>>a>am om"
\r
581 uun(4) = "m1m m1mamo m"
\r
582 uun(5) = "mamm m1mam om"
\r
583 uun(6) = "m1m mm1mamo m"
\r
584 uun(7) = "mammm m1ma om"
\r
585 uun(8) = "m1m mmm1ma o m"
\r
586 uun(9) = "m amam om"
\r
587 uun(10) = "mmmmmmmm<mmammmm"
\r
590 uun(1) = ">>>>>>>>>>>>>>><"
\r
592 uun(3) = "> < >> <"
\r
593 uun(4) = "> <y>>>>>>> <"
\r
594 uun(5) = "> < < <<<"
\r
595 uun(6) = "> <<<<a<< << < >"
\r
596 uun(7) = "> < < < "
\r
597 uun(8) = "> <m >m>>m < >"
\r
599 uun(10) = ">>>>m<<<<<<<<mm<"
\r
602 uun(1) = "m aaaaaaaaam"
\r
604 uun(3) = "m t. ym 1"
\r
605 uun(4) = "m . moom"
\r
607 uun(6) = "m mamomm"
\r
608 uun(7) = "m - mmam 1"
\r
609 uun(8) = "m mmmamomm"
\r
610 uun(9) = "m p p mm 1"
\r
611 uun(10) = "mmmmmmmmmammmm<<"
\r
613 uun(1) = "mmmmmmmmmmmmmmmm"
\r
615 uun(3) = " ma 1a1a1a m"
\r
616 uun(4) = "mmma aaaaaaaam m"
\r
617 uun(5) = "11maaaaaaaaaam m"
\r
618 uun(6) = "mmmaaaaaaaaaam m"
\r
619 uun(7) = "11x ym m"
\r
620 uun(8) = "mmmmmmmmmmmmmm m"
\r
622 uun(10) = "mmmmmmmmmmmmmmmm"
\r
624 uun(1) = "mmmmmmmmm- "
\r
625 uun(2) = "mm mmmmmmm - "
\r
627 uun(4) = "mm >>>>> m - "
\r
628 uun(5) = "mmv m m ."
\r
629 uun(6) = ">><< m <<m - "
\r
630 uun(7) = "11 m m m . "
\r
631 uun(8) = ">> m m m xy "
\r
632 uun(9) = "mm vm v "
\r
633 uun(10) = "mm>><m>>>>>mmmmm"
\r
635 PRINT "1-3 Maailm . Kood: Sven Risto": elud
\r
639 uun(2) = "mm ymmmmmmmmmaaa"
\r
640 uun(3) = "<<oo 1111maaa"
\r
641 uun(4) = " <<111maaa"
\r
642 uun(5) = "<<m< m11maaa"
\r
643 uun(6) = " t oomm aaa"
\r
644 uun(7) = " vo mm1m"
\r
645 uun(8) = " mm<<<mm1m"
\r
646 uun(9) = " m x <<mmmmm11"
\r
647 uun(10) = "mmmmmmmmmmmmmmmm"
\r
650 uun(1) = "m11 aa m 11111 m"
\r
651 uun(2) = "m11 a a a < m"
\r
652 uun(3) = "m11 >aam v t a m"
\r
653 uun(4) = "m11om y o a am"
\r
654 uun(5) = "m11 oooo t m"
\r
655 uun(6) = ">>>om p p m m"
\r
656 uun(7) = "m mmm mamamom mm m"
\r
657 uun(8) = "m v mmmmm mam 11m mmmmmm m"
\r
658 uun(9) = "m mmmmmmmmm mam 1mm mm m"
\r
659 uun(10) = "mm m1 m mam111m m m"
\r
660 uun(11) = "m m o m mam vm m"
\r
661 uun(12) = "m m m1111m vmammmmm m m"
\r
662 uun(13) = "m m mmmmm 11 "
\r
663 uun(14) = "mmmmmm m mamammmmm mm"
\r
664 uun(15) = "m m mam1111m m >m"
\r
665 uun(16) = "m m m1m111m m m"
\r
666 uun(17) = " m mammmm mm>>> <<<>>m"
\r
667 uun(18) = " m m x m m m "
\r
668 uun(19) = "mmmmm mmmmmmm mmm mm"
\r
671 uun(1) = "mu 1111 m"
\r
672 uun(2) = "mmmmmmm <<<<am"
\r
673 uun(3) = "m m a mam"
\r
674 uun(4) = "m m y m1m"
\r
675 uun(5) = "m mm <xmam"
\r
676 uun(6) = " m <<<<m1m"
\r
678 uun(8) = "mmmm m <<mmm"
\r
679 uun(9) = "m111 vU m "
\r
680 uun(10) = "mmmmmmmaamaaam "
\r
684 uun(2) = "oo h h m "
\r
685 uun(3) = "oo x m h m>>>>>"
\r
686 uun(4) = "oo m11111111m m mm m"
\r
687 uun(5) = "oo m11111111m m mm h m m"
\r
688 uun(6) = "oo mmmmmmmmmm m m vm m"
\r
689 uun(7) = "oo mm mmmmmmm m"
\r
691 uun(9) = "mom mmmmmm v m"
\r
692 uun(10) = "m m m mmmmmm mm h h m"
\r
694 uun(12) = "m <<<<<<<<<<<<<<<<<<<<<<<<<<< m"
\r
696 uun(14) = "mammooooommaaammm maaaaavm"
\r
697 uun(15) = "mam oo a ma m111111m"
\r
698 uun(16) = "mam oo <<< h mh h mma<>amm"
\r
699 uun(17) = "mam moom << m"
\r
700 uun(18) = "my mm m m m"
\r
701 uun(19) = "mmmmmmmmmmmm<<mmmaaaaammmmmmmmm"
\r
705 pildid 1, 1, 10, 3, 1
\r
714 PRINT " Programmi koostasid:"
\r
715 PRINT "Svjatoslav Agejenko, Risto Ipsperg ja Fred Freimann"
\r
753 IF voolual = 2 THEN GOTO 124
\r
756 q$ = RIGHT$(LEFT$(uun(e + 1), D + 1), 1)
\r
757 IF q$ = "m" THEN PUT (D * 20, e * 20), ruut, PSET: asend(D + 1, e + 1) = "z"
\r
758 IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o"
\r
759 IF q$ = "." THEN PUT (D * 20, e * 20), taht, PSET
\r
760 IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET
\r
761 IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20
\r
762 IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20
\r
763 IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: asend(D + 1, e + 1) = "1"
\r
764 IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET
\r
765 IF q$ = "h" THEN PUT (D * 20, e * 20), aken, PSET
\r
766 IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), vedru, PSET: asend(D + 1, e + 1) = "v"
\r
767 IF q$ = "t" THEN PUT (D * 20, e * 20), puu, PSET
\r
768 IF q$ = ">" THEN PUT (D * 20, e * 20), noolt, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">"
\r
769 IF q$ = "<" THEN PUT (D * 20, e * 20), noolt1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<"
\r
770 IF q$ = "a" THEN PUT (D * 20, e * 20), auk, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a"
\r
771 IF q$ = "u" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20
\r
772 IF q$ = "U" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20
\r
779 q$ = RIGHT$(LEFT$(uun(e + 1), D + 1), 1)
\r
780 IF q$ = "m" THEN PUT (D * 10, e * 10), ruutm, PSET: asend(D + 1, e + 1) = "z"
\r
781 IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o"
\r
782 IF q$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET
\r
783 IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET
\r
784 IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20
\r
785 IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20
\r
786 IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: asend(D + 1, e + 1) = "1"
\r
787 IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET
\r
788 IF q$ = "h" THEN PUT (D * 10, e * 10), akenm, PSET
\r
789 IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), vedrum, PSET: asend(D + 1, e + 1) = "v"
\r
790 IF q$ = "t" THEN PUT (D * 10, e * 10), puum, PSET
\r
791 IF q$ = ">" THEN PUT (D * 10, e * 10), nooltm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">"
\r
792 IF q$ = "<" THEN PUT (D * 10, e * 10), nooltm1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<"
\r
793 IF q$ = "a" THEN PUT (D * 10, e * 10), aukm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a"
\r
794 IF q$ = "u" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20
\r
795 IF q$ = "U" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20
\r
801 SUB pildid (p, o, m, fr, teler)
\r
802 DIM ao(1 TO 100) AS STRING
\r
805 ao(1) = "00000000000000000000"
\r
806 ao(2) = "00111111111111111100"
\r
807 ao(3) = "01222222222222222210"
\r
808 ao(4) = "01233333333333333210"
\r
809 ao(5) = "01232222222222223210"
\r
810 ao(6) = "01232111111111123210"
\r
811 ao(7) = "01232111111111123210"
\r
812 ao(8) = "01232111111111123210"
\r
813 ao(9) = "01232111111111123210"
\r
814 ao(10) = "01232111111111123210"
\r
815 ao(11) = "01232111111111123210"
\r
816 ao(12) = "01232111111111123210"
\r
817 ao(13) = "01232111111111123210"
\r
818 ao(14) = "01232111111111123210"
\r
819 ao(15) = "01232111111111123210"
\r
820 ao(16) = "01232222222222223210"
\r
821 ao(17) = "01233333333333333210"
\r
822 ao(18) = "01222222222222222210"
\r
823 ao(19) = "00111111111111111100"
\r
824 ao(20) = "00000000000000000000"
\r
826 ao(1) = "000000022200000222220000002222222200000000000222222000000000"
\r
827 ao(2) = "000000022222002222222000222222222222000000222222222220000000"
\r
828 ao(3) = "000000222222222222222202222222222222222222222222222222200000"
\r
829 ao(4) = "000000222222222222222222222333333222220222222222222221110000"
\r
830 ao(5) = "000000222222233333322222223333333322222222222222222221111000"
\r
831 ao(6) = "000000022333333333333222233333333333222233322222222221111000"
\r
832 ao(7) = "000002222333333333333322233333333333333333333222222221111100"
\r
833 ao(8) = "000222222333333333333333333333333333333333333322222221111100"
\r
834 ao(9) = "002222223333333333333333333333333333333333333333222221111100"
\r
835 ao(10) = "022223333333333333333333333333333333333333333333222221111110"
\r
836 ao(11) = "022233333333333333333333333333333333333333333333322222111110"
\r
837 ao(12) = "222333333333333333333333333333333333333333333333322222111110"
\r
838 ao(13) = "222333333333333333333333323333333323131113333333221221111110"
\r
839 ao(14) = "223333333333333333333331112233331121111133333322112211111110"
\r
840 ao(15) = "213333333333333333333331111133111111111111111112222111111110"
\r
841 ao(16) = "111333313333333333333111111122111111111111111111221111111110"
\r
842 ao(17) = "111333311111111333111111111111111111111111111111111111111100"
\r
843 ao(18) = "011111111111111111111111111111111111111111111111111111111100"
\r
844 ao(19) = "011111111111111111111111111111111111111111111111111111111100"
\r
845 ao(20) = "011111111111111111111111111111111111111111111111111111111000"
\r
846 ao(21) = "001111111111111111111111111111111111111111111111110111100000"
\r
847 ao(22) = "001111111111111100111111111111111111111111111111100000000000"
\r
848 ao(23) = "000111111111110000011111111111100011111111111111000000000000"
\r
849 ao(24) = "000011111111100000000111111111000000011111111100000000000000"
\r
850 ao(25) = "000001111110000000000001111110000000000000000000000000000000"
\r
852 ao(1) = "0000010000"
\r
853 ao(2) = "0000010000"
\r
854 ao(3) = "0000121000"
\r
855 ao(4) = "0000131000"
\r
856 ao(5) = "1111232111"
\r
857 ao(6) = "0123333210"
\r
858 ao(7) = "0123333210"
\r
859 ao(8) = "0012332100"
\r
860 ao(9) = "0001221000"
\r
861 ao(10) = "0012112100"
\r
862 ao(11) = "0121001210"
\r
863 ao(12) = "0110000110"
\r
864 ao(13) = "1100000011"
\r
866 ao(1) = "01111111110111111111"
\r
867 ao(2) = "01222222210122222221"
\r
868 ao(3) = "01233333210123333321"
\r
869 ao(4) = "01233333210123333321"
\r
870 ao(5) = "01233333210123333321"
\r
871 ao(6) = "01233333210123333321"
\r
872 ao(7) = "01233333210123333321"
\r
873 ao(8) = "01222222210122222221"
\r
874 ao(9) = "01111111110111111111"
\r
875 ao(10) = "00000000000000000000"
\r
876 ao(11) = "01111111110111111111"
\r
877 ao(12) = "01222222210122222221"
\r
878 ao(13) = "01233333210123333321"
\r
879 ao(14) = "01233333210123333321"
\r
880 ao(15) = "01233333210123333321"
\r
881 ao(16) = "01233333210123333321"
\r
882 ao(17) = "01233333210123333321"
\r
883 ao(18) = "01222222210122222221"
\r
884 ao(19) = "01111111110111111111"
\r
885 ao(20) = "00000000000000000000"
\r
887 ao(1) = "0000333000"
\r
888 ao(2) = "0033333300"
\r
889 ao(3) = "0332222220"
\r
890 ao(4) = "3322222222"
\r
891 ao(5) = "3222111112"
\r
892 ao(6) = "3111111111"
\r
893 ao(7) = "1111111111"
\r
904 ao(10) = "00111100"
\r
906 ao(1) = "000000000000000033333300000000"
\r
907 ao(2) = "000000000000000333333333000000"
\r
908 ao(3) = "000000333300003332222222300000"
\r
909 ao(4) = "000003333330333322232222220000"
\r
910 ao(5) = "000033322333333222222222222000"
\r
911 ao(6) = "003332222223332222322212222200"
\r
912 ao(7) = "033222232222222222111211122200"
\r
913 ao(8) = "033222222232111111111111112220"
\r
914 ao(9) = "332223222111121121111111111222"
\r
915 ao(10) = "322222111111111111121111111111"
\r
917 ao(1) = "0000000002222222000000000"
\r
918 ao(2) = "0000000222111112220000000"
\r
919 ao(3) = "0000002211131311122000000"
\r
920 ao(4) = "0000022113331133112200000"
\r
921 ao(5) = "0000022133331333312200000"
\r
922 ao(6) = "0000221133331333311220000"
\r
923 ao(7) = "0000221333331333331220000"
\r
924 ao(8) = "0000221333331333331220000"
\r
925 ao(9) = "0000221111111111111220000"
\r
926 ao(10) = "0000221333331333331220000"
\r
927 ao(11) = "0002211333331333331122000"
\r
928 ao(12) = "0002213333331333333122000"
\r
929 ao(13) = "0002213333331333333122000"
\r
930 ao(14) = "0002213333331333333122000"
\r
931 ao(15) = "0002213333331333333122000"
\r
932 ao(16) = "0002213333331333333122000"
\r
933 ao(17) = "0002213333331333333122000"
\r
934 ao(18) = "0002211111111111111122000"
\r
935 ao(19) = "2222222222222222222222222"
\r
936 ao(20) = "0222222222222222222222220"
\r
938 ao(1) = "00000001112220000000"
\r
939 ao(2) = "00001112222111120000"
\r
940 ao(3) = "00112222111122221100"
\r
941 ao(4) = "02222111122221111110"
\r
942 ao(5) = "01111122221111122220"
\r
943 ao(6) = "11122221111122221111"
\r
944 ao(7) = "22221111122221111111"
\r
945 ao(8) = "21111122221111112222"
\r
946 ao(9) = "11222221111112222111"
\r
947 ao(10) = "22221111112222111111"
\r
949 ao(1) = "33333333333333333333333333333333333333333333333333333333333333333333333333333333"
\r
950 ao(2) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
\r
951 ao(3) = "30000110000111001110011111100011111110011111100000000000000000000000000000000003"
\r
952 ao(4) = "30001111100111001110011111110011111110011111110000000000000000002222000000000003"
\r
953 ao(5) = "30011001100011001100011100110011100110011100111000000000000000222222220000000003"
\r
954 ao(6) = "30011000000011001100011111110011100000011100111000000000000000222222222222000003"
\r
955 ao(7) = "30011000000011001100011111100011100110011111110000000000000000330330330002200003"
\r
956 ao(8) = "30011111000011001100011100000011111110011111100000000000000000333333330000000003"
\r
957 ao(9) = "30001111100011001100011100000011111110011100100000000000000000332222330000000003"
\r
958 ao(10) = "30000001100011001100011100000011100000011100110000000000000000033333300000000003"
\r
959 ao(11) = "30110001100011001100011100000011100110011100111000000000000030000111000000000003"
\r
960 ao(12) = "30111011100011111100011100000011111110011100111000000000000331111111111000000003"
\r
961 ao(13) = "30111111000001111000011100000011111110011100111000000000000331111111111100000003"
\r
962 ao(14) = "30000000000000000000000000000000000000000000000000000000000000001111101100000003"
\r
963 ao(15) = "30000000000000000000000000000000000000000000000000000000000000001111101100000003"
\r
964 ao(16) = "30000000000000000000000000000000000000000000000000000000000000001101100000000003"
\r
965 ao(17) = "30000003333300000000222200022000000000000000000000000222000000011101110000000003"
\r
966 ao(18) = "30000000333330000000222220222200002222002200222022200222000222211101110000000003"
\r
967 ao(19) = "30000000033333000000222222222200022222222200222222200000002222223303330000000003"
\r
968 ao(20) = "30033333333333300000222222222220222002222000222000000220022000220000000000000003"
\r
969 ao(21) = "30033333333333300000220022002220220000022000022200002220022000220000000000000003"
\r
970 ao(22) = "30033333333333000002220022002220220000222000222200222220022000220000000000000003"
\r
971 ao(23) = "30000000033330000022220022002220022202222220222200222220022222220000000000000003"
\r
972 ao(24) = "30000000333300000022200022002220022222202220222200022200002222200000000000000003"
\r
973 ao(25) = "30000003333000000000000000000000000000000000000000000000000000000000000000000003"
\r
974 ao(26) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
\r
975 ao(27) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
\r
976 ao(28) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
\r
977 ao(29) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
\r
978 ao(30) = "33333333333333333333333333333333333333333333333333333333333333333333333333333333"
\r
980 ao(1) = "00000000000111111110000000000000000000000000000000"
\r
981 ao(2) = "00000000011111111111000001100000000000000000000000"
\r
982 ao(3) = "00000000111111111111110011110000000000000000000000"
\r
983 ao(4) = "00000001101111111111111111111000000000000000000000"
\r
984 ao(5) = "00000011111111111111111111111111000000000000000000"
\r
985 ao(6) = "00000111111111111111111111111111000000000000000000"
\r
986 ao(7) = "00000111111111111111111111111111001100000000000000"
\r
987 ao(8) = "00000111111111111111111111111111111111100000000000"
\r
988 ao(9) = "00000111111111111111111111111111111111100000000000"
\r
989 ao(10) = "00000111111111111111111111111111111111110000000000"
\r
990 ao(11) = "00000111111111111111111111111111111111111000000000"
\r
991 ao(12) = "00000111111111111111111111111111111111111100000000"
\r
992 ao(13) = "00000111111111111111111111111111111111111100000000"
\r
993 ao(14) = "00000111111111111111111111111111111111111100000000"
\r
994 ao(15) = "00000111111111111111111111111111111111111100000000"
\r
995 ao(16) = "00000111111111111111111111111111111111111100000000"
\r
996 ao(17) = "00011111111111111111111111111111111111111100000000"
\r
997 ao(18) = "00011111111111111111111111111111111111111100000000"
\r
998 ao(19) = "00111111110111111111111111111111111111111100000000"
\r
999 ao(20) = "01110111111111111111111111111111111111111100000000"
\r
1000 ao(21) = "11111111111111111111111111111111111111111111100000"
\r
1001 ao(22) = "11111111111111111111111111111111111111111111100000"
\r
1002 ao(23) = "11111111111111111111111111111111111111111111100000"
\r
1003 ao(24) = "11111111111111111111111111111111111111111111100000"
\r
1004 ao(25) = "11111111111111111111111111111111111111111111111110"
\r
1005 ao(26) = "11111111111111111111111111111111111111111111110111"
\r
1006 ao(27) = "11111111111111111111111111111111111111111111111111"
\r
1007 ao(28) = "11011111111111111111111111111111111111111111111101"
\r
1008 ao(29) = "11111111111111111111111111111111111111111111111111"
\r
1009 ao(30) = "11111111111111111111111111111111111111111111111111"
\r
1010 ao(31) = "11111111111111111111111111111111111111111111111011"
\r
1011 ao(32) = "11111111111111111111111111111111111111111111111100"
\r
1012 ao(33) = "11111111111111111111111111111111111111111111111000"
\r
1013 ao(34) = "01111111111111111111111111111111111111111111110000"
\r
1014 ao(35) = "11111111111111111111111111111111111111111110110000"
\r
1015 ao(36) = "11111111111111111111111111111111111111111110110000"
\r
1016 ao(37) = "11111111111111111111111111111111111111111111110000"
\r
1017 ao(38) = "01111111111111111111111111111111111111111111110000"
\r
1018 ao(39) = "01111111111111111111111111111111111111111111110000"
\r
1019 ao(40) = "00011111111111111111111111111111111111111111100000"
\r
1020 ao(41) = "00111111111111111111111111111111111111111111100000"
\r
1021 ao(42) = "00011111111111111111111111111111111111111111110000"
\r
1022 ao(43) = "00001111111111111111111111111111111111111111110000"
\r
1023 ao(44) = "00001111111111111111111111111111111111111111111000"
\r
1024 ao(45) = "0000110111111111111111111111111111111111111111100"
\r
1025 ao(46) = "0000110011111111111111111111011111111111111100000"
\r
1026 ao(47) = "0000111101101111111111111111111111111110111000000"
\r
1027 ao(48) = "0000000000001111111111111111111111111111110000000"
\r
1028 ao(49) = "0000000000000001111111111111111111110111110000000"
\r
1029 ao(50) = "0000000000000000000011111111111111100111110000000"
\r
1030 ao(51) = "0000000000000000000001111020111000000000000000000"
\r
1031 ao(52) = "0000000000000000000001111222200000000000000000000"
\r
1032 ao(53) = "0000000000000000000000222222220000000000000000000"
\r
1033 ao(54) = "0000000000000000000000222222020000000000000000000"
\r
1034 ao(55) = "0000000000000000000000202222220000000000000000000"
\r
1035 ao(56) = "0000000000000000000000222222220000000000000000000"
\r
1036 ao(57) = "0000000000000000000000220202220000000000000000000"
\r
1037 ao(58) = "0000000000000000000000222222220000000000000000000"
\r
1038 ao(59) = "0000000000000000000000202222220000000000000000000"
\r
1039 ao(60) = "0000000000000000000000222222220000000000000000000"
\r
1040 ao(61) = "000000000000000000000022022220000000000"
\r
1041 ao(62) = "0000000000000000000000222222220000000000000000000"
\r
1042 ao(63) = "0000000000000000000000220222200000000000000000000"
\r
1043 ao(64) = "0000000000000000000000222220200000000000000000000"
\r
1044 ao(65) = "0000000000000000000000220222200000000000000000000"
\r
1045 ao(66) = "0000000000000000000000222222200000000000000000000"
\r
1046 ao(67) = "0000000000000000000000222222200000000000000000000"
\r
1047 ao(68) = "0000000000000000000000202222000000000000000000000"
\r
1048 ao(69) = "0000000000000000002000222222220000000000000000000"
\r
1049 ao(70) = "0000000000000000002200222222000000000000000000000"
\r
1050 ao(71) = "0000000000000000000222222222000000000000000000000"
\r
1051 ao(72) = "0000000000000000000222222222000000000000000000000"
\r
1052 ao(73) = "0000000000000000000022222222000000000000000000000"
\r
1053 ao(74) = "0000000000000000000022222222000000000000000000000"
\r
1054 ao(75) = "0000000000000000000020222222000000000000000000000"
\r
1055 ao(76) = "0000000000000000000222222202000000000000000000000"
\r
1056 ao(77) = "000000000000000000022022222200000000000"
\r
1057 ao(78) = "0000000000000000022222222222200000000000000000000"
\r
1058 ao(79) = "0000000000000000220222222222220000"
\r
1059 ao(80) = "000000000000000022222222222222"
\r
1061 ao(1) = "11111111111111111111"
\r
1062 ao(2) = "11111111111111111111"
\r
1063 ao(3) = "11111111112111111111"
\r
1064 ao(4) = "11111111112211111111"
\r
1065 ao(5) = "11111111112221111111"
\r
1066 ao(6) = "11111111112222111111"
\r
1067 ao(7) = "11111111112222211111"
\r
1068 ao(8) = "11122222222222221111"
\r
1069 ao(9) = "11122222222222222111"
\r
1070 ao(10) = "11122222222222222211"
\r
1071 ao(11) = "11122222222222222211"
\r
1072 ao(12) = "11122222222222222111"
\r
1073 ao(13) = "11122222222222221111"
\r
1074 ao(14) = "11111111112222211111"
\r
1075 ao(15) = "11111111112222111111"
\r
1076 ao(16) = "11111111112221111111"
\r
1077 ao(17) = "11111111112211111111"
\r
1078 ao(18) = "11111111112111111111"
\r
1079 ao(19) = "11111111111111111111"
\r
1080 ao(20) = "11111111111111111111"
\r
1082 ao(1) = "03333333333333333330"
\r
1083 ao(2) = "33333333222233333333"
\r
1084 ao(3) = "33333332222223333333"
\r
1085 ao(4) = "33333332222223333333"
\r
1086 ao(5) = "33333332222223333333"
\r
1087 ao(6) = "33333332222223333333"
\r
1088 ao(7) = "33333332222223333333"
\r
1089 ao(8) = "33333332222223333333"
\r
1090 ao(9) = "33333332222223333333"
\r
1091 ao(10) = "33333332222223333333"
\r
1092 ao(11) = "33333333222233333333"
\r
1093 ao(12) = "33333333333333333333"
\r
1094 ao(13) = "33333333333333333333"
\r
1095 ao(14) = "33333333222233333333"
\r
1096 ao(15) = "33333332222223333333"
\r
1097 ao(16) = "33333332222223333333"
\r
1098 ao(17) = "33333332222223333333"
\r
1099 ao(18) = "33333333222233333333"
\r
1100 ao(19) = "33333333333333333333"
\r
1101 ao(20) = "03333333333333333330"
\r
1103 ao(1) = "00000000000300000000"
\r
1104 ao(2) = "00000000003300000000"
\r
1105 ao(3) = "00000000003330000000"
\r
1106 ao(4) = "00000000033331100000"
\r
1107 ao(5) = "00000000033331100000"
\r
1108 ao(6) = "00000000333333000000"
\r
1109 ao(7) = "00000000331333000000"
\r
1110 ao(8) = "00000000333111000000"
\r
1111 ao(9) = "00033333333333333300"
\r
1112 ao(10) = "03333333333333333333"
\r
1113 ao(11) = "00333333333333333300"
\r
1114 ao(12) = "00000033333333330000"
\r
1115 ao(13) = "00000033333333000000"
\r
1116 ao(14) = "00000333333333300000"
\r
1117 ao(15) = "00000333330333330000"
\r
1118 ao(16) = "00000333300033330000"
\r
1119 ao(17) = "00000330000033333000"
\r
1120 ao(18) = "00003300000000333300"
\r
1121 ao(19) = "00003000000000003330"
\r
1122 ao(20) = "00003000000000000030"
\r
1124 ao(1) = "0000000000300000000"
\r
1125 ao(2) = "0000000003300000000"
\r
1126 ao(3) = "00000000033000000000"
\r
1127 ao(4) = "00000000333300000000"
\r
1128 ao(5) = "00000000333220000000"
\r
1129 ao(6) = "00000000333220000000"
\r
1130 ao(7) = "00000003333320000000"
\r
1131 ao(8) = "00000003313330000000"
\r
1132 ao(9) = "00000003333330000000"
\r
1133 ao(10) = "00000333333333000000"
\r
1134 ao(11) = "00033333333333330000"
\r
1135 ao(12) = "03333333333333333300"
\r
1136 ao(13) = "03333303333333333300"
\r
1137 ao(14) = "33000000333333333333"
\r
1138 ao(15) = "00000000333330000333"
\r
1139 ao(16) = "00000000033300000000"
\r
1140 ao(17) = "00000000033300000000"
\r
1141 ao(18) = "00000000030300000000"
\r
1142 ao(19) = "00000000030300000000"
\r
1143 ao(20) = "00000000030300000000"
\r
1145 ao(1) = "00000000003000000000"
\r
1146 ao(2) = "00000000033300000000"
\r
1147 ao(3) = "00000000333330000000"
\r
1148 ao(4) = "00000000333330000000"
\r
1149 ao(5) = "00000001111111000000"
\r
1150 ao(6) = "00000001133311000000"
\r
1151 ao(7) = "00000003333333000000"
\r
1152 ao(8) = "00000003333333000000"
\r
1153 ao(9) = "00000003322233000000"
\r
1154 ao(10) = "00000003333333000000"
\r
1155 ao(11) = "00000003333333000000"
\r
1156 ao(12) = "00000003333333000000"
\r
1157 ao(13) = "00000003333333000000"
\r
1158 ao(14) = "00000000333330000000"
\r
1159 ao(15) = "00000000333330000000"
\r
1160 ao(16) = "00000000330330000000"
\r
1161 ao(17) = "00000000330330000000"
\r
1162 ao(18) = "00000000000000000000"
\r
1163 ao(19) = "00000000000000000000"
\r
1164 ao(20) = "00000000000000000000"
\r
1166 ao(1) = "00000022222222000000"
\r
1167 ao(2) = "00002222222222220000"
\r
1168 ao(3) = "00022220000000222000"
\r
1169 ao(4) = "00020002222222002000"
\r
1170 ao(5) = "00202222222222222200"
\r
1171 ao(6) = "00202222222222220200"
\r
1172 ao(7) = "00202222222222220200"
\r
1173 ao(8) = "02202222222222220220"
\r
1174 ao(9) = "02022222222222220220"
\r
1175 ao(10) = "02022323232323322020"
\r
1176 ao(11) = "02022323232323222020"
\r
1177 ao(12) = "02022323233223332020"
\r
1178 ao(13) = "22022323232322232022"
\r
1179 ao(14) = "20222323232322232202"
\r
1180 ao(15) = "20222232232323332202"
\r
1181 ao(16) = "20222222222222222202"
\r
1182 ao(17) = "20222222222222112202"
\r
1183 ao(18) = "20222222222222112202"
\r
1184 ao(19) = "20222222222222112202"
\r
1185 ao(20) = "20222222222222222202"
\r
1186 ao(21) = "20222222222222222202"
\r
1187 ao(22) = "20222222222222222202"
\r
1188 ao(23) = "20222222222222222202"
\r
1189 ao(24) = "20222222222222222202"
\r
1190 ao(25) = "20222222222222222202"
\r
1191 ao(26) = "20222222222222222202"
\r
1192 ao(27) = "20222222222222222202"
\r
1193 ao(28) = "20222222222222222202"
\r
1194 ao(29) = "20000000000000000002"
\r
1195 ao(30) = "22222222222222222222"
\r
1198 IF fr = 50 THEN GOTO 8
\r
1199 IF fr > 1 THEN GOTO 4
\r
1201 IF ao(a) = "" THEN GOTO 1
\r
1202 FOR b = 1 TO LEN(ao(a))
\r
1203 PSET ((p + b) \ teler, (o + a) \ teler), ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48
\r
1209 IF ao(a) = "" THEN GOTO 1
\r
1210 FOR b = 1 TO LEN(ao(a))
\r
1211 c = ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48
\r
1212 LINE (p + (b * fr), o + (a * fr))-(p + (b * fr) + fr, o + (a * fr) + fr), c, BF
\r
1218 IF ao(a) = "" THEN GOTO 1
\r
1219 FOR b = 1 TO LEN(ao(a))
\r
1220 PSET ((p + b) \ teler, (o + a) \ teler), ASC(LEFT$(RIGHT$(ao(a), b), 1)) - 48
\r
1229 OPEN y$ FOR OUTPUT AS #1
\r
1231 FOR a = 1 TO pikkus
\r
1232 PRINT #1, text$(a)
\r
1237 SUB wiew (r$, a, b)
\r
1238 OPEN r$ FOR INPUT AS #2
\r
1240 FOR e = 1 TO pikkus
\r
1242 FOR D = 1 TO LEN(b$)
\r
1243 PSET (D + a, b + e), ASC(RIGHT$(LEFT$(b$, D), 1)) - 1
\r