' Lottery analyzer
' made by Svjatoslav Agejenko
' in 2001
' H-Page: svjatoslav.eu
' E-Mail: svjatoslavagejenko@gmail.com
 
DECLARE SUB ennus ()
DECLARE SUB menu ()
DECLARE SUB gr1 ()
DECLARE SUB gr2 ()
DECLARE SUB getson (a$)
DECLARE SUB loaddata ()
DECLARE SUB wai ()
DECLARE SUB gr3 ()
DEFINT A-Y

DECLARE SUB start ()
DIM SHARED mitus, sona$(1 TO 50)
DIM SHARED num(1 TO 500, 1 TO 7)
DIM SHARED mitun

start
loaddata

menu

SUB ennus
DIM buf(1 TO 48)
PRINT "viimase 10 loosimise ajal:"

FOR a = mitun - 10 TO mitun
FOR b = 2 TO 7
buf(num(a, b)) = buf(num(a, b)) + 1
NEXT b
NEXT a

FOR b = 1 TO 6
c = 0
FOR a = 1 TO 48
IF buf(a) > c THEN c = buf(a): d = a
NEXT a
PRINT d; " esines: "; c; " korda"
buf(d) = 0
NEXT b

PRINT "--------------------------------------"

FOR a = 1 TO mitun
FOR b = 2 TO 7
buf(num(a, b)) = a
NEXT b
NEXT a

FOR b = 1 TO 6
c = 30000
FOR a = 1 TO 48
IF buf(a) < c THEN c = buf(a): d = a
NEXT a
PRINT d; " esines viimati: "; mitun - c; " loosimist tagasi"
buf(d) = 30000
NEXT b


END SUB

SUB getson (a$)
mitus = 0

d = 1
FOR b = 1 TO LEN(a$)
c$ = RIGHT$(LEFT$(a$, b), 1)
IF c$ = " " THEN
d = 1
ELSE
IF d = 1 THEN
mitus = mitus + 1
sona$(mitus) = ""
d = 0
END IF
sona$(mitus) = sona$(mitus) + c$
END IF
NEXT b

END SUB

SUB gr1
CLS
LINE (0, 0)-(600, 0), 1
LINE (0, 49)-(600, 49), 1
LINE (0, 50)-(600, 50), 1
LINE (0, 48 * 6 + 51)-(600, 48 * 6 + 51), 1
FOR a = 1 TO mitun
c = 0
FOR b = 2 TO 7
c = c + num(a, b)
PSET (a, num(a, b)), 15
NEXT b
LINE (a, c + 50)-(a, 24 * 6 + 50), 10
NEXT a
wai
END SUB

SUB gr2
CLS
DIM buf(1 TO 20000)

FOR x = 1 TO mitun - 1
FOR a = 2 TO 7
LINE (600, num(x, a))-(610, num(x + 1, a)), 3
NEXT a
LINE (600, 1)-(600, 48), 1
SOUND 0, 2
GET (10, 1)-(610, 50), buf(1)
PUT (1, 1), buf(1), PSET
LINE (601, 1)-(610, 50), 0, BF
IF INKEY$ <> "" GOTO 5
NEXT x
wai
5
END SUB

SUB gr3
CLS
PAINT (1, 1), 3
DIM buf(1 TO 48)
DIM buf2(1 TO 20000)
c = 0

FOR a = 1 TO mitun
FOR b = 1 TO 48
buf(b) = 0
NEXT b

FOR b = 2 TO 7
buf(num(a, b)) = 10
NEXT b

FOR b = 1 TO 48
c = c + 1
buf2(c) = buf(b)
NEXT b
NEXT a

FOR e = 2 TO 400
d = 0
FOR x = 1 TO 639
FOR y = 1 TO e
d = d + 1
IF d > c THEN GOTO 4
PSET (x, y), buf2(d)
NEXT y
NEXT x
4
LINE (x + 1, 1)-(x + 1, e), 14
LINE (x + 1, y)-(x + 4, y), 12
IF INKEY$ <> "" THEN GOTO 6
NEXT e
wai
6
END SUB

SUB loaddata
PRINT "�ks hetk ...."

mitun = 0
OPEN "loos.txt" FOR INPUT AS #1
1
IF EOF(1) <> 0 THEN GOTO 2
LINE INPUT #1, a$
getson a$
mitun = mitun + 1
FOR b = 1 TO 7
num(mitun, b) = VAL(sona$(b))
NEXT b
GOTO 1
2
CLOSE #1

CLS
END SUB

SUB menu
3
CLS
7
LOCATE 1, 1
PRINT "           Viking loto statistika anal��s"
PRINT "1 - t�ppgraaf"
PRINT "2 - joongraaf"
PRINT "3 - sobitus"
PRINT "4 - statistika"
PRINT "5 - v�lja"
a$ = INPUT$(1)

IF a$ = "1" THEN gr1
IF a$ = "2" THEN gr2
IF a$ = "3" THEN gr3
IF a$ = "4" THEN ennus: GOTO 7
IF a$ = "5" THEN SYSTEM
GOTO 3

END SUB

SUB start
SCREEN 12

END SUB

SUB wai
a$ = INPUT$(1)
END SUB