' Autor: Svjatoslav Agejenko
' aasta ~2000

'                Matemaatika korrutus tabeli pohjal
'                    teadmiste testimis programm
'
'               Vajuta F5 alustamiseks

DECLARE SUB vastus ()
DEFINT A-Y
DECLARE SUB tere ()
DIM SHARED nimi$
DIM SHARED kus

tere
vastus

DEFINT Z
SUB tere

CLS
SCREEN 13
LOCATE 2, 1
PRINT "     Matemaatika �petamis programm"
FOR y = 3 TO 20
FOR x = 0 TO 320

IF POINT(x, y) > 0 THEN
c = y + 56
ELSE

c = 31 - y / 2
END IF
PSET (x, y), c
NEXT x
NEXT y

LOCATE 5, 1
COLOR 7
INPUT "Sisesta oma nimi ", nimi$
LOCATE 5, 1
COLOR 8
PRINT "Sisesta oma nimi " + nimi$

LOCATE 6, 1
COLOR 7
PRINT "Tere " + nimi$ + "."

8
LOCATE 7, 1
COLOR 8
PRINT SPACE$(35)
COLOR 7
LOCATE 7, 1
INPUT "Mitu �lesannet sa soovid ", kus
LOCATE 7, 1
COLOR 8
PRINT SPACE$(35)
LOCATE 7, 1
COLOR 8
PRINT "Mitu �lesannet sa soovid " + STR$(kus)

IF kus < 5 THEN
PRINT "Nii kergelt ei p��se !"
GOTO 8
END IF

IF kus > 30 THEN
PRINT "Liiga palju !"
GOTO 8
END IF

PRINT "N��d ma k�sin sinult m�ned matemaatika"
PRINT "alased k�simused.Vajuta suvaline klahv,"
PRINT "kui oled valmis..."

FOR a = 200 TO 230
    OUT &H3C8, a
    OUT &H3C9, a - 200
    OUT &H3C9, 0
    OUT &H3C9, 0
NEXT

DIM varv(1 TO 32)

c = 4
d = 1

2
FOR a = 0 TO 31
LINE (a * 10, 170)-(a * 10 + 10, 190), 200 + varv(a + 1), BF
varv(a + 1) = varv(a + 1) - 1
IF varv(a + 1) < 0 THEN varv(a + 1) = 0
NEXT a

c = c + d
IF c > 30 OR c < 3 THEN d = -d
varv(c) = 30
SOUND 0, 1
IF INKEY$ <> "" THEN GOTO 3
GOTO 2
3
CLS
END SUB

DEFSNG Z
SUB vastus
RANDOMIZE TIMER

mitmes = 0
vale = 0
oige = 0
PRINT "Palju on:"
4
mitmes = mitmes + 1
IF mitmes > kus THEN GOTO 6
ar1 = RND * 9
ar2 = RND * 9
a$ = STR$(ar1) + " X" + STR$(ar2)
PRINT "    "
PRINT a$
5
INPUT vas$
IF LEFT$(vas$, 6) = "ei tea" THEN PRINT "Proovi ikka !": GOTO 5
IF LEFT$(vas$, 6) = "jama" THEN PRINT "Usu mind,ei ole !": GOTO 5

IF vas$ = "0" THEN vas = 0: GOTO 10
vas = VAL(vas$)
IF vas = 0 THEN vas = -1
10

IF ar1 * ar2 = vas THEN
oige = oige + 1
PRINT "�ige !!"
ELSE
PRINT "vale"
PRINT "�ige on ", ar1 * ar2
vale = vale + 1
END IF

GOTO 4

6
PRINT "-------------------------"
COLOR 2
PRINT "valesid on :", vale

z = oige / kus * 100

hinne = 1

IF z >= 25 THEN hinne = 2
IF z >= 50 THEN hinne = 3
IF z >= 70 THEN hinne = 4
IF z >= 90 THEN hinne = 5
COLOR 14
PRINT "Sinu hinne on "; hinne
END SUB