1 ' Svjatoslav Agejenko
\r
4 DECLARE SUB adus (a%)
\r
5 DECLARE SUB pt (x%, y%)
\r
6 DECLARE SUB addn (x%, y%)
\r
7 DECLARE SUB smo (x1%, y1%, x2%, y2%, r%)
\r
8 DECLARE SUB putsym (x%, y%, a%)
\r
9 DECLARE SUB setpal (b%)
\r
10 DECLARE SUB start ()
\r
11 DECLARE SUB getfnt ()
\r
13 DIM SHARED font1(1 TO 400, 1 TO 10)
\r
14 DIM SHARED font2(1 TO 400, 1 TO 10)
\r
15 DIM SHARED font3(1 TO 400, 1 TO 10)
\r
16 DIM SHARED pag(0 TO 20, 0 TO 20)
\r
17 DIM SHARED pah(0 TO 20, 0 TO 20)
\r
18 DIM SHARED pat(0 TO 20, 0 TO 20)
\r
19 DIM SHARED usx(0 TO 20)
\r
20 DIM SHARED usy(0 TO 20)
\r
21 DIM SHARED uso(0 TO 20)
\r
22 DIM SHARED tmr AS DOUBLE
\r
29 IF uso(a) = 0 THEN adus a
\r
32 IF usy(a) > 13 THEN usy(a) = 0
\r
41 IF a = 2 THEN pah(x, y) = 2: pt x, y
\r
42 IF a = 5 THEN pah(x, y) = 3: pt x, y
\r
43 IF a = 30 THEN pag(x, y) = 0: pt x, y
\r
49 IF ABS(tmr - TIMER) < .1 THEN GOTO 3
\r
51 IF INKEY$ <> "" THEN SYSTEM
\r
55 pag(x, y) = RND * 8 + 1
\r
66 uso(a) = RND * 5 + 3
\r
72 PRINT "Loading:" + STR$(a * 10) + "%"
\r
73 LINE (49, 49)-(83, 83), 0, BF
\r
75 smo 50, 50, 82, 82, 1
\r
76 GET (50, 50)-(82, 82), font1(1, a)
\r
78 LINE (49, 49)-(83, 83), 0, BF
\r
80 smo 50, 50, 82, 82, 2
\r
81 GET (50, 50)-(82, 82), font2(1, a)
\r
83 LINE (49, 49)-(83, 83), 0, BF
\r
85 smo 50, 50, 82, 82, 3
\r
86 GET (50, 50)-(82, 82), font3(1, a)
\r
100 LINE (x1, y1)-(x1 + 32, y1 + 32), 0, BF
\r
104 PUT (x1, y1), font1(1, a), PSET
\r
106 PUT (x1, y1), font2(1, a), PSET
\r
108 PUT (x1, y1), font3(1, a), PSET
\r
114 SUB putsym (x, y, a)
\r
117 LINE (x + 10, y + 5)-(x + 10, y + 20), 14
\r
118 LINE (x + 5, y + 15)-(x + 20, y + 15), 14
\r
119 LINE (x + 15, y + 25)-(x + 20, y + 25), 14
\r
120 LINE (x + 20, y + 25)-(x + 25, y + 20), 14
\r
121 LINE (x + 25, y + 20)-(x + 25, y + 5), 14
\r
123 LINE (x + 5, y + 15)-(x + 25, y + 10), 14
\r
124 LINE (x + 15, y + 5)-(x + 10, y + 25), 14
\r
125 LINE (x + 25, y + 5)-(x + 20, y + 20), 14
\r
126 LINE (x + 20, y + 30)-(x + 30, y + 20), 14
\r
128 LINE (x + 5, y + 5)-(x + 5, y + 25), 14
\r
129 LINE (x + 5, y + 5)-(x + 25, y + 25), 14
\r
130 LINE (x + 5, y + 25)-(x + 25, y + 25), 14
\r
131 LINE (x + 10, y + 10)-(x + 25, y + 5), 14
\r
133 LINE (x + 10, y + 5)-(x + 20, y + 5), 14
\r
134 LINE (x + 20, y + 5)-(x + 25, y + 10), 14
\r
135 LINE (x + 25, y + 20)-(x + 20, y + 25), 14
\r
136 LINE (x + 20, y + 25)-(x + 10, y + 25), 14
\r
137 LINE (x + 10, y + 25)-(x + 10, y + 5), 14
\r
138 LINE (x + 5, y + 15)-(x + 20, y + 15), 14
\r
140 LINE (x + 5, y + 5)-(x + 10, y + 10), 14
\r
141 LINE (x + 10, y + 10)-(x + 10, y + 25), 14
\r
142 LINE (x + 10, y + 25)-(x + 5, y + 30), 14
\r
143 LINE (x + 10, y + 25)-(x + 15, y + 30), 14
\r
144 LINE (x + 15, y + 30)-(x + 25, y + 30), 14
\r
145 LINE (x + 10, y + 20)-(x + 25, y + 20), 14
\r
147 LINE (x + 5, y + 5)-(x + 10, y + 5), 14
\r
148 LINE (x + 5, y + 5)-(x + 5, y + 10), 14
\r
149 LINE (x + 10, y + 10)-(x + 10, y + 15), 14
\r
150 LINE (x + 10, y + 15)-(x + 20, y + 30), 14
\r
151 LINE (x + 20, y + 30)-(x + 25, y + 30), 14
\r
152 LINE (x + 5, y + 30)-(x + 10, y + 30), 14
\r
153 LINE (x + 25, y + 15)-(x + 10, y + 30), 14
\r
155 LINE (x + 5, y + 15)-(x + 10, y + 15), 14
\r
156 LINE (x + 10, y + 15)-(x + 25, y + 5), 14
\r
157 LINE (x + 5, y + 25)-(x + 10, y + 25), 14
\r
158 LINE (x + 10, y + 25)-(x + 15, y + 5), 14
\r
159 LINE (x + 20, y + 5)-(x + 20, y + 20), 14
\r
160 PSET (x + 15, y + 25), 14
\r
161 PSET (x + 22, y + 25), 14
\r
163 'line (x+,y+)-(x+,y+),15
\r
164 LINE (x + 15, y + 10)-(x + 15, y + 25), 14
\r
165 LINE (x + 20, y + 15)-(x + 20, y + 25), 14
\r
166 LINE (x + 5, y + 20)-(x + 10, y + 25), 14
\r
167 LINE (x + 10, y + 25)-(x + 25, y + 25), 14
\r
169 LINE (x + 5, y + 5)-(x + 25, y + 5), 14
\r
170 LINE (x + 15, y + 5)-(x + 5, y + 20), 14
\r
171 LINE (x + 15, y + 5)-(x + 25, y + 20), 14
\r
172 LINE (x + 15, y + 5)-(x + 15, y + 25), 14
\r
173 LINE (x + 5, y + 30)-(x + 20, y + 20), 14
\r
205 SUB smo (x1, y1, x2, y2, r)
\r
213 IF c1 < 0 THEN c1 = 0
\r
214 IF c > c1 THEN c1 = c
\r
224 IF c1 < 0 THEN c1 = 0
\r
225 IF c > c1 THEN c1 = c
\r
233 FOR x = x2 TO x1 STEP -1
\r
236 IF c1 < 0 THEN c1 = 0
\r
237 IF c > c1 THEN c1 = c
\r
245 FOR y = y2 TO y1 STEP -1
\r
248 IF c1 < 0 THEN c1 = 0
\r
249 IF c > c1 THEN c1 = c
\r
257 IF r = 1 THEN GOTO 1
\r
265 c1 = (c1 * r + c) / rr
\r
267 IF c2 < 0 THEN c2 = 0
\r
277 IF c1 < 0 THEN c1 = 0
\r
278 IF c > c1 THEN c1 = c
\r
286 FOR x = x2 TO x1 STEP -1
\r
289 IF c1 < 0 THEN c1 = 0
\r
290 IF c > c1 THEN c1 = c
\r
298 FOR y = y2 TO y1 STEP -1
\r
301 IF c1 < 0 THEN c1 = 0
\r
302 IF c > c1 THEN c1 = c
\r