+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
+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
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
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
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
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
\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
CLS\r
\r
FOR a = 1 TO 4000\r
-col(a) = 15\r
+ col(a) = 15\r
NEXT a\r
\r
nump = 0\r
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
+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
-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
+++ /dev/null
-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
' 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
+++ /dev/null
-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
+++ /dev/null
-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
' 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
\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
\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
\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
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
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
'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
\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
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
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
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
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
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
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
\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
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
+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
' 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
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
' 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
'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
\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
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
\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
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
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
+CHDIR ".\qbasicapps\simulation\life"\r
+\r
+\r
' Life simulator/editor\r
' made by Svjatoslav Agejenko\r
' in 2001\r
' 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
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
-; 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
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
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
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
\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
+++ /dev/null
-/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//
+++ /dev/null
-QBasicPrograms/qbasicTutorial/group1
+++ /dev/null
-:extssh:n0@svjatoslav.eu:/home/cvs/cvsroot
+++ /dev/null
-/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//
+++ /dev/null
-QBasicPrograms/qbasicTutorial/group2
+++ /dev/null
-:extssh:n0@svjatoslav.eu:/home/cvs/cvsroot
+++ /dev/null
-/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//
+++ /dev/null
-QBasicPrograms/qbasicTutorial/group3
+++ /dev/null
-:extssh:n0@svjatoslav.eu:/home/cvs/cvsroot
+++ /dev/null
-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
' 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
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
-' 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
\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
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
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
' 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
+CHDIR ".\qbasicapps\unsorted"\r
+\r
+\r
DECLARE SUB bar ()\r
DECLARE SUB help (a!)\r
DECLARE SUB alarm (a!)\r
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