SCREEN 0
COLOR 7,9
N=0
S=0
V=0

OPET:
N=N+1
CLS
LOCATE 4,23
PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"
A=INT(RND(5)*10+1)
B=INT(RND(4)*10+1)
LOCATE 10,5
PRINT "NAPIS VYSLEDEK" A "x" B "="
INPUT "    A STISKNI ENTER ";C
D=A*B
IF D=C THEN ANO
PRINT "    SPATNY VYSLEDEK"
S=S+1
GOTO VOLBA

ANO:
PRINT "    SPRAVNE"
V=V+1

VOLBA:
LOCATE 18,10
PRINT "Z" N "POKUSU MAS" S "SPATNYCH A" V "DOBRYCH"
LOCATE 20,10
PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"
LOCATE 21,10
INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI 2 x ENTER";E
IF E<>1 THEN OPET

END