1 DECLARE SUB playsound (a$)
4 DECLARE SUB dispimg (a$)
6 DECLARE SUB ellips (x!, y!, s!, v!, t!)
7 DECLARE SUB prn (x!, y!, msg$, siz!, col1!)
8 DECLARE SUB timerAdd (element!, time!, value!)
9 DECLARE SUB timerdisp ()
10 DECLARE SUB timerinit ()
11 DECLARE SUB timerprocess ()
12 DECLARE SUB mo (x!, y!, an!, s!, w!)
16 DIM SHARED sh1, sh2, sv1, sv2, hp, vp
17 DIM SHARED timerTime(0 TO 50, 0 TO 100)
18 DIM SHARED timerValue(0 TO 50, 0 TO 100)
20 DIM SHARED timerCplace(0 TO 50)
21 DIM SHARED timerCtime(0 TO 50)
22 DIM SHARED timerCvalue(0 TO 50)
37 IF timerCtime(0) > 0 THEN
46 IF timerCtime(0) > 1.5 THEN
54 IF timerCtime(0) > 9 THEN
61 IF timerCtime(0) > 17 THEN
68 IF timerCtime(0) > 24 THEN
75 IF timerCtime(0) > 33 THEN
82 IF timerCtime(0) > 41 THEN
90 IF timerCtime(0) > 43 THEN
102 OPEN a$ FOR INPUT AS #1
109 PSET (x - 1, 200 - y), a
117 SUB ellips (x, y, s, v, t)
122 CIRCLE (x, y), s, v, , , t
132 SHELL "c:\progra~1\winamp\winamp.exe " + a$
138 SUB prn (x, y, msg$, siz, col1)
139 IF x < 0 THEN GOTO prn1
140 IF x > 319 THEN GOTO prn1
144 GET (0, 0)-(100, 7), bck
150 FOR x1 = 0 TO LEN(msg$) * 8 - 1
152 IF POINT(x1, y1) > 0 THEN
155 IF col1 > 100 THEN col = RND * 4 + 10
157 LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, B
159 LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF
161 ' LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF
167 PUT (0, 0), bck, PSET
187 SUB timerAdd (element, time, value)
190 IF (timerTime(element, a) = 0) AND (timerValue(element, a) = 0) THEN GOTO timer3
194 timerTime(element, a) = time
195 timerValue(element, a) = value
203 PRINT timerCplace(a), timerCtime(a), timerCvalue(a)
215 timerAdd 0, 1000, 1000
222 timerDiff = timerCurrent - timerLast
223 timerLast = timerCurrent
226 ctim = timerCtime(a) + timerDiff
227 Cplace = timerCplace(a)
229 IF timerTime(a, Cplace + 1) = -1 THEN
233 IF timerTime(a, Cplace + 1) < ctim THEN
234 IF timerTime(a, Cplace + 1) = 0 THEN
235 timerCvalue(a) = timerValue(a, Cplace)
242 v1 = timerValue(a, Cplace)
243 t1 = timerTime(a, Cplace)
244 v2 = timerValue(a, Cplace + 1)
245 t2 = timerTime(a, Cplace + 1)
253 timerCvalue(a) = Tdiff2 / Tdiff1 * Vdiff + v1
256 timerCplace(a) = Cplace
265 FOR y = 100 TO 1 STEP -1
267 LINE (160 - x - 5, 90 - y - 5)-(160 + x + 5, 110 + y + 5), 0, B
268 LINE (160 - x - 3, 90 - y - 3)-(160 + x + 3, 110 + y + 3), 3, B
269 LINE (160 - x, 90 - y)-(160 + x, 110 + y), 15, B
276 FOR x = 160 TO 0 STEP -1
278 LINE (160 - x - 5, 90 - 5)-(160 + x + 5, 110 + 5), 0, B
279 LINE (160 - x - 3, 90 - 3)-(160 + x + 3, 110 + 3), 1, B
280 LINE (160 - x, 90)-(160 + x, 110), 15, B
284 playsound "silent.mp3"