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

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

diff --git a/turbobasic/NASOBENI.BAS b/turbobasic/NASOBENI.BAS
new file mode 100755 (executable)
index 0000000..fd82e76
--- /dev/null
+++ b/turbobasic/NASOBENI.BAS
@@ -0,0 +1,43 @@
+SCREEN 0\r
+COLOR 0,15\r
+SOUND 700,12\r
+N=0\r
+S=0\r
+V=0\r
+\r
+OPET:\r
+N=N+1\r
+CLS\r
+LOCATE 4,23\r
+PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"\r
+A=INT(RND(5)*10+1)\r
+B=INT(RND(4)*10+1)\r
+LOCATE 10,5\r
+PRINT "NAPIS VYSLEDEK" A "x" B "="\r
+INPUT "    STISKNI ENTER";C\r
+D=A*B\r
+IF D=C THEN ANO\r
+PRINT "    SPATNY VYSLEDEK"\r
+SOUND 100,10\r
+S=S+1\r
+GOTO VOLBA\r
+\r
+ANO:\r
+PRINT "    SPRAVNE"\r
+SOUND 900,8\r
+V=V+1\r
+\r
+VOLBA:\r
+LOCATE 18,10\r
+PRINT "Z" N "POKUSU MAS" S "SPATNYCH A" V "DOBRYCH"\r
+LOCATE 20,10\r
+PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"\r
+LOCATE 21,10\r
+INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI ENTER";E\r
+IF E<>1 THEN OPET\r
+SOUND 900,12\r
+SOUND 100,7\r
+\r
+END\r
+\r
+\1a
\ No newline at end of file