* fixed some email addresses

* fixed file permissions

diff --git a/graphics/presentations/Artifical Intelligence/data.dat b/graphics/presentations/Artifical Intelligence/data.dat
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/graphics/presentations/Artifical Intelligence/data2.dat b/graphics/presentations/Artifical Intelligence/data2.dat
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/graphics/presentations/Artifical Intelligence/tehis.bas b/graphics/presentations/Artifical Intelligence/tehis.bas
old mode 100755 (executable)
new mode 100644 (file)
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"\r
+\r
+\r
 ' AI presentation\r
 ' made by Svjatoslav Agejenko\r
 ' in 2002\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' homepage: svjatoslav.eu\r
+' email:       svjatoslav@svjatoslav.eu\r
  \r
 DECLARE SUB sc10 ()\r
 DECLARE SUB sc9 ()\r

diff --git a/graphics/spirals/spiral2.bas b/graphics/spirals/spiral2.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/graphics/spirals/spiral4.bas b/graphics/spirals/spiral4.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/graphics/spirals/spiral6.bas b/graphics/spirals/spiral6.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/graphics/spirals/spiral7.bas b/graphics/spirals/spiral7.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/graphics/spirals/spiral8.bas b/graphics/spirals/spiral8.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/graphics/spirals/spiral9.bas b/graphics/spirals/spiral9.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/graphics/spirals/texture.dat b/graphics/spirals/texture.dat
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/graphics/spirals/texture1.dat b/graphics/spirals/texture1.dat
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/math/05graaf.bas b/math/05graaf.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/math/3D graph/3dgraph.bas b/math/3D graph/3dgraph.bas
old mode 100755 (executable)
new mode 100644 (file)
index b867eeb..bfb4074
--- a/math/3D graph/3dgraph.bas
+++ b/math/3D graph/3dgraph.bas
@@ -1,8 +1,11 @@
+CHDIR ".\qbasicapps\math\3D graph\"\r
+\r
+\r
 ' 3D formula explorer\r
 ' made by Svjatoslav Agejenko\r
 ' in 2002\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' homepage: svjatoslav.eu\r
+' email:       svjatoslav@svjatoslav.eu\r
  \r
 ' use:\r
 ' cursor keys - move around\r
@@ -112,28 +115,28 @@ c = 14
 d = 0\r
 e = 0\r
 FOR x = -500 TO 500 STEP 50\r
-FOR z = -500 TO 500 STEP 50\r
-\r
-d = d + 1\r
-xn(nump + d) = x\r
-valem x / 50, z / 50, y\r
-yn(nump + d) = y * 50\r
-zn(nump + d) = z\r
-IF z > -500 THEN\r
-e = e + 1\r
-point1(numl + e) = nump + d\r
-point2(numl + e) = nump + d - 1\r
-col(numl + e) = c\r
-END IF\r
-\r
-IF x > -500 THEN\r
-e = e + 1\r
-point1(numl + e) = nump + d\r
-point2(numl + e) = nump + d - 21\r
-col(numl + e) = c\r
-END IF\r
-\r
-NEXT z\r
+    FOR z = -500 TO 500 STEP 50\r
+\r
+        d = d + 1\r
+        xn(nump + d) = x\r
+        valem x / 50, z / 50, y\r
+        yn(nump + d) = y * 50\r
+        zn(nump + d) = z\r
+        IF z > -500 THEN\r
+            e = e + 1\r
+            point1(numl + e) = nump + d\r
+            point2(numl + e) = nump + d - 1\r
+            col(numl + e) = c\r
+        END IF\r
+\r
+        IF x > -500 THEN\r
+            e = e + 1\r
+            point1(numl + e) = nump + d\r
+            point2(numl + e) = nump + d - 21\r
+            col(numl + e) = c\r
+        END IF\r
+\r
+    NEXT z\r
 NEXT x\r
 nump = nump + d\r
 numl = numl + e\r
@@ -146,27 +149,27 @@ c = 3
 d = 0\r
 e = 0\r
 FOR z = -500 TO 500 STEP 100\r
-FOR y = -500 TO 500 STEP 100\r
-\r
-d = d + 1\r
-xn(nump + d) = x1\r
-yn(nump + d) = y1 + y\r
-zn(nump + d) = z1 + z\r
-IF y > -500 THEN\r
-e = e + 1\r
-point1(numl + e) = nump + d\r
-point2(numl + e) = nump + d - 1\r
-col(numl + e) = c\r
-END IF\r
-\r
-IF z > -500 THEN\r
-e = e + 1\r
-point1(numl + e) = nump + d\r
-point2(numl + e) = nump + d - 11\r
-col(numl + e) = c\r
-END IF\r
-\r
-NEXT y\r
+    FOR y = -500 TO 500 STEP 100\r
+\r
+        d = d + 1\r
+        xn(nump + d) = x1\r
+        yn(nump + d) = y1 + y\r
+        zn(nump + d) = z1 + z\r
+        IF y > -500 THEN\r
+            e = e + 1\r
+            point1(numl + e) = nump + d\r
+            point2(numl + e) = nump + d - 1\r
+            col(numl + e) = c\r
+        END IF\r
+\r
+        IF z > -500 THEN\r
+            e = e + 1\r
+            point1(numl + e) = nump + d\r
+            point2(numl + e) = nump + d - 11\r
+            col(numl + e) = c\r
+        END IF\r
+\r
+    NEXT y\r
 NEXT z\r
 nump = nump + d\r
 numl = numl + e\r
@@ -180,27 +183,27 @@ c = 3
 d = 0\r
 e = 0\r
 FOR x = -500 TO 500 STEP 100\r
-FOR y = -500 TO 500 STEP 100\r
-\r
-d = d + 1\r
-xn(nump + d) = x1 + x\r
-yn(nump + d) = y1 + y\r
-zn(nump + d) = z1\r
-IF y > -500 THEN\r
-e = e + 1\r
-point1(numl + e) = nump + d\r
-point2(numl + e) = nump + d - 1\r
-col(numl + e) = c\r
-END IF\r
-\r
-IF x > -500 THEN\r
-e = e + 1\r
-point1(numl + e) = nump + d\r
-point2(numl + e) = nump + d - 11\r
-col(numl + e) = c\r
-END IF\r
-\r
-NEXT y\r
+    FOR y = -500 TO 500 STEP 100\r
+\r
+        d = d + 1\r
+        xn(nump + d) = x1 + x\r
+        yn(nump + d) = y1 + y\r
+        zn(nump + d) = z1\r
+        IF y > -500 THEN\r
+            e = e + 1\r
+            point1(numl + e) = nump + d\r
+            point2(numl + e) = nump + d - 1\r
+            col(numl + e) = c\r
+        END IF\r
+\r
+        IF x > -500 THEN\r
+            e = e + 1\r
+            point1(numl + e) = nump + d\r
+            point2(numl + e) = nump + d - 11\r
+            col(numl + e) = c\r
+        END IF\r
+\r
+    NEXT y\r
 NEXT x\r
 nump = nump + d\r
 numl = numl + e\r
@@ -215,27 +218,27 @@ c = 3
 d = 0\r
 e = 0\r
 FOR x = -500 TO 500 STEP 100\r
-FOR z = -500 TO 500 STEP 100\r
-\r
-d = d + 1\r
-xn(nump + d) = x1 + x\r
-yn(nump + d) = y1 + y\r
-zn(nump + d) = z\r
-IF z > -500 THEN\r
-e = e + 1\r
-point1(numl + e) = nump + d\r
-point2(numl + e) = nump + d - 1\r
-col(numl + e) = c\r
-END IF\r
-\r
-IF x > -500 THEN\r
-e = e + 1\r
-point1(numl + e) = nump + d\r
-point2(numl + e) = nump + d - 11\r
-col(numl + e) = c\r
-END IF\r
-\r
-NEXT z\r
+    FOR z = -500 TO 500 STEP 100\r
+\r
+        d = d + 1\r
+        xn(nump + d) = x1 + x\r
+        yn(nump + d) = y1 + y\r
+        zn(nump + d) = z\r
+        IF z > -500 THEN\r
+            e = e + 1\r
+            point1(numl + e) = nump + d\r
+            point2(numl + e) = nump + d - 1\r
+            col(numl + e) = c\r
+        END IF\r
+\r
+        IF x > -500 THEN\r
+            e = e + 1\r
+            point1(numl + e) = nump + d\r
+            point2(numl + e) = nump + d - 11\r
+            col(numl + e) = c\r
+        END IF\r
+\r
+    NEXT z\r
 NEXT x\r
 nump = nump + d\r
 numl = numl + e\r
@@ -269,89 +272,91 @@ C2 = COS(Deg2): S2 = SIN(Deg2)
  \r
 FOR a = 1 TO nump\r
 \r
-xo = xn(a) - myx\r
-yo = -yn(a) - myy\r
-zo = zn(a) - myz\r
+    xo = xn(a) - myx\r
+    yo = -yn(a) - myy\r
+    zo = zn(a) - myz\r
       \r
-x1 = (xo * C1 - zo * S1)\r
-z1 = (xo * S1 + zo * C1)\r
+    x1 = (xo * C1 - zo * S1)\r
+    z1 = (xo * S1 + zo * C1)\r
        \r
-y1 = (yo * C2 - z1 * S2)\r
-z2 = (yo * S2 + z1 * C2)\r
+    y1 = (yo * C2 - z1 * S2)\r
+    z2 = (yo * S2 + z1 * C2)\r
        \r
 \r
-xo(a) = x(a)\r
-yo(a) = y(a)\r
-IF z2 < 20 THEN\r
-x(a) = -1\r
-ELSE\r
-x(a) = 320 + (x1 / z2 * 500)\r
-y(a) = 240 + (y1 / z2 * 500)\r
-END IF\r
+    xo(a) = x(a)\r
+    yo(a) = y(a)\r
+    IF z2 < 20 THEN\r
+        x(a) = -1\r
+    ELSE\r
+        x(a) = 320 + (x1 / z2 * 500)\r
+        y(a) = 240 + (y1 / z2 * 500)\r
+    END IF\r
 NEXT\r
      \r
 \r
 FOR a = 1 TO numl\r
-p1 = point1(a)\r
-p2 = point2(a)\r
-IF xo(p1) = -1 OR xo(p2) = -1 THEN  ELSE LINE (xo(p1), yo(p1))-(xo(p2), yo(p2)), 0\r
+    p1 = point1(a)\r
+    p2 = point2(a)\r
+    IF xo(p1) = -1 OR xo(p2) = -1 THEN ELSE LINE (xo(p1), yo(p1))-(xo(p2), yo(p2)), 0\r
 \r
-IF x(p1) = -1 OR x(p2) = -1 THEN  ELSE LINE (x(p1), y(p1))-(x(p2), y(p2)), col(a)\r
+    IF x(p1) = -1 OR x(p2) = -1 THEN ELSE LINE (x(p1), y(p1))-(x(p2), y(p2)), col(a)\r
 NEXT\r
   \r
 \r
 K$ = INKEY$\r
 IF K$ <> "" THEN\r
 \r
-SELECT CASE K$\r
+    SELECT CASE K$\r
 \r
-CASE CHR$(0) + "P"\r
-mye = mye - 3\r
+        CASE CHR$(0) + "P"\r
+            mye = mye - 3\r
 \r
-CASE CHR$(0) + "H"\r
-mye = mye + 3\r
+        CASE CHR$(0) + "H"\r
+            mye = mye + 3\r
 \r
-CASE CHR$(0) + "M"\r
-myk = myk + 3\r
+        CASE CHR$(0) + "M"\r
+            myk = myk + 3\r
 \r
-CASE CHR$(0) + "K"\r
-myk = myk - 3\r
+        CASE CHR$(0) + "K"\r
+            myk = myk - 3\r
 \r
-CASE "+"\r
-myyp = myyp + 5\r
+        CASE "+"\r
+            myyp = myyp + 5\r
 \r
-CASE "-"\r
-myyp = myyp - 5\r
+        CASE "-"\r
+            myyp = myyp - 5\r
 \r
-CASE "6"\r
-d1 = d1 + .01\r
+        CASE "6"\r
+            d1 = d1 + .01\r
 \r
-CASE "4"\r
-d1 = d1 - .01\r
+        CASE "4"\r
+            d1 = d1 - .01\r
 \r
-CASE "8"\r
-d2 = d2 - .01\r
+        CASE "8"\r
+            d2 = d2 - .01\r
 \r
-CASE "2"\r
-d2 = d2 + .01\r
+        CASE "2"\r
+            d2 = d2 + .01\r
 \r
 \r
-CASE " "\r
-d1 = d1 / 2\r
-d2 = d2 / 2\r
-d3 = d3 / 2\r
-mye = mye / 2\r
-myk = myk / 2\r
-myyp = myyp / 2\r
-CASE "q"\r
-SYSTEM\r
+        CASE " "\r
+            d1 = d1 / 2\r
+            d2 = d2 / 2\r
+            d3 = d3 / 2\r
+            mye = mye / 2\r
+            myk = myk / 2\r
+            myyp = myyp / 2\r
+        CASE "q"\r
+            SYSTEM\r
 \r
-CASE CHR$(27)\r
-SYSTEM\r
+        CASE CHR$(27)\r
+            SYSTEM\r
 \r
-END SELECT\r
+    END SELECT\r
 END IF\r
 \r
+_LIMIT (30)\r
+\r
 GOTO 1\r
 END SUB\r
 \r
@@ -360,7 +365,7 @@ SCREEN 12
 CLS\r
 \r
 FOR a = 1 TO 4000\r
-col(a) = 15\r
+    col(a) = 15\r
 NEXT a\r
 \r
 nump = 0\r
@@ -375,9 +380,9 @@ SUB valem (x, y, z)
 z = 0\r
 v = SQR(x * x + y * y) ' v = distance from center, some formulas needs it.\r
 \r
-z = z + SIN(x + y) * SIN(tm / 10)              ' diagonal lines\r
-z = z + (SQR((15 + v) * (15 - v)) - 10)        ' top of the ball\r
-        ' here I mixed 2 formulas.\r
+z = z + SIN(x + y) * SIN(tm / 10) ' diagonal lines\r
+z = z + (SQR((15 + v) * (15 - v)) - 10) ' top of the ball\r
+' here I mixed 2 formulas.\r
 \r
 'z = z + RND * 1                                ' noise\r
 'z = z + SIN((y + tm) / 2)                      ' forward moving wave\r

diff --git a/math/3D graph/index.html b/math/3D graph/index.html
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/math/3D graph/sshot.png b/math/3D graph/sshot.png
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/math/biorythm/bio.bas b/math/biorythm/bio.bas
old mode 100755 (executable)
new mode 100644 (file)
index f04eefc..d0a834c
--- a/math/biorythm/bio.bas
+++ b/math/biorythm/bio.bas
@@ -1,7 +1,10 @@
+CHDIR ".\qbasicapps\math\biorythm"\r
+\r
+\r
 ' Biorythm calculator\r
 ' made by Svjatoslav Agejenko\r
 ' in 2003.12\r
-' email: svjatoslavagejenko@gmail.com\r
+' email: svjatoslav@svjatoslav.eu\r
 \r
 DECLARE FUNCTION gety& (zx2!, re&)\r
 DECLARE SUB getdata (zt!, y1&, y2&, y3&)\r

diff --git a/math/biorythm/index.html b/math/biorythm/index.html
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/math/biorythm/ppl.txt b/math/biorythm/ppl.txt
old mode 100755 (executable)
new mode 100644 (file)
index c9bb823..3eef2a7
--- a/math/biorythm/ppl.txt
+++ b/math/biorythm/ppl.txt
@@ -1,5 +1,2 @@
-sven 1983  6  1 \r
-monika 1952  2  2 \r
-papa 1949  2  15 \r
-Erik 1983  3  29 \r
-evelin 1988  3  4 \r
+Svjatoslav 1983  6  1 \r
+Evelin 1988  3  4 \r

diff --git a/math/biorythm/sshot.png b/math/biorythm/sshot.png
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/math/determ.bas b/math/determ.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/math/divides.bas b/math/divides.bas
deleted file mode 100755 (executable)
index 57310cb..0000000
--- a/math/divides.bas
+++ /dev/null
@@ -1,7 +0,0 @@
-INPUT "number:", a\r
-\r
-FOR b = 1 TO a\r
-  IF a / b = a \ b THEN PRINT b, "is"; a / b\r
-NEXT b\r
-SYSTEM\r
-\r

diff --git a/math/gravi2.bas b/math/gravi2.bas
old mode 100755 (executable)
new mode 100644 (file)
index 8ccea16..6eec101
--- a/math/gravi2.bas
+++ b/math/gravi2.bas
@@ -1,8 +1,8 @@
 ' Gravitation simulation\r
 ' made by Svjatoslav Agejenko\r
 ' in 2001\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' homepage: svjatoslav.eu\r
+' email:    svjatoslav@svjatoslav.eu\r
  \r
 DEFDBL A-Z\r
 SCREEN 12\r

diff --git a/math/korrel.bas b/math/korrel.bas
deleted file mode 100755 (executable)
index 80777ff..0000000
--- a/math/korrel.bas
+++ /dev/null
@@ -1,66 +0,0 @@
-DECLARE SUB init ()\r
-DIM SHARED tulud(1 TO 4)\r
-DIM SHARED kulud(1 TO 4)\r
-\r
-CLS\r
-init\r
-\r
-FOR a = 1 TO 4\r
-  kogutulud = kogutulud + tulud(a)\r
-  kogukulud = kogukulud + kulud(a)\r
-NEXT a\r
-\r
-kesktulu = kogutulud / 4\r
-keskkulu = kogukulud / 4\r
-\r
-\r
-PRINT "kogutulud:", kogutulud, kesktulu\r
-PRINT "kogukulud:", kogukulud, keskkulu\r
-\r
-\r
-FOR a = 1 TO 4\r
-tuludeKoguH2lve = tuludeKoguH2lve + ABS(tulud(a) - kesktulu)\r
-kuludeKoguH2lve = kuludeKoguH2lve + ABS(kulud(a) - keskkulu)\r
-NEXT a\r
-\r
-tuludeKeskH2lve = tuludeKoguH2lve / 4\r
-kuludeKeskH2lve = kuludeKoguH2lve / 4\r
-\r
-\r
-PRINT "Tulude koguh2lve:", tuludeKoguH2lve\r
-PRINT "Kulude koguh2lve:", kuludeKoguH2lve\r
-\r
-PRINT "Tulude keskh2lve:", tuludeKeskH2lve\r
-PRINT "Kulude keskh2lve:", kuludeKeskH2lve\r
-\r
-'--------------------------------------------------------------\r
-\r
-FOR a = 1 TO 4\r
-  b = b + (tulud(a) - ABS(kesktulu)) * (kulud(a) - ABS(keskkulu))\r
-  c = c + (tulud(a) - ABS(kesktulu)) ^ 2\r
-  d = d + (kulud(a) - ABS(keskkulu)) ^ 2\r
-NEXT a\r
-\r
-e = SQR(c * d)\r
-f = b / e\r
-\r
-\r
-PRINT f\r
-\r
-SUB init\r
-\r
-tulud(1) = 1\r
-kulud(1) = 10\r
-\r
-tulud(2) = 2\r
-kulud(2) = 20\r
-\r
-tulud(3) = 3\r
-kulud(3) = 30\r
-\r
-tulud(4) = 4\r
-kulud(4) = 41\r
-\r
-\r
-END SUB\r
-\r

diff --git a/math/logar.bas b/math/logar.bas
deleted file mode 100755 (executable)
index 3bc211e..0000000
--- a/math/logar.bas
+++ /dev/null
@@ -1,11 +0,0 @@
-DECLARE FUNCTION loga! (a!, b!)\r
-CLS\r
-\r
-v = 10 ^ (2 * loga(10, 7) + loga(10, 2))\r
-\r
-PRINT v\r
-\r
-FUNCTION loga (a, b)\r
-loga = LOG(b) / LOG(a)\r
-END FUNCTION\r
-\r

diff --git a/math/logic.bas b/math/logic.bas
old mode 100755 (executable)
new mode 100644 (file)
index ab35157..4692e89
--- a/math/logic.bas
+++ b/math/logic.bas
@@ -1,8 +1,8 @@
 ' Logical equation solver\r
 ' made by Svjatoslav Agejenko\r
 ' in 2002\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' homepage: svjatoslav.eu\r
+' email:    svjatoslav@svjatoslav.eu\r
  \r
 ' Solves logical equations.\r
 ' AND OR XOR etc...\r
@@ -43,22 +43,22 @@ GOTO 13
 \r
 SUB getp (a, b)\r
 SELECT CASE a\r
-CASE 5\r
-b = 1\r
-CASE 3, 4\r
-b = 2\r
-CASE 2\r
-b = 3\r
-CASE 1\r
-b = 4\r
-CASE 40, 41\r
-b = 100\r
+    CASE 5\r
+        b = 1\r
+    CASE 3, 4\r
+        b = 2\r
+    CASE 2\r
+        b = 3\r
+    CASE 1\r
+        b = 4\r
+    CASE 40, 41\r
+        b = 100\r
 END SELECT\r
 END SUB\r
 \r
 SUB klea\r
 FOR a = 1 TO 50\r
-a$ = INKEY$\r
+    a$ = INKEY$\r
 NEXT a\r
 END SUB\r
 \r
@@ -66,7 +66,7 @@ SUB lahend (x1, x2)
 \r
 DIM muu(65 TO 122)\r
 FOR a = 65 TO 122\r
-muu(a) = 0\r
+    muu(a) = 0\r
 NEXT a\r
 \r
 muu(116) = 1\r
@@ -74,14 +74,14 @@ muu(118) = 1
 \r
 nm = 0\r
 FOR a = x1 TO x2\r
-b = tehe(a)\r
-IF ((b >= 65) AND (b <= 90)) OR ((b >= 97) AND (b <= 122)) THEN\r
-IF muu(b) = 0 THEN\r
-nm = nm + 1\r
-muun(nm) = b\r
-muu(b) = 1\r
-END IF\r
-END IF\r
+    b = tehe(a)\r
+    IF ((b >= 65) AND (b <= 90)) OR ((b >= 97) AND (b <= 122)) THEN\r
+        IF muu(b) = 0 THEN\r
+            nm = nm + 1\r
+            muun(nm) = b\r
+            muu(b) = 1\r
+        END IF\r
+    END IF\r
 NEXT a\r
 \r
 muun(nm + 1) = 116\r
@@ -90,28 +90,28 @@ muun(nm + 2) = 118
 f = 2 ^ nm\r
 tehl = f\r
 FOR a = 1 TO nm\r
-d = 1\r
-e = 1\r
-f = f / 2\r
-FOR b = 1 TO 2 ^ nm\r
-IF e > f THEN d = -d: e = 1\r
-IF d = 1 THEN c = ASC("t") ELSE c = ASC("v")\r
-muut(a, b) = c\r
-e = e + 1\r
-NEXT b\r
+    d = 1\r
+    e = 1\r
+    f = f / 2\r
+    FOR b = 1 TO 2 ^ nm\r
+        IF e > f THEN d = -d: e = 1\r
+        IF d = 1 THEN c = ASC("t") ELSE c = ASC("v")\r
+        muut(a, b) = c\r
+        e = e + 1\r
+    NEXT b\r
 NEXT a\r
 \r
 FOR a = 1 TO tehl\r
-muut(nm + 1, a) = 116\r
-muut(nm + 2, a) = 118\r
+    muut(nm + 1, a) = 116\r
+    muut(nm + 2, a) = 118\r
 NEXT a\r
 \r
 nm = nm + 2\r
 \r
 DIM bck(0 TO 79)\r
 FOR a = 0 TO 79\r
-bck(a) = tehe(a)\r
-xloc(a) = a\r
+    bck(a) = tehe(a)\r
+    xloc(a) = a\r
 NEXT a\r
 \r
 LOCATE 5, 1\r
@@ -124,11 +124,11 @@ teeslg x1, x2, a
 tee x1, x2 + a\r
 \r
 FOR a = 0 TO 79\r
-tehe(a) = bck(a)\r
+    tehe(a) = bck(a)\r
 NEXT a\r
 \r
 FOR a = 1 TO tehl\r
-prn x2 + 1, a, 14, 0, CHR$(vast(a))\r
+    prn x2 + 1, a, 14, 0, CHR$(vast(a))\r
 NEXT a\r
 \r
 \r
@@ -166,21 +166,21 @@ l = l1
 'BEEP\r
 prnp = prnp + 1\r
 FOR a = x1 TO x2 - l\r
-prn a, 0, 13, 1, CHR$(tehe(a))\r
+    prn a, 0, 13, 1, CHR$(tehe(a))\r
 NEXT a\r
 END SUB\r
 \r
 SUB mov (x1, n)\r
 FOR a = 79 - n TO x1 STEP -1\r
-tehe(a + n) = tehe(a)\r
-xloc(a + n) = xloc(a)\r
+    tehe(a + n) = tehe(a)\r
+    xloc(a + n) = xloc(a)\r
 NEXT a\r
 END SUB\r
 \r
 SUB movm (x1, n)\r
 FOR a = x1 TO 79 - n\r
-tehe(a) = tehe(a + n)\r
-xloc(a) = xloc(a + n)\r
+    tehe(a) = tehe(a + n)\r
+    xloc(a) = xloc(a + n)\r
 NEXT a\r
 END SUB\r
 \r
@@ -189,22 +189,22 @@ CLS
 \r
 ln = 79\r
 FOR a = 0 TO 79\r
-5\r
-IF tehe(a) = 32 OR tehe(a) = 0 THEN\r
-FOR b = a TO 78\r
-tehe(b) = tehe(b + 1)\r
-NEXT b\r
-ln = ln - 1\r
-IF ln <= a - 1 THEN GOTO 6\r
-GOTO 5\r
-END IF\r
+    5\r
+    IF tehe(a) = 32 OR tehe(a) = 0 THEN\r
+        FOR b = a TO 78\r
+            tehe(b) = tehe(b + 1)\r
+        NEXT b\r
+        ln = ln - 1\r
+        IF ln <= a - 1 THEN GOTO 6\r
+        GOTO 5\r
+    END IF\r
 NEXT a\r
 6\r
 \r
 CLS\r
 \r
 FOR a = 0 TO ln\r
-prn a, 0, 13, 1, CHR$(tehe(a))\r
+    prn a, 0, 13, 1, CHR$(tehe(a))\r
 NEXT a\r
 \r
 prn 0, 1, 7, 0, "Do you want to simplyfy it (unfinished so press N)"\r
@@ -213,7 +213,7 @@ a = 0
 klea\r
 a$ = INPUT$(1)\r
 IF a$ = "n" OR a$ = "N" THEN GOTO 24\r
-IF a$ = "y" OR a$ = "Y" THEN  ELSE GOTO 23\r
+IF a$ = "y" OR a$ = "Y" THEN ELSE GOTO 23\r
 a = 1\r
 24\r
 prn 0, 1, 7, 0, SPACE$(79)\r
@@ -231,17 +231,17 @@ x1 = x * 8
 y1 = (y + prnp) * 8\r
 \r
 FOR b = 1 TO LEN(a$)\r
-LINE (x1, y1)-(x1 + 7, y1 + 7), c1, BF\r
-d = ASC(RIGHT$(LEFT$(a$, b), 1))\r
-IF d > 122 THEN GOTO 22\r
-FOR y2 = 0 TO 7\r
-FOR x2 = 0 TO 7\r
-c2 = font(x2, y2, d)\r
-IF c2 > 0 THEN PSET (x1 + x2, y1 + y2), c\r
-NEXT x2\r
-NEXT y2\r
-22\r
-x1 = x1 + 8\r
+    LINE (x1, y1)-(x1 + 7, y1 + 7), c1, BF\r
+    d = ASC(RIGHT$(LEFT$(a$, b), 1))\r
+    IF d > 122 THEN GOTO 22\r
+    FOR y2 = 0 TO 7\r
+        FOR x2 = 0 TO 7\r
+            c2 = font(x2, y2, d)\r
+            IF c2 > 0 THEN PSET (x1 + x2, y1 + y2), c\r
+        NEXT x2\r
+    NEXT y2\r
+    22\r
+    x1 = x1 + 8\r
 NEXT b\r
 \r
 END SUB\r
@@ -254,30 +254,30 @@ l2 = 0
 a = x1\r
 26\r
 IF tehe(a) = 40 THEN\r
-IF a = x1 THEN p1 = 100 ELSE getp tehe(a - 1), p1\r
-c = a\r
-d = 1\r
-p2 = 0\r
-25\r
-c = c + 1\r
-IF tehe(c) = 40 THEN d = d + 1\r
-IF tehe(c) = 41 THEN d = d - 1\r
-IF d = 1 THEN\r
-IF (tehe(c) > 0) AND (tehe(c) <= 5) THEN\r
-getp tehe(c), b\r
-IF b > p2 THEN p2 = b\r
-END IF\r
-END IF\r
-IF d > 0 THEN GOTO 25\r
-IF c + 1 > x2 THEN p3 = 100 ELSE getp tehe(c + 1), p3\r
-\r
-IF (p1 > p2) AND (p3 >= p2) THEN\r
-movm c, 1\r
-movm a, 1\r
-l2 = l2 + 2\r
-x2 = x2 - 2\r
-a = a - 1\r
-END IF\r
+    IF a = x1 THEN p1 = 100 ELSE getp tehe(a - 1), p1\r
+    c = a\r
+    d = 1\r
+    p2 = 0\r
+    25\r
+    c = c + 1\r
+    IF tehe(c) = 40 THEN d = d + 1\r
+    IF tehe(c) = 41 THEN d = d - 1\r
+    IF d = 1 THEN\r
+        IF (tehe(c) > 0) AND (tehe(c) <= 5) THEN\r
+            getp tehe(c), b\r
+            IF b > p2 THEN p2 = b\r
+        END IF\r
+    END IF\r
+    IF d > 0 THEN GOTO 25\r
+    IF c + 1 > x2 THEN p3 = 100 ELSE getp tehe(c + 1), p3\r
+\r
+    IF (p1 > p2) AND (p3 >= p2) THEN\r
+        movm c, 1\r
+        movm a, 1\r
+        l2 = l2 + 2\r
+        x2 = x2 - 2\r
+        a = a - 1\r
+    END IF\r
 END IF\r
 'NEXT a\r
 a = a + 1\r
@@ -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)"\r
 \r
 FOR a = 0 TO 79\r
-tehe(a) = 0\r
+    tehe(a) = 0\r
 NEXT a\r
 \r
 x = 0\r
 1\r
 FOR a = 0 TO 79\r
-IF a = x THEN prn a, 2, 14, 1, CHR$(tehe(a)) ELSE prn a, 2, 3, 0, CHR$(tehe(a))\r
+    IF a = x THEN prn a, 2, 14, 1, CHR$(tehe(a)) ELSE prn a, 2, 3, 0, CHR$(tehe(a))\r
 NEXT a\r
 2\r
 a$ = INKEY$\r
@@ -310,27 +310,27 @@ IF x < 0 THEN x = 0
 IF x > 79 THEN x = 79\r
 \r
 IF LEN(a$) = 1 THEN\r
-SELECT CASE ASC(a$)\r
-CASE 32, 40, 41, 65 TO 90, 97 TO 122\r
-3\r
-FOR a = 78 TO x STEP -1\r
-tehe(a + 1) = tehe(a)\r
-NEXT a\r
-tehe(x) = ASC(a$)\r
-x = x + 1\r
-CASE 8\r
-IF x > 0 THEN\r
-FOR a = x - 1 TO 78\r
-tehe(a) = tehe(a + 1)\r
-NEXT a\r
-x = x - 1\r
-END IF\r
-CASE 49 TO 53\r
-a$ = CHR$(ASC(a$) - 48)\r
-GOTO 3\r
-CASE 13\r
-GOTO 4\r
-END SELECT\r
+    SELECT CASE ASC(a$)\r
+        CASE 32, 40, 41, 65 TO 90, 97 TO 122\r
+            3\r
+            FOR a = 78 TO x STEP -1\r
+                tehe(a + 1) = tehe(a)\r
+            NEXT a\r
+            tehe(x) = ASC(a$)\r
+            x = x + 1\r
+        CASE 8\r
+            IF x > 0 THEN\r
+                FOR a = x - 1 TO 78\r
+                    tehe(a) = tehe(a + 1)\r
+                NEXT a\r
+                x = x - 1\r
+            END IF\r
+        CASE 49 TO 53\r
+            a$ = CHR$(ASC(a$) - 48)\r
+            GOTO 3\r
+        CASE 13\r
+            GOTO 4\r
+    END SELECT\r
 END IF\r
 \r
 GOTO 1\r
@@ -345,49 +345,49 @@ prnp = 0
 SCREEN 7\r
 \r
 FOR a = 0 TO 122\r
-LOCATE 1, 1\r
-SELECT CASE a\r
-CASE 7\r
-CASE 1\r
-LINE (0, 0)-(7, 7), 0, BF\r
-LINE (2, 1)-(0, 3), 15\r
-LINE (1, 4)-(2, 5), 15\r
-LINE (5, 1)-(7, 3), 15\r
-LINE (6, 4)-(5, 5), 15\r
-LINE (1, 2)-(5, 2), 15\r
-LINE (1, 4)-(5, 4), 15\r
-\r
-CASE 2\r
-LINE (0, 0)-(7, 7), 0, BF\r
-LINE (5, 1)-(7, 3), 15\r
-LINE (6, 4)-(5, 5), 15\r
-LINE (1, 2)-(5, 2), 15\r
-LINE (1, 4)-(5, 4), 15\r
-\r
-CASE 3\r
-LINE (0, 0)-(7, 7), 0, BF\r
-LINE (0, 0)-(3, 7), 15\r
-LINE (6, 0)-(3, 7), 15\r
-\r
-CASE 4\r
-LINE (0, 0)-(7, 7), 0, BF\r
-LINE (0, 7)-(3, 0), 15\r
-LINE (6, 7)-(3, 0), 15\r
-\r
-CASE 5\r
-LINE (0, 0)-(7, 7), 0, BF\r
-LINE (0, 0)-(4, 0), 15\r
-LINE (4, 1)-(4, 7), 15\r
-\r
-CASE ELSE\r
-PRINT CHR$(a)\r
-END SELECT\r
-\r
-FOR y = 0 TO 7\r
-FOR x = 0 TO 7\r
-font(x, y, a) = POINT(x, y)\r
-NEXT x\r
-NEXT y\r
+    LOCATE 1, 1\r
+    SELECT CASE a\r
+        CASE 7\r
+        CASE 1\r
+            LINE (0, 0)-(7, 7), 0, BF\r
+            LINE (2, 1)-(0, 3), 15\r
+            LINE (1, 4)-(2, 5), 15\r
+            LINE (5, 1)-(7, 3), 15\r
+            LINE (6, 4)-(5, 5), 15\r
+            LINE (1, 2)-(5, 2), 15\r
+            LINE (1, 4)-(5, 4), 15\r
+\r
+        CASE 2\r
+            LINE (0, 0)-(7, 7), 0, BF\r
+            LINE (5, 1)-(7, 3), 15\r
+            LINE (6, 4)-(5, 5), 15\r
+            LINE (1, 2)-(5, 2), 15\r
+            LINE (1, 4)-(5, 4), 15\r
+\r
+        CASE 3\r
+            LINE (0, 0)-(7, 7), 0, BF\r
+            LINE (0, 0)-(3, 7), 15\r
+            LINE (6, 0)-(3, 7), 15\r
+\r
+        CASE 4\r
+            LINE (0, 0)-(7, 7), 0, BF\r
+            LINE (0, 7)-(3, 0), 15\r
+            LINE (6, 7)-(3, 0), 15\r
+\r
+        CASE 5\r
+            LINE (0, 0)-(7, 7), 0, BF\r
+            LINE (0, 0)-(4, 0), 15\r
+            LINE (4, 1)-(4, 7), 15\r
+\r
+        CASE ELSE\r
+            PRINT CHR$(a)\r
+    END SELECT\r
+\r
+    FOR y = 0 TO 7\r
+        FOR x = 0 TO 7\r
+            font(x, y, a) = POINT(x, y)\r
+        NEXT x\r
+    NEXT y\r
 NEXT a\r
 \r
 SCREEN 12\r
@@ -405,99 +405,99 @@ oex = 0
 \r
 \r
 FOR a = x1 TO x2\r
-b = tehe(a)\r
-SELECT CASE b\r
-CASE 40\r
-c = a\r
-d = 1\r
-10\r
-c = c + 1\r
-IF tehe(c) = ASC("(") THEN d = d + 1\r
-IF tehe(c) = ASC(")") THEN d = d - 1\r
-IF d = 0 THEN GOTO 11\r
-GOTO 10\r
-11\r
-tee a + 1, c - 1\r
-a = c\r
-FOR c = 1 TO tehl\r
-opr(oprm, c) = vast(c)\r
-NEXT c\r
-GOTO 12\r
-CASE 5\r
-ng = 1\r
-ngx = a\r
-CASE 1 TO 4\r
-oe = b\r
-oex = a\r
-CASE 65 TO 90, 97 TO 122\r
-FOR c = 1 TO nm\r
-IF muun(c) = b THEN d = c: GOTO 8\r
-NEXT c\r
-8\r
-FOR c = 1 TO tehl\r
-opr(oprm, c) = muut(d, c)\r
-prn xloc(a), c, 3, 0, CHR$(muut(d, c))\r
-NEXT c\r
-12\r
-IF ng = 1 THEN GOSUB mkneg\r
-IF oprm = 2 THEN\r
-SELECT CASE oe\r
-CASE 1\r
-FOR c = 1 TO tehl\r
-d = opr(1, c)\r
-e = opr(2, c)\r
-IF d = e THEN f = ASC("t") ELSE f = ASC("v")\r
-opr(1, c) = f\r
-prn xloc(oex), c, 12, 0, CHR$(f)\r
-NEXT c\r
-CASE 2\r
-FOR c = 1 TO tehl\r
-d = opr(1, c)\r
-e = opr(2, c)\r
-f = ASC("t")\r
-IF (d = ASC("t")) AND (e = ASC("v")) THEN f = ASC("v")\r
-opr(1, c) = f\r
-prn xloc(oex), c, 12, 0, CHR$(f)\r
-NEXT c\r
-CASE 3\r
-FOR c = 1 TO tehl\r
-d = opr(1, c)\r
-e = opr(2, c)\r
-f = ASC("t")\r
-IF (d = ASC("v")) AND (e = ASC("v")) THEN f = ASC("v")\r
-opr(1, c) = f\r
-prn xloc(oex), c, 12, 0, CHR$(f)\r
-NEXT c\r
-CASE 4\r
-FOR c = 1 TO tehl\r
-d = opr(1, c)\r
-e = opr(2, c)\r
-f = ASC("v")\r
-IF (d = ASC("t")) AND (e = ASC("t")) THEN f = ASC("t")\r
-opr(1, c) = f\r
-prn xloc(oex), c, 12, 0, CHR$(f)\r
-NEXT c\r
-END SELECT\r
-ELSE\r
-oprm = oprm + 1\r
-END IF\r
-END SELECT\r
+    b = tehe(a)\r
+    SELECT CASE b\r
+        CASE 40\r
+            c = a\r
+            d = 1\r
+            10\r
+            c = c + 1\r
+            IF tehe(c) = ASC("(") THEN d = d + 1\r
+            IF tehe(c) = ASC(")") THEN d = d - 1\r
+            IF d = 0 THEN GOTO 11\r
+            GOTO 10\r
+            11\r
+            tee a + 1, c - 1\r
+            a = c\r
+            FOR c = 1 TO tehl\r
+                opr(oprm, c) = vast(c)\r
+            NEXT c\r
+            GOTO 12\r
+        CASE 5\r
+            ng = 1\r
+            ngx = a\r
+        CASE 1 TO 4\r
+            oe = b\r
+            oex = a\r
+        CASE 65 TO 90, 97 TO 122\r
+            FOR c = 1 TO nm\r
+                IF muun(c) = b THEN d = c: GOTO 8\r
+            NEXT c\r
+            8\r
+            FOR c = 1 TO tehl\r
+                opr(oprm, c) = muut(d, c)\r
+                prn xloc(a), c, 3, 0, CHR$(muut(d, c))\r
+            NEXT c\r
+            12\r
+            IF ng = 1 THEN GOSUB mkneg\r
+            IF oprm = 2 THEN\r
+                SELECT CASE oe\r
+                    CASE 1\r
+                        FOR c = 1 TO tehl\r
+                            d = opr(1, c)\r
+                            e = opr(2, c)\r
+                            IF d = e THEN f = ASC("t") ELSE f = ASC("v")\r
+                            opr(1, c) = f\r
+                            prn xloc(oex), c, 12, 0, CHR$(f)\r
+                        NEXT c\r
+                    CASE 2\r
+                        FOR c = 1 TO tehl\r
+                            d = opr(1, c)\r
+                            e = opr(2, c)\r
+                            f = ASC("t")\r
+                            IF (d = ASC("t")) AND (e = ASC("v")) THEN f = ASC("v")\r
+                            opr(1, c) = f\r
+                            prn xloc(oex), c, 12, 0, CHR$(f)\r
+                        NEXT c\r
+                    CASE 3\r
+                        FOR c = 1 TO tehl\r
+                            d = opr(1, c)\r
+                            e = opr(2, c)\r
+                            f = ASC("t")\r
+                            IF (d = ASC("v")) AND (e = ASC("v")) THEN f = ASC("v")\r
+                            opr(1, c) = f\r
+                            prn xloc(oex), c, 12, 0, CHR$(f)\r
+                        NEXT c\r
+                    CASE 4\r
+                        FOR c = 1 TO tehl\r
+                            d = opr(1, c)\r
+                            e = opr(2, c)\r
+                            f = ASC("v")\r
+                            IF (d = ASC("t")) AND (e = ASC("t")) THEN f = ASC("t")\r
+                            opr(1, c) = f\r
+                            prn xloc(oex), c, 12, 0, CHR$(f)\r
+                        NEXT c\r
+                END SELECT\r
+            ELSE\r
+                oprm = oprm + 1\r
+            END IF\r
+    END SELECT\r
 NEXT a\r
 \r
 GOTO 9\r
 mkneg:\r
 FOR c = 1 TO tehl\r
-d = opr(oprm, c)\r
-IF d = ASC("t") THEN d = ASC("v") ELSE d = ASC("t")\r
-prn xloc(ngx), c, 4, 0, CHR$(d)\r
-opr(oprm, c) = d\r
+    d = opr(oprm, c)\r
+    IF d = ASC("t") THEN d = ASC("v") ELSE d = ASC("t")\r
+    prn xloc(ngx), c, 4, 0, CHR$(d)\r
+    opr(oprm, c) = d\r
 NEXT c\r
 ng = 0\r
 RETURN\r
 9\r
 \r
 FOR c = 1 TO tehl\r
-vast(c) = opr(1, c)\r
+    vast(c) = opr(1, c)\r
 NEXT c\r
 END SUB\r
 \r
@@ -505,80 +505,80 @@ SUB teeslg (x1, x4, l)
 x2 = x4\r
 h = 0\r
 FOR e = 1 TO 4\r
-g = 1\r
-'FOR a = x1 TO x2\r
-a = x1\r
-21\r
-b = tehe(a)\r
-IF b = 40 THEN\r
-c = a\r
-d = 1\r
-14\r
-c = c + 1\r
-IF tehe(c) = 40 THEN d = d + 1\r
-IF tehe(c) = 41 THEN d = d - 1\r
-IF d = 0 THEN GOTO 15\r
-GOTO 14\r
-15\r
-IF e = 1 THEN teeslg a + 1, c - 1, l ELSE l = 0\r
-a = c + l\r
-x2 = x2 + l\r
-h = h + l\r
-GOTO 16\r
-END IF\r
-\r
-IF (b = 5) AND (e = 1) AND (g > 1) THEN\r
-mov a, 1\r
-tehe(a) = 40\r
-lendp a + 2, f\r
-mov a + 2 + f, 1\r
-tehe(a + 2 + f) = 41\r
-h = h + 2\r
-x2 = x2 + 2\r
-a = a + 2 + f\r
-GOTO 16\r
-END IF\r
-\r
-IF (b = 3 OR b = 4) AND (e = 2) AND (g > 2) THEN\r
-lendm a - 1, f\r
-mov a - f, 1\r
-tehe(a - f) = 40\r
-lendp a + 2, f\r
-mov a + 2 + f, 1\r
-tehe(a + 2 + f) = 41\r
-h = h + 2\r
-x2 = x2 + 2\r
-a = a + 2 + f\r
-GOTO 16\r
-END IF\r
-\r
-IF (b = 2) AND (e = 3) AND (g > 3) THEN\r
-lendm a - 1, f\r
-mov a - f, 1\r
-tehe(a - f) = 40\r
-lendp a + 2, f\r
-mov a + 2 + f, 1\r
-tehe(a + 2 + f) = 41\r
-h = h + 2\r
-x2 = x2 + 2\r
-a = a + 2 + f\r
-GOTO 16\r
-END IF\r
-\r
-\r
-SELECT CASE b\r
-CASE 5\r
-g = 1\r
-CASE 3, 4\r
-g = 2\r
-CASE 2\r
-g = 3\r
-CASE 1\r
-g = 4\r
-END SELECT\r
-16\r
-a = a + 1\r
-IF a <= x2 THEN GOTO 21\r
+    g = 1\r
+    'FOR a = x1 TO x2\r
+    a = x1\r
+    21\r
+    b = tehe(a)\r
+    IF b = 40 THEN\r
+        c = a\r
+        d = 1\r
+        14\r
+        c = c + 1\r
+        IF tehe(c) = 40 THEN d = d + 1\r
+        IF tehe(c) = 41 THEN d = d - 1\r
+        IF d = 0 THEN GOTO 15\r
+        GOTO 14\r
+        15\r
+        IF e = 1 THEN teeslg a + 1, c - 1, l ELSE l = 0\r
+        a = c + l\r
+        x2 = x2 + l\r
+        h = h + l\r
+        GOTO 16\r
+    END IF\r
+\r
+    IF (b = 5) AND (e = 1) AND (g > 1) THEN\r
+        mov a, 1\r
+        tehe(a) = 40\r
+        lendp a + 2, f\r
+        mov a + 2 + f, 1\r
+        tehe(a + 2 + f) = 41\r
+        h = h + 2\r
+        x2 = x2 + 2\r
+        a = a + 2 + f\r
+        GOTO 16\r
+    END IF\r
+\r
+    IF (b = 3 OR b = 4) AND (e = 2) AND (g > 2) THEN\r
+        lendm a - 1, f\r
+        mov a - f, 1\r
+        tehe(a - f) = 40\r
+        lendp a + 2, f\r
+        mov a + 2 + f, 1\r
+        tehe(a + 2 + f) = 41\r
+        h = h + 2\r
+        x2 = x2 + 2\r
+        a = a + 2 + f\r
+        GOTO 16\r
+    END IF\r
+\r
+    IF (b = 2) AND (e = 3) AND (g > 3) THEN\r
+        lendm a - 1, f\r
+        mov a - f, 1\r
+        tehe(a - f) = 40\r
+        lendp a + 2, f\r
+        mov a + 2 + f, 1\r
+        tehe(a + 2 + f) = 41\r
+        h = h + 2\r
+        x2 = x2 + 2\r
+        a = a + 2 + f\r
+        GOTO 16\r
+    END IF\r
+\r
+\r
+    SELECT CASE b\r
+        CASE 5\r
+            g = 1\r
+        CASE 3, 4\r
+            g = 2\r
+        CASE 2\r
+            g = 3\r
+        CASE 1\r
+            g = 4\r
+    END SELECT\r
+    16\r
+    a = a + 1\r
+    IF a <= x2 THEN GOTO 21\r
 NEXT e\r
 l = h\r
 END SUB\r

diff --git a/math/loto/loos.txt b/math/loto/loos.txt
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/math/loto/loto.bas b/math/loto/loto.bas
old mode 100755 (executable)
new mode 100644 (file)
index 3b219c9..629b9c5
--- a/math/loto/loto.bas
+++ b/math/loto/loto.bas
@@ -1,8 +1,11 @@
+CHDIR ".\qbasicapps\math\loto"\r
+\r
+\r
 ' Lottery analyzer\r
 ' made by Svjatoslav Agejenko\r
 ' in 2001\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' homepage: svjatoslav.eu\r
+' email:       svjatoslav@svjatoslav.eu\r
  \r
 DECLARE SUB ennus ()\r
 DECLARE SUB menu ()\r

diff --git a/math/sin_cos.bas b/math/sin_cos.bas
old mode 100755 (executable)
new mode 100644 (file)
index 037b626..81a1186
--- a/math/sin_cos.bas
+++ b/math/sin_cos.bas
@@ -1,38 +1,38 @@
 ' SIN & COS table\r
 ' made by Svjatoslav Agejenko\r
 ' in 2003.12\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' homepage: svjatoslav.eu\r
+' email:    svjatoslav@svjatoslav.eu\r
  \r
 xs = 640\r
 ys = 480\r
-scr = 12  'Video mode\r
+scr = 12 'Video mode\r
 strs = 0\r
 \r
 xs = xs / 11.3\r
 ys = ys / 11.7\r
 \r
-IF strs = 0 THEN  ELSE GOTO 1\r
+IF strs = 0 THEN ELSE GOTO 1\r
 \r
 SELECT CASE scr\r
-CASE 12, 11\r
-strs = 16\r
+    CASE 12, 11\r
+        strs = 16\r
 \r
-CASE 9, 10\r
-strs = 14\r
+    CASE 9, 10\r
+        strs = 14\r
 \r
-CASE 1, 13, 2, 7, 8\r
-strs = 8\r
+    CASE 1, 13, 2, 7, 8\r
+        strs = 8\r
 END SELECT\r
 1\r
 \r
 SCREEN scr\r
 \r
 FOR b = 1 TO 10\r
-LINE (0, b * ys)-(xs * 10, b * ys), 8\r
-LINE (b * xs, 0)-(b * xs, ys * 10), 8\r
-LOCATE 10 * ys / strs + 2, b * xs / 8 + 1\r
-PRINT CHR$(b + 48)\r
+    LINE (0, b * ys)-(xs * 10, b * ys), 8\r
+    LINE (b * xs, 0)-(b * xs, ys * 10), 8\r
+    LOCATE 10 * ys / strs + 2, b * xs / 8 + 1\r
+    PRINT CHR$(b + 48)\r
 NEXT b\r
 \r
 LOCATE 10 * ys / strs + 2, xs * 10 / 8 + 0\r
@@ -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\r
 \r
 FOR a = 0 TO 10 STEP .05\r
-x = a * xs\r
-y = SIN(a) * ys * 5 + ys * 5\r
-IF a > 0 THEN LINE (x1, y1)-(x, y), 15\r
-x1 = x\r
-y1 = y\r
+    x = a * xs\r
+    y = SIN(a) * ys * 5 + ys * 5\r
+    IF a > 0 THEN LINE (x1, y1)-(x, y), 15\r
+    x1 = x\r
+    y1 = y\r
 NEXT a\r
 LOCATE y / strs + 1, xs * 10 / 8\r
 PRINT "sin"\r
 \r
 FOR a = 0 TO 10 STEP .05\r
-x = a * xs\r
-y = COS(a) * ys * 5 + ys * 5\r
-IF a > 0 THEN LINE (x1, y1)-(x, y), 12\r
-x1 = x\r
-y1 = y\r
+    x = a * xs\r
+    y = COS(a) * ys * 5 + ys * 5\r
+    IF a > 0 THEN LINE (x1, y1)-(x, y), 12\r
+    x1 = x\r
+    y1 = y\r
 NEXT a\r
 LOCATE y / strs + 1, xs * 10 / 8\r
 PRINT "cos"\r

diff --git a/math/sinus.bas b/math/sinus.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/math/tuletis.bas b/math/tuletis.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/math/valem.bas b/math/valem.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/networking/comterm.bas b/networking/comterm.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/networking/file2com.bas b/networking/file2com.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/networking/lpt2com.bas b/networking/lpt2com.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/networking/lptmorse.bas b/networking/lptmorse.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/networking/monitor.bas b/networking/monitor.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/networking/monitor2.bas b/networking/monitor2.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/networking/monitor3.bas b/networking/monitor3.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/networking/prt.bas b/networking/prt.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/networking/read.bas b/networking/read.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/networking/setspeed.bas b/networking/setspeed.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/explosion/explode.bas b/simulation/explosion/explode.bas
old mode 100755 (executable)
new mode 100644 (file)
index 5d75b75..54e0482
--- a/simulation/explosion/explode.bas
+++ b/simulation/explosion/explode.bas
@@ -1,8 +1,8 @@
 ' Material simulation, simulates shockwaves propagation in gas.\r
 ' made by Svjatoslav Agejenko\r
 ' in 2003\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' homepage: svjatoslav.eu\r
+' email:    svjatoslav@svjatoslav.eu\r
  \r
 DECLARE SUB saveit ()\r
 DECLARE SUB playit ()\r
@@ -36,79 +36,79 @@ start
 'disp\r
 \r
 FOR y = 2 TO 99\r
-FOR x = 2 TO 99\r
-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\r
-spdy(x, y) = spdy(x, y) - (press(x, y) / 500)  ' gravitation\r
-\r
-IF press(x + 1, y) = wal THEN spdx(x, y) = 0: GOTO 2\r
-spdx(x, y) = (press(x + 1, y) - press(x, y)) / 20 + spdx(x, y)\r
-2\r
-IF press(x, y + 1) = wal THEN spdy(x, y) = 0: GOTO 3\r
-spdy(x, y) = (press(x, y + 1) - press(x, y)) / 20 + spdy(x, y)\r
-3\r
-NEXT x\r
+    FOR x = 2 TO 99\r
+        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\r
+        spdy(x, y) = spdy(x, y) - (press(x, y) / 500) ' gravitation\r
+\r
+        IF press(x + 1, y) = wal THEN spdx(x, y) = 0: GOTO 2\r
+        spdx(x, y) = (press(x + 1, y) - press(x, y)) / 20 + spdx(x, y)\r
+        2\r
+        IF press(x, y + 1) = wal THEN spdy(x, y) = 0: GOTO 3\r
+        spdy(x, y) = (press(x, y + 1) - press(x, y)) / 20 + spdy(x, y)\r
+        3\r
+    NEXT x\r
 NEXT y\r
 \r
 \r
 4\r
 b = 0\r
 FOR y = 2 TO 99\r
-FOR x = 2 TO 99\r
-a = press(x, y) + spdx(x, y) + spdy(x, y) - spdx(x - 1, y) - spdy(x, y - 1)\r
-\r
-IF a = 0 OR ((a < 0) AND (a > -.0001)) THEN\r
-IF spdx(x, y) < 0 THEN spdx(x, y) = 0\r
-IF spdy(x, y) < 0 THEN spdy(x, y) = 0\r
-IF spdx(x - 1, y) > 0 THEN spdx(x - 1, y) = 0\r
-IF spdy(x, y - 1) > 0 THEN spdy(x, y - 1) = 0\r
-END IF\r
-\r
-IF a < 0 THEN\r
-IF spdx(x, y) < 0 THEN spdx(x, y) = spdx(x, y) / 1.5\r
-IF spdy(x, y) < 0 THEN spdy(x, y) = spdy(x, y) / 1.5\r
-IF spdx(x - 1, y) > 0 THEN spdx(x - 1, y) = spdx(x - 1, y) / 1.5\r
-IF spdy(x, y - 1) > 0 THEN spdy(x, y - 1) = spdy(x, y - 1) / 1.5\r
-b = 1\r
-LOCATE 20, 1\r
-PRINT a\r
-END IF\r
-NEXT x\r
+    FOR x = 2 TO 99\r
+        a = press(x, y) + spdx(x, y) + spdy(x, y) - spdx(x - 1, y) - spdy(x, y - 1)\r
+\r
+        IF a = 0 OR ((a < 0) AND (a > -.0001)) THEN\r
+            IF spdx(x, y) < 0 THEN spdx(x, y) = 0\r
+            IF spdy(x, y) < 0 THEN spdy(x, y) = 0\r
+            IF spdx(x - 1, y) > 0 THEN spdx(x - 1, y) = 0\r
+            IF spdy(x, y - 1) > 0 THEN spdy(x, y - 1) = 0\r
+        END IF\r
+\r
+        IF a < 0 THEN\r
+            IF spdx(x, y) < 0 THEN spdx(x, y) = spdx(x, y) / 1.5\r
+            IF spdy(x, y) < 0 THEN spdy(x, y) = spdy(x, y) / 1.5\r
+            IF spdx(x - 1, y) > 0 THEN spdx(x - 1, y) = spdx(x - 1, y) / 1.5\r
+            IF spdy(x, y - 1) > 0 THEN spdy(x, y - 1) = spdy(x, y - 1) / 1.5\r
+            b = 1\r
+            LOCATE 20, 1\r
+            PRINT a\r
+        END IF\r
+    NEXT x\r
 NEXT y\r
 IF b = 1 THEN GOTO 4\r
 \r
 FOR y = 2 TO 99\r
-FOR x = 2 TO 99\r
-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)\r
-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)\r
-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)\r
-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)\r
-NEXT x\r
+    FOR x = 2 TO 99\r
+        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)\r
+        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)\r
+        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)\r
+        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)\r
+    NEXT x\r
 NEXT y\r
 \r
 \r
 FOR y = 2 TO 99\r
-FOR x = 2 TO 99\r
-press(x + 1, y) = press(x + 1, y) - spdx(x, y)\r
-press(x, y + 1) = press(x, y + 1) - spdy(x, y)\r
-press(x, y) = press(x, y) + spdx(x, y)\r
-press(x, y) = press(x, y) + spdy(x, y)\r
-NEXT x\r
+    FOR x = 2 TO 99\r
+        press(x + 1, y) = press(x + 1, y) - spdx(x, y)\r
+        press(x, y + 1) = press(x, y + 1) - spdy(x, y)\r
+        press(x, y) = press(x, y) + spdx(x, y)\r
+        press(x, y) = press(x, y) + spdy(x, y)\r
+    NEXT x\r
 NEXT y\r
 \r
 FOR y = 2 TO 99\r
-FOR x = 2 TO 99\r
-spdx(x, y) = spdx(x, y) + spdxp(x, y)\r
-spdxp(x, y) = 0\r
-spdy(x, y) = spdy(x, y) + spdyp(x, y)\r
-spdyp(x, y) = 0\r
-NEXT x\r
+    FOR x = 2 TO 99\r
+        spdx(x, y) = spdx(x, y) + spdxp(x, y)\r
+        spdxp(x, y) = 0\r
+        spdy(x, y) = spdy(x, y) + spdyp(x, y)\r
+        spdyp(x, y) = 0\r
+    NEXT x\r
 NEXT y\r
 \r
 \r
 FOR y = 1 TO 100\r
-FOR x = 1 TO 100\r
-PSET (x, y), press(x, y) + 16\r
-NEXT x\r
+    FOR x = 1 TO 100\r
+        PSET (x, y), press(x, y) + 16\r
+    NEXT x\r
 NEXT y\r
 \r
 saveit\r
@@ -122,10 +122,10 @@ CLOSE #1
 \r
 SUB disp\r
 FOR y = 47 TO 53\r
-FOR x = 47 TO 53\r
-LOCATE y - 46, (x - 46) * 4\r
-PRINT press(x, y)\r
-NEXT x\r
+    FOR x = 47 TO 53\r
+        LOCATE y - 46, (x - 46) * 4\r
+        PRINT press(x, y)\r
+    NEXT x\r
 NEXT y\r
 \r
 a$ = INPUT$(1)\r
@@ -142,9 +142,9 @@ x3 = x2 - x1
 y3 = y2 - y1\r
 \r
 FOR a = 0 TO m\r
-x5 = x3 * a / m + x1\r
-y5 = y3 * a / m + y1\r
-press(x5, y5) = wal\r
+    x5 = x3 * a / m + x1\r
+    y5 = y3 * a / m + y1\r
+    press(x5, y5) = wal\r
 NEXT a\r
 \r
 \r
@@ -152,12 +152,12 @@ END SUB
 \r
 SUB saveit\r
 FOR y = 1 TO 100\r
-a$ = ""\r
-FOR x = 1 TO 100\r
-a$ = a$ + CHR$(POINT(x, y))\r
-NEXT x\r
-linb = a$\r
-PUT #1, , linb\r
+    a$ = ""\r
+    FOR x = 1 TO 100\r
+        a$ = a$ + CHR$(POINT(x, y))\r
+    NEXT x\r
+    linb = a$\r
+    PUT #1, , linb\r
 NEXT y\r
 \r
 \r
@@ -174,19 +174,19 @@ SUB start
 frm = 0\r
 \r
 FOR a = 1 TO 100\r
-FOR b = 1 TO 100\r
-press(a, b) = 3\r
-spdx(a, b) = 0\r
-spdy(a, b) = 0\r
-spdxp(a, b) = 0\r
-spdyp(a, b) = 0\r
-NEXT b\r
+    FOR b = 1 TO 100\r
+        press(a, b) = 3\r
+        spdx(a, b) = 0\r
+        spdy(a, b) = 0\r
+        spdxp(a, b) = 0\r
+        spdyp(a, b) = 0\r
+    NEXT b\r
 NEXT a\r
 \r
 FOR y = 30 TO 60\r
-FOR x = 10 TO 50\r
-spot x, y, 30\r
-NEXT x\r
+    FOR x = 10 TO 50\r
+        spot x, y, 30\r
+    NEXT x\r
 NEXT y\r
 \r
 lin 2, 2, 2, 99\r
@@ -195,7 +195,7 @@ lin 2, 99, 99, 99
 lin 2, 2, 99, 2\r
 \r
 FOR x = 5 TO 40 STEP 5\r
-lin x, 80, x + 50, 80 - x\r
+    lin x, 80, x + 50, 80 - x\r
 NEXT x\r
 \r
 END SUB\r

diff --git a/simulation/explosion/index.html b/simulation/explosion/index.html
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/explosion/sshot.png b/simulation/explosion/sshot.png
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/interf.BAS b/simulation/interf.BAS
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/interf2.BAS b/simulation/interf2.BAS
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/1 b/simulation/life/1
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/10 b/simulation/life/10
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/11 b/simulation/life/11
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/2 b/simulation/life/2
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/3 b/simulation/life/3
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/4 b/simulation/life/4
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/5 b/simulation/life/5
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/6 b/simulation/life/6
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/7 b/simulation/life/7
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/8 b/simulation/life/8
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/9 b/simulation/life/9
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/e b/simulation/life/e
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/index.html b/simulation/life/index.html
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/life/life.bas b/simulation/life/life.bas
old mode 100755 (executable)
new mode 100644 (file)
index ec36a1c..2f66bd5
--- a/simulation/life/life.bas
+++ b/simulation/life/life.bas
@@ -1,3 +1,6 @@
+CHDIR ".\qbasicapps\simulation\life"\r
+\r
+\r
 ' Life simulator/editor\r
 ' made by Svjatoslav Agejenko\r
 ' in 2001\r

diff --git a/simulation/life/sshot.png b/simulation/life/sshot.png
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/simulation/liquid.bas b/simulation/liquid.bas
old mode 100755 (executable)
new mode 100644 (file)
index 9b5bd93..ee62c3d
--- a/simulation/liquid.bas
+++ b/simulation/liquid.bas
@@ -1,8 +1,8 @@
 ' Rounds up sharp edges\r
 ' made by Svjatoslav Agejenko\r
 ' in 2003.12\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' homepage: svjatoslav.eu\r
+' email:    svjatoslav@svjatoslav.eu\r
  \r
 DEFINT A-Z\r
 WIDTH 80, 50\r
@@ -13,37 +13,37 @@ DIM SHARED buf1(1 TO 80, 1 TO 50)
 DIM SHARED buf2(1 TO 80, 1 TO 50)\r
 \r
 FOR y = 1 TO 50\r
-FOR x = 1 TO 80\r
-buf1(x, y) = INT(RND * 2)\r
-NEXT x\r
+    FOR x = 1 TO 80\r
+        buf1(x, y) = INT(RND * 2)\r
+    NEXT x\r
 NEXT y\r
 \r
 1\r
 FOR y = 2 TO 49\r
-FOR x = 2 TO 79\r
-c = buf1(x - 1, y - 1)\r
-c = c + buf1(x, y - 1)\r
-c = c + buf1(x + 1, y - 1)\r
-c = c + buf1(x - 1, y)\r
-c = c + buf1(x + 1, y)\r
-c = c + buf1(x - 1, y + 1)\r
-c = c + buf1(x, y + 1)\r
-c = c + buf1(x + 1, y + 1)\r
-IF buf1(x, y) = 1 THEN\r
-IF c > 3 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0\r
-ELSE\r
-IF c > 4 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0\r
-END IF\r
-NEXT x\r
+    FOR x = 2 TO 79\r
+        c = buf1(x - 1, y - 1)\r
+        c = c + buf1(x, y - 1)\r
+        c = c + buf1(x + 1, y - 1)\r
+        c = c + buf1(x - 1, y)\r
+        c = c + buf1(x + 1, y)\r
+        c = c + buf1(x - 1, y + 1)\r
+        c = c + buf1(x, y + 1)\r
+        c = c + buf1(x + 1, y + 1)\r
+        IF buf1(x, y) = 1 THEN\r
+            IF c > 3 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0\r
+        ELSE\r
+            IF c > 4 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0\r
+        END IF\r
+    NEXT x\r
 NEXT y\r
 \r
 FOR y = 1 TO 50\r
-FOR x = 1 TO 80\r
-b = buf2(x, y)\r
-buf1(x, y) = b\r
-LOCATE y, x\r
-IF b = 0 THEN PRINT ".";  ELSE PRINT "#"\r
-NEXT x\r
+    FOR x = 1 TO 80\r
+        b = buf2(x, y)\r
+        buf1(x, y) = b\r
+        LOCATE y, x\r
+        IF b = 0 THEN PRINT "."; ELSE PRINT "#"\r
+    NEXT x\r
 NEXT y\r
 SOUND 0, 3\r
 GOTO 1\r

diff --git a/system/CMOS string/getenv.asm b/system/CMOS string/getenv.asm
old mode 100755 (executable)
new mode 100644 (file)
index f94203d..a2a5933
--- a/system/CMOS string/getenv.asm
+++ b/system/CMOS string/getenv.asm
@@ -1,6 +1,7 @@
-;      Svjatoslav Agejenko\r
-;      s@ttk17.edu.ee\r
-;      2002.10.07\r
+;      by:           Svjatoslav Agejenko\r
+;       homepage:     svjatoslav.eu\r
+;      email:        svjatoslav@svjatoslav.eu\r
+;      on:           2002.10.07\r
 ;      compile with FASM ( Flat ASseMbler ) by Tomasz Grysztar\r
 \r
 org     100h\r

diff --git a/system/CMOS string/savecmos.bas b/system/CMOS string/savecmos.bas
old mode 100755 (executable)
new mode 100644 (file)
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"\r
 a$ = INPUT$(1)\r
 SELECT CASE a$\r
-CASE "1"\r
-newstring\r
-CASE "2"\r
-SYSTEM\r
-CASE ELSE\r
-PRINT "unrecognized command"\r
+    CASE "1"\r
+        newstring\r
+    CASE "2"\r
+        SYSTEM\r
+    CASE ELSE\r
+        PRINT "unrecognized command"\r
 END SELECT\r
 \r
 GOTO 2\r
@@ -32,8 +32,8 @@ l = INP(&H71)
 IF l > maxlen THEN PRINT "<empty>": GOTO 1\r
 COLOR 0, 15\r
 FOR a = 1 TO l\r
-OUT &H70, adr + a\r
-PRINT CHR$(INP(&H71));\r
+    OUT &H70, adr + a\r
+    PRINT CHR$(INP(&H71));\r
 NEXT a\r
 COLOR 7, 0\r
 PRINT " "\r
@@ -50,9 +50,9 @@ OUT &H70, adr
 OUT &H71, LEN(a$)\r
 \r
 FOR b = 1 TO LEN(a$)\r
-c = ASC(RIGHT$(LEFT$(a$, b), 1))\r
-OUT &H70, adr + b\r
-OUT &H71, c\r
+    c = ASC(RIGHT$(LEFT$(a$, b), 1))\r
+    OUT &H70, adr + b\r
+    OUT &H71, c\r
 NEXT b\r
 \r
 3\r
@@ -64,7 +64,7 @@ maxlen = 8
 \r
 CLS\r
 PRINT "Svjatoslav Agejenko"\r
-PRINT "s@ttk17.edu.ee"\r
+PRINT "svjatoslav@svjatoslav.eu"\r
 PRINT "2002.10.07"\r
 PRINT " "\r
 PRINT "Utility to store max"; maxlen; "character long string in CMOS memory."\r

diff --git a/tutorial/group1/CVS/Entries b/tutorial/group1/CVS/Entries
deleted file mode 100755 (executable)
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 (executable)
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 (executable)
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 (executable)
index e69de29..0000000

diff --git a/tutorial/group2/CVS/Entries b/tutorial/group2/CVS/Entries
deleted file mode 100755 (executable)
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 (executable)
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 (executable)
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 (executable)
index e69de29..0000000

diff --git a/tutorial/group3/CVS/Entries b/tutorial/group3/CVS/Entries
deleted file mode 100755 (executable)
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 (executable)
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 (executable)
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 (executable)
index e69de29..0000000

diff --git a/tutorial/qsort3.bas b/tutorial/qsort3.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/unsorted/contrast.bas b/unsorted/contrast.bas
deleted file mode 100755 (executable)
index 971e2ed..0000000
--- a/unsorted/contrast.bas
+++ /dev/null
@@ -1,7 +0,0 @@
-SCREEN 13\r
-\r
-FOR a = 16 TO 31 STEP .06\r
-x = x + 1\r
-LINE (x, 0)-(x, 150), a\r
-NEXT a\r
-\r

diff --git a/unsorted/font.bas b/unsorted/font.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/unsorted/key.bas b/unsorted/key.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/unsorted/lightpe2.bas b/unsorted/lightpe2.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/unsorted/lightpen.bas b/unsorted/lightpen.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/unsorted/matem.bas b/unsorted/matem.bas
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/unsorted/modes.bas b/unsorted/modes.bas
old mode 100755 (executable)
new mode 100644 (file)
index 70a2c58..aef4458
--- a/unsorted/modes.bas
+++ b/unsorted/modes.bas
@@ -1,8 +1,8 @@
 ' Determine avaiable video modes\r
 ' made by Svjatoslav Agejenko\r
 ' in 2001\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' homepage: svjatoslav.eu\r
+' email:    svjatoslav@svjatoslav.eu\r
  \r
 ' program to determine avaiable video modes\r
 ' it assumes that 1 is always avaiable\r
@@ -24,12 +24,12 @@ GOTO 2
 1\r
 a = a + 1\r
 IF a > 1000 THEN\r
-SCREEN 1\r
-PRINT "Avaiable video modes on this machine is:"\r
-FOR a = 1 TO b - 1\r
-PRINT mo(a)\r
-NEXT a\r
-END\r
+    SCREEN 1\r
+    PRINT "Avaiable video modes on this computer:"\r
+    FOR a = 1 TO b - 1\r
+        PRINT mo(a)\r
+    NEXT a\r
+    END\r
 END IF\r
 RESUME\r
 \r

diff --git a/unsorted/pal.bas b/unsorted/pal.bas
old mode 100755 (executable)
new mode 100644 (file)
index 68b6386..f5e6faa
--- a/unsorted/pal.bas
+++ b/unsorted/pal.bas
@@ -1,8 +1,7 @@
-' Universal palette & mixing\r
-' made by Svjatoslav Agejenko\r
-' in 2001\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' An attempt to generate universally reusable color parette.\r
+' By Svjatoslav Agejenko in 2001.\r
+' homepage: svjatoslav.eu\r
+' email:    svjatoslav@svjatoslav.eu\r
  \r
 \r
 \r
@@ -13,25 +12,25 @@ CLS
 \r
 c = 0\r
 FOR r = 0 TO 5\r
-FOR g = 0 TO 5\r
-FOR b = 0 TO 5\r
-OUT &H3C8, c\r
-c = c + 1\r
-OUT &H3C9, r * 12\r
-OUT &H3C9, g * 12\r
-OUT &H3C9, b * 12\r
-NEXT b\r
-NEXT g\r
+    FOR g = 0 TO 5\r
+        FOR b = 0 TO 5\r
+            OUT &H3C8, c\r
+            c = c + 1\r
+            OUT &H3C9, r * 12\r
+            OUT &H3C9, g * 12\r
+            OUT &H3C9, b * 12\r
+        NEXT b\r
+    NEXT g\r
 NEXT r\r
 \r
 'GOTO 1\r
 \r
 FOR c = 0 TO 5\r
-FOR b = 0 TO 5\r
-FOR a = 0 TO 5\r
-LINE (a * 5 + c * 30, b * 5)-(a * 5 + 4 + c * 30, b * 5 + 4), c * 36 + b * 6 + a, BF\r
-NEXT a\r
-NEXT b\r
+    FOR b = 0 TO 5\r
+        FOR a = 0 TO 5\r
+            LINE (a * 5 + c * 30, b * 5)-(a * 5 + 4 + c * 30, b * 5 + 4), c * 36 + b * 6 + a, BF\r
+        NEXT a\r
+    NEXT b\r
 NEXT c\r
 \r
 \r
@@ -40,31 +39,31 @@ a$ = INPUT$(1)
 ex = -100\r
 ey = 0\r
 FOR z = 0 TO 75 STEP 15\r
-x1 = 50 - (z / 2)\r
-y1 = 50 - (z * .866025)\r
-x2 = 50 + z\r
-y2 = 50\r
-x3 = x1\r
-y3 = 100 - y1\r
-\r
-ex = ex + 100\r
-IF z = 45 THEN ex = ex - 300: ey = ey + 101\r
-\r
-FOR x = 0 TO 100\r
-FOR y = 0 TO 100\r
-r = 7 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 15 + 1)\r
-g = 7 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 15 + 1)\r
-b = 7 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 15 + 1)\r
-IF r < 0 THEN r = 0\r
-IF g < 0 THEN g = 0\r
-IF b < 0 THEN b = 0\r
-IF r > 5 THEN r = 5\r
-IF g > 5 THEN g = 5\r
-IF b > 5 THEN b = 5\r
-c = r * 36 + g * 6 + b\r
-PSET (x + ex, y + ey), c\r
-NEXT y\r
-NEXT x\r
+    x1 = 50 - (z / 2)\r
+    y1 = 50 - (z * .866025)\r
+    x2 = 50 + z\r
+    y2 = 50\r
+    x3 = x1\r
+    y3 = 100 - y1\r
+\r
+    ex = ex + 100\r
+    IF z = 45 THEN ex = ex - 300: ey = ey + 101\r
+\r
+    FOR x = 0 TO 100\r
+        FOR y = 0 TO 100\r
+            r = 7 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 15 + 1)\r
+            g = 7 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 15 + 1)\r
+            b = 7 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 15 + 1)\r
+            IF r < 0 THEN r = 0\r
+            IF g < 0 THEN g = 0\r
+            IF b < 0 THEN b = 0\r
+            IF r > 5 THEN r = 5\r
+            IF g > 5 THEN g = 5\r
+            IF b > 5 THEN b = 5\r
+            c = r * 36 + g * 6 + b\r
+            PSET (x + ex, y + ey), c\r
+        NEXT y\r
+    NEXT x\r
 NEXT z\r
 \r
 a$ = INPUT$(1)\r
@@ -72,44 +71,44 @@ a$ = INPUT$(1)
 ex = -100\r
 ey = 0\r
 FOR z = 0 TO 75 STEP 15\r
-x1 = 50 - (z / 2.5)\r
-y1 = 50 - (z * .566025)\r
-x2 = 50 + z / 1.5\r
-y2 = 50\r
-x3 = x1\r
-y3 = 100 - y1\r
-\r
-ex = ex + 100\r
-IF z = 45 THEN ex = ex - 300: ey = ey + 101\r
-\r
-r1 = 0\r
-g1 = 0\r
-b1 = 0\r
-FOR x = 0 TO 100\r
-FOR y = 0 TO 100\r
-r = 30 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 2 + 1)\r
-g = 30 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 2 + 1)\r
-b = 30 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 2 + 1)\r
-r1 = r1 + r\r
-g1 = g1 + g\r
-b1 = b1 + b\r
-r = r1 / 5\r
-g = g1 / 5\r
-b = b1 / 5\r
-r1 = r1 - (r * 5)\r
-g1 = g1 - (g * 5)\r
-b1 = b1 - (b * 5)\r
-\r
-IF r < 0 THEN r = 0\r
-IF g < 0 THEN g = 0\r
-IF b < 0 THEN b = 0\r
-IF r > 5 THEN r = 5\r
-IF g > 5 THEN g = 5\r
-IF b > 5 THEN b = 5\r
-c = r * 36 + g * 6 + b\r
-PSET (x + ex, y + ey), c\r
-NEXT y\r
-NEXT x\r
+    x1 = 50 - (z / 2.5)\r
+    y1 = 50 - (z * .566025)\r
+    x2 = 50 + z / 1.5\r
+    y2 = 50\r
+    x3 = x1\r
+    y3 = 100 - y1\r
+\r
+    ex = ex + 100\r
+    IF z = 45 THEN ex = ex - 300: ey = ey + 101\r
+\r
+    r1 = 0\r
+    g1 = 0\r
+    b1 = 0\r
+    FOR x = 0 TO 100\r
+        FOR y = 0 TO 100\r
+            r = 30 - (SQR((x1 - x) ^ 2 + (y1 - y) ^ 2) / 2 + 1)\r
+            g = 30 - (SQR((x2 - x) ^ 2 + (y2 - y) ^ 2) / 2 + 1)\r
+            b = 30 - (SQR((x3 - x) ^ 2 + (y3 - y) ^ 2) / 2 + 1)\r
+            r1 = r1 + r\r
+            g1 = g1 + g\r
+            b1 = b1 + b\r
+            r = r1 / 5\r
+            g = g1 / 5\r
+            b = b1 / 5\r
+            r1 = r1 - (r * 5)\r
+            g1 = g1 - (g * 5)\r
+            b1 = b1 - (b * 5)\r
+\r
+            IF r < 0 THEN r = 0\r
+            IF g < 0 THEN g = 0\r
+            IF b < 0 THEN b = 0\r
+            IF r > 5 THEN r = 5\r
+            IF g > 5 THEN g = 5\r
+            IF b > 5 THEN b = 5\r
+            c = r * 36 + g * 6 + b\r
+            PSET (x + ex, y + ey), c\r
+        NEXT y\r
+    NEXT x\r
 NEXT z\r
 \r
 a$ = INPUT$(1)\r

diff --git a/unsorted/passw.bas b/unsorted/passw.bas
old mode 100755 (executable)
new mode 100644 (file)
index 2ce1a96..cdacdb6
--- a/unsorted/passw.bas
+++ b/unsorted/passw.bas
@@ -2,6 +2,9 @@
 ' See or modify "passwd.dat" for password.\r
 ' Is useful when compiled into EXE, and put into AUTOEXEC.BAT\r
 \r
+CHDIR ".\qbasicapps\unsorted"\r
+\r
+\r
 DECLARE SUB check (a$)\r
 DECLARE SUB start ()\r
 DECLARE SUB mkv (s%, C%)\r

diff --git a/unsorted/passw.dat b/unsorted/passw.dat
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/unsorted/tim.dat b/unsorted/tim.dat
old mode 100755 (executable)
new mode 100644 (file)

diff --git a/unsorted/timer.bas b/unsorted/timer.bas
old mode 100755 (executable)
new mode 100644 (file)
index 78399ef..74d6238
--- a/unsorted/timer.bas
+++ b/unsorted/timer.bas
@@ -1,3 +1,6 @@
+CHDIR ".\qbasicapps\unsorted"\r
+\r
+\r
 DECLARE SUB bar ()\r
 DECLARE SUB help (a!)\r
 DECLARE SUB alarm (a!)\r
@@ -577,11 +580,11 @@ LOCATE 13, 24
 PRINT "and specified weekdays."\r
 \r
 LOCATE 15, 24\r
-PRINT "   This program is property of"\r
+PRINT "   Copyright"\r
 LOCATE 16, 24\r
-PRINT "Vova German & Svjatoslav Agejenko"\r
+PRINT "Vladimir German &"\r
 LOCATE 17, 24\r
-PRINT "      All rights reserved."\r
+PRINT "Svjatoslav Agejenko"\r
 br$ = "Press any key to close this window"\r
 \r
 CASE 2\r