1 DECLARE SUB timerAdd (element!, time!, value!)
\r
2 DECLARE SUB timerinit ()
\r
3 DECLARE SUB timerprocess ()
\r
4 DIM SHARED timerTime(0 TO 50, 0 TO 100)
\r
5 DIM SHARED timerValue(0 TO 50, 0 TO 100)
\r
7 DIM SHARED timerCplace(0 TO 50)
\r
8 DIM SHARED timerCtime(0 TO 50)
\r
9 DIM SHARED timerCvalue(0 TO 50)
\r
10 DIM SHARED timerLast
\r
21 SUB timerAdd (element, time, value)
\r
24 IF (timerTime(element, a) = 0) AND (timerValue(element, a) = 0) THEN GOTO timer3
\r
28 timerTime(element, a) = time
\r
29 timerValue(element, a) = value
\r
37 PRINT timerCplace(a), timerCtime(a), timerCvalue(a)
\r
55 timerCurrent = TIMER
\r
56 timerDiff = timerCurrent - timerLast
\r
57 timerLast = timerCurrent
\r
60 ctim = timerCtime(a) + timerDiff
\r
61 Cplace = timerCplace(a)
\r
63 IF timerTime(a, Cplace + 1) = -1 THEN
\r
67 IF timerTime(a, Cplace + 1) < ctim THEN
\r
68 IF timerTime(a, Cplace + 1) = 0 THEN
\r
69 timerCvalue(a) = timerValue(a, Cplace)
\r
76 v1 = timerValue(a, Cplace)
\r
77 t1 = timerTime(a, Cplace)
\r
78 v2 = timerValue(a, Cplace + 1)
\r
79 t2 = timerTime(a, Cplace + 1)
\r
87 timerCvalue(a) = Tdiff2 / Tdiff1 * Vdiff + v1
\r
90 timerCplace(a) = Cplace
\r
91 timerCtime(a) = ctim
\r