Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

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

diff --git a/turbobasic/SCITANI2.BAS b/turbobasic/SCITANI2.BAS
new file mode 100755 (executable)
index 0000000..0680b8d
--- /dev/null
+++ b/turbobasic/SCITANI2.BAS
@@ -0,0 +1,73 @@
+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\9fet 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
\ No newline at end of file