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