2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslavagejenko@gmail.com
\r
11 DECLARE SUB getson (a$)
\r
12 DECLARE SUB loaddata ()
\r
17 DECLARE SUB start ()
\r
18 DIM SHARED mitus, sona$(1 TO 50)
\r
19 DIM SHARED num(1 TO 500, 1 TO 7)
\r
29 PRINT "viimase 10 loosimise ajal:"
\r
31 FOR a = mitun - 10 TO mitun
\r
33 buf(num(a, b)) = buf(num(a, b)) + 1
\r
40 IF buf(a) > c THEN c = buf(a): d = a
\r
42 PRINT d; " esines: "; c; " korda"
\r
46 PRINT "--------------------------------------"
\r
57 IF buf(a) < c THEN c = buf(a): d = a
\r
59 PRINT d; " esines viimati: "; mitun - c; " loosimist tagasi"
\r
70 FOR b = 1 TO LEN(a$)
\r
71 c$ = RIGHT$(LEFT$(a$, b), 1)
\r
80 sona$(mitus) = sona$(mitus) + c$
\r
88 LINE (0, 0)-(600, 0), 1
\r
89 LINE (0, 49)-(600, 49), 1
\r
90 LINE (0, 50)-(600, 50), 1
\r
91 LINE (0, 48 * 6 + 51)-(600, 48 * 6 + 51), 1
\r
96 PSET (a, num(a, b)), 15
\r
98 LINE (a, c + 50)-(a, 24 * 6 + 50), 10
\r
105 DIM buf(1 TO 20000)
\r
107 FOR x = 1 TO mitun - 1
\r
109 LINE (600, num(x, a))-(610, num(x + 1, a)), 3
\r
111 LINE (600, 1)-(600, 48), 1
\r
113 GET (10, 1)-(610, 50), buf(1)
\r
114 PUT (1, 1), buf(1), PSET
\r
115 LINE (601, 1)-(610, 50), 0, BF
\r
116 IF INKEY$ <> "" GOTO 5
\r
126 DIM buf2(1 TO 20000)
\r
135 buf(num(a, b)) = 10
\r
149 IF d > c THEN GOTO 4
\r
150 PSET (x, y), buf2(d)
\r
154 LINE (x + 1, 1)-(x + 1, e), 14
\r
155 LINE (x + 1, y)-(x + 4, y), 12
\r
156 IF INKEY$ <> "" THEN GOTO 6
\r
163 PRINT "�ks hetk ...."
\r
166 OPEN "loos.txt" FOR INPUT AS #1
\r
168 IF EOF(1) <> 0 THEN GOTO 2
\r
173 num(mitun, b) = VAL(sona$(b))
\r
187 PRINT " Viking loto statistika anal��s"
\r
188 PRINT "1 - t�ppgraaf"
\r
189 PRINT "2 - joongraaf"
\r
190 PRINT "3 - sobitus"
\r
191 PRINT "4 - statistika"
\r
195 IF a$ = "1" THEN gr1
\r
196 IF a$ = "2" THEN gr2
\r
197 IF a$ = "3" THEN gr3
\r
198 IF a$ = "4" THEN ennus: GOTO 7
\r
199 IF a$ = "5" THEN SYSTEM
\r