Exclusive mode seems to work without deadlocks

[mirrors/Programs.git] / turbobasic / 1998 / SCITANI.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)+.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
IF A(I)>=B(I) THEN C(I)=A(I)-B(I):D(I)=B(I):GOTO VYSL\r
REM pokud je B větší než A zmenší se\r
B(I)=INT(B(I)*.9)\r
B(I)=B(I)+1\r
GOTO VYP\r
\r
VYSL:\r
REM aby druhý sčítanec nebyl 0\r
IF C(I)=O THEN A(I)=A(I)+2:GOTO VYP\r
\r
REM VYSLEDEK JE V A(x)\r
LOCATE I+5,1\r
PRINT "                                   "\r
LOCATE I+5,4\r
PRINT "NAPIS VYSLEDEK" D(I) "+" C(I) "=":INPUT C\r
\r
IF A(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