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

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

diff --git a/turbobasic/NASOBIT.BAS b/turbobasic/NASOBIT.BAS
new file mode 100755 (executable)
index 0000000..ae31bec
--- /dev/null
+++ b/turbobasic/NASOBIT.BAS
@@ -0,0 +1,38 @@
+SCREEN 0\r
+COLOR 7,9\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 "    A STISKNI ENTER ";C\r
+D=A*B\r
+IF D=C THEN ANO\r
+PRINT "    SPATNY VYSLEDEK"\r
+S=S+1\r
+GOTO VOLBA\r
+\r
+ANO:\r
+PRINT "    SPRAVNE"\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 2 x ENTER";E\r
+IF E<>1 THEN OPET\r
+\r
+END\r
+\r
+\1a
\ No newline at end of file