--- /dev/null
+' Example presentation program. Shows slides and animations.\r
+\r
+DECLARE SUB setink (a!)\r
+DECLARE SUB inke (a$)\r
+DECLARE SUB mkjuku (x!, y!, a!, c!)\r
+DECLARE SUB pr (x!, y!, s!, c!, n!, a$)\r
+DECLARE SUB wpr ()\r
+DECLARE SUB sc7 ()\r
+DECLARE SUB sc6 ()\r
+DECLARE SUB sc5 ()\r
+DECLARE SUB pal4 (c, r!, g!, b!)\r
+DECLARE SUB sc4 ()\r
+DECLARE SUB inpur ()\r
+DECLARE SUB ef5 ()\r
+DECLARE SUB sc3 ()\r
+DECLARE SUB prin (x1!, y1!, s!, c, a$)\r
+DECLARE SUB pal3 (r!, g!, b!)\r
+DECLARE SUB mkfont ()\r
+DECLARE SUB pal2 (r!, g!, b!)\r
+DECLARE SUB box1 (x1!, y1!, x2!, y2!, c!)\r
+DECLARE SUB mkback ()\r
+DECLARE SUB sc2 ()\r
+DECLARE SUB resiz ()\r
+DECLARE SUB pri (x!, y!, a$, c!)\r
+DECLARE SUB deca (xs!, ys!, fx!, fy!)\r
+DECLARE SUB box (xs!, ys!)\r
+DECLARE SUB ef4 ()\r
+DECLARE SUB ef3 ()\r
+DECLARE SUB ef2 ()\r
+DECLARE SUB ef1 ()\r
+DECLARE SUB start ()\r
+DECLARE SUB sc1 ()\r
+DECLARE SUB pal (x!)\r
+DIM SHARED fontt(0 TO 7, 0 TO 7, 0 TO 255)\r
+DIM SHARED tim\r
+DIM SHARED tim2\r
+DIM SHARED jas(1 TO 500)\r
+DIM SHARED pii\r
+DIM SHARED tmr\r
+DIM SHARED ink\r
+DIM SHARED tim$\r
+\r
+start\r
+\r
+CLS\r
+'GOTO 8\r
+\r
+sc1\r
+ef1\r
+ef2\r
+ef3\r
+\r
+ef4\r
+sc2\r
+sc4\r
+8\r
+sc5\r
+sc6\r
+\r
+sc7\r
+sc3\r
+ef5\r
+\r
+SYSTEM\r
+\r
+SUB box (xs, ys)\r
+LINE (0, 186)-(0 + xs, 186 - ys), 15, B\r
+LINE (1, 187)-(-1 + xs, 187 - ys), 25, B\r
+LINE (2, 188)-(-2 + xs, 188 - ys), 15, B\r
+PSET (0, 188), 0\r
+PSET (0 + xs, 188), 0\r
+PSET (0, 186 - ys), 0\r
+PSET (0 + xs, 186 - ys), 0\r
+END SUB\r
+\r
+DEFINT Z\r
+SUB box1 (x1, y1, x2, y2, c)\r
+\r
+IF c = 1 THEN za = 51 ELSE za = 102\r
+\r
+FOR zy = y1 + 7 TO y2 + 7\r
+FOR zx = x1 + 7 TO x2 + 7\r
+zc = POINT(zx, zy)\r
+IF zc < 51 THEN\r
+IF zc > 25 THEN zc = 50 - zc\r
+zc = zc / 2\r
+PSET (zx, zy), zc\r
+END IF\r
+NEXT zx\r
+NEXT zy\r
+\r
+FOR zy = y1 TO y2\r
+FOR zx = x1 TO x2\r
+zc = POINT(zx, zy)\r
+IF zc > 50 THEN zc = zc - 51\r
+PSET (zx, zy), zc + za\r
+NEXT zx\r
+NEXT zy\r
+\r
+END SUB\r
+\r
+DEFSNG Z\r
+SUB deca (xs, ys, fx, fy)\r
+LINE (0, 185 - ys)-(xs, 185 - ys + fy), 0, BF\r
+LINE (xs, 18 - ys)-(xs - fx, 188), 0, BF\r
+xs = xs - fx\r
+ys = ys - fy\r
+box xs, ys\r
+END SUB\r
+\r
+SUB ef1\r
+\r
+pal 3\r
+\r
+'LINE (51, 171)-(270, 190), 25, BF\r
+\r
+DIM buf1(1 TO 10000)\r
+DIM buf2(1 TO 10000)\r
+DIM buf3(1 TO 400)\r
+\r
+FOR a = 1 TO 320\r
+buf3(a) = 200\r
+NEXT a\r
+\r
+b = 0\r
+c1 = 1\r
+setink 10\r
+1\r
+c1 = c1 + 1\r
+IF c1 > 50 THEN c1 = 1\r
+LINE (0, 40)-(0, 43), c1\r
+c2 = c1\r
+IF c2 > 25 THEN c2 = 50 - c2\r
+c2 = c2 - 5\r
+IF c2 < 0 THEN c2 = 0\r
+PSET (0, 39), c2\r
+PSET (0, 44), c2\r
+LINE (319, 76)-(319, 79), c1\r
+PSET (319, 75), c2\r
+PSET (319, 80), c2\r
+\r
+GET (0, 39)-(318, 44), buf1(1)\r
+PUT (1, 39), buf1(1), PSET\r
+\r
+GET (1, 75)-(319, 80), buf1(1)\r
+PUT (0, 75), buf1(1), PSET\r
+\r
+b = b + 1\r
+buf3(271) = SIN(b / 50 + 1.57) * 30 + 160\r
+FOR x = 50 TO 270\r
+PSET (x, buf3(x) - 1), 0\r
+IF x > 50 THEN\r
+PSET (x, buf3(x)), 15\r
+PSET (x, buf3(x) + 1), 20\r
+PSET (x, buf3(x) + 2), 25\r
+END IF\r
+buf3(x) = buf3(x + 1)\r
+NEXT x\r
+\r
+a = 50\r
+FOR x = 65 + 18 TO 270 STEP 40\r
+a = a + 1\r
+IF buf3(x - 1) < 190 THEN\r
+mkjuku x, buf3(x - 1) - 27, x, 0\r
+mkjuku x, buf3(x) - 27, x, a\r
+END IF\r
+NEXT x\r
+\r
+inke a$\r
+SOUND 0, .4\r
+IF a$ = "" THEN GOTO 1\r
+\r
+END SUB\r
+\r
+SUB ef2\r
+\r
+FOR a = 1 TO 30\r
+e = 0\r
+c = (3.8 * (30 - a)) / 30\r
+\r
+FOR f = 0 TO 50\r
+IF f < 25 THEN e = e + 4 ELSE e = e - c\r
+OUT &H3C8, f\r
+OUT &H3C9, e / 4\r
+OUT &H3C9, e / 1.9\r
+OUT &H3C9, e / 3\r
+NEXT f\r
+\r
+FOR b = 1 TO 3\r
+SOUND 0, .3\r
+NEXT b\r
+NEXT a\r
+\r
+FOR a = 20 TO 0 STEP -1\r
+b = (a * 4) / 20\r
+e = 0\r
+FOR f = 0 TO 60\r
+IF f < 25 THEN e = e + b\r
+OUT &H3C8, f\r
+OUT &H3C9, e / 4\r
+OUT &H3C9, e / 1.9\r
+OUT &H3C9, e / 3\r
+NEXT f\r
+\r
+FOR b = 1 TO 2\r
+SOUND 0, .3\r
+NEXT b\r
+\r
+NEXT a\r
+\r
+END SUB\r
+\r
+SUB ef3\r
+SCREEN 7\r
+SCREEN 7, , , 1\r
+\r
+OUT &H3C8, 1\r
+OUT &H3C9, 64 / 4\r
+OUT &H3C9, 64 / 1.9\r
+OUT &H3C9, 64 / 3\r
+\r
+b = 2\r
+c = .01\r
+2\r
+x = x + 1\r
+y = y + 1\r
+c = c + .01\r
+b = b + c\r
+\r
+FOR a = 0 TO 160 STEP b\r
+LINE (160 + a, 0)-(160 + a, 199), 1\r
+LINE (160 - a, 0)-(160 - a, 199), 1\r
+LINE (0, 100 + a)-(319, 100 + a), 1\r
+LINE (0, 100 - a)-(319, 100 - a), 1\r
+NEXT a\r
+\r
+PCOPY 0, 1\r
+CLS\r
+SOUND 0, .4\r
+IF b < 50 THEN GOTO 2\r
+\r
+SCREEN 13\r
+pal 2\r
+\r
+FOR a = 0 TO 160 STEP b\r
+LINE (160 + a, 0)-(160 + a, 199), 25\r
+LINE (160 - a, 0)-(160 - a, 199), 25\r
+LINE (0, 100 + a)-(319, 100 + a), 25\r
+LINE (0, 100 - a)-(319, 100 - a), 25\r
+NEXT a\r
+\r
+resiz\r
+pal 3\r
+\r
+pri 11, 8, "-* A U T H O R S *-", 55\r
+pri 10, 11, CHR$(254) + " John Doe", 55\r
+pri 10, 13, CHR$(254) + " Jane Doe", 55\r
+pri 10, 15, CHR$(254) + " Anonymous", 55\r
+pri 20, 19, "I-01 a. 2001", 55\r
+\r
+inpur\r
+CLS\r
+END SUB\r
+\r
+SUB ef4\r
+pal 2\r
+xs = 317\r
+ys = 185\r
+box xs, ys\r
+tey = 20\r
+\r
+DIM buf4(1 TO 10000)\r
+\r
+b = 0\r
+setink 10\r
+COLOR 25\r
+4\r
+b = b + 1\r
+\r
+SELECT CASE b\r
+CASE 50 TO 200\r
+deca xs, ys, 1, 1\r
+\r
+CASE 201\r
+'pal4 255, 63, 45, 0\r
+'prin 10, tey, 2, 255, "Sources:"\r
+tey = tey + 20\r
+\r
+CASE 290\r
+pal4 254, 20, 20, 63\r
+prin 70, tey, 7, 254, "TEST"\r
+tey = tey + 60\r
+\r
+CASE 350\r
+pal4 254, 20, 20, 63\r
+prin 100, tey, 2, 254, "www.12345.com"\r
+tey = tey + 20\r
+\r
+CASE 400\r
+pal4 254, 20, 20, 63\r
+prin 100, tey, 2, 254, CHR$(16) + "Subject 1"\r
+tey = tey + 10\r
+\r
+END SELECT\r
+\r
+FOR a = 2 TO (xs - 5) / 8\r
+LOCATE 23, a\r
+PRINT CHR$(RND * 1 + 48)\r
+NEXT a\r
+\r
+FOR x = 3 TO xs - 3 STEP 8\r
+GET (x, 183 - ys + 14)-(x + 7, 183), buf4(1)\r
+PUT (x, 183 - ys + 6), buf4(1), PSET\r
+NEXT x\r
+\r
+inke a$\r
+\r
+IF a$ <> "" THEN GOTO 3\r
+wpr\r
+GOTO 4\r
+\r
+3\r
+END SUB\r
+\r
+SUB ef5\r
+DIM buf(1 TO 5000)\r
+\r
+FOR a = 1 TO 1000\r
+x = RND * 298 + 1\r
+y = RND * 178 + 1\r
+GET (x, y)-(x + 19, y + 19), buf(1)\r
+IF RND * 100 < 50 THEN x = x + 1 ELSE x = x - 1\r
+IF RND * 100 < 50 THEN y = y + 1\r
+PUT (x, y), buf(1), PSET\r
+SOUND 0, .05\r
+NEXT a\r
+\r
+FOR a = 0 TO 100\r
+LINE (0, a)-(319, a), 0\r
+LINE (0, 200 - a)-(319, 200 - a), 0\r
+SOUND 0, .4\r
+NEXT a\r
+\r
+END SUB\r
+\r
+SUB inke (a$)\r
+IF tim$ <> TIME$ THEN\r
+ink = ink - 1\r
+tim$ = TIME$\r
+END IF\r
+IF (ink <= 0) AND (tmr = 1) THEN a$ = " " ELSE a$ = ""\r
+IF INKEY$ <> "" THEN a$ = " "\r
+END SUB\r
+\r
+SUB inpur\r
+setink 10\r
+11\r
+inke a$\r
+IF a$ = "" THEN GOTO 11\r
+END SUB\r
+\r
+DEFINT A-Z\r
+SUB mkback\r
+CLS\r
+lm1 = 0\r
+lm2 = 50\r
+\r
+s = 2 ^ 7\r
+\r
+7\r
+s = s \ 2\r
+\r
+FOR y = 0 TO 199 STEP s\r
+FOR x = 0 TO 319 STEP s\r
+\r
+c1 = POINT(x, y)\r
+c2 = POINT(x + s, y)\r
+c3 = POINT(x, y + s)\r
+c4 = POINT(x + s, y + s)\r
+\r
+sp = s \ 2\r
+\r
+c5 = (c1 + c2 + c3 + c4) / 4 + RND * s - sp\r
+IF c5 > lm2 THEN c5 = lm2\r
+IF c5 < lm1 THEN c5 = lm1\r
+\r
+c6 = (c2 + c4) / 2 + RND * s - sp\r
+IF c6 > lm2 THEN c6 = lm2\r
+IF c6 < lm1 THEN c6 = lm1\r
+\r
+c7 = (c3 + c4) / 2 + RND * s - sp\r
+IF c7 > lm2 THEN c7 = lm2\r
+IF c7 < lm1 THEN c7 = lm1\r
+\r
+IF INT(RND * 30) = 2 THEN c5 = 50\r
+PSET (x + sp, y + sp), c5\r
+PSET (x + s, y + sp), c6\r
+PSET (x + sp, y + s), c7\r
+\r
+NEXT x\r
+NEXT y\r
+IF s > 2 THEN GOTO 7\r
+END SUB\r
+\r
+DEFSNG A-Z\r
+SUB mkfont\r
+SCREEN 13\r
+FOR a = 0 TO 255\r
+LOCATE 1, 1\r
+IF a <> 7 THEN PRINT CHR$(a)\r
+\r
+FOR y = 0 TO 7\r
+FOR x = 0 TO 7\r
+fontt(x, y, a) = POINT(x, y)\r
+NEXT x\r
+NEXT y\r
+NEXT a\r
+\r
+END SUB\r
+\r
+SUB mkjuku (x, y, a, c)\r
+jas(a) = jas(a) + .08\r
+IF jas(a) > 30000 THEN jas(a) = 0\r
+b = jas(a)\r
+IF c = 0 THEN b = jas(a) - .08\r
+x1 = x + COS(b) * 10\r
+y1 = y + SIN(b) * 5 + 20\r
+\r
+x2 = x + COS(b) * 5 + 2\r
+y2 = y + SIN(b) * 3 + 10\r
+\r
+x3 = x + COS(b + 1) * 2\r
+y3 = y + SIN(b + 1) * 2 + 2\r
+\r
+LINE (x2, y2)-(x1, y1), c\r
+LINE (x2, y2)-(x3, y3), c\r
+\r
+x1 = x + COS(b + pii) * 10\r
+y1 = y + SIN(b + pii) * 5 + 20\r
+\r
+x2 = x + COS(b + pii) * 5 + 2\r
+y2 = y + SIN(b + pii) * 3 + 10\r
+\r
+LINE (x2, y2)-(x1, y1), c\r
+LINE (x2, y2)-(x3, y3), c\r
+\r
+x4 = x + COS(b + 1.2) * 3 - 1\r
+y4 = y + SIN(b + 1.2) * 1 - 10\r
+\r
+LINE (x4, y4)-(x3, y3), c\r
+\r
+x5 = x + COS(b + .5) * 13 - 3\r
+y5 = y + SIN(b + .5) * 2 + 1\r
+\r
+x6 = x + COS(b + .5) * 15 - 1\r
+y6 = y + SIN(b + .5) * 3 + 4\r
+\r
+LINE (x5, y5)-(x4, y4), c\r
+LINE (x5, y5)-(x6, y6), c\r
+\r
+x5 = x + COS(b + pii) * 13 - 3\r
+y5 = y + SIN(b + pii) * 2 + 1\r
+\r
+x6 = x + COS(b + pii) * 15 - 1\r
+y6 = y + SIN(b + pii) * 3 + 4\r
+\r
+LINE (x5, y5)-(x4, y4), c\r
+LINE (x5, y5)-(x6, y6), c\r
+\r
+x7 = x + COS(b + 1.2) * 2\r
+y7 = y + SIN(b + 1.2) * 1 - 14\r
+\r
+LINE (x7, y7 + 2)-(x4, y4), c\r
+\r
+CIRCLE (x7, y7), 3, c\r
+\r
+\r
+\r
+END SUB\r
+\r
+SUB pal (x)\r
+SELECT CASE x\r
+CASE 1\r
+\r
+FOR f = 0 TO 25\r
+OUT &H3C8, f\r
+OUT &H3C9, f * 4.1\r
+OUT &H3C9, f * 4.1\r
+OUT &H3C9, f * 4.1\r
+NEXT f\r
+\r
+CASE 2\r
+e = 0\r
+FOR f = 0 TO 50\r
+IF f < 25 THEN e = e + 4 ELSE e = e - 3.8\r
+OUT &H3C8, f\r
+OUT &H3C9, e / 4\r
+OUT &H3C9, e / 1.9\r
+OUT &H3C9, e / 3\r
+NEXT f\r
+CASE 3\r
+\r
+FOR f = 51 TO 60\r
+OUT &H3C8, f\r
+OUT &H3C9, SIN(f) * 30 + 30\r
+OUT &H3C9, SIN(f * 2) * 30 + 30\r
+OUT &H3C9, SIN(f * 3) * 30 + 30\r
+NEXT f\r
+\r
+CASE 4\r
+FOR f = 0 TO 25\r
+OUT &H3C8, f\r
+OUT &H3C9, f * 2.5\r
+OUT &H3C9, f * 2.5\r
+OUT &H3C9, f * 1.5\r
+NEXT f\r
+FOR f = 26 TO 50\r
+OUT &H3C8, f\r
+OUT &H3C9, (50 - f) * 2.5\r
+OUT &H3C9, (50 - f) * 2.5\r
+OUT &H3C9, (50 - f) * 1.5\r
+NEXT f\r
+\r
+END SELECT\r
+\r
+END SUB\r
+\r
+SUB pal2 (r, g, b)\r
+FOR f = 0 TO 25\r
+OUT &H3C8, f + 51\r
+OUT &H3C9, (f * 2.5 + r * 1) / 2\r
+OUT &H3C9, (f * 2.5 + g * 1) / 2\r
+OUT &H3C9, (f * 1.5 + b * 1) / 2\r
+NEXT f\r
+FOR f = 26 TO 50\r
+OUT &H3C8, f + 51\r
+OUT &H3C9, ((50 - f) * 2.5 + r * 1) / 2\r
+OUT &H3C9, ((50 - f) * 2.5 + g * 1) / 2\r
+OUT &H3C9, ((50 - f) * 1.5 + b * 1) / 2\r
+NEXT f\r
+END SUB\r
+\r
+SUB pal3 (r, g, b)\r
+FOR f = 0 TO 25\r
+OUT &H3C8, f + 102\r
+OUT &H3C9, (f * 2.5 + r * 1) / 2\r
+OUT &H3C9, (f * 2.5 + g * 1) / 2\r
+OUT &H3C9, (f * 1.5 + b * 1) / 2\r
+NEXT f\r
+FOR f = 26 TO 50\r
+OUT &H3C8, f + 102\r
+OUT &H3C9, ((50 - f) * 2.5 + r * 1) / 2\r
+OUT &H3C9, ((50 - f) * 2.5 + g * 1) / 2\r
+OUT &H3C9, ((50 - f) * 1.5 + b * 1) / 2\r
+NEXT f\r
+END SUB\r
+\r
+SUB pal4 (c, r!, g!, b!)\r
+OUT &H3C8, c\r
+OUT &H3C9, r\r
+OUT &H3C9, g\r
+OUT &H3C9, b\r
+END SUB\r
+\r
+SUB pr (x, y, s, c, n, a$)\r
+IF n > LEN(a$) THEN GOTO 10\r
+a$ = RIGHT$(LEFT$(a$, n), 1)\r
+x1 = n * 8 * s + x\r
+prin x1, y, s, c, a$\r
+10\r
+END SUB\r
+\r
+SUB pri (x, y, a$, c)\r
+COLOR c\r
+FOR a = 1 TO LEN(a$)\r
+b$ = RIGHT$(LEFT$(a$, a), 1)\r
+LOCATE y, x + a\r
+PRINT b$\r
+SOUND 0, 1\r
+NEXT a\r
+\r
+END SUB\r
+\r
+SUB prin (x1, y1, s, c1, a$)\r
+\r
+FOR a = 1 TO LEN(a$)\r
+b = ASC(RIGHT$(LEFT$(a$, a), 1))\r
+c = (a - 1) * 8 * s + x1\r
+FOR y = 0 TO 7\r
+FOR x = 0 TO 7\r
+IF fontt(x, y, b) > 0 THEN\r
+LINE (x * s + c, y * s + y1)-(x * s + s - 1 + c, y * s + s - 1 + y1), c1, BF\r
+END IF\r
+NEXT x\r
+NEXT y\r
+\r
+NEXT a\r
+\r
+END SUB\r
+\r
+SUB resiz\r
+\r
+FOR a = 1 TO 10\r
+CIRCLE (160, 100), a, a * 2 + 5\r
+NEXT a\r
+PSET (160, 100), 0\r
+\r
+DIM buff1(1 TO 10000)\r
+DIM buff2(1 TO 10000)\r
+\r
+a = 10\r
+GET (160 - a, 90)-(160, 110), buff1(1)\r
+GET (160, 90)-(160 + a, 110), buff2(1)\r
+5\r
+PUT (159 - a, 90), buff1(1), PSET\r
+PUT (150 + a, 90), buff2(1), PSET\r
+a = a + 1\r
+SOUND 0, .2\r
+IF a < 140 THEN GOTO 5\r
+\r
+a = 1\r
+\r
+GET (20, 90)-(300, 100), buff1(1)\r
+GET (20, 100)-(300, 110), buff2(1)\r
+6\r
+PUT (20, 90 - a), buff1(1), PSET\r
+PUT (20, 100 + a), buff2(1), PSET\r
+\r
+a = a + 1\r
+SOUND 0, .2\r
+IF a < 60 THEN GOTO 6\r
+END SUB\r
+\r
+SUB sc1\r
+\r
+pal 2\r
+LOCATE 1, 1\r
+COLOR 1\r
+PRINT "HEADER"\r
+\r
+FOR x = 0 TO 80\r
+FOR y = 0 TO 16\r
+c = POINT(x, y)\r
+IF c > 0 THEN c1 = 50 ELSE c1 = 0\r
+LINE (x * 5 + 35, y * 3 + 50)-(x * 5 + 4 + 35, y * 3 + 2 + 50), c1, BF\r
+NEXT y\r
+NEXT x\r
+\r
+LOCATE 1, 1\r
+PRINT " "\r
+\r
+FOR y = 30 TO 80\r
+FOR x = 0 TO 319\r
+c = POINT(x, y)\r
+c1 = (c1 * 1 + c) / 2\r
+PSET (x, y), c1\r
+NEXT x\r
+NEXT y\r
+\r
+FOR x = 0 TO 319\r
+FOR y = 30 TO 80\r
+c = POINT(x, y)\r
+c1 = (c1 * 1 + c) / 2\r
+PSET (x, y), c1\r
+NEXT y\r
+NEXT x\r
+\r
+FOR y = 30 TO 80\r
+FOR x = 319 TO 0 STEP -1\r
+c = POINT(x, y)\r
+c1 = (c1 * 1 + c) / 2\r
+PSET (x, y), c1\r
+NEXT x\r
+NEXT y\r
+\r
+FOR x = 0 TO 319\r
+FOR y = 80 TO 30 STEP -1\r
+c = POINT(x, y)\r
+c1 = (c1 * 1 + c) / 2\r
+PSET (x, y), c1\r
+NEXT y\r
+NEXT x\r
+\r
+END SUB\r
+\r
+SUB sc2\r
+\r
+CLS\r
+pal 4\r
+mkback\r
+\r
+pal2 40, 64, 63\r
+pal3 0, 0, 0\r
+\r
+box1 30, 30, 290, 170, 1\r
+\r
+prin 65, 50, 3, 0, "Goal:"\r
+\r
+prin 40, 100, 1, 0, CHR$(254) + " Random text"\r
+prin 40, 108, 1, 0, " goes here to test"\r
+prin 40, 116, 1, 0, " text layout."\r
+prin 40, 130, 1, 0, CHR$(254) + " Testing 123."\r
+\r
+inpur\r
+\r
+END SUB\r
+\r
+SUB sc3\r
+mkback\r
+\r
+pal2 64, 64, 0\r
+box1 30, 30, 290, 150, 1\r
+\r
+prin 57, 50, 3, 0, "Thank you"\r
+prin 45, 74, 3, 0, " for"\r
+prin 45, 98, 3, 0, "attention"\r
+inpur\r
+\r
+END SUB\r
+\r
+SUB sc4\r
+\r
+pal 4\r
+mkback\r
+\r
+pal2 0, 0, 32\r
+box1 3, 3, 260, 50, 1\r
+\r
+pal4 255, 50, 50, 0\r
+prin 10, 10, 2, 255, "Random header"\r
+prin 50, 30, 1, 255, "www.randomsite.org"\r
+\r
+pal3 10, 20, 0\r
+box1 20, 40, 290, 180, 2\r
+\r
+pal4 254, 63, 45, 0\r
+\r
+b = 25\r
+prin 40, 60, 1, 254, CHR$(254) + " Lorem ipsum dolor sit amet,"\r
+a = b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " consectetur adipiscing elit,"\r
+a = a + b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " sed do eiusmod"\r
+a = a + b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " tempor incididunt ut labore"\r
+\r
+inpur\r
+\r
+END SUB\r
+\r
+SUB sc5\r
+pal 4\r
+mkback\r
+\r
+pal2 0, 0, 32\r
+box1 3, 3, 300, 50, 1\r
+\r
+pal4 255, 50, 50, 0\r
+prin 10, 10, 2, 255, "Totam rem aperiam"\r
+prin 50, 30, 1, 255, "www.moditempora.org"\r
+\r
+pal3 20, 32, 63\r
+box1 20, 40, 290, 180, 2\r
+\r
+pal4 254, 63, 45, 0\r
+b = 25\r
+prin 40, 60, 1, 254, CHR$(254) + " Nemo enim ipsam voluptatem"\r
+a = b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " Sed quia consequuntur"\r
+a = a + b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " Magni dolores eos"\r
+a = a + b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " Qui ratione voluptatem"\r
+\r
+inpur\r
+\r
+END SUB\r
+\r
+SUB sc6\r
+pal 4\r
+mkback\r
+\r
+pal2 0, 0, 32\r
+box1 3, 3, 300, 50, 1\r
+\r
+pal4 255, 50, 50, 0\r
+prin 10, 10, 2, 255, "F R I S O N"\r
+prin 50, 30, 1, 255, "www.frison.ee"\r
+\r
+pal3 30, 20, 10\r
+box1 20, 40, 290, 180, 2\r
+\r
+pal4 254, 63, 45, 0\r
+b = 25\r
+prin 40, 60, 1, 254, CHR$(254) + " Quis autem vel eum"\r
+a = b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " Iure reprehenderit qui"\r
+a = a + b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " In ea voluptate velit"\r
+a = a + b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " Esse quam nihil molestiae"\r
+\r
+inpur\r
+\r
+END SUB\r
+\r
+SUB sc7\r
+pal 4\r
+mkback\r
+\r
+pal2 0, 0, 32\r
+box1 3, 3, 300, 50, 1\r
+\r
+pal4 255, 50, 50, 0\r
+prin 10, 10, 2, 255, "Et dolore magna"\r
+prin 50, 30, 1, 255, "www.utenimadminim.org"\r
+\r
+pal3 20, 32, 63\r
+box1 20, 40, 290, 180, 2\r
+\r
+pal4 254, 63, 45, 0\r
+b = 25\r
+prin 40, 60, 1, 254, CHR$(254) + " Ut enim ad minim veniam"\r
+a = b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " Quis nostrud exercitation"\r
+a = a + b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " Laboris nisi ut aliquip ex"\r
+a = a + b\r
+prin 40, 60 + a, 1, 254, CHR$(254) + " Sed ut perspiciatis unde"\r
+\r
+inpur\r
+\r
+END SUB\r
+\r
+SUB setink (a!)\r
+ink = a\r
+tim$ = TIME$\r
+END SUB\r
+\r
+SUB start\r
+SCREEN 13\r
+RANDOMIZE TIMER\r
+\r
+mkfont\r
+tim = 0\r
+tim2 = 0\r
+\r
+FOR a = 1 TO 500\r
+jas(a) = RND * 10\r
+NEXT a\r
+\r
+pii = 3.14\r
+IF COMMAND$ = "t" OR COMMAND$ = "T" THEN\r
+tmr = 1\r
+PRINT "timer is on"\r
+SLEEP 1\r
+ELSE\r
+tmr = 0\r
+END IF\r
+END SUB\r
+\r
+SUB wpr\r
+tim = tim + 1\r
+IF tim \ 10 = tim / 10 THEN\r
+a = tim / 10\r
+SELECT CASE tim2\r
+CASE 0\r
+IF a = 10 THEN tim2 = 1: tim = 0: pal4 255, 63, 45, 0\r
+CASE 1\r
+pr 10, 10, 2, 255, a, "Sources:"\r
+\r
+END SELECT\r
+END IF\r
+END SUB\r
+\r
+++ /dev/null
-DECLARE SUB setink (a!)\r
-DECLARE SUB inke (a$)\r
-DECLARE SUB mkjuku (x!, y!, a!, c!)\r
-DECLARE SUB pr (x!, y!, s!, c!, n!, a$)\r
-DECLARE SUB wpr ()\r
-DECLARE SUB sc7 ()\r
-DECLARE SUB sc6 ()\r
-DECLARE SUB sc5 ()\r
-DECLARE SUB pal4 (c, r!, g!, b!)\r
-DECLARE SUB sc4 ()\r
-DECLARE SUB inpur ()\r
-DECLARE SUB ef5 ()\r
-DECLARE SUB sc3 ()\r
-DECLARE SUB prin (x1!, y1!, s!, c, a$)\r
-DECLARE SUB pal3 (r!, g!, b!)\r
-DECLARE SUB mkfont ()\r
-DECLARE SUB pal2 (r!, g!, b!)\r
-DECLARE SUB box1 (x1!, y1!, x2!, y2!, c!)\r
-DECLARE SUB mkback ()\r
-DECLARE SUB sc2 ()\r
-DECLARE SUB resiz ()\r
-DECLARE SUB pri (x!, y!, a$, c!)\r
-DECLARE SUB deca (xs!, ys!, fx!, fy!)\r
-DECLARE SUB box (xs!, ys!)\r
-DECLARE SUB ef4 ()\r
-DECLARE SUB ef3 ()\r
-DECLARE SUB ef2 ()\r
-DECLARE SUB ef1 ()\r
-DECLARE SUB start ()\r
-DECLARE SUB sc1 ()\r
-DECLARE SUB pal (x!)\r
-DIM SHARED fontt(0 TO 7, 0 TO 7, 0 TO 255)\r
-DIM SHARED tim\r
-DIM SHARED tim2\r
-DIM SHARED jas(1 TO 500)\r
-DIM SHARED pii\r
-DIM SHARED tmr\r
-DIM SHARED ink\r
-DIM SHARED tim$\r
-\r
-start\r
-\r
-\r
-CLS\r
-'GOTO 8\r
-\r
-sc1\r
-ef1\r
-ef2\r
-ef3\r
-\r
-ef4\r
-sc2\r
-sc4\r
-8\r
-sc5\r
-sc6\r
-\r
-sc7\r
-sc3\r
-ef5\r
-\r
-SYSTEM\r
-\r
-SUB box (xs, ys)\r
-LINE (0, 186)-(0 + xs, 186 - ys), 15, B\r
-LINE (1, 187)-(-1 + xs, 187 - ys), 25, B\r
-LINE (2, 188)-(-2 + xs, 188 - ys), 15, B\r
-PSET (0, 188), 0\r
-PSET (0 + xs, 188), 0\r
-PSET (0, 186 - ys), 0\r
-PSET (0 + xs, 186 - ys), 0\r
-END SUB\r
-\r
-DEFINT Z\r
-SUB box1 (x1, y1, x2, y2, c)\r
-\r
-IF c = 1 THEN za = 51 ELSE za = 102\r
-\r
-\r
-FOR zy = y1 + 7 TO y2 + 7\r
-FOR zx = x1 + 7 TO x2 + 7\r
-zc = POINT(zx, zy)\r
-IF zc < 51 THEN\r
-IF zc > 25 THEN zc = 50 - zc\r
-zc = zc / 2\r
-PSET (zx, zy), zc\r
-END IF\r
-NEXT zx\r
-NEXT zy\r
-\r
-FOR zy = y1 TO y2\r
-FOR zx = x1 TO x2\r
-zc = POINT(zx, zy)\r
-IF zc > 50 THEN zc = zc - 51\r
-PSET (zx, zy), zc + za\r
-NEXT zx\r
-NEXT zy\r
-\r
-\r
-END SUB\r
-\r
-DEFSNG Z\r
-SUB deca (xs, ys, fx, fy)\r
-LINE (0, 185 - ys)-(xs, 185 - ys + fy), 0, BF\r
-LINE (xs, 18 - ys)-(xs - fx, 188), 0, BF\r
-xs = xs - fx\r
-ys = ys - fy\r
-box xs, ys\r
-END SUB\r
-\r
-SUB ef1\r
- \r
-pal 3\r
-\r
-'LINE (51, 171)-(270, 190), 25, BF\r
-\r
-DIM buf1(1 TO 10000)\r
-DIM buf2(1 TO 10000)\r
-DIM buf3(1 TO 400)\r
-\r
-FOR a = 1 TO 320\r
-buf3(a) = 200\r
-NEXT a\r
-\r
-\r
-b = 0\r
-c1 = 1\r
-setink 10\r
-1\r
-c1 = c1 + 1\r
-IF c1 > 50 THEN c1 = 1\r
-LINE (0, 40)-(0, 43), c1\r
-c2 = c1\r
-IF c2 > 25 THEN c2 = 50 - c2\r
-c2 = c2 - 5\r
-IF c2 < 0 THEN c2 = 0\r
-PSET (0, 39), c2\r
-PSET (0, 44), c2\r
-LINE (319, 76)-(319, 79), c1\r
-PSET (319, 75), c2\r
-PSET (319, 80), c2\r
-\r
-GET (0, 39)-(318, 44), buf1(1)\r
-PUT (1, 39), buf1(1), PSET\r
-\r
-GET (1, 75)-(319, 80), buf1(1)\r
-PUT (0, 75), buf1(1), PSET\r
-\r
-b = b + 1\r
-buf3(271) = SIN(b / 50 + 1.57) * 30 + 160\r
-FOR x = 50 TO 270\r
-PSET (x, buf3(x) - 1), 0\r
-IF x > 50 THEN\r
-PSET (x, buf3(x)), 15\r
-PSET (x, buf3(x) + 1), 20\r
-PSET (x, buf3(x) + 2), 25\r
-END IF\r
-buf3(x) = buf3(x + 1)\r
-NEXT x\r
-\r
-\r
-a = 50\r
-FOR x = 65 + 18 TO 270 STEP 40\r
-a = a + 1\r
-IF buf3(x - 1) < 190 THEN\r
-mkjuku x, buf3(x - 1) - 27, x, 0\r
-mkjuku x, buf3(x) - 27, x, a\r
-END IF\r
-NEXT x\r
-\r
-inke a$\r
-SOUND 0, .4\r
-IF a$ = "" THEN GOTO 1\r
-\r
- \r
-END SUB\r
-\r
-SUB ef2\r
-\r
-FOR a = 1 TO 30\r
-e = 0\r
-c = (3.8 * (30 - a)) / 30\r
-\r
-FOR f = 0 TO 50\r
-IF f < 25 THEN e = e + 4 ELSE e = e - c\r
-OUT &H3C8, f\r
-OUT &H3C9, e / 4\r
-OUT &H3C9, e / 1.9\r
-OUT &H3C9, e / 3\r
-NEXT f\r
-\r
-FOR b = 1 TO 3\r
-SOUND 0, .3\r
-NEXT b\r
-NEXT a\r
-\r
-\r
-\r
-FOR a = 20 TO 0 STEP -1\r
-b = (a * 4) / 20\r
-e = 0\r
-FOR f = 0 TO 60\r
-IF f < 25 THEN e = e + b\r
-OUT &H3C8, f\r
-OUT &H3C9, e / 4\r
-OUT &H3C9, e / 1.9\r
-OUT &H3C9, e / 3\r
-NEXT f\r
-\r
-FOR b = 1 TO 2\r
-SOUND 0, .3\r
-NEXT b\r
-\r
-NEXT a\r
-\r
-END SUB\r
-\r
-SUB ef3\r
-SCREEN 7\r
-SCREEN 7, , , 1\r
-\r
-OUT &H3C8, 1\r
-OUT &H3C9, 64 / 4\r
-OUT &H3C9, 64 / 1.9\r
-OUT &H3C9, 64 / 3\r
-\r
-b = 2\r
-c = .01\r
-2\r
-x = x + 1\r
-y = y + 1\r
-c = c + .01\r
-b = b + c\r
-\r
-FOR a = 0 TO 160 STEP b\r
-LINE (160 + a, 0)-(160 + a, 199), 1\r
-LINE (160 - a, 0)-(160 - a, 199), 1\r
-LINE (0, 100 + a)-(319, 100 + a), 1\r
-LINE (0, 100 - a)-(319, 100 - a), 1\r
-NEXT a\r
-\r
-\r
-PCOPY 0, 1\r
-CLS\r
-SOUND 0, .4\r
-IF b < 50 THEN GOTO 2\r
-\r
-SCREEN 13\r
-pal 2\r
-\r
-FOR a = 0 TO 160 STEP b\r
-LINE (160 + a, 0)-(160 + a, 199), 25\r
-LINE (160 - a, 0)-(160 - a, 199), 25\r
-LINE (0, 100 + a)-(319, 100 + a), 25\r
-LINE (0, 100 - a)-(319, 100 - a), 25\r
-NEXT a\r
-\r
-\r
-resiz\r
-pal 3\r
-\r
-pri 11, 8, "-* A U T O R I D *-", 55\r
-pri 10, 11, CHR$(254) + " Danel Makko", 55\r
-pri 10, 13, CHR$(254) + " Meelis Altma", 55\r
-pri 10, 15, CHR$(254) + " Svjatoslav Agejenko", 55\r
-'pri 10, 17, CHR$(254) + " Kenno Kink", 55\r
-pri 20, 19, "I-01 a. 2001", 55\r
-\r
-inpur\r
-CLS\r
-END SUB\r
-\r
-SUB ef4\r
-pal 2\r
-xs = 317\r
-ys = 185\r
-box xs, ys\r
-tey = 20\r
-\r
-DIM buf4(1 TO 10000)\r
-\r
-b = 0\r
-setink 10\r
-COLOR 25\r
-4\r
-b = b + 1\r
-\r
-SELECT CASE b\r
-CASE 50 TO 200\r
-deca xs, ys, 1, 1\r
-\r
-CASE 201\r
-'pal4 255, 63, 45, 0\r
-'prin 10, tey, 2, 255, "Infoallikas:"\r
-tey = tey + 20\r
-\r
-CASE 290\r
-pal4 254, 20, 20, 63\r
-prin 70, tey, 7, 254, "NETI"\r
-tey = tey + 60\r
-\r
-CASE 350\r
-pal4 254, 20, 20, 63\r
-prin 100, tey, 2, 254, "www.neti.ee"\r
-tey = tey + 20\r
-\r
-CASE 400\r
-pal4 254, 20, 20, 63\r
-prin 100, tey, 2, 254, CHR$(16) + "\84ri\turism"\r
-tey = tey + 10\r
-\r
-\r
-END SELECT\r
-\r
-FOR a = 2 TO (xs - 5) / 8\r
-LOCATE 23, a\r
-PRINT CHR$(RND * 1 + 48)\r
-NEXT a\r
-\r
-FOR x = 3 TO xs - 3 STEP 8\r
-GET (x, 183 - ys + 14)-(x + 7, 183), buf4(1)\r
-PUT (x, 183 - ys + 6), buf4(1), PSET\r
-NEXT x\r
-\r
-\r
-inke a$\r
-\r
-IF a$ <> "" THEN GOTO 3\r
-wpr\r
-GOTO 4\r
-\r
-\r
-\r
-3\r
-END SUB\r
-\r
-SUB ef5\r
-DIM buf(1 TO 5000)\r
-\r
-FOR a = 1 TO 1000\r
-x = RND * 298 + 1\r
-y = RND * 178 + 1\r
-GET (x, y)-(x + 19, y + 19), buf(1)\r
-IF RND * 100 < 50 THEN x = x + 1 ELSE x = x - 1\r
-IF RND * 100 < 50 THEN y = y + 1\r
-PUT (x, y), buf(1), PSET\r
-SOUND 0, .05\r
-NEXT a\r
-\r
-FOR a = 0 TO 100\r
-LINE (0, a)-(319, a), 0\r
-LINE (0, 200 - a)-(319, 200 - a), 0\r
-SOUND 0, .4\r
-NEXT a\r
-\r
-\r
-END SUB\r
-\r
-SUB inke (a$)\r
-IF tim$ <> TIME$ THEN\r
-ink = ink - 1\r
-tim$ = TIME$\r
-END IF\r
-IF (ink <= 0) AND (tmr = 1) THEN a$ = " " ELSE a$ = ""\r
-IF INKEY$ <> "" THEN a$ = " "\r
-END SUB\r
-\r
-SUB inpur\r
-setink 10\r
-11\r
-inke a$\r
-IF a$ = "" THEN GOTO 11\r
-END SUB\r
-\r
-DEFINT A-Z\r
-SUB mkback\r
-CLS\r
-lm1 = 0\r
-lm2 = 50\r
-\r
-s = 2 ^ 7\r
-\r
-7\r
-s = s \ 2\r
-\r
-FOR y = 0 TO 199 STEP s\r
-FOR x = 0 TO 319 STEP s\r
-\r
-c1 = POINT(x, y)\r
-c2 = POINT(x + s, y)\r
-c3 = POINT(x, y + s)\r
-c4 = POINT(x + s, y + s)\r
-\r
-sp = s \ 2\r
-\r
-c5 = (c1 + c2 + c3 + c4) / 4 + RND * s - sp\r
-IF c5 > lm2 THEN c5 = lm2\r
-IF c5 < lm1 THEN c5 = lm1\r
-\r
-c6 = (c2 + c4) / 2 + RND * s - sp\r
-IF c6 > lm2 THEN c6 = lm2\r
-IF c6 < lm1 THEN c6 = lm1\r
-\r
-c7 = (c3 + c4) / 2 + RND * s - sp\r
-IF c7 > lm2 THEN c7 = lm2\r
-IF c7 < lm1 THEN c7 = lm1\r
-\r
-\r
-IF INT(RND * 30) = 2 THEN c5 = 50\r
-PSET (x + sp, y + sp), c5\r
-PSET (x + s, y + sp), c6\r
-PSET (x + sp, y + s), c7\r
-\r
-NEXT x\r
-NEXT y\r
-IF s > 2 THEN GOTO 7\r
-END SUB\r
-\r
-DEFSNG A-Z\r
-SUB mkfont\r
-SCREEN 13\r
-FOR a = 0 TO 255\r
-LOCATE 1, 1\r
-IF a <> 7 THEN PRINT CHR$(a)\r
-\r
-FOR y = 0 TO 7\r
-FOR x = 0 TO 7\r
-fontt(x, y, a) = POINT(x, y)\r
-NEXT x\r
-NEXT y\r
-NEXT a\r
-\r
-\r
-END SUB\r
-\r
-SUB mkjuku (x, y, a, c)\r
-jas(a) = jas(a) + .08\r
-IF jas(a) > 30000 THEN jas(a) = 0\r
-b = jas(a)\r
-IF c = 0 THEN b = jas(a) - .08\r
-x1 = x + COS(b) * 10\r
-y1 = y + SIN(b) * 5 + 20\r
-\r
-x2 = x + COS(b) * 5 + 2\r
-y2 = y + SIN(b) * 3 + 10\r
-\r
-x3 = x + COS(b + 1) * 2\r
-y3 = y + SIN(b + 1) * 2 + 2\r
-\r
-\r
-LINE (x2, y2)-(x1, y1), c\r
-LINE (x2, y2)-(x3, y3), c\r
-\r
-\r
-x1 = x + COS(b + pii) * 10\r
-y1 = y + SIN(b + pii) * 5 + 20\r
-\r
-x2 = x + COS(b + pii) * 5 + 2\r
-y2 = y + SIN(b + pii) * 3 + 10\r
-\r
-LINE (x2, y2)-(x1, y1), c\r
-LINE (x2, y2)-(x3, y3), c\r
-\r
-x4 = x + COS(b + 1.2) * 3 - 1\r
-y4 = y + SIN(b + 1.2) * 1 - 10\r
-\r
-LINE (x4, y4)-(x3, y3), c\r
-\r
-x5 = x + COS(b + .5) * 13 - 3\r
-y5 = y + SIN(b + .5) * 2 + 1\r
-\r
-x6 = x + COS(b + .5) * 15 - 1\r
-y6 = y + SIN(b + .5) * 3 + 4\r
-\r
-LINE (x5, y5)-(x4, y4), c\r
-LINE (x5, y5)-(x6, y6), c\r
-\r
-x5 = x + COS(b + pii) * 13 - 3\r
-y5 = y + SIN(b + pii) * 2 + 1\r
-\r
-x6 = x + COS(b + pii) * 15 - 1\r
-y6 = y + SIN(b + pii) * 3 + 4\r
-\r
-LINE (x5, y5)-(x4, y4), c\r
-LINE (x5, y5)-(x6, y6), c\r
-\r
-x7 = x + COS(b + 1.2) * 2\r
-y7 = y + SIN(b + 1.2) * 1 - 14\r
-\r
-LINE (x7, y7 + 2)-(x4, y4), c\r
-\r
-CIRCLE (x7, y7), 3, c\r
-\r
-\r
-\r
-END SUB\r
-\r
-SUB pal (x)\r
-SELECT CASE x\r
-CASE 1\r
-FOR f = 0 TO 25\r
-OUT &H3C8, f\r
-OUT &H3C9, f * 4.1\r
-OUT &H3C9, f * 4.1\r
-OUT &H3C9, f * 4.1\r
-NEXT f\r
-\r
-CASE 2\r
-e = 0\r
-FOR f = 0 TO 50\r
-IF f < 25 THEN e = e + 4 ELSE e = e - 3.8\r
-OUT &H3C8, f\r
-OUT &H3C9, e / 4\r
-OUT &H3C9, e / 1.9\r
-OUT &H3C9, e / 3\r
-NEXT f\r
-CASE 3\r
-\r
-FOR f = 51 TO 60\r
-OUT &H3C8, f\r
-OUT &H3C9, SIN(f) * 30 + 30\r
-OUT &H3C9, SIN(f * 2) * 30 + 30\r
-OUT &H3C9, SIN(f * 3) * 30 + 30\r
-NEXT f\r
-\r
-CASE 4\r
-FOR f = 0 TO 25\r
-OUT &H3C8, f\r
-OUT &H3C9, f * 2.5\r
-OUT &H3C9, f * 2.5\r
-OUT &H3C9, f * 1.5\r
-NEXT f\r
-FOR f = 26 TO 50\r
-OUT &H3C8, f\r
-OUT &H3C9, (50 - f) * 2.5\r
-OUT &H3C9, (50 - f) * 2.5\r
-OUT &H3C9, (50 - f) * 1.5\r
-NEXT f\r
-\r
-END SELECT\r
-\r
-END SUB\r
-\r
-SUB pal2 (r, g, b)\r
-FOR f = 0 TO 25\r
-OUT &H3C8, f + 51\r
-OUT &H3C9, (f * 2.5 + r * 1) / 2\r
-OUT &H3C9, (f * 2.5 + g * 1) / 2\r
-OUT &H3C9, (f * 1.5 + b * 1) / 2\r
-NEXT f\r
-FOR f = 26 TO 50\r
-OUT &H3C8, f + 51\r
-OUT &H3C9, ((50 - f) * 2.5 + r * 1) / 2\r
-OUT &H3C9, ((50 - f) * 2.5 + g * 1) / 2\r
-OUT &H3C9, ((50 - f) * 1.5 + b * 1) / 2\r
-NEXT f\r
-END SUB\r
-\r
-SUB pal3 (r, g, b)\r
-FOR f = 0 TO 25\r
-OUT &H3C8, f + 102\r
-OUT &H3C9, (f * 2.5 + r * 1) / 2\r
-OUT &H3C9, (f * 2.5 + g * 1) / 2\r
-OUT &H3C9, (f * 1.5 + b * 1) / 2\r
-NEXT f\r
-FOR f = 26 TO 50\r
-OUT &H3C8, f + 102\r
-OUT &H3C9, ((50 - f) * 2.5 + r * 1) / 2\r
-OUT &H3C9, ((50 - f) * 2.5 + g * 1) / 2\r
-OUT &H3C9, ((50 - f) * 1.5 + b * 1) / 2\r
-NEXT f\r
-END SUB\r
-\r
-SUB pal4 (c, r, g, b)\r
-OUT &H3C8, c\r
-OUT &H3C9, r\r
-OUT &H3C9, g\r
-OUT &H3C9, b\r
-END SUB\r
-\r
-SUB pr (x, y, s, c, n, a$)\r
-IF n > LEN(a$) THEN GOTO 10\r
-a$ = RIGHT$(LEFT$(a$, n), 1)\r
-x1 = n * 8 * s + x\r
-prin x1, y, s, c, a$\r
-10\r
-END SUB\r
-\r
-SUB pri (x, y, a$, c)\r
-COLOR c\r
-FOR a = 1 TO LEN(a$)\r
-b$ = RIGHT$(LEFT$(a$, a), 1)\r
-LOCATE y, x + a\r
-PRINT b$\r
-SOUND 0, 1\r
-NEXT a\r
-\r
-\r
-END SUB\r
-\r
-SUB prin (x1, y1, s, c1, a$)\r
-\r
-FOR a = 1 TO LEN(a$)\r
-b = ASC(RIGHT$(LEFT$(a$, a), 1))\r
-c = (a - 1) * 8 * s + x1\r
-FOR y = 0 TO 7\r
-FOR x = 0 TO 7\r
-IF fontt(x, y, b) > 0 THEN\r
-LINE (x * s + c, y * s + y1)-(x * s + s - 1 + c, y * s + s - 1 + y1), c1, BF\r
-END IF\r
-NEXT x\r
-NEXT y\r
-\r
-NEXT a\r
-\r
-END SUB\r
-\r
-SUB resiz\r
-\r
-\r
-FOR a = 1 TO 10\r
-CIRCLE (160, 100), a, a * 2 + 5\r
-NEXT a\r
-PSET (160, 100), 0\r
-\r
-DIM buff1(1 TO 10000)\r
-DIM buff2(1 TO 10000)\r
-\r
-a = 10\r
-GET (160 - a, 90)-(160, 110), buff1(1)\r
-GET (160, 90)-(160 + a, 110), buff2(1)\r
-5\r
-PUT (159 - a, 90), buff1(1), PSET\r
-PUT (150 + a, 90), buff2(1), PSET\r
-a = a + 1\r
-SOUND 0, .2\r
-IF a < 140 THEN GOTO 5\r
-\r
-a = 1\r
-\r
-GET (20, 90)-(300, 100), buff1(1)\r
-GET (20, 100)-(300, 110), buff2(1)\r
-6\r
-PUT (20, 90 - a), buff1(1), PSET\r
-PUT (20, 100 + a), buff2(1), PSET\r
-\r
-a = a + 1\r
-SOUND 0, .2\r
-IF a < 60 THEN GOTO 6\r
-END SUB\r
-\r
-SUB sc1\r
-\r
-pal 2\r
-LOCATE 1, 1\r
-COLOR 1\r
-PRINT "TURISM"\r
-\r
-FOR x = 0 TO 80\r
-FOR y = 0 TO 16\r
-c = POINT(x, y)\r
-IF c > 0 THEN c1 = 50 ELSE c1 = 0\r
-LINE (x * 5 + 35, y * 3 + 50)-(x * 5 + 4 + 35, y * 3 + 2 + 50), c1, BF\r
-NEXT y\r
-NEXT x\r
-\r
-LOCATE 1, 1\r
-PRINT " "\r
-\r
-\r
-FOR y = 30 TO 80\r
-FOR x = 0 TO 319\r
-c = POINT(x, y)\r
-c1 = (c1 * 1 + c) / 2\r
-PSET (x, y), c1\r
-NEXT x\r
-NEXT y\r
-\r
-FOR x = 0 TO 319\r
-FOR y = 30 TO 80\r
-c = POINT(x, y)\r
-c1 = (c1 * 1 + c) / 2\r
-PSET (x, y), c1\r
-NEXT y\r
-NEXT x\r
-\r
-FOR y = 30 TO 80\r
-FOR x = 319 TO 0 STEP -1\r
-c = POINT(x, y)\r
-c1 = (c1 * 1 + c) / 2\r
-PSET (x, y), c1\r
-NEXT x\r
-NEXT y\r
-\r
-FOR x = 0 TO 319\r
-FOR y = 80 TO 30 STEP -1\r
-c = POINT(x, y)\r
-c1 = (c1 * 1 + c) / 2\r
-PSET (x, y), c1\r
-NEXT y\r
-NEXT x\r
-\r
-\r
-\r
-\r
-\r
-\r
-END SUB\r
-\r
-SUB sc2\r
-\r
-CLS\r
-pal 4\r
-mkback\r
-\r
-pal2 40, 64, 63\r
-pal3 0, 0, 0\r
-\r
-box1 30, 30, 290, 170, 1\r
-\r
-prin 65, 50, 3, 0, "Eesm\84rk:"\r
-\r
-prin 40, 100, 1, 0, CHR$(254) + " Uurida, interneti kaudu tu-"\r
-prin 40, 108, 1, 0, " rismifirmade poolt pakutavaid"\r
-prin 40, 116, 1, 0, " teenuseid."\r
-prin 40, 130, 1, 0, CHR$(254) + " Saada hinne."\r
-\r
-\r
-inpur\r
-\r
-END SUB\r
-\r
-SUB sc3\r
-mkback\r
-\r
-pal2 64, 64, 0\r
-box1 30, 30, 290, 150, 1\r
-\r
-prin 57, 50, 3, 0, " T\84nan"\r
-prin 45, 74, 3, 0, "t\84helepanu"\r
-prin 45, 98, 3, 0, " eest"\r
-inpur\r
-\r
-END SUB\r
-\r
-SUB sc4\r
-\r
-pal 4\r
-mkback\r
-\r
-\r
-\r
-pal2 0, 0, 32\r
-box1 3, 3, 260, 50, 1\r
-\r
-pal4 255, 50, 50, 0\r
-prin 10, 10, 2, 255, "Eesti Reisiinfo"\r
-prin 50, 30, 1, 255, "www.reisiinfo.ee"\r
-\r
-pal3 10, 20, 0\r
-box1 20, 40, 290, 180, 2\r
-\r
-pal4 254, 63, 45, 0\r
-\r
-\r
-b = 25\r
-prin 40, 60, 1, 254, CHR$(254) + " Eestisisesed reisid"\r
-a = b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " Reisiv\93imaluste tutvustus"\r
-a = a + b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " Otsingumootor"\r
-a = a + b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " Valida sobiv tegevus"\r
-\r
-\r
-inpur\r
-\r
-\r
-\r
-\r
-END SUB\r
-\r
-SUB sc5\r
-pal 4\r
-mkback\r
-\r
-pal2 0, 0, 32\r
-box1 3, 3, 300, 50, 1\r
-\r
-pal4 255, 50, 50, 0\r
-prin 10, 10, 2, 255, "Wristours"\r
-prin 50, 30, 1, 255, "www.wristours.ee"\r
-\r
-pal3 20, 32, 63\r
-box1 20, 40, 290, 180, 2\r
-\r
-pal4 254, 63, 45, 0\r
-b = 25\r
-prin 40, 60, 1, 254, CHR$(254) + " Reisid \81le maailma"\r
-a = b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " Väimalus tellida"\r
-a = a + b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " Info viisade kohta"\r
-a = a + b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " V\93imalus liisinguks"\r
-\r
-inpur\r
-\r
-\r
-\r
-END SUB\r
-\r
-SUB sc6\r
-pal 4\r
-mkback\r
-\r
-pal2 0, 0, 32\r
-box1 3, 3, 300, 50, 1\r
-\r
-pal4 255, 50, 50, 0\r
-prin 10, 10, 2, 255, "F R I S O N"\r
-prin 50, 30, 1, 255, "www.frison.ee"\r
-\r
-pal3 30, 20, 10\r
-box1 20, 40, 290, 180, 2\r
-\r
-pal4 254, 63, 45, 0\r
-b = 25\r
-prin 40, 60, 1, 254, CHR$(254) + " Aktiivne puhkus"\r
-a = b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " Reisipaiga valik"\r
-a = a + b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " V\93imalused registreerida"\r
-a = a + b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " Tellimusreisid"\r
-\r
-inpur\r
-\r
-\r
-\r
-\r
-END SUB\r
-\r
-SUB sc7\r
-pal 4\r
-mkback\r
-\r
-pal2 0, 0, 32\r
-box1 3, 3, 300, 50, 1\r
-\r
-pal4 255, 50, 50, 0\r
-prin 10, 10, 2, 255, "Last Minute"\r
-prin 50, 30, 1, 255, "www.lastminute.ee"\r
-\r
-pal3 20, 32, 63\r
-box1 20, 40, 290, 180, 2\r
-\r
-pal4 254, 63, 45, 0\r
-b = 25\r
-prin 40, 60, 1, 254, CHR$(254) + " Reisid"\r
-a = b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " Valida sihtkoht"\r
-a = a + b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " V\93imalused tellida reis"\r
-a = a + b\r
-prin 40, 60 + a, 1, 254, CHR$(254) + " V\93imalus reisikindlustuseks"\r
-\r
-inpur\r
-\r
-\r
-\r
-\r
-END SUB\r
-\r
-SUB setink (a)\r
-ink = a\r
-tim$ = TIME$\r
-END SUB\r
-\r
-SUB start\r
-SCREEN 13\r
-RANDOMIZE TIMER\r
-\r
-mkfont\r
-tim = 0\r
-tim2 = 0\r
-\r
-\r
-FOR a = 1 TO 500\r
-jas(a) = RND * 10\r
-NEXT a\r
-\r
-pii = 3.14\r
-IF COMMAND$ = "t" OR COMMAND$ = "T" THEN\r
-tmr = 1\r
-PRINT "timer is on"\r
-SLEEP 1\r
-ELSE\r
-tmr = 0\r
-END IF\r
-END SUB\r
-\r
-SUB wpr\r
-tim = tim + 1\r
-IF tim \ 10 = tim / 10 THEN\r
-a = tim / 10\r
-SELECT CASE tim2\r
-CASE 0\r
-IF a = 10 THEN tim2 = 1: tim = 0: pal4 255, 63, 45, 0\r
-CASE 1\r
-pr 10, 10, 2, 255, a, "Infoallikas:"\r
-\r
-\r
-END SELECT\r
-END IF\r
-END SUB\r
-\r
projects / qbasicapps.git / commitdiff