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

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

diff --git a/turbobasic/SCITANI.BAS b/turbobasic/SCITANI.BAS
new file mode 100755 (executable)
index 0000000..a4b0acd
--- /dev/null
+++ b/turbobasic/SCITANI.BAS
@@ -0,0 +1,77 @@
+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\9f¡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
\ No newline at end of file