Added experimental makepkg-update-checksums.sh

[mirrors/Programs.git] / turbobasic / 1998 / SCITANI2.BAS

SCREEN 0\r
CLS\r
COLOR 4,15\r
S=0\r
Z=0\r
\r
LOCATE 4,23\r
PRINT "PROGRAM PRO ZKOUSENI SCITANI"\r
PRINT "                     "\r
\r
V=TIMER\r
V=INT(((V-INT(V)+.3)*200))\r
REM puvodne bylo + .2 )*100\r
\r
FOR I=1 TO 15\r
\r
A(I)=INT(RND*V+1)\r
A(I)=A(I)+1\r
B(I)=INT(RND*V+1)\r
B(I)=B(I)+1\r
\r
VYP:\r
REM pokud je A vetsi než 100 zmenšit\r
IF A(I)>=100 THEN A(I)=INT(A(I)*.9)+1: GOTO VYP\r
C(I)=A(I)+B(I)\r
REM pokud je součet větší než 100 zmenšit B\r
IF C(I)>100 THEN B(I)=INT(B(I)*.9)+1: GOTO VYP\r
\r
LOCATE I+5,1\r
PRINT "                                   "\r
LOCATE I+5,4\r
PRINT "NAPIS VYSLEDEK" A(I) "+" B(I) "=":INPUT C\r
\r
IF C(I)=C THEN ANO\r
\r
LOCATE I+5,30\r
PRINT C\r
LOCATE I+5,34\r
PRINT "    SPATNY VYSLEDEK"\r
SOUND 1200,2\r
S=S+1\r
GOTO VOLBA\r
\r
ANO:\r
LOCATE I+5,30\r
PRINT C\r
LOCATE I+5,34\r
PRINT "    SPRAVNE"\r
rem SOUND 600,2\r
Z=Z+1\r
\r
VOLBA:\r
NEXT I\r
\r
I=I-1\r
PRINT "Z" I "POKUSU MAS" S "SPATNYCH A" Z "DOBRYCH"\r
\r
IF S=>4 THEN T=5\r
IF S=3 THEN T=4\r
IF S=2 THEN T=3\r
IF S=1 THEN T=2\r
IF S=0 THEN T=1\r
print "              "\r
PRINT "VYSLEDNA ZNAMKA" T\r
\r
REM PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"\r
REM LOCATE 21,10\r
REM INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI 2 x ENTER";E\r
REM IF E<>1 THEN OPET\r
\r
END\r
\r
\1a