Merge branch 'master' of ssh://svjatoslav.eu:10006/home/n0/git/qbasicapps

[qbasicapps.git] / unsorted / matem.bas

diff --git a/unsorted/matem.bas b/unsorted/matem.bas
deleted file mode 100644 (file)
index e41efab..0000000
--- a/unsorted/matem.bas
+++ /dev/null
@@ -1,159 +0,0 @@
-' Autor: Svjatoslav Agejenko\r
-' aasta ~2000\r
-\r
-'                Matemaatika korrutus tabeli pohjal\r
-'                    teadmiste testimis programm\r
-'\r
-'               Vajuta F5 alustamiseks\r
-\r
-DECLARE SUB vastus ()\r
-DEFINT A-Y\r
-DECLARE SUB tere ()\r
-DIM SHARED nimi$\r
-DIM SHARED kus\r
-\r
-tere\r
-vastus\r
-\r
-DEFINT Z\r
-SUB tere\r
-\r
-CLS\r
-SCREEN 13\r
-LOCATE 2, 1\r
-PRINT "     Matemaatika \93petamis programm"\r
-FOR y = 3 TO 20\r
-FOR x = 0 TO 320\r
-\r
-IF POINT(x, y) > 0 THEN\r
-c = y + 56\r
-ELSE\r
-\r
-c = 31 - y / 2\r
-END IF\r
-PSET (x, y), c\r
-NEXT x\r
-NEXT y\r
-\r
-LOCATE 5, 1\r
-COLOR 7\r
-INPUT "Sisesta oma nimi ", nimi$\r
-LOCATE 5, 1\r
-COLOR 8\r
-PRINT "Sisesta oma nimi " + nimi$\r
-\r
-LOCATE 6, 1\r
-COLOR 7\r
-PRINT "Tere " + nimi$ + "."\r
-\r
-8\r
-LOCATE 7, 1\r
-COLOR 8\r
-PRINT SPACE$(35)\r
-COLOR 7\r
-LOCATE 7, 1\r
-INPUT "Mitu \81lesannet sa soovid ", kus\r
-LOCATE 7, 1\r
-COLOR 8\r
-PRINT SPACE$(35)\r
-LOCATE 7, 1\r
-COLOR 8\r
-PRINT "Mitu \81lesannet sa soovid " + STR$(kus)\r
-\r
-IF kus < 5 THEN\r
-PRINT "Nii kergelt ei p\84\84se !"\r
-GOTO 8\r
-END IF\r
-\r
-IF kus > 30 THEN\r
-PRINT "Liiga palju !"\r
-GOTO 8\r
-END IF\r
-\r
-PRINT "N\81\81d ma k\81sin sinult m\93ned matemaatika"\r
-PRINT "alased k\81simused.Vajuta suvaline klahv,"\r
-PRINT "kui oled valmis..."\r
-\r
-FOR a = 200 TO 230\r
-    OUT &H3C8, a\r
-    OUT &H3C9, a - 200\r
-    OUT &H3C9, 0\r
-    OUT &H3C9, 0\r
-NEXT\r
-\r
-DIM varv(1 TO 32)\r
-\r
-c = 4\r
-d = 1\r
-\r
-2\r
-FOR a = 0 TO 31\r
-LINE (a * 10, 170)-(a * 10 + 10, 190), 200 + varv(a + 1), BF\r
-varv(a + 1) = varv(a + 1) - 1\r
-IF varv(a + 1) < 0 THEN varv(a + 1) = 0\r
-NEXT a\r
-\r
-c = c + d\r
-IF c > 30 OR c < 3 THEN d = -d\r
-varv(c) = 30\r
-SOUND 0, 1\r
-IF INKEY$ <> "" THEN GOTO 3\r
-GOTO 2\r
-3\r
-CLS\r
-END SUB\r
-\r
-DEFSNG Z\r
-SUB vastus\r
-RANDOMIZE TIMER\r
-\r
-mitmes = 0\r
-vale = 0\r
-oige = 0\r
-PRINT "Palju on:"\r
-4\r
-mitmes = mitmes + 1\r
-IF mitmes > kus THEN GOTO 6\r
-ar1 = RND * 9\r
-ar2 = RND * 9\r
-a$ = STR$(ar1) + " X" + STR$(ar2)\r
-PRINT "    "\r
-PRINT a$\r
-5\r
-INPUT vas$\r
-IF LEFT$(vas$, 6) = "ei tea" THEN PRINT "Proovi ikka !": GOTO 5\r
-IF LEFT$(vas$, 6) = "jama" THEN PRINT "Usu mind,ei ole !": GOTO 5\r
-\r
-IF vas$ = "0" THEN vas = 0: GOTO 10\r
-vas = VAL(vas$)\r
-IF vas = 0 THEN vas = -1\r
-10\r
-\r
-IF ar1 * ar2 = vas THEN\r
-oige = oige + 1\r
-PRINT "\93ige !!"\r
-ELSE\r
-PRINT "vale"\r
-PRINT "\93ige on ", ar1 * ar2\r
-vale = vale + 1\r
-END IF\r
-\r
-GOTO 4\r
-\r
-6\r
-PRINT "-------------------------"\r
-COLOR 2\r
-PRINT "valesid on :", vale\r
-\r
-z = oige / kus * 100\r
-\r
-hinne = 1\r
-\r
-IF z >= 25 THEN hinne = 2\r
-IF z >= 50 THEN hinne = 3\r
-IF z >= 70 THEN hinne = 4\r
-IF z >= 90 THEN hinne = 5\r
-COLOR 14\r
-PRINT "Sinu hinne on "; hinne\r
-END SUB\r
-\r