1 CHDIR ".\qbasicapps\math\loto"
\r
5 ' made by Svjatoslav Agejenko
\r
7 ' homepage: svjatoslav.eu
\r
8 ' email: svjatoslav@svjatoslav.eu
\r
10 DECLARE SUB ennus ()
\r
14 DECLARE SUB getson (a$)
\r
15 DECLARE SUB loaddata ()
\r
20 DECLARE SUB start ()
\r
21 DIM SHARED mitus, sona$(1 TO 50)
\r
22 DIM SHARED num(1 TO 500, 1 TO 7)
\r
32 PRINT "viimase 10 loosimise ajal:"
\r
34 FOR a = mitun - 10 TO mitun
\r
36 buf(num(a, b)) = buf(num(a, b)) + 1
\r
43 IF buf(a) > c THEN c = buf(a): d = a
\r
45 PRINT d; " esines: "; c; " korda"
\r
49 PRINT "--------------------------------------"
\r
60 IF buf(a) < c THEN c = buf(a): d = a
\r
62 PRINT d; " esines viimati: "; mitun - c; " loosimist tagasi"
\r
73 FOR b = 1 TO LEN(a$)
\r
74 c$ = RIGHT$(LEFT$(a$, b), 1)
\r
83 sona$(mitus) = sona$(mitus) + c$
\r
91 LINE (0, 0)-(600, 0), 1
\r
92 LINE (0, 49)-(600, 49), 1
\r
93 LINE (0, 50)-(600, 50), 1
\r
94 LINE (0, 48 * 6 + 51)-(600, 48 * 6 + 51), 1
\r
99 PSET (a, num(a, b)), 15
\r
101 LINE (a, c + 50)-(a, 24 * 6 + 50), 10
\r
108 DIM buf(1 TO 20000)
\r
110 FOR x = 1 TO mitun - 1
\r
112 LINE (600, num(x, a))-(610, num(x + 1, a)), 3
\r
114 LINE (600, 1)-(600, 48), 1
\r
116 GET (10, 1)-(610, 50), buf(1)
\r
117 PUT (1, 1), buf(1), PSET
\r
118 LINE (601, 1)-(610, 50), 0, BF
\r
119 IF INKEY$ <> "" GOTO 5
\r
129 DIM buf2(1 TO 20000)
\r
138 buf(num(a, b)) = 10
\r
152 IF d > c THEN GOTO 4
\r
153 PSET (x, y), buf2(d)
\r
157 LINE (x + 1, 1)-(x + 1, e), 14
\r
158 LINE (x + 1, y)-(x + 4, y), 12
\r
159 IF INKEY$ <> "" THEN GOTO 6
\r
166 PRINT "�ks hetk ...."
\r
169 OPEN "loos.txt" FOR INPUT AS #1
\r
171 IF EOF(1) <> 0 THEN GOTO 2
\r
176 num(mitun, b) = VAL(sona$(b))
\r
190 PRINT " Viking loto statistika anal��s"
\r
191 PRINT "1 - t�ppgraaf"
\r
192 PRINT "2 - joongraaf"
\r
193 PRINT "3 - sobitus"
\r
194 PRINT "4 - statistika"
\r
198 IF a$ = "1" THEN gr1
\r
199 IF a$ = "2" THEN gr2
\r
200 IF a$ = "3" THEN gr3
\r
201 IF a$ = "4" THEN ennus: GOTO 7
\r
202 IF a$ = "5" THEN SYSTEM
\r