X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=unsorted%2Fmatem.bas;fp=unsorted%2Fmatem.bas;h=0000000000000000000000000000000000000000;hp=e41efab1f1b2ac4073e7ff47117997f23030eccc;hb=56bc2db75aaf0e1bd556677914988b3a02775ecd;hpb=7cc7a0518d1489b33de83466008cccba1725ce52

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