From 08a50b7a860f6aa39f58108a07e2fc13e46260b9 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Sat, 22 Feb 2014 21:49:13 +0200 Subject: [PATCH] * fixed some email addresses * fixed file permissions --- .../Artifical Intelligence/data.dat | 0 .../Artifical Intelligence/data2.dat | 0 .../Artifical Intelligence/tehis.bas | 7 +- graphics/spirals/spiral2.bas | 0 graphics/spirals/spiral4.bas | 0 graphics/spirals/spiral6.bas | 0 graphics/spirals/spiral7.bas | 0 graphics/spirals/spiral8.bas | 0 graphics/spirals/spiral9.bas | 0 graphics/spirals/texture.dat | 0 graphics/spirals/texture1.dat | 0 math/05graaf.bas | 0 math/3D graph/3dgraph.bas | 291 ++++---- math/3D graph/index.html | 0 math/3D graph/sshot.png | Bin math/biorythm/bio.bas | 5 +- math/biorythm/index.html | 0 math/biorythm/ppl.txt | 7 +- math/biorythm/sshot.png | Bin math/determ.bas | 0 math/divides.bas | 7 - math/gravi2.bas | 4 +- math/korrel.bas | 66 -- math/logar.bas | 11 - math/logic.bas | 620 +++++++++--------- math/loto/loos.txt | 0 math/loto/loto.bas | 7 +- math/sin_cos.bas | 48 +- math/sinus.bas | 0 math/tuletis.bas | 0 math/valem.bas | 0 networking/comterm.bas | 0 networking/file2com.bas | 0 networking/lpt2com.bas | 0 networking/lptmorse.bas | 0 networking/monitor.bas | 0 networking/monitor2.bas | 0 networking/monitor3.bas | 0 networking/prt.bas | 0 networking/read.bas | 0 networking/setspeed.bas | 0 simulation/explosion/explode.bas | 156 ++--- simulation/explosion/index.html | 0 simulation/explosion/sshot.png | Bin simulation/interf.BAS | 0 simulation/interf2.BAS | 0 simulation/life/1 | 0 simulation/life/10 | 0 simulation/life/11 | 0 simulation/life/2 | 0 simulation/life/3 | 0 simulation/life/4 | 0 simulation/life/5 | 0 simulation/life/6 | 0 simulation/life/7 | 0 simulation/life/8 | 0 simulation/life/9 | 0 simulation/life/e | 0 simulation/life/index.html | 0 simulation/life/life.bas | 3 + simulation/life/sshot.png | Bin simulation/liquid.bas | 52 +- system/CMOS string/getenv.asm | 7 +- system/CMOS string/savecmos.bas | 24 +- tutorial/group1/CVS/Entries | 20 - tutorial/group1/CVS/Repository | 1 - tutorial/group1/CVS/Root | 1 - tutorial/group1/CVS/Template | 0 tutorial/group2/CVS/Entries | 18 - tutorial/group2/CVS/Repository | 1 - tutorial/group2/CVS/Root | 1 - tutorial/group2/CVS/Template | 0 tutorial/group3/CVS/Entries | 12 - tutorial/group3/CVS/Repository | 1 - tutorial/group3/CVS/Root | 1 - tutorial/group3/CVS/Template | 0 tutorial/qsort3.bas | 0 unsorted/contrast.bas | 7 - unsorted/font.bas | 0 unsorted/key.bas | 0 unsorted/lightpe2.bas | 0 unsorted/lightpen.bas | 0 unsorted/matem.bas | 0 unsorted/modes.bas | 16 +- unsorted/pal.bas | 163 +++-- unsorted/passw.bas | 3 + unsorted/passw.dat | 0 unsorted/tim.dat | 0 unsorted/timer.bas | 9 +- 89 files changed, 721 insertions(+), 848 deletions(-) mode change 100755 => 100644 graphics/presentations/Artifical Intelligence/data.dat mode change 100755 => 100644 graphics/presentations/Artifical Intelligence/data2.dat mode change 100755 => 100644 graphics/presentations/Artifical Intelligence/tehis.bas mode change 100755 => 100644 graphics/spirals/spiral2.bas mode change 100755 => 100644 graphics/spirals/spiral4.bas mode change 100755 => 100644 graphics/spirals/spiral6.bas mode change 100755 => 100644 graphics/spirals/spiral7.bas mode change 100755 => 100644 graphics/spirals/spiral8.bas mode change 100755 => 100644 graphics/spirals/spiral9.bas mode change 100755 => 100644 graphics/spirals/texture.dat mode change 100755 => 100644 graphics/spirals/texture1.dat mode change 100755 => 100644 math/05graaf.bas mode change 100755 => 100644 math/3D graph/3dgraph.bas mode change 100755 => 100644 math/3D graph/index.html mode change 100755 => 100644 math/3D graph/sshot.png mode change 100755 => 100644 math/biorythm/bio.bas mode change 100755 => 100644 math/biorythm/index.html mode change 100755 => 100644 math/biorythm/ppl.txt mode change 100755 => 100644 math/biorythm/sshot.png mode change 100755 => 100644 math/determ.bas delete mode 100755 math/divides.bas mode change 100755 => 100644 math/gravi2.bas delete mode 100755 math/korrel.bas delete mode 100755 math/logar.bas mode change 100755 => 100644 math/logic.bas mode change 100755 => 100644 math/loto/loos.txt mode change 100755 => 100644 math/loto/loto.bas mode change 100755 => 100644 math/sin_cos.bas mode change 100755 => 100644 math/sinus.bas mode change 100755 => 100644 math/tuletis.bas mode change 100755 => 100644 math/valem.bas mode change 100755 => 100644 networking/comterm.bas mode change 100755 => 100644 networking/file2com.bas mode change 100755 => 100644 networking/lpt2com.bas mode change 100755 => 100644 networking/lptmorse.bas mode change 100755 => 100644 networking/monitor.bas mode change 100755 => 100644 networking/monitor2.bas mode change 100755 => 100644 networking/monitor3.bas mode change 100755 => 100644 networking/prt.bas mode change 100755 => 100644 networking/read.bas mode change 100755 => 100644 networking/setspeed.bas mode change 100755 => 100644 simulation/explosion/explode.bas mode change 100755 => 100644 simulation/explosion/index.html mode change 100755 => 100644 simulation/explosion/sshot.png mode change 100755 => 100644 simulation/interf.BAS mode change 100755 => 100644 simulation/interf2.BAS mode change 100755 => 100644 simulation/life/1 mode change 100755 => 100644 simulation/life/10 mode change 100755 => 100644 simulation/life/11 mode change 100755 => 100644 simulation/life/2 mode change 100755 => 100644 simulation/life/3 mode change 100755 => 100644 simulation/life/4 mode change 100755 => 100644 simulation/life/5 mode change 100755 => 100644 simulation/life/6 mode change 100755 => 100644 simulation/life/7 mode change 100755 => 100644 simulation/life/8 mode change 100755 => 100644 simulation/life/9 mode change 100755 => 100644 simulation/life/e mode change 100755 => 100644 simulation/life/index.html mode change 100755 => 100644 simulation/life/life.bas mode change 100755 => 100644 simulation/life/sshot.png mode change 100755 => 100644 simulation/liquid.bas mode change 100755 => 100644 system/CMOS string/getenv.asm mode change 100755 => 100644 system/CMOS string/savecmos.bas delete mode 100755 tutorial/group1/CVS/Entries delete mode 100755 tutorial/group1/CVS/Repository delete mode 100755 tutorial/group1/CVS/Root delete mode 100755 tutorial/group1/CVS/Template delete mode 100755 tutorial/group2/CVS/Entries delete mode 100755 tutorial/group2/CVS/Repository delete mode 100755 tutorial/group2/CVS/Root delete mode 100755 tutorial/group2/CVS/Template delete mode 100755 tutorial/group3/CVS/Entries delete mode 100755 tutorial/group3/CVS/Repository delete mode 100755 tutorial/group3/CVS/Root delete mode 100755 tutorial/group3/CVS/Template mode change 100755 => 100644 tutorial/qsort3.bas delete mode 100755 unsorted/contrast.bas mode change 100755 => 100644 unsorted/font.bas mode change 100755 => 100644 unsorted/key.bas mode change 100755 => 100644 unsorted/lightpe2.bas mode change 100755 => 100644 unsorted/lightpen.bas mode change 100755 => 100644 unsorted/matem.bas mode change 100755 => 100644 unsorted/modes.bas mode change 100755 => 100644 unsorted/pal.bas mode change 100755 => 100644 unsorted/passw.bas mode change 100755 => 100644 unsorted/passw.dat mode change 100755 => 100644 unsorted/tim.dat mode change 100755 => 100644 unsorted/timer.bas diff --git a/graphics/presentations/Artifical Intelligence/data.dat b/graphics/presentations/Artifical Intelligence/data.dat old mode 100755 new mode 100644 diff --git a/graphics/presentations/Artifical Intelligence/data2.dat b/graphics/presentations/Artifical Intelligence/data2.dat old mode 100755 new mode 100644 diff --git a/graphics/presentations/Artifical Intelligence/tehis.bas b/graphics/presentations/Artifical Intelligence/tehis.bas old mode 100755 new mode 100644 index 1c943d0..876ba9e --- a/graphics/presentations/Artifical Intelligence/tehis.bas +++ b/graphics/presentations/Artifical Intelligence/tehis.bas @@ -1,8 +1,11 @@ +CHDIR ".\qbasicapps\graphics\presentations\Artificial Intelligence" + + ' AI presentation ' made by Svjatoslav Agejenko ' in 2002 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslavagejenko@gmail.com +' homepage: svjatoslav.eu +' email: svjatoslav@svjatoslav.eu DECLARE SUB sc10 () DECLARE SUB sc9 () diff --git a/graphics/spirals/spiral2.bas b/graphics/spirals/spiral2.bas old mode 100755 new mode 100644 diff --git a/graphics/spirals/spiral4.bas b/graphics/spirals/spiral4.bas old mode 100755 new mode 100644 diff --git a/graphics/spirals/spiral6.bas b/graphics/spirals/spiral6.bas old mode 100755 new mode 100644 diff --git a/graphics/spirals/spiral7.bas b/graphics/spirals/spiral7.bas old mode 100755 new mode 100644 diff --git a/graphics/spirals/spiral8.bas b/graphics/spirals/spiral8.bas old mode 100755 new mode 100644 diff --git a/graphics/spirals/spiral9.bas b/graphics/spirals/spiral9.bas old mode 100755 new mode 100644 diff --git a/graphics/spirals/texture.dat b/graphics/spirals/texture.dat old mode 100755 new mode 100644 diff --git a/graphics/spirals/texture1.dat b/graphics/spirals/texture1.dat old mode 100755 new mode 100644 diff --git a/math/05graaf.bas b/math/05graaf.bas old mode 100755 new mode 100644 diff --git a/math/3D graph/3dgraph.bas b/math/3D graph/3dgraph.bas old mode 100755 new mode 100644 index b867eeb..bfb4074 --- a/math/3D graph/3dgraph.bas +++ b/math/3D graph/3dgraph.bas @@ -1,8 +1,11 @@ +CHDIR ".\qbasicapps\math\3D graph\" + + ' 3D formula explorer ' made by Svjatoslav Agejenko ' in 2002 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslavagejenko@gmail.com +' homepage: svjatoslav.eu +' email: svjatoslav@svjatoslav.eu ' use: ' cursor keys - move around @@ -112,28 +115,28 @@ c = 14 d = 0 e = 0 FOR x = -500 TO 500 STEP 50 -FOR z = -500 TO 500 STEP 50 - -d = d + 1 -xn(nump + d) = x -valem x / 50, z / 50, y -yn(nump + d) = y * 50 -zn(nump + d) = z -IF z > -500 THEN -e = e + 1 -point1(numl + e) = nump + d -point2(numl + e) = nump + d - 1 -col(numl + e) = c -END IF - -IF x > -500 THEN -e = e + 1 -point1(numl + e) = nump + d -point2(numl + e) = nump + d - 21 -col(numl + e) = c -END IF - -NEXT z + FOR z = -500 TO 500 STEP 50 + + d = d + 1 + xn(nump + d) = x + valem x / 50, z / 50, y + yn(nump + d) = y * 50 + zn(nump + d) = z + IF z > -500 THEN + e = e + 1 + point1(numl + e) = nump + d + point2(numl + e) = nump + d - 1 + col(numl + e) = c + END IF + + IF x > -500 THEN + e = e + 1 + point1(numl + e) = nump + d + point2(numl + e) = nump + d - 21 + col(numl + e) = c + END IF + + NEXT z NEXT x nump = nump + d numl = numl + e @@ -146,27 +149,27 @@ c = 3 d = 0 e = 0 FOR z = -500 TO 500 STEP 100 -FOR y = -500 TO 500 STEP 100 - -d = d + 1 -xn(nump + d) = x1 -yn(nump + d) = y1 + y -zn(nump + d) = z1 + z -IF y > -500 THEN -e = e + 1 -point1(numl + e) = nump + d -point2(numl + e) = nump + d - 1 -col(numl + e) = c -END IF - -IF z > -500 THEN -e = e + 1 -point1(numl + e) = nump + d -point2(numl + e) = nump + d - 11 -col(numl + e) = c -END IF - -NEXT y + FOR y = -500 TO 500 STEP 100 + + d = d + 1 + xn(nump + d) = x1 + yn(nump + d) = y1 + y + zn(nump + d) = z1 + z + IF y > -500 THEN + e = e + 1 + point1(numl + e) = nump + d + point2(numl + e) = nump + d - 1 + col(numl + e) = c + END IF + + IF z > -500 THEN + e = e + 1 + point1(numl + e) = nump + d + point2(numl + e) = nump + d - 11 + col(numl + e) = c + END IF + + NEXT y NEXT z nump = nump + d numl = numl + e @@ -180,27 +183,27 @@ c = 3 d = 0 e = 0 FOR x = -500 TO 500 STEP 100 -FOR y = -500 TO 500 STEP 100 - -d = d + 1 -xn(nump + d) = x1 + x -yn(nump + d) = y1 + y -zn(nump + d) = z1 -IF y > -500 THEN -e = e + 1 -point1(numl + e) = nump + d -point2(numl + e) = nump + d - 1 -col(numl + e) = c -END IF - -IF x > -500 THEN -e = e + 1 -point1(numl + e) = nump + d -point2(numl + e) = nump + d - 11 -col(numl + e) = c -END IF - -NEXT y + FOR y = -500 TO 500 STEP 100 + + d = d + 1 + xn(nump + d) = x1 + x + yn(nump + d) = y1 + y + zn(nump + d) = z1 + IF y > -500 THEN + e = e + 1 + point1(numl + e) = nump + d + point2(numl + e) = nump + d - 1 + col(numl + e) = c + END IF + + IF x > -500 THEN + e = e + 1 + point1(numl + e) = nump + d + point2(numl + e) = nump + d - 11 + col(numl + e) = c + END IF + + NEXT y NEXT x nump = nump + d numl = numl + e @@ -215,27 +218,27 @@ c = 3 d = 0 e = 0 FOR x = -500 TO 500 STEP 100 -FOR z = -500 TO 500 STEP 100 - -d = d + 1 -xn(nump + d) = x1 + x -yn(nump + d) = y1 + y -zn(nump + d) = z -IF z > -500 THEN -e = e + 1 -point1(numl + e) = nump + d -point2(numl + e) = nump + d - 1 -col(numl + e) = c -END IF - -IF x > -500 THEN -e = e + 1 -point1(numl + e) = nump + d -point2(numl + e) = nump + d - 11 -col(numl + e) = c -END IF - -NEXT z + FOR z = -500 TO 500 STEP 100 + + d = d + 1 + xn(nump + d) = x1 + x + yn(nump + d) = y1 + y + zn(nump + d) = z + IF z > -500 THEN + e = e + 1 + point1(numl + e) = nump + d + point2(numl + e) = nump + d - 1 + col(numl + e) = c + END IF + + IF x > -500 THEN + e = e + 1 + point1(numl + e) = nump + d + point2(numl + e) = nump + d - 11 + col(numl + e) = c + END IF + + NEXT z NEXT x nump = nump + d numl = numl + e @@ -269,89 +272,91 @@ C2 = COS(Deg2): S2 = SIN(Deg2) FOR a = 1 TO nump -xo = xn(a) - myx -yo = -yn(a) - myy -zo = zn(a) - myz + xo = xn(a) - myx + yo = -yn(a) - myy + zo = zn(a) - myz -x1 = (xo * C1 - zo * S1) -z1 = (xo * S1 + zo * C1) + x1 = (xo * C1 - zo * S1) + z1 = (xo * S1 + zo * C1) -y1 = (yo * C2 - z1 * S2) -z2 = (yo * S2 + z1 * C2) + y1 = (yo * C2 - z1 * S2) + z2 = (yo * S2 + z1 * C2) -xo(a) = x(a) -yo(a) = y(a) -IF z2 < 20 THEN -x(a) = -1 -ELSE -x(a) = 320 + (x1 / z2 * 500) -y(a) = 240 + (y1 / z2 * 500) -END IF + xo(a) = x(a) + yo(a) = y(a) + IF z2 < 20 THEN + x(a) = -1 + ELSE + x(a) = 320 + (x1 / z2 * 500) + y(a) = 240 + (y1 / z2 * 500) + END IF NEXT FOR a = 1 TO numl -p1 = point1(a) -p2 = point2(a) -IF xo(p1) = -1 OR xo(p2) = -1 THEN ELSE LINE (xo(p1), yo(p1))-(xo(p2), yo(p2)), 0 + p1 = point1(a) + p2 = point2(a) + IF xo(p1) = -1 OR xo(p2) = -1 THEN ELSE LINE (xo(p1), yo(p1))-(xo(p2), yo(p2)), 0 -IF x(p1) = -1 OR x(p2) = -1 THEN ELSE LINE (x(p1), y(p1))-(x(p2), y(p2)), col(a) + IF x(p1) = -1 OR x(p2) = -1 THEN ELSE LINE (x(p1), y(p1))-(x(p2), y(p2)), col(a) NEXT K$ = INKEY$ IF K$ <> "" THEN -SELECT CASE K$ + SELECT CASE K$ -CASE CHR$(0) + "P" -mye = mye - 3 + CASE CHR$(0) + "P" + mye = mye - 3 -CASE CHR$(0) + "H" -mye = mye + 3 + CASE CHR$(0) + "H" + mye = mye + 3 -CASE CHR$(0) + "M" -myk = myk + 3 + CASE CHR$(0) + "M" + myk = myk + 3 -CASE CHR$(0) + "K" -myk = myk - 3 + CASE CHR$(0) + "K" + myk = myk - 3 -CASE "+" -myyp = myyp + 5 + CASE "+" + myyp = myyp + 5 -CASE "-" -myyp = myyp - 5 + CASE "-" + myyp = myyp - 5 -CASE "6" -d1 = d1 + .01 + CASE "6" + d1 = d1 + .01 -CASE "4" -d1 = d1 - .01 + CASE "4" + d1 = d1 - .01 -CASE "8" -d2 = d2 - .01 + CASE "8" + d2 = d2 - .01 -CASE "2" -d2 = d2 + .01 + CASE "2" + d2 = d2 + .01 -CASE " " -d1 = d1 / 2 -d2 = d2 / 2 -d3 = d3 / 2 -mye = mye / 2 -myk = myk / 2 -myyp = myyp / 2 -CASE "q" -SYSTEM + CASE " " + d1 = d1 / 2 + d2 = d2 / 2 + d3 = d3 / 2 + mye = mye / 2 + myk = myk / 2 + myyp = myyp / 2 + CASE "q" + SYSTEM -CASE CHR$(27) -SYSTEM + CASE CHR$(27) + SYSTEM -END SELECT + END SELECT END IF +_LIMIT (30) + GOTO 1 END SUB @@ -360,7 +365,7 @@ SCREEN 12 CLS FOR a = 1 TO 4000 -col(a) = 15 + col(a) = 15 NEXT a nump = 0 @@ -375,9 +380,9 @@ SUB valem (x, y, z) z = 0 v = SQR(x * x + y * y) ' v = distance from center, some formulas needs it. -z = z + SIN(x + y) * SIN(tm / 10) ' diagonal lines -z = z + (SQR((15 + v) * (15 - v)) - 10) ' top of the ball - ' here I mixed 2 formulas. +z = z + SIN(x + y) * SIN(tm / 10) ' diagonal lines +z = z + (SQR((15 + v) * (15 - v)) - 10) ' top of the ball +' here I mixed 2 formulas. 'z = z + RND * 1 ' noise 'z = z + SIN((y + tm) / 2) ' forward moving wave diff --git a/math/3D graph/index.html b/math/3D graph/index.html old mode 100755 new mode 100644 diff --git a/math/3D graph/sshot.png b/math/3D graph/sshot.png old mode 100755 new mode 100644 diff --git a/math/biorythm/bio.bas b/math/biorythm/bio.bas old mode 100755 new mode 100644 index f04eefc..d0a834c --- a/math/biorythm/bio.bas +++ b/math/biorythm/bio.bas @@ -1,7 +1,10 @@ +CHDIR ".\qbasicapps\math\biorythm" + + ' Biorythm calculator ' made by Svjatoslav Agejenko ' in 2003.12 -' email: svjatoslavagejenko@gmail.com +' email: svjatoslav@svjatoslav.eu DECLARE FUNCTION gety& (zx2!, re&) DECLARE SUB getdata (zt!, y1&, y2&, y3&) diff --git a/math/biorythm/index.html b/math/biorythm/index.html old mode 100755 new mode 100644 diff --git a/math/biorythm/ppl.txt b/math/biorythm/ppl.txt old mode 100755 new mode 100644 index c9bb823..3eef2a7 --- a/math/biorythm/ppl.txt +++ b/math/biorythm/ppl.txt @@ -1,5 +1,2 @@ -sven 1983 6 1 -monika 1952 2 2 -papa 1949 2 15 -Erik 1983 3 29 -evelin 1988 3 4 +Svjatoslav 1983 6 1 +Evelin 1988 3 4 diff --git a/math/biorythm/sshot.png b/math/biorythm/sshot.png old mode 100755 new mode 100644 diff --git a/math/determ.bas b/math/determ.bas old mode 100755 new mode 100644 diff --git a/math/divides.bas b/math/divides.bas deleted file mode 100755 index 57310cb..0000000 --- a/math/divides.bas +++ /dev/null @@ -1,7 +0,0 @@ -INPUT "number:", a - -FOR b = 1 TO a - IF a / b = a \ b THEN PRINT b, "is"; a / b -NEXT b -SYSTEM - diff --git a/math/gravi2.bas b/math/gravi2.bas old mode 100755 new mode 100644 index 8ccea16..6eec101 --- a/math/gravi2.bas +++ b/math/gravi2.bas @@ -1,8 +1,8 @@ ' Gravitation simulation ' made by Svjatoslav Agejenko ' in 2001 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslavagejenko@gmail.com +' homepage: svjatoslav.eu +' email: svjatoslav@svjatoslav.eu DEFDBL A-Z SCREEN 12 diff --git a/math/korrel.bas b/math/korrel.bas deleted file mode 100755 index 80777ff..0000000 --- a/math/korrel.bas +++ /dev/null @@ -1,66 +0,0 @@ -DECLARE SUB init () -DIM SHARED tulud(1 TO 4) -DIM SHARED kulud(1 TO 4) - -CLS -init - -FOR a = 1 TO 4 - kogutulud = kogutulud + tulud(a) - kogukulud = kogukulud + kulud(a) -NEXT a - -kesktulu = kogutulud / 4 -keskkulu = kogukulud / 4 - - -PRINT "kogutulud:", kogutulud, kesktulu -PRINT "kogukulud:", kogukulud, keskkulu - - -FOR a = 1 TO 4 -tuludeKoguH2lve = tuludeKoguH2lve + ABS(tulud(a) - kesktulu) -kuludeKoguH2lve = kuludeKoguH2lve + ABS(kulud(a) - keskkulu) -NEXT a - -tuludeKeskH2lve = tuludeKoguH2lve / 4 -kuludeKeskH2lve = kuludeKoguH2lve / 4 - - -PRINT "Tulude koguh2lve:", tuludeKoguH2lve -PRINT "Kulude koguh2lve:", kuludeKoguH2lve - -PRINT "Tulude keskh2lve:", tuludeKeskH2lve -PRINT "Kulude keskh2lve:", kuludeKeskH2lve - -'-------------------------------------------------------------- - -FOR a = 1 TO 4 - b = b + (tulud(a) - ABS(kesktulu)) * (kulud(a) - ABS(keskkulu)) - c = c + (tulud(a) - ABS(kesktulu)) ^ 2 - d = d + (kulud(a) - ABS(keskkulu)) ^ 2 -NEXT a - -e = SQR(c * d) -f = b / e - - -PRINT f - -SUB init - -tulud(1) = 1 -kulud(1) = 10 - -tulud(2) = 2 -kulud(2) = 20 - -tulud(3) = 3 -kulud(3) = 30 - -tulud(4) = 4 -kulud(4) = 41 - - -END SUB - diff --git a/math/logar.bas b/math/logar.bas deleted file mode 100755 index 3bc211e..0000000 --- a/math/logar.bas +++ /dev/null @@ -1,11 +0,0 @@ -DECLARE FUNCTION loga! (a!, b!) -CLS - -v = 10 ^ (2 * loga(10, 7) + loga(10, 2)) - -PRINT v - -FUNCTION loga (a, b) -loga = LOG(b) / LOG(a) -END FUNCTION - diff --git a/math/logic.bas b/math/logic.bas old mode 100755 new mode 100644 index ab35157..4692e89 --- a/math/logic.bas +++ b/math/logic.bas @@ -1,8 +1,8 @@ ' Logical equation solver ' made by Svjatoslav Agejenko ' in 2002 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslavagejenko@gmail.com +' homepage: svjatoslav.eu +' email: svjatoslav@svjatoslav.eu ' Solves logical equations. ' AND OR XOR etc... @@ -43,22 +43,22 @@ GOTO 13 SUB getp (a, b) SELECT CASE a -CASE 5 -b = 1 -CASE 3, 4 -b = 2 -CASE 2 -b = 3 -CASE 1 -b = 4 -CASE 40, 41 -b = 100 + CASE 5 + b = 1 + CASE 3, 4 + b = 2 + CASE 2 + b = 3 + CASE 1 + b = 4 + CASE 40, 41 + b = 100 END SELECT END SUB SUB klea FOR a = 1 TO 50 -a$ = INKEY$ + a$ = INKEY$ NEXT a END SUB @@ -66,7 +66,7 @@ SUB lahend (x1, x2) DIM muu(65 TO 122) FOR a = 65 TO 122 -muu(a) = 0 + muu(a) = 0 NEXT a muu(116) = 1 @@ -74,14 +74,14 @@ muu(118) = 1 nm = 0 FOR a = x1 TO x2 -b = tehe(a) -IF ((b >= 65) AND (b <= 90)) OR ((b >= 97) AND (b <= 122)) THEN -IF muu(b) = 0 THEN -nm = nm + 1 -muun(nm) = b -muu(b) = 1 -END IF -END IF + b = tehe(a) + IF ((b >= 65) AND (b <= 90)) OR ((b >= 97) AND (b <= 122)) THEN + IF muu(b) = 0 THEN + nm = nm + 1 + muun(nm) = b + muu(b) = 1 + END IF + END IF NEXT a muun(nm + 1) = 116 @@ -90,28 +90,28 @@ muun(nm + 2) = 118 f = 2 ^ nm tehl = f FOR a = 1 TO nm -d = 1 -e = 1 -f = f / 2 -FOR b = 1 TO 2 ^ nm -IF e > f THEN d = -d: e = 1 -IF d = 1 THEN c = ASC("t") ELSE c = ASC("v") -muut(a, b) = c -e = e + 1 -NEXT b + d = 1 + e = 1 + f = f / 2 + FOR b = 1 TO 2 ^ nm + IF e > f THEN d = -d: e = 1 + IF d = 1 THEN c = ASC("t") ELSE c = ASC("v") + muut(a, b) = c + e = e + 1 + NEXT b NEXT a FOR a = 1 TO tehl -muut(nm + 1, a) = 116 -muut(nm + 2, a) = 118 + muut(nm + 1, a) = 116 + muut(nm + 2, a) = 118 NEXT a nm = nm + 2 DIM bck(0 TO 79) FOR a = 0 TO 79 -bck(a) = tehe(a) -xloc(a) = a + bck(a) = tehe(a) + xloc(a) = a NEXT a LOCATE 5, 1 @@ -124,11 +124,11 @@ teeslg x1, x2, a tee x1, x2 + a FOR a = 0 TO 79 -tehe(a) = bck(a) + tehe(a) = bck(a) NEXT a FOR a = 1 TO tehl -prn x2 + 1, a, 14, 0, CHR$(vast(a)) + prn x2 + 1, a, 14, 0, CHR$(vast(a)) NEXT a @@ -166,21 +166,21 @@ l = l1 'BEEP prnp = prnp + 1 FOR a = x1 TO x2 - l -prn a, 0, 13, 1, CHR$(tehe(a)) + prn a, 0, 13, 1, CHR$(tehe(a)) NEXT a END SUB SUB mov (x1, n) FOR a = 79 - n TO x1 STEP -1 -tehe(a + n) = tehe(a) -xloc(a + n) = xloc(a) + tehe(a + n) = tehe(a) + xloc(a + n) = xloc(a) NEXT a END SUB SUB movm (x1, n) FOR a = x1 TO 79 - n -tehe(a) = tehe(a + n) -xloc(a) = xloc(a + n) + tehe(a) = tehe(a + n) + xloc(a) = xloc(a + n) NEXT a END SUB @@ -189,22 +189,22 @@ CLS ln = 79 FOR a = 0 TO 79 -5 -IF tehe(a) = 32 OR tehe(a) = 0 THEN -FOR b = a TO 78 -tehe(b) = tehe(b + 1) -NEXT b -ln = ln - 1 -IF ln <= a - 1 THEN GOTO 6 -GOTO 5 -END IF + 5 + IF tehe(a) = 32 OR tehe(a) = 0 THEN + FOR b = a TO 78 + tehe(b) = tehe(b + 1) + NEXT b + ln = ln - 1 + IF ln <= a - 1 THEN GOTO 6 + GOTO 5 + END IF NEXT a 6 CLS FOR a = 0 TO ln -prn a, 0, 13, 1, CHR$(tehe(a)) + prn a, 0, 13, 1, CHR$(tehe(a)) NEXT a prn 0, 1, 7, 0, "Do you want to simplyfy it (unfinished so press N)" @@ -213,7 +213,7 @@ a = 0 klea a$ = INPUT$(1) IF a$ = "n" OR a$ = "N" THEN GOTO 24 -IF a$ = "y" OR a$ = "Y" THEN ELSE GOTO 23 +IF a$ = "y" OR a$ = "Y" THEN ELSE GOTO 23 a = 1 24 prn 0, 1, 7, 0, SPACE$(79) @@ -231,17 +231,17 @@ x1 = x * 8 y1 = (y + prnp) * 8 FOR b = 1 TO LEN(a$) -LINE (x1, y1)-(x1 + 7, y1 + 7), c1, BF -d = ASC(RIGHT$(LEFT$(a$, b), 1)) -IF d > 122 THEN GOTO 22 -FOR y2 = 0 TO 7 -FOR x2 = 0 TO 7 -c2 = font(x2, y2, d) -IF c2 > 0 THEN PSET (x1 + x2, y1 + y2), c -NEXT x2 -NEXT y2 -22 -x1 = x1 + 8 + LINE (x1, y1)-(x1 + 7, y1 + 7), c1, BF + d = ASC(RIGHT$(LEFT$(a$, b), 1)) + IF d > 122 THEN GOTO 22 + FOR y2 = 0 TO 7 + FOR x2 = 0 TO 7 + c2 = font(x2, y2, d) + IF c2 > 0 THEN PSET (x1 + x2, y1 + y2), c + NEXT x2 + NEXT y2 + 22 + x1 = x1 + 8 NEXT b END SUB @@ -254,30 +254,30 @@ l2 = 0 a = x1 26 IF tehe(a) = 40 THEN -IF a = x1 THEN p1 = 100 ELSE getp tehe(a - 1), p1 -c = a -d = 1 -p2 = 0 -25 -c = c + 1 -IF tehe(c) = 40 THEN d = d + 1 -IF tehe(c) = 41 THEN d = d - 1 -IF d = 1 THEN -IF (tehe(c) > 0) AND (tehe(c) <= 5) THEN -getp tehe(c), b -IF b > p2 THEN p2 = b -END IF -END IF -IF d > 0 THEN GOTO 25 -IF c + 1 > x2 THEN p3 = 100 ELSE getp tehe(c + 1), p3 - -IF (p1 > p2) AND (p3 >= p2) THEN -movm c, 1 -movm a, 1 -l2 = l2 + 2 -x2 = x2 - 2 -a = a - 1 -END IF + IF a = x1 THEN p1 = 100 ELSE getp tehe(a - 1), p1 + c = a + d = 1 + p2 = 0 + 25 + c = c + 1 + IF tehe(c) = 40 THEN d = d + 1 + IF tehe(c) = 41 THEN d = d - 1 + IF d = 1 THEN + IF (tehe(c) > 0) AND (tehe(c) <= 5) THEN + getp tehe(c), b + IF b > p2 THEN p2 = b + END IF + END IF + IF d > 0 THEN GOTO 25 + IF c + 1 > x2 THEN p3 = 100 ELSE getp tehe(c + 1), p3 + + IF (p1 > p2) AND (p3 >= p2) THEN + movm c, 1 + movm a, 1 + l2 = l2 + 2 + x2 = x2 - 2 + a = a - 1 + END IF END IF 'NEXT a a = a + 1 @@ -291,13 +291,13 @@ prn 0, 0, 3, 0, "enter equation (ESC to quit) keys: 1 - " + CHR$(1) + " 2 - " prn 0, 1, 3, 0, "example: a" + CHR$(1) + "b" + CHR$(2) + "(g" + CHR$(3) + "b)" FOR a = 0 TO 79 -tehe(a) = 0 + tehe(a) = 0 NEXT a x = 0 1 FOR a = 0 TO 79 -IF a = x THEN prn a, 2, 14, 1, CHR$(tehe(a)) ELSE prn a, 2, 3, 0, CHR$(tehe(a)) + IF a = x THEN prn a, 2, 14, 1, CHR$(tehe(a)) ELSE prn a, 2, 3, 0, CHR$(tehe(a)) NEXT a 2 a$ = INKEY$ @@ -310,27 +310,27 @@ IF x < 0 THEN x = 0 IF x > 79 THEN x = 79 IF LEN(a$) = 1 THEN -SELECT CASE ASC(a$) -CASE 32, 40, 41, 65 TO 90, 97 TO 122 -3 -FOR a = 78 TO x STEP -1 -tehe(a + 1) = tehe(a) -NEXT a -tehe(x) = ASC(a$) -x = x + 1 -CASE 8 -IF x > 0 THEN -FOR a = x - 1 TO 78 -tehe(a) = tehe(a + 1) -NEXT a -x = x - 1 -END IF -CASE 49 TO 53 -a$ = CHR$(ASC(a$) - 48) -GOTO 3 -CASE 13 -GOTO 4 -END SELECT + SELECT CASE ASC(a$) + CASE 32, 40, 41, 65 TO 90, 97 TO 122 + 3 + FOR a = 78 TO x STEP -1 + tehe(a + 1) = tehe(a) + NEXT a + tehe(x) = ASC(a$) + x = x + 1 + CASE 8 + IF x > 0 THEN + FOR a = x - 1 TO 78 + tehe(a) = tehe(a + 1) + NEXT a + x = x - 1 + END IF + CASE 49 TO 53 + a$ = CHR$(ASC(a$) - 48) + GOTO 3 + CASE 13 + GOTO 4 + END SELECT END IF GOTO 1 @@ -345,49 +345,49 @@ prnp = 0 SCREEN 7 FOR a = 0 TO 122 -LOCATE 1, 1 -SELECT CASE a -CASE 7 -CASE 1 -LINE (0, 0)-(7, 7), 0, BF -LINE (2, 1)-(0, 3), 15 -LINE (1, 4)-(2, 5), 15 -LINE (5, 1)-(7, 3), 15 -LINE (6, 4)-(5, 5), 15 -LINE (1, 2)-(5, 2), 15 -LINE (1, 4)-(5, 4), 15 - -CASE 2 -LINE (0, 0)-(7, 7), 0, BF -LINE (5, 1)-(7, 3), 15 -LINE (6, 4)-(5, 5), 15 -LINE (1, 2)-(5, 2), 15 -LINE (1, 4)-(5, 4), 15 - -CASE 3 -LINE (0, 0)-(7, 7), 0, BF -LINE (0, 0)-(3, 7), 15 -LINE (6, 0)-(3, 7), 15 - -CASE 4 -LINE (0, 0)-(7, 7), 0, BF -LINE (0, 7)-(3, 0), 15 -LINE (6, 7)-(3, 0), 15 - -CASE 5 -LINE (0, 0)-(7, 7), 0, BF -LINE (0, 0)-(4, 0), 15 -LINE (4, 1)-(4, 7), 15 - -CASE ELSE -PRINT CHR$(a) -END SELECT - -FOR y = 0 TO 7 -FOR x = 0 TO 7 -font(x, y, a) = POINT(x, y) -NEXT x -NEXT y + LOCATE 1, 1 + SELECT CASE a + CASE 7 + CASE 1 + LINE (0, 0)-(7, 7), 0, BF + LINE (2, 1)-(0, 3), 15 + LINE (1, 4)-(2, 5), 15 + LINE (5, 1)-(7, 3), 15 + LINE (6, 4)-(5, 5), 15 + LINE (1, 2)-(5, 2), 15 + LINE (1, 4)-(5, 4), 15 + + CASE 2 + LINE (0, 0)-(7, 7), 0, BF + LINE (5, 1)-(7, 3), 15 + LINE (6, 4)-(5, 5), 15 + LINE (1, 2)-(5, 2), 15 + LINE (1, 4)-(5, 4), 15 + + CASE 3 + LINE (0, 0)-(7, 7), 0, BF + LINE (0, 0)-(3, 7), 15 + LINE (6, 0)-(3, 7), 15 + + CASE 4 + LINE (0, 0)-(7, 7), 0, BF + LINE (0, 7)-(3, 0), 15 + LINE (6, 7)-(3, 0), 15 + + CASE 5 + LINE (0, 0)-(7, 7), 0, BF + LINE (0, 0)-(4, 0), 15 + LINE (4, 1)-(4, 7), 15 + + CASE ELSE + PRINT CHR$(a) + END SELECT + + FOR y = 0 TO 7 + FOR x = 0 TO 7 + font(x, y, a) = POINT(x, y) + NEXT x + NEXT y NEXT a SCREEN 12 @@ -405,99 +405,99 @@ oex = 0 FOR a = x1 TO x2 -b = tehe(a) -SELECT CASE b -CASE 40 -c = a -d = 1 -10 -c = c + 1 -IF tehe(c) = ASC("(") THEN d = d + 1 -IF tehe(c) = ASC(")") THEN d = d - 1 -IF d = 0 THEN GOTO 11 -GOTO 10 -11 -tee a + 1, c - 1 -a = c -FOR c = 1 TO tehl -opr(oprm, c) = vast(c) -NEXT c -GOTO 12 -CASE 5 -ng = 1 -ngx = a -CASE 1 TO 4 -oe = b -oex = a -CASE 65 TO 90, 97 TO 122 -FOR c = 1 TO nm -IF muun(c) = b THEN d = c: GOTO 8 -NEXT c -8 -FOR c = 1 TO tehl -opr(oprm, c) = muut(d, c) -prn xloc(a), c, 3, 0, CHR$(muut(d, c)) -NEXT c -12 -IF ng = 1 THEN GOSUB mkneg -IF oprm = 2 THEN -SELECT CASE oe -CASE 1 -FOR c = 1 TO tehl -d = opr(1, c) -e = opr(2, c) -IF d = e THEN f = ASC("t") ELSE f = ASC("v") -opr(1, c) = f -prn xloc(oex), c, 12, 0, CHR$(f) -NEXT c -CASE 2 -FOR c = 1 TO tehl -d = opr(1, c) -e = opr(2, c) -f = ASC("t") -IF (d = ASC("t")) AND (e = ASC("v")) THEN f = ASC("v") -opr(1, c) = f -prn xloc(oex), c, 12, 0, CHR$(f) -NEXT c -CASE 3 -FOR c = 1 TO tehl -d = opr(1, c) -e = opr(2, c) -f = ASC("t") -IF (d = ASC("v")) AND (e = ASC("v")) THEN f = ASC("v") -opr(1, c) = f -prn xloc(oex), c, 12, 0, CHR$(f) -NEXT c -CASE 4 -FOR c = 1 TO tehl -d = opr(1, c) -e = opr(2, c) -f = ASC("v") -IF (d = ASC("t")) AND (e = ASC("t")) THEN f = ASC("t") -opr(1, c) = f -prn xloc(oex), c, 12, 0, CHR$(f) -NEXT c -END SELECT -ELSE -oprm = oprm + 1 -END IF -END SELECT + b = tehe(a) + SELECT CASE b + CASE 40 + c = a + d = 1 + 10 + c = c + 1 + IF tehe(c) = ASC("(") THEN d = d + 1 + IF tehe(c) = ASC(")") THEN d = d - 1 + IF d = 0 THEN GOTO 11 + GOTO 10 + 11 + tee a + 1, c - 1 + a = c + FOR c = 1 TO tehl + opr(oprm, c) = vast(c) + NEXT c + GOTO 12 + CASE 5 + ng = 1 + ngx = a + CASE 1 TO 4 + oe = b + oex = a + CASE 65 TO 90, 97 TO 122 + FOR c = 1 TO nm + IF muun(c) = b THEN d = c: GOTO 8 + NEXT c + 8 + FOR c = 1 TO tehl + opr(oprm, c) = muut(d, c) + prn xloc(a), c, 3, 0, CHR$(muut(d, c)) + NEXT c + 12 + IF ng = 1 THEN GOSUB mkneg + IF oprm = 2 THEN + SELECT CASE oe + CASE 1 + FOR c = 1 TO tehl + d = opr(1, c) + e = opr(2, c) + IF d = e THEN f = ASC("t") ELSE f = ASC("v") + opr(1, c) = f + prn xloc(oex), c, 12, 0, CHR$(f) + NEXT c + CASE 2 + FOR c = 1 TO tehl + d = opr(1, c) + e = opr(2, c) + f = ASC("t") + IF (d = ASC("t")) AND (e = ASC("v")) THEN f = ASC("v") + opr(1, c) = f + prn xloc(oex), c, 12, 0, CHR$(f) + NEXT c + CASE 3 + FOR c = 1 TO tehl + d = opr(1, c) + e = opr(2, c) + f = ASC("t") + IF (d = ASC("v")) AND (e = ASC("v")) THEN f = ASC("v") + opr(1, c) = f + prn xloc(oex), c, 12, 0, CHR$(f) + NEXT c + CASE 4 + FOR c = 1 TO tehl + d = opr(1, c) + e = opr(2, c) + f = ASC("v") + IF (d = ASC("t")) AND (e = ASC("t")) THEN f = ASC("t") + opr(1, c) = f + prn xloc(oex), c, 12, 0, CHR$(f) + NEXT c + END SELECT + ELSE + oprm = oprm + 1 + END IF + END SELECT NEXT a GOTO 9 mkneg: FOR c = 1 TO tehl -d = opr(oprm, c) -IF d = ASC("t") THEN d = ASC("v") ELSE d = ASC("t") -prn xloc(ngx), c, 4, 0, CHR$(d) -opr(oprm, c) = d + d = opr(oprm, c) + IF d = ASC("t") THEN d = ASC("v") ELSE d = ASC("t") + prn xloc(ngx), c, 4, 0, CHR$(d) + opr(oprm, c) = d NEXT c ng = 0 RETURN 9 FOR c = 1 TO tehl -vast(c) = opr(1, c) + vast(c) = opr(1, c) NEXT c END SUB @@ -505,80 +505,80 @@ SUB teeslg (x1, x4, l) x2 = x4 h = 0 FOR e = 1 TO 4 -g = 1 -'FOR a = x1 TO x2 -a = x1 -21 -b = tehe(a) -IF b = 40 THEN -c = a -d = 1 -14 -c = c + 1 -IF tehe(c) = 40 THEN d = d + 1 -IF tehe(c) = 41 THEN d = d - 1 -IF d = 0 THEN GOTO 15 -GOTO 14 -15 -IF e = 1 THEN teeslg a + 1, c - 1, l ELSE l = 0 -a = c + l -x2 = x2 + l -h = h + l -GOTO 16 -END IF - -IF (b = 5) AND (e = 1) AND (g > 1) THEN -mov a, 1 -tehe(a) = 40 -lendp a + 2, f -mov a + 2 + f, 1 -tehe(a + 2 + f) = 41 -h = h + 2 -x2 = x2 + 2 -a = a + 2 + f -GOTO 16 -END IF - -IF (b = 3 OR b = 4) AND (e = 2) AND (g > 2) THEN -lendm a - 1, f -mov a - f, 1 -tehe(a - f) = 40 -lendp a + 2, f -mov a + 2 + f, 1 -tehe(a + 2 + f) = 41 -h = h + 2 -x2 = x2 + 2 -a = a + 2 + f -GOTO 16 -END IF - -IF (b = 2) AND (e = 3) AND (g > 3) THEN -lendm a - 1, f -mov a - f, 1 -tehe(a - f) = 40 -lendp a + 2, f -mov a + 2 + f, 1 -tehe(a + 2 + f) = 41 -h = h + 2 -x2 = x2 + 2 -a = a + 2 + f -GOTO 16 -END IF - - -SELECT CASE b -CASE 5 -g = 1 -CASE 3, 4 -g = 2 -CASE 2 -g = 3 -CASE 1 -g = 4 -END SELECT -16 -a = a + 1 -IF a <= x2 THEN GOTO 21 + g = 1 + 'FOR a = x1 TO x2 + a = x1 + 21 + b = tehe(a) + IF b = 40 THEN + c = a + d = 1 + 14 + c = c + 1 + IF tehe(c) = 40 THEN d = d + 1 + IF tehe(c) = 41 THEN d = d - 1 + IF d = 0 THEN GOTO 15 + GOTO 14 + 15 + IF e = 1 THEN teeslg a + 1, c - 1, l ELSE l = 0 + a = c + l + x2 = x2 + l + h = h + l + GOTO 16 + END IF + + IF (b = 5) AND (e = 1) AND (g > 1) THEN + mov a, 1 + tehe(a) = 40 + lendp a + 2, f + mov a + 2 + f, 1 + tehe(a + 2 + f) = 41 + h = h + 2 + x2 = x2 + 2 + a = a + 2 + f + GOTO 16 + END IF + + IF (b = 3 OR b = 4) AND (e = 2) AND (g > 2) THEN + lendm a - 1, f + mov a - f, 1 + tehe(a - f) = 40 + lendp a + 2, f + mov a + 2 + f, 1 + tehe(a + 2 + f) = 41 + h = h + 2 + x2 = x2 + 2 + a = a + 2 + f + GOTO 16 + END IF + + IF (b = 2) AND (e = 3) AND (g > 3) THEN + lendm a - 1, f + mov a - f, 1 + tehe(a - f) = 40 + lendp a + 2, f + mov a + 2 + f, 1 + tehe(a + 2 + f) = 41 + h = h + 2 + x2 = x2 + 2 + a = a + 2 + f + GOTO 16 + END IF + + + SELECT CASE b + CASE 5 + g = 1 + CASE 3, 4 + g = 2 + CASE 2 + g = 3 + CASE 1 + g = 4 + END SELECT + 16 + a = a + 1 + IF a <= x2 THEN GOTO 21 NEXT e l = h END SUB diff --git a/math/loto/loos.txt b/math/loto/loos.txt old mode 100755 new mode 100644 diff --git a/math/loto/loto.bas b/math/loto/loto.bas old mode 100755 new mode 100644 index 3b219c9..629b9c5 --- a/math/loto/loto.bas +++ b/math/loto/loto.bas @@ -1,8 +1,11 @@ +CHDIR ".\qbasicapps\math\loto" + + ' Lottery analyzer ' made by Svjatoslav Agejenko ' in 2001 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslavagejenko@gmail.com +' homepage: svjatoslav.eu +' email: svjatoslav@svjatoslav.eu DECLARE SUB ennus () DECLARE SUB menu () diff --git a/math/sin_cos.bas b/math/sin_cos.bas old mode 100755 new mode 100644 index 037b626..81a1186 --- a/math/sin_cos.bas +++ b/math/sin_cos.bas @@ -1,38 +1,38 @@ ' SIN & COS table ' made by Svjatoslav Agejenko ' in 2003.12 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslavagejenko@gmail.com +' homepage: svjatoslav.eu +' email: svjatoslav@svjatoslav.eu xs = 640 ys = 480 -scr = 12 'Video mode +scr = 12 'Video mode strs = 0 xs = xs / 11.3 ys = ys / 11.7 -IF strs = 0 THEN ELSE GOTO 1 +IF strs = 0 THEN ELSE GOTO 1 SELECT CASE scr -CASE 12, 11 -strs = 16 + CASE 12, 11 + strs = 16 -CASE 9, 10 -strs = 14 + CASE 9, 10 + strs = 14 -CASE 1, 13, 2, 7, 8 -strs = 8 + CASE 1, 13, 2, 7, 8 + strs = 8 END SELECT 1 SCREEN scr FOR b = 1 TO 10 -LINE (0, b * ys)-(xs * 10, b * ys), 8 -LINE (b * xs, 0)-(b * xs, ys * 10), 8 -LOCATE 10 * ys / strs + 2, b * xs / 8 + 1 -PRINT CHR$(b + 48) + LINE (0, b * ys)-(xs * 10, b * ys), 8 + LINE (b * xs, 0)-(b * xs, ys * 10), 8 + LOCATE 10 * ys / strs + 2, b * xs / 8 + 1 + PRINT CHR$(b + 48) NEXT b LOCATE 10 * ys / strs + 2, xs * 10 / 8 + 0 @@ -48,21 +48,21 @@ LINE (0, ys * 5 + 1)-(xs * 10, ys * 5 + 1), 14 LINE (5 * xs + 1, 0)-(5 * xs + 1, 10 * ys), 14 FOR a = 0 TO 10 STEP .05 -x = a * xs -y = SIN(a) * ys * 5 + ys * 5 -IF a > 0 THEN LINE (x1, y1)-(x, y), 15 -x1 = x -y1 = y + x = a * xs + y = SIN(a) * ys * 5 + ys * 5 + IF a > 0 THEN LINE (x1, y1)-(x, y), 15 + x1 = x + y1 = y NEXT a LOCATE y / strs + 1, xs * 10 / 8 PRINT "sin" FOR a = 0 TO 10 STEP .05 -x = a * xs -y = COS(a) * ys * 5 + ys * 5 -IF a > 0 THEN LINE (x1, y1)-(x, y), 12 -x1 = x -y1 = y + x = a * xs + y = COS(a) * ys * 5 + ys * 5 + IF a > 0 THEN LINE (x1, y1)-(x, y), 12 + x1 = x + y1 = y NEXT a LOCATE y / strs + 1, xs * 10 / 8 PRINT "cos" diff --git a/math/sinus.bas b/math/sinus.bas old mode 100755 new mode 100644 diff --git a/math/tuletis.bas b/math/tuletis.bas old mode 100755 new mode 100644 diff --git a/math/valem.bas b/math/valem.bas old mode 100755 new mode 100644 diff --git a/networking/comterm.bas b/networking/comterm.bas old mode 100755 new mode 100644 diff --git a/networking/file2com.bas b/networking/file2com.bas old mode 100755 new mode 100644 diff --git a/networking/lpt2com.bas b/networking/lpt2com.bas old mode 100755 new mode 100644 diff --git a/networking/lptmorse.bas b/networking/lptmorse.bas old mode 100755 new mode 100644 diff --git a/networking/monitor.bas b/networking/monitor.bas old mode 100755 new mode 100644 diff --git a/networking/monitor2.bas b/networking/monitor2.bas old mode 100755 new mode 100644 diff --git a/networking/monitor3.bas b/networking/monitor3.bas old mode 100755 new mode 100644 diff --git a/networking/prt.bas b/networking/prt.bas old mode 100755 new mode 100644 diff --git a/networking/read.bas b/networking/read.bas old mode 100755 new mode 100644 diff --git a/networking/setspeed.bas b/networking/setspeed.bas old mode 100755 new mode 100644 diff --git a/simulation/explosion/explode.bas b/simulation/explosion/explode.bas old mode 100755 new mode 100644 index 5d75b75..54e0482 --- a/simulation/explosion/explode.bas +++ b/simulation/explosion/explode.bas @@ -1,8 +1,8 @@ ' Material simulation, simulates shockwaves propagation in gas. ' made by Svjatoslav Agejenko ' in 2003 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslavagejenko@gmail.com +' homepage: svjatoslav.eu +' email: svjatoslav@svjatoslav.eu DECLARE SUB saveit () DECLARE SUB playit () @@ -36,79 +36,79 @@ start 'disp FOR y = 2 TO 99 -FOR x = 2 TO 99 -IF press(x, y) = wal THEN spdx(x - 1, y) = 0: spdy(x, y - 1) = 0: spdx(x, y) = 0: spdy(x, y) = 0: GOTO 3 -spdy(x, y) = spdy(x, y) - (press(x, y) / 500) ' gravitation - -IF press(x + 1, y) = wal THEN spdx(x, y) = 0: GOTO 2 -spdx(x, y) = (press(x + 1, y) - press(x, y)) / 20 + spdx(x, y) -2 -IF press(x, y + 1) = wal THEN spdy(x, y) = 0: GOTO 3 -spdy(x, y) = (press(x, y + 1) - press(x, y)) / 20 + spdy(x, y) -3 -NEXT x + FOR x = 2 TO 99 + IF press(x, y) = wal THEN spdx(x - 1, y) = 0: spdy(x, y - 1) = 0: spdx(x, y) = 0: spdy(x, y) = 0: GOTO 3 + spdy(x, y) = spdy(x, y) - (press(x, y) / 500) ' gravitation + + IF press(x + 1, y) = wal THEN spdx(x, y) = 0: GOTO 2 + spdx(x, y) = (press(x + 1, y) - press(x, y)) / 20 + spdx(x, y) + 2 + IF press(x, y + 1) = wal THEN spdy(x, y) = 0: GOTO 3 + spdy(x, y) = (press(x, y + 1) - press(x, y)) / 20 + spdy(x, y) + 3 + NEXT x NEXT y 4 b = 0 FOR y = 2 TO 99 -FOR x = 2 TO 99 -a = press(x, y) + spdx(x, y) + spdy(x, y) - spdx(x - 1, y) - spdy(x, y - 1) - -IF a = 0 OR ((a < 0) AND (a > -.0001)) THEN -IF spdx(x, y) < 0 THEN spdx(x, y) = 0 -IF spdy(x, y) < 0 THEN spdy(x, y) = 0 -IF spdx(x - 1, y) > 0 THEN spdx(x - 1, y) = 0 -IF spdy(x, y - 1) > 0 THEN spdy(x, y - 1) = 0 -END IF - -IF a < 0 THEN -IF spdx(x, y) < 0 THEN spdx(x, y) = spdx(x, y) / 1.5 -IF spdy(x, y) < 0 THEN spdy(x, y) = spdy(x, y) / 1.5 -IF spdx(x - 1, y) > 0 THEN spdx(x - 1, y) = spdx(x - 1, y) / 1.5 -IF spdy(x, y - 1) > 0 THEN spdy(x, y - 1) = spdy(x, y - 1) / 1.5 -b = 1 -LOCATE 20, 1 -PRINT a -END IF -NEXT x + FOR x = 2 TO 99 + a = press(x, y) + spdx(x, y) + spdy(x, y) - spdx(x - 1, y) - spdy(x, y - 1) + + IF a = 0 OR ((a < 0) AND (a > -.0001)) THEN + IF spdx(x, y) < 0 THEN spdx(x, y) = 0 + IF spdy(x, y) < 0 THEN spdy(x, y) = 0 + IF spdx(x - 1, y) > 0 THEN spdx(x - 1, y) = 0 + IF spdy(x, y - 1) > 0 THEN spdy(x, y - 1) = 0 + END IF + + IF a < 0 THEN + IF spdx(x, y) < 0 THEN spdx(x, y) = spdx(x, y) / 1.5 + IF spdy(x, y) < 0 THEN spdy(x, y) = spdy(x, y) / 1.5 + IF spdx(x - 1, y) > 0 THEN spdx(x - 1, y) = spdx(x - 1, y) / 1.5 + IF spdy(x, y - 1) > 0 THEN spdy(x, y - 1) = spdy(x, y - 1) / 1.5 + b = 1 + LOCATE 20, 1 + PRINT a + END IF + NEXT x NEXT y IF b = 1 THEN GOTO 4 FOR y = 2 TO 99 -FOR x = 2 TO 99 -IF spdx(x, y) > 0 THEN spdxp(x - 1, y) = ((press(x, y) * spdx(x - 1, y)) + (spdx(x, y) * spdx(x, y))) / (press(x, y) + spdx(x, y)) - spdx(x - 1, y) -IF spdy(x, y) > 0 THEN spdyp(x, y - 1) = ((press(x, y) * spdy(x, y - 1)) + (spdy(x, y) * spdy(x, y))) / (press(x, y) + spdy(x, y)) - spdy(x, y - 1) -IF spdx(x - 1, y) < 0 THEN spdxp(x, y) = ((press(x, y) * spdx(x, y)) - (spdx(x - 1, y) * spdx(x - 1, y))) / (press(x, y) - spdx(x - 1, y)) - spdx(x, y) -IF spdy(x, y - 1) < 0 THEN spdyp(x, y) = ((press(x, y) * spdy(x, y)) - (spdy(x, y - 1) * spdy(x, y - 1))) / (press(x, y) - spdy(x, y - 1)) - spdy(x, y) -NEXT x + FOR x = 2 TO 99 + IF spdx(x, y) > 0 THEN spdxp(x - 1, y) = ((press(x, y) * spdx(x - 1, y)) + (spdx(x, y) * spdx(x, y))) / (press(x, y) + spdx(x, y)) - spdx(x - 1, y) + IF spdy(x, y) > 0 THEN spdyp(x, y - 1) = ((press(x, y) * spdy(x, y - 1)) + (spdy(x, y) * spdy(x, y))) / (press(x, y) + spdy(x, y)) - spdy(x, y - 1) + IF spdx(x - 1, y) < 0 THEN spdxp(x, y) = ((press(x, y) * spdx(x, y)) - (spdx(x - 1, y) * spdx(x - 1, y))) / (press(x, y) - spdx(x - 1, y)) - spdx(x, y) + IF spdy(x, y - 1) < 0 THEN spdyp(x, y) = ((press(x, y) * spdy(x, y)) - (spdy(x, y - 1) * spdy(x, y - 1))) / (press(x, y) - spdy(x, y - 1)) - spdy(x, y) + NEXT x NEXT y FOR y = 2 TO 99 -FOR x = 2 TO 99 -press(x + 1, y) = press(x + 1, y) - spdx(x, y) -press(x, y + 1) = press(x, y + 1) - spdy(x, y) -press(x, y) = press(x, y) + spdx(x, y) -press(x, y) = press(x, y) + spdy(x, y) -NEXT x + FOR x = 2 TO 99 + press(x + 1, y) = press(x + 1, y) - spdx(x, y) + press(x, y + 1) = press(x, y + 1) - spdy(x, y) + press(x, y) = press(x, y) + spdx(x, y) + press(x, y) = press(x, y) + spdy(x, y) + NEXT x NEXT y FOR y = 2 TO 99 -FOR x = 2 TO 99 -spdx(x, y) = spdx(x, y) + spdxp(x, y) -spdxp(x, y) = 0 -spdy(x, y) = spdy(x, y) + spdyp(x, y) -spdyp(x, y) = 0 -NEXT x + FOR x = 2 TO 99 + spdx(x, y) = spdx(x, y) + spdxp(x, y) + spdxp(x, y) = 0 + spdy(x, y) = spdy(x, y) + spdyp(x, y) + spdyp(x, y) = 0 + NEXT x NEXT y FOR y = 1 TO 100 -FOR x = 1 TO 100 -PSET (x, y), press(x, y) + 16 -NEXT x + FOR x = 1 TO 100 + PSET (x, y), press(x, y) + 16 + NEXT x NEXT y saveit @@ -122,10 +122,10 @@ CLOSE #1 SUB disp FOR y = 47 TO 53 -FOR x = 47 TO 53 -LOCATE y - 46, (x - 46) * 4 -PRINT press(x, y) -NEXT x + FOR x = 47 TO 53 + LOCATE y - 46, (x - 46) * 4 + PRINT press(x, y) + NEXT x NEXT y a$ = INPUT$(1) @@ -142,9 +142,9 @@ x3 = x2 - x1 y3 = y2 - y1 FOR a = 0 TO m -x5 = x3 * a / m + x1 -y5 = y3 * a / m + y1 -press(x5, y5) = wal + x5 = x3 * a / m + x1 + y5 = y3 * a / m + y1 + press(x5, y5) = wal NEXT a @@ -152,12 +152,12 @@ END SUB SUB saveit FOR y = 1 TO 100 -a$ = "" -FOR x = 1 TO 100 -a$ = a$ + CHR$(POINT(x, y)) -NEXT x -linb = a$ -PUT #1, , linb + a$ = "" + FOR x = 1 TO 100 + a$ = a$ + CHR$(POINT(x, y)) + NEXT x + linb = a$ + PUT #1, , linb NEXT y @@ -174,19 +174,19 @@ SUB start frm = 0 FOR a = 1 TO 100 -FOR b = 1 TO 100 -press(a, b) = 3 -spdx(a, b) = 0 -spdy(a, b) = 0 -spdxp(a, b) = 0 -spdyp(a, b) = 0 -NEXT b + FOR b = 1 TO 100 + press(a, b) = 3 + spdx(a, b) = 0 + spdy(a, b) = 0 + spdxp(a, b) = 0 + spdyp(a, b) = 0 + NEXT b NEXT a FOR y = 30 TO 60 -FOR x = 10 TO 50 -spot x, y, 30 -NEXT x + FOR x = 10 TO 50 + spot x, y, 30 + NEXT x NEXT y lin 2, 2, 2, 99 @@ -195,7 +195,7 @@ lin 2, 99, 99, 99 lin 2, 2, 99, 2 FOR x = 5 TO 40 STEP 5 -lin x, 80, x + 50, 80 - x + lin x, 80, x + 50, 80 - x NEXT x END SUB diff --git a/simulation/explosion/index.html b/simulation/explosion/index.html old mode 100755 new mode 100644 diff --git a/simulation/explosion/sshot.png b/simulation/explosion/sshot.png old mode 100755 new mode 100644 diff --git a/simulation/interf.BAS b/simulation/interf.BAS old mode 100755 new mode 100644 diff --git a/simulation/interf2.BAS b/simulation/interf2.BAS old mode 100755 new mode 100644 diff --git a/simulation/life/1 b/simulation/life/1 old mode 100755 new mode 100644 diff --git a/simulation/life/10 b/simulation/life/10 old mode 100755 new mode 100644 diff --git a/simulation/life/11 b/simulation/life/11 old mode 100755 new mode 100644 diff --git a/simulation/life/2 b/simulation/life/2 old mode 100755 new mode 100644 diff --git a/simulation/life/3 b/simulation/life/3 old mode 100755 new mode 100644 diff --git a/simulation/life/4 b/simulation/life/4 old mode 100755 new mode 100644 diff --git a/simulation/life/5 b/simulation/life/5 old mode 100755 new mode 100644 diff --git a/simulation/life/6 b/simulation/life/6 old mode 100755 new mode 100644 diff --git a/simulation/life/7 b/simulation/life/7 old mode 100755 new mode 100644 diff --git a/simulation/life/8 b/simulation/life/8 old mode 100755 new mode 100644 diff --git a/simulation/life/9 b/simulation/life/9 old mode 100755 new mode 100644 diff --git a/simulation/life/e b/simulation/life/e old mode 100755 new mode 100644 diff --git a/simulation/life/index.html b/simulation/life/index.html old mode 100755 new mode 100644 diff --git a/simulation/life/life.bas b/simulation/life/life.bas old mode 100755 new mode 100644 index ec36a1c..2f66bd5 --- a/simulation/life/life.bas +++ b/simulation/life/life.bas @@ -1,3 +1,6 @@ +CHDIR ".\qbasicapps\simulation\life" + + ' Life simulator/editor ' made by Svjatoslav Agejenko ' in 2001 diff --git a/simulation/life/sshot.png b/simulation/life/sshot.png old mode 100755 new mode 100644 diff --git a/simulation/liquid.bas b/simulation/liquid.bas old mode 100755 new mode 100644 index 9b5bd93..ee62c3d --- a/simulation/liquid.bas +++ b/simulation/liquid.bas @@ -1,8 +1,8 @@ ' Rounds up sharp edges ' made by Svjatoslav Agejenko ' in 2003.12 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslavagejenko@gmail.com +' homepage: svjatoslav.eu +' email: svjatoslav@svjatoslav.eu DEFINT A-Z WIDTH 80, 50 @@ -13,37 +13,37 @@ DIM SHARED buf1(1 TO 80, 1 TO 50) DIM SHARED buf2(1 TO 80, 1 TO 50) FOR y = 1 TO 50 -FOR x = 1 TO 80 -buf1(x, y) = INT(RND * 2) -NEXT x + FOR x = 1 TO 80 + buf1(x, y) = INT(RND * 2) + NEXT x NEXT y 1 FOR y = 2 TO 49 -FOR x = 2 TO 79 -c = buf1(x - 1, y - 1) -c = c + buf1(x, y - 1) -c = c + buf1(x + 1, y - 1) -c = c + buf1(x - 1, y) -c = c + buf1(x + 1, y) -c = c + buf1(x - 1, y + 1) -c = c + buf1(x, y + 1) -c = c + buf1(x + 1, y + 1) -IF buf1(x, y) = 1 THEN -IF c > 3 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0 -ELSE -IF c > 4 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0 -END IF -NEXT x + FOR x = 2 TO 79 + c = buf1(x - 1, y - 1) + c = c + buf1(x, y - 1) + c = c + buf1(x + 1, y - 1) + c = c + buf1(x - 1, y) + c = c + buf1(x + 1, y) + c = c + buf1(x - 1, y + 1) + c = c + buf1(x, y + 1) + c = c + buf1(x + 1, y + 1) + IF buf1(x, y) = 1 THEN + IF c > 3 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0 + ELSE + IF c > 4 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0 + END IF + NEXT x NEXT y FOR y = 1 TO 50 -FOR x = 1 TO 80 -b = buf2(x, y) -buf1(x, y) = b -LOCATE y, x -IF b = 0 THEN PRINT "."; ELSE PRINT "#" -NEXT x + FOR x = 1 TO 80 + b = buf2(x, y) + buf1(x, y) = b + LOCATE y, x + IF b = 0 THEN PRINT "."; ELSE PRINT "#" + NEXT x NEXT y SOUND 0, 3 GOTO 1 diff --git a/system/CMOS string/getenv.asm b/system/CMOS string/getenv.asm old mode 100755 new mode 100644 index f94203d..a2a5933 --- a/system/CMOS string/getenv.asm +++ b/system/CMOS string/getenv.asm @@ -1,6 +1,7 @@ -; Svjatoslav Agejenko -; s@ttk17.edu.ee -; 2002.10.07 +; by: Svjatoslav Agejenko +; homepage: svjatoslav.eu +; email: svjatoslav@svjatoslav.eu +; on: 2002.10.07 ; compile with FASM ( Flat ASseMbler ) by Tomasz Grysztar org 100h diff --git a/system/CMOS string/savecmos.bas b/system/CMOS string/savecmos.bas old mode 100755 new mode 100644 index 0d87a2c..1eb13ad --- a/system/CMOS string/savecmos.bas +++ b/system/CMOS string/savecmos.bas @@ -14,12 +14,12 @@ PRINT "1 - to enter new string" PRINT "2 - to quit" a$ = INPUT$(1) SELECT CASE a$ -CASE "1" -newstring -CASE "2" -SYSTEM -CASE ELSE -PRINT "unrecognized command" + CASE "1" + newstring + CASE "2" + SYSTEM + CASE ELSE + PRINT "unrecognized command" END SELECT GOTO 2 @@ -32,8 +32,8 @@ l = INP(&H71) IF l > maxlen THEN PRINT "": GOTO 1 COLOR 0, 15 FOR a = 1 TO l -OUT &H70, adr + a -PRINT CHR$(INP(&H71)); + OUT &H70, adr + a + PRINT CHR$(INP(&H71)); NEXT a COLOR 7, 0 PRINT " " @@ -50,9 +50,9 @@ OUT &H70, adr OUT &H71, LEN(a$) FOR b = 1 TO LEN(a$) -c = ASC(RIGHT$(LEFT$(a$, b), 1)) -OUT &H70, adr + b -OUT &H71, c + c = ASC(RIGHT$(LEFT$(a$, b), 1)) + OUT &H70, adr + b + OUT &H71, c NEXT b 3 @@ -64,7 +64,7 @@ maxlen = 8 CLS PRINT "Svjatoslav Agejenko" -PRINT "s@ttk17.edu.ee" +PRINT "svjatoslav@svjatoslav.eu" PRINT "2002.10.07" PRINT " " PRINT "Utility to store max"; maxlen; "character long string in CMOS memory." diff --git a/tutorial/group1/CVS/Entries b/tutorial/group1/CVS/Entries deleted file mode 100755 index a1e751b..0000000 --- a/tutorial/group1/CVS/Entries +++ /dev/null @@ -1,20 +0,0 @@ -/00.bas/1.1/Thu Apr 12 14:31:50 2007// -/01.bas/1.1/Thu Apr 12 14:31:50 2007// -/02.bas/1.1/Thu Apr 12 14:31:50 2007// -/03.bas/1.1/Thu Apr 12 14:31:50 2007// -/04.bas/1.1/Thu Apr 12 14:31:50 2007// -/05.bas/1.1/Thu Apr 12 14:31:50 2007// -/06.bas/1.1/Thu Apr 12 14:31:50 2007// -/07.bas/1.1/Thu Apr 12 14:31:50 2007// -/08.bas/1.1/Thu Apr 12 14:31:50 2007// -/09.bas/1.1/Thu Apr 12 14:31:50 2007// -/10.bas/1.1/Thu Apr 12 14:31:50 2007// -/11.bas/1.1/Thu Apr 12 14:31:50 2007// -/12.bas/1.1/Thu Apr 12 14:31:50 2007// -/13.bas/1.1/Thu Apr 12 14:31:50 2007// -/14.bas/1.1/Thu Apr 12 14:31:50 2007// -/15.bas/1.1/Thu Apr 12 14:31:50 2007// -/16.bas/1.1/Thu Apr 12 14:31:50 2007// -/17.bas/1.1/Thu Apr 12 14:31:50 2007// -/18.bas/1.1/Thu Apr 12 14:31:50 2007// -/19.bas/1.1/Thu Apr 12 14:31:50 2007// diff --git a/tutorial/group1/CVS/Repository b/tutorial/group1/CVS/Repository deleted file mode 100755 index 3e7369a..0000000 --- a/tutorial/group1/CVS/Repository +++ /dev/null @@ -1 +0,0 @@ -QBasicPrograms/qbasicTutorial/group1 diff --git a/tutorial/group1/CVS/Root b/tutorial/group1/CVS/Root deleted file mode 100755 index f564cc2..0000000 --- a/tutorial/group1/CVS/Root +++ /dev/null @@ -1 +0,0 @@ -:extssh:n0@svjatoslav.eu:/home/cvs/cvsroot diff --git a/tutorial/group1/CVS/Template b/tutorial/group1/CVS/Template deleted file mode 100755 index e69de29..0000000 diff --git a/tutorial/group2/CVS/Entries b/tutorial/group2/CVS/Entries deleted file mode 100755 index bad3d2f..0000000 --- a/tutorial/group2/CVS/Entries +++ /dev/null @@ -1,18 +0,0 @@ -/01.bas/1.1/Thu Apr 12 14:31:50 2007// -/02.bas/1.1/Thu Apr 12 14:31:50 2007// -/03.bas/1.1/Thu Apr 12 14:31:50 2007// -/04.bas/1.1/Thu Apr 12 14:31:50 2007// -/05.bas/1.1/Thu Apr 12 14:31:50 2007// -/06.bas/1.1/Thu Apr 12 14:31:50 2007// -/07.bas/1.1/Thu Apr 12 14:31:50 2007// -/08.bas/1.1/Thu Apr 12 14:31:50 2007// -/09.bas/1.1/Thu Apr 12 14:31:50 2007// -/10.bas/1.1/Thu Apr 12 14:31:50 2007// -/11.bas/1.1/Thu Apr 12 14:31:50 2007// -/12.bas/1.1/Thu Apr 12 14:31:50 2007// -/13.bas/1.1/Thu Apr 12 14:31:50 2007// -/14.bas/1.1/Thu Apr 12 14:31:50 2007// -/15.bas/1.1/Thu Apr 12 14:31:50 2007// -/16.bas/1.1/Thu Apr 12 14:31:50 2007// -/17.bas/1.1/Thu Apr 12 14:31:50 2007// -/18.bas/1.1/Thu Apr 12 14:31:50 2007// diff --git a/tutorial/group2/CVS/Repository b/tutorial/group2/CVS/Repository deleted file mode 100755 index 8908cb4..0000000 --- a/tutorial/group2/CVS/Repository +++ /dev/null @@ -1 +0,0 @@ -QBasicPrograms/qbasicTutorial/group2 diff --git a/tutorial/group2/CVS/Root b/tutorial/group2/CVS/Root deleted file mode 100755 index f564cc2..0000000 --- a/tutorial/group2/CVS/Root +++ /dev/null @@ -1 +0,0 @@ -:extssh:n0@svjatoslav.eu:/home/cvs/cvsroot diff --git a/tutorial/group2/CVS/Template b/tutorial/group2/CVS/Template deleted file mode 100755 index e69de29..0000000 diff --git a/tutorial/group3/CVS/Entries b/tutorial/group3/CVS/Entries deleted file mode 100755 index 72a04c2..0000000 --- a/tutorial/group3/CVS/Entries +++ /dev/null @@ -1,12 +0,0 @@ -/00.bas/1.1/Thu Apr 12 14:31:50 2007// -/01.bas/1.1/Thu Apr 12 14:31:50 2007// -/02.bas/1.1/Thu Apr 12 14:31:50 2007// -/03.bas/1.1/Thu Apr 12 14:31:50 2007// -/04.bas/1.1/Thu Apr 12 14:31:50 2007// -/05.bas/1.1/Thu Apr 12 14:31:50 2007// -/06.bas/1.1/Thu Apr 12 14:31:50 2007// -/07.bas/1.1/Thu Apr 12 14:31:50 2007// -/08.bas/1.1/Thu Apr 12 14:31:50 2007// -/09.bas/1.1/Thu Apr 12 14:31:50 2007// -/10.bas/1.1/Thu Apr 12 14:31:50 2007// -/11.bas/1.1/Thu Apr 12 14:31:50 2007// diff --git a/tutorial/group3/CVS/Repository b/tutorial/group3/CVS/Repository deleted file mode 100755 index d878769..0000000 --- a/tutorial/group3/CVS/Repository +++ /dev/null @@ -1 +0,0 @@ -QBasicPrograms/qbasicTutorial/group3 diff --git a/tutorial/group3/CVS/Root b/tutorial/group3/CVS/Root deleted file mode 100755 index f564cc2..0000000 --- a/tutorial/group3/CVS/Root +++ /dev/null @@ -1 +0,0 @@ -:extssh:n0@svjatoslav.eu:/home/cvs/cvsroot diff --git a/tutorial/group3/CVS/Template b/tutorial/group3/CVS/Template deleted file mode 100755 index e69de29..0000000 diff --git a/tutorial/qsort3.bas b/tutorial/qsort3.bas old mode 100755 new mode 100644 diff --git a/unsorted/contrast.bas b/unsorted/contrast.bas deleted file mode 100755 index 971e2ed..0000000 --- a/unsorted/contrast.bas +++ /dev/null @@ -1,7 +0,0 @@ -SCREEN 13 - -FOR a = 16 TO 31 STEP .06 -x = x + 1 -LINE (x, 0)-(x, 150), a -NEXT a - diff --git a/unsorted/font.bas b/unsorted/font.bas old mode 100755 new mode 100644 diff --git a/unsorted/key.bas b/unsorted/key.bas old mode 100755 new mode 100644 diff --git a/unsorted/lightpe2.bas b/unsorted/lightpe2.bas old mode 100755 new mode 100644 diff --git a/unsorted/lightpen.bas b/unsorted/lightpen.bas old mode 100755 new mode 100644 diff --git a/unsorted/matem.bas b/unsorted/matem.bas old mode 100755 new mode 100644 diff --git a/unsorted/modes.bas b/unsorted/modes.bas old mode 100755 new mode 100644 index 70a2c58..aef4458 --- a/unsorted/modes.bas +++ b/unsorted/modes.bas @@ -1,8 +1,8 @@ ' Determine avaiable video modes ' made by Svjatoslav Agejenko ' in 2001 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslavagejenko@gmail.com +' homepage: svjatoslav.eu +' email: svjatoslav@svjatoslav.eu ' program to determine avaiable video modes ' it assumes that 1 is always avaiable @@ -24,12 +24,12 @@ GOTO 2 1 a = a + 1 IF a > 1000 THEN -SCREEN 1 -PRINT "Avaiable video modes on this machine is:" -FOR a = 1 TO b - 1 -PRINT mo(a) -NEXT a -END + SCREEN 1 + PRINT "Avaiable video modes on this computer:" + FOR a = 1 TO b - 1 + PRINT mo(a) + NEXT a + END END IF RESUME diff --git a/unsorted/pal.bas b/unsorted/pal.bas old mode 100755 new mode 100644 index 68b6386..f5e6faa --- a/unsorted/pal.bas +++ b/unsorted/pal.bas @@ -1,8 +1,7 @@ -' Universal palette & mixing -' made by Svjatoslav Agejenko -' in 2001 -' H-Page: svjatoslav.eu -' E-Mail: svjatoslavagejenko@gmail.com +' An attempt to generate universally reusable color parette. +' By Svjatoslav Agejenko in 2001. +' homepage: svjatoslav.eu +' email: svjatoslav@svjatoslav.eu @@ -13,25 +12,25 @@ CLS c = 0 FOR r = 0 TO 5 -FOR g = 0 TO 5 -FOR b = 0 TO 5 -OUT &H3C8, c -c = c + 1 -OUT &H3C9, r * 12 -OUT &H3C9, g * 12 -OUT &H3C9, b * 12 -NEXT b -NEXT g + FOR g = 0 TO 5 + FOR b = 0 TO 5 + OUT &H3C8, c + c = c + 1 + OUT &H3C9, r * 12 + OUT &H3C9, g * 12 + OUT &H3C9, b * 12 + NEXT b + NEXT g NEXT r 'GOTO 1 FOR c = 0 TO 5 -FOR b = 0 TO 5 -FOR a = 0 TO 5 -LINE (a * 5 + c * 30, b * 5)-(a * 5 + 4 + c * 30, b * 5 + 4), c * 36 + b * 6 + a, BF -NEXT a -NEXT b + FOR b = 0 TO 5 + FOR a = 0 TO 5 + LINE (a * 5 + c * 30, b * 5)-(a * 5 + 4 + c * 30, b * 5 + 4), c * 36 + b * 6 + a, BF + NEXT a + NEXT b NEXT c @@ -40,31 +39,31 @@ a$ = INPUT$(1) ex = -100 ey = 0 FOR z = 0 TO 75 STEP 15 -x1 = 50 - (z / 2) -y1 = 50 - (z * .866025) -x2 = 50 + z -y2 = 50 -x3 = x1 -y3 = 100 - y1 - -ex = ex + 100 -IF z = 45 THEN ex = ex - 300: ey = ey + 101 - -FOR x = 0 TO 100 -FOR y = 0 TO 100 -r = 7 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 15 + 1) -g = 7 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 15 + 1) -b = 7 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 15 + 1) -IF r < 0 THEN r = 0 -IF g < 0 THEN g = 0 -IF b < 0 THEN b = 0 -IF r > 5 THEN r = 5 -IF g > 5 THEN g = 5 -IF b > 5 THEN b = 5 -c = r * 36 + g * 6 + b -PSET (x + ex, y + ey), c -NEXT y -NEXT x + x1 = 50 - (z / 2) + y1 = 50 - (z * .866025) + x2 = 50 + z + y2 = 50 + x3 = x1 + y3 = 100 - y1 + + ex = ex + 100 + IF z = 45 THEN ex = ex - 300: ey = ey + 101 + + FOR x = 0 TO 100 + FOR y = 0 TO 100 + r = 7 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 15 + 1) + g = 7 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 15 + 1) + b = 7 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 15 + 1) + IF r < 0 THEN r = 0 + IF g < 0 THEN g = 0 + IF b < 0 THEN b = 0 + IF r > 5 THEN r = 5 + IF g > 5 THEN g = 5 + IF b > 5 THEN b = 5 + c = r * 36 + g * 6 + b + PSET (x + ex, y + ey), c + NEXT y + NEXT x NEXT z a$ = INPUT$(1) @@ -72,44 +71,44 @@ a$ = INPUT$(1) ex = -100 ey = 0 FOR z = 0 TO 75 STEP 15 -x1 = 50 - (z / 2.5) -y1 = 50 - (z * .566025) -x2 = 50 + z / 1.5 -y2 = 50 -x3 = x1 -y3 = 100 - y1 - -ex = ex + 100 -IF z = 45 THEN ex = ex - 300: ey = ey + 101 - -r1 = 0 -g1 = 0 -b1 = 0 -FOR x = 0 TO 100 -FOR y = 0 TO 100 -r = 30 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 2 + 1) -g = 30 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 2 + 1) -b = 30 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 2 + 1) -r1 = r1 + r -g1 = g1 + g -b1 = b1 + b -r = r1 / 5 -g = g1 / 5 -b = b1 / 5 -r1 = r1 - (r * 5) -g1 = g1 - (g * 5) -b1 = b1 - (b * 5) - -IF r < 0 THEN r = 0 -IF g < 0 THEN g = 0 -IF b < 0 THEN b = 0 -IF r > 5 THEN r = 5 -IF g > 5 THEN g = 5 -IF b > 5 THEN b = 5 -c = r * 36 + g * 6 + b -PSET (x + ex, y + ey), c -NEXT y -NEXT x + x1 = 50 - (z / 2.5) + y1 = 50 - (z * .566025) + x2 = 50 + z / 1.5 + y2 = 50 + x3 = x1 + y3 = 100 - y1 + + ex = ex + 100 + IF z = 45 THEN ex = ex - 300: ey = ey + 101 + + r1 = 0 + g1 = 0 + b1 = 0 + FOR x = 0 TO 100 + FOR y = 0 TO 100 + r = 30 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 2 + 1) + g = 30 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 2 + 1) + b = 30 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 2 + 1) + r1 = r1 + r + g1 = g1 + g + b1 = b1 + b + r = r1 / 5 + g = g1 / 5 + b = b1 / 5 + r1 = r1 - (r * 5) + g1 = g1 - (g * 5) + b1 = b1 - (b * 5) + + IF r < 0 THEN r = 0 + IF g < 0 THEN g = 0 + IF b < 0 THEN b = 0 + IF r > 5 THEN r = 5 + IF g > 5 THEN g = 5 + IF b > 5 THEN b = 5 + c = r * 36 + g * 6 + b + PSET (x + ex, y + ey), c + NEXT y + NEXT x NEXT z a$ = INPUT$(1) diff --git a/unsorted/passw.bas b/unsorted/passw.bas old mode 100755 new mode 100644 index 2ce1a96..cdacdb6 --- a/unsorted/passw.bas +++ b/unsorted/passw.bas @@ -2,6 +2,9 @@ ' See or modify "passwd.dat" for password. ' Is useful when compiled into EXE, and put into AUTOEXEC.BAT +CHDIR ".\qbasicapps\unsorted" + + DECLARE SUB check (a$) DECLARE SUB start () DECLARE SUB mkv (s%, C%) diff --git a/unsorted/passw.dat b/unsorted/passw.dat old mode 100755 new mode 100644 diff --git a/unsorted/tim.dat b/unsorted/tim.dat old mode 100755 new mode 100644 diff --git a/unsorted/timer.bas b/unsorted/timer.bas old mode 100755 new mode 100644 index 78399ef..74d6238 --- a/unsorted/timer.bas +++ b/unsorted/timer.bas @@ -1,3 +1,6 @@ +CHDIR ".\qbasicapps\unsorted" + + DECLARE SUB bar () DECLARE SUB help (a!) DECLARE SUB alarm (a!) @@ -577,11 +580,11 @@ LOCATE 13, 24 PRINT "and specified weekdays." LOCATE 15, 24 -PRINT " This program is property of" +PRINT " Copyright" LOCATE 16, 24 -PRINT "Vova German & Svjatoslav Agejenko" +PRINT "Vladimir German &" LOCATE 17, 24 -PRINT " All rights reserved." +PRINT "Svjatoslav Agejenko" br$ = "Press any key to close this window" CASE 2 -- 2.20.1