SCREEN 0
CLS
COLOR 4,15
S=0
Z=0

LOCATE 4,23
PRINT "PROGRAM PRO ZKOUSENI SCITANI"
PRINT "                     "

V=TIMER
V=INT(((V-INT(V)+.3)*200))
REM puvodne bylo + .2 )*100

FOR I=1 TO 15

A(I)=INT(RND*V+1)
A(I)=A(I)+1
B(I)=INT(RND*V+1)
B(I)=B(I)+1

VYP:
REM pokud je A vetsi než 100 zmenšit
IF A(I)>=100 THEN A(I)=INT(A(I)*.9)+1: GOTO VYP
C(I)=A(I)+B(I)
REM pokud je součet větší než 100 zmenšit B
IF C(I)>100 THEN B(I)=INT(B(I)*.9)+1: GOTO VYP

LOCATE I+5,1
PRINT "                                   "
LOCATE I+5,4
PRINT "NAPIS VYSLEDEK" A(I) "+" B(I) "=":INPUT C

IF C(I)=C THEN ANO

LOCATE I+5,30
PRINT C
LOCATE I+5,34
PRINT "    SPATNY VYSLEDEK"
SOUND 1200,2
S=S+1
GOTO VOLBA

ANO:
LOCATE I+5,30
PRINT C
LOCATE I+5,34
PRINT "    SPRAVNE"
rem SOUND 600,2
Z=Z+1

VOLBA:
NEXT I

I=I-1
PRINT "Z" I "POKUSU MAS" S "SPATNYCH A" Z "DOBRYCH"

IF S=>4 THEN T=5
IF S=3 THEN T=4
IF S=2 THEN T=3
IF S=1 THEN T=2
IF S=0 THEN T=1
print "              "
PRINT "VYSLEDNA ZNAMKA" T

REM PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"
REM LOCATE 21,10
REM INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI 2 x ENTER";E
REM IF E<>1 THEN OPET

END