From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Tue, 15 Oct 2024 19:49:31 +0000 (+0300)
Subject: Refactoring code for better readability
X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=59cbebfad59c23d97ea3423570494aa7fad7cb61;p=qbasicapps.git

Refactoring code for better readability
---

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