X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2F1998%2FNASOBENI.BAS;fp=turbobasic%2F1998%2FNASOBENI.BAS;h=fd82e760533704eb52eda8f62dbbe38d678ac455;hb=8986c5cdb1ca4cb8b60d62cdf942eb84e8fe339b;hp=0000000000000000000000000000000000000000;hpb=ecef903d8113af5d734957400a4e90914bbe816e;p=mirrors%2FPrograms.git

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