SCREEN 0
COLOR 0,15
SOUND 700,12
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 "    STISKNI ENTER";C
D=A*B
IF D=C THEN ANO
PRINT "    SPATNY VYSLEDEK"
SOUND 100,10
S=S+1
GOTO VOLBA

ANO:
PRINT "    SPRAVNE"
SOUND 900,8
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 ENTER";E
IF E<>1 THEN OPET
SOUND 900,12
SOUND 100,7

END