1 DECLARE SUB setink (a!)
\r
2 DECLARE SUB inke (a$)
\r
3 DECLARE SUB mkjuku (x!, y!, a!, c!)
\r
4 DECLARE SUB pr (x!, y!, s!, c!, n!, a$)
\r
9 DECLARE SUB pal4 (c, r!, g!, b!)
\r
11 DECLARE SUB inpur ()
\r
14 DECLARE SUB prin (x1!, y1!, s!, c, a$)
\r
15 DECLARE SUB pal3 (r!, g!, b!)
\r
16 DECLARE SUB mkfont ()
\r
17 DECLARE SUB pal2 (r!, g!, b!)
\r
18 DECLARE SUB box1 (x1!, y1!, x2!, y2!, c!)
\r
19 DECLARE SUB mkback ()
\r
21 DECLARE SUB resiz ()
\r
22 DECLARE SUB pri (x!, y!, a$, c!)
\r
23 DECLARE SUB deca (xs!, ys!, fx!, fy!)
\r
24 DECLARE SUB box (xs!, ys!)
\r
29 DECLARE SUB start ()
\r
31 DECLARE SUB pal (x!)
\r
32 DIM SHARED fontt(0 TO 7, 0 TO 7, 0 TO 255)
\r
35 DIM SHARED jas(1 TO 500)
\r
66 LINE (0, 186)-(0 + xs, 186 - ys), 15, B
\r
67 LINE (1, 187)-(-1 + xs, 187 - ys), 25, B
\r
68 LINE (2, 188)-(-2 + xs, 188 - ys), 15, B
\r
70 PSET (0 + xs, 188), 0
\r
71 PSET (0, 186 - ys), 0
\r
72 PSET (0 + xs, 186 - ys), 0
\r
76 SUB box1 (x1, y1, x2, y2, c)
\r
78 IF c = 1 THEN za = 51 ELSE za = 102
\r
81 FOR zy = y1 + 7 TO y2 + 7
\r
82 FOR zx = x1 + 7 TO x2 + 7
\r
85 IF zc > 25 THEN zc = 50 - zc
\r
95 IF zc > 50 THEN zc = zc - 51
\r
96 PSET (zx, zy), zc + za
\r
104 SUB deca (xs, ys, fx, fy)
\r
105 LINE (0, 185 - ys)-(xs, 185 - ys + fy), 0, BF
\r
106 LINE (xs, 18 - ys)-(xs - fx, 188), 0, BF
\r
116 'LINE (51, 171)-(270, 190), 25, BF
\r
118 DIM buf1(1 TO 10000)
\r
119 DIM buf2(1 TO 10000)
\r
132 IF c1 > 50 THEN c1 = 1
\r
133 LINE (0, 40)-(0, 43), c1
\r
135 IF c2 > 25 THEN c2 = 50 - c2
\r
137 IF c2 < 0 THEN c2 = 0
\r
140 LINE (319, 76)-(319, 79), c1
\r
144 GET (0, 39)-(318, 44), buf1(1)
\r
145 PUT (1, 39), buf1(1), PSET
\r
147 GET (1, 75)-(319, 80), buf1(1)
\r
148 PUT (0, 75), buf1(1), PSET
\r
151 buf3(271) = SIN(b / 50 + 1.57) * 30 + 160
\r
153 PSET (x, buf3(x) - 1), 0
\r
155 PSET (x, buf3(x)), 15
\r
156 PSET (x, buf3(x) + 1), 20
\r
157 PSET (x, buf3(x) + 2), 25
\r
159 buf3(x) = buf3(x + 1)
\r
164 FOR x = 65 + 18 TO 270 STEP 40
\r
166 IF buf3(x - 1) < 190 THEN
\r
167 mkjuku x, buf3(x - 1) - 27, x, 0
\r
168 mkjuku x, buf3(x) - 27, x, a
\r
174 IF a$ = "" THEN GOTO 1
\r
183 c = (3.8 * (30 - a)) / 30
\r
186 IF f < 25 THEN e = e + 4 ELSE e = e - c
\r
200 FOR a = 20 TO 0 STEP -1
\r
204 IF f < 25 THEN e = e + b
\r
225 OUT &H3C9, 64 / 1.9
\r
236 FOR a = 0 TO 160 STEP b
\r
237 LINE (160 + a, 0)-(160 + a, 199), 1
\r
238 LINE (160 - a, 0)-(160 - a, 199), 1
\r
239 LINE (0, 100 + a)-(319, 100 + a), 1
\r
240 LINE (0, 100 - a)-(319, 100 - a), 1
\r
247 IF b < 50 THEN GOTO 2
\r
252 FOR a = 0 TO 160 STEP b
\r
253 LINE (160 + a, 0)-(160 + a, 199), 25
\r
254 LINE (160 - a, 0)-(160 - a, 199), 25
\r
255 LINE (0, 100 + a)-(319, 100 + a), 25
\r
256 LINE (0, 100 - a)-(319, 100 - a), 25
\r
263 pri 11, 8, "-* A U T O R I D *-", 55
\r
264 pri 10, 11, CHR$(254) + " Danel Makko", 55
\r
265 pri 10, 13, CHR$(254) + " Meelis Altma", 55
\r
266 pri 10, 15, CHR$(254) + " Svjatoslav Agejenko", 55
\r
267 'pri 10, 17, CHR$(254) + " Kenno Kink", 55
\r
268 pri 20, 19, "I-01 a. 2001", 55
\r
281 DIM buf4(1 TO 10000)
\r
294 'pal4 255, 63, 45, 0
\r
295 'prin 10, tey, 2, 255, "Infoallikas:"
\r
299 pal4 254, 20, 20, 63
\r
300 prin 70, tey, 7, 254, "NETI"
\r
304 pal4 254, 20, 20, 63
\r
305 prin 100, tey, 2, 254, "www.neti.ee"
\r
309 pal4 254, 20, 20, 63
\r
310 prin 100, tey, 2, 254, CHR$(16) + "
\84ri\turism"
\r
316 FOR a = 2 TO (xs - 5) / 8
\r
318 PRINT CHR$(RND * 1 + 48)
\r
321 FOR x = 3 TO xs - 3 STEP 8
\r
322 GET (x, 183 - ys + 14)-(x + 7, 183), buf4(1)
\r
323 PUT (x, 183 - ys + 6), buf4(1), PSET
\r
329 IF a$ <> "" THEN GOTO 3
\r
344 GET (x, y)-(x + 19, y + 19), buf(1)
\r
345 IF RND * 100 < 50 THEN x = x + 1 ELSE x = x - 1
\r
346 IF RND * 100 < 50 THEN y = y + 1
\r
347 PUT (x, y), buf(1), PSET
\r
352 LINE (0, a)-(319, a), 0
\r
353 LINE (0, 200 - a)-(319, 200 - a), 0
\r
361 IF tim$ <> TIME$ THEN
\r
365 IF (ink <= 0) AND (tmr = 1) THEN a$ = " " ELSE a$ = ""
\r
366 IF INKEY$ <> "" THEN a$ = " "
\r
373 IF a$ = "" THEN GOTO 11
\r
387 FOR y = 0 TO 199 STEP s
\r
388 FOR x = 0 TO 319 STEP s
\r
391 c2 = POINT(x + s, y)
\r
392 c3 = POINT(x, y + s)
\r
393 c4 = POINT(x + s, y + s)
\r
397 c5 = (c1 + c2 + c3 + c4) / 4 + RND * s - sp
\r
398 IF c5 > lm2 THEN c5 = lm2
\r
399 IF c5 < lm1 THEN c5 = lm1
\r
401 c6 = (c2 + c4) / 2 + RND * s - sp
\r
402 IF c6 > lm2 THEN c6 = lm2
\r
403 IF c6 < lm1 THEN c6 = lm1
\r
405 c7 = (c3 + c4) / 2 + RND * s - sp
\r
406 IF c7 > lm2 THEN c7 = lm2
\r
407 IF c7 < lm1 THEN c7 = lm1
\r
410 IF INT(RND * 30) = 2 THEN c5 = 50
\r
411 PSET (x + sp, y + sp), c5
\r
412 PSET (x + s, y + sp), c6
\r
413 PSET (x + sp, y + s), c7
\r
417 IF s > 2 THEN GOTO 7
\r
425 IF a <> 7 THEN PRINT CHR$(a)
\r
429 fontt(x, y, a) = POINT(x, y)
\r
437 SUB mkjuku (x, y, a, c)
\r
438 jas(a) = jas(a) + .08
\r
439 IF jas(a) > 30000 THEN jas(a) = 0
\r
441 IF c = 0 THEN b = jas(a) - .08
\r
442 x1 = x + COS(b) * 10
\r
443 y1 = y + SIN(b) * 5 + 20
\r
445 x2 = x + COS(b) * 5 + 2
\r
446 y2 = y + SIN(b) * 3 + 10
\r
448 x3 = x + COS(b + 1) * 2
\r
449 y3 = y + SIN(b + 1) * 2 + 2
\r
452 LINE (x2, y2)-(x1, y1), c
\r
453 LINE (x2, y2)-(x3, y3), c
\r
456 x1 = x + COS(b + pii) * 10
\r
457 y1 = y + SIN(b + pii) * 5 + 20
\r
459 x2 = x + COS(b + pii) * 5 + 2
\r
460 y2 = y + SIN(b + pii) * 3 + 10
\r
462 LINE (x2, y2)-(x1, y1), c
\r
463 LINE (x2, y2)-(x3, y3), c
\r
465 x4 = x + COS(b + 1.2) * 3 - 1
\r
466 y4 = y + SIN(b + 1.2) * 1 - 10
\r
468 LINE (x4, y4)-(x3, y3), c
\r
470 x5 = x + COS(b + .5) * 13 - 3
\r
471 y5 = y + SIN(b + .5) * 2 + 1
\r
473 x6 = x + COS(b + .5) * 15 - 1
\r
474 y6 = y + SIN(b + .5) * 3 + 4
\r
476 LINE (x5, y5)-(x4, y4), c
\r
477 LINE (x5, y5)-(x6, y6), c
\r
479 x5 = x + COS(b + pii) * 13 - 3
\r
480 y5 = y + SIN(b + pii) * 2 + 1
\r
482 x6 = x + COS(b + pii) * 15 - 1
\r
483 y6 = y + SIN(b + pii) * 3 + 4
\r
485 LINE (x5, y5)-(x4, y4), c
\r
486 LINE (x5, y5)-(x6, y6), c
\r
488 x7 = x + COS(b + 1.2) * 2
\r
489 y7 = y + SIN(b + 1.2) * 1 - 14
\r
491 LINE (x7, y7 + 2)-(x4, y4), c
\r
493 CIRCLE (x7, y7), 3, c
\r
512 IF f < 25 THEN e = e + 4 ELSE e = e - 3.8
\r
522 OUT &H3C9, SIN(f) * 30 + 30
\r
523 OUT &H3C9, SIN(f * 2) * 30 + 30
\r
524 OUT &H3C9, SIN(f * 3) * 30 + 30
\r
536 OUT &H3C9, (50 - f) * 2.5
\r
537 OUT &H3C9, (50 - f) * 2.5
\r
538 OUT &H3C9, (50 - f) * 1.5
\r
548 OUT &H3C9, (f * 2.5 + r * 1) / 2
\r
549 OUT &H3C9, (f * 2.5 + g * 1) / 2
\r
550 OUT &H3C9, (f * 1.5 + b * 1) / 2
\r
554 OUT &H3C9, ((50 - f) * 2.5 + r * 1) / 2
\r
555 OUT &H3C9, ((50 - f) * 2.5 + g * 1) / 2
\r
556 OUT &H3C9, ((50 - f) * 1.5 + b * 1) / 2
\r
563 OUT &H3C9, (f * 2.5 + r * 1) / 2
\r
564 OUT &H3C9, (f * 2.5 + g * 1) / 2
\r
565 OUT &H3C9, (f * 1.5 + b * 1) / 2
\r
569 OUT &H3C9, ((50 - f) * 2.5 + r * 1) / 2
\r
570 OUT &H3C9, ((50 - f) * 2.5 + g * 1) / 2
\r
571 OUT &H3C9, ((50 - f) * 1.5 + b * 1) / 2
\r
575 SUB pal4 (c, r, g, b)
\r
582 SUB pr (x, y, s, c, n, a$)
\r
583 IF n > LEN(a$) THEN GOTO 10
\r
584 a$ = RIGHT$(LEFT$(a$, n), 1)
\r
586 prin x1, y, s, c, a$
\r
590 SUB pri (x, y, a$, c)
\r
592 FOR a = 1 TO LEN(a$)
\r
593 b$ = RIGHT$(LEFT$(a$, a), 1)
\r
602 SUB prin (x1, y1, s, c1, a$)
\r
604 FOR a = 1 TO LEN(a$)
\r
605 b = ASC(RIGHT$(LEFT$(a$, a), 1))
\r
606 c = (a - 1) * 8 * s + x1
\r
609 IF fontt(x, y, b) > 0 THEN
\r
610 LINE (x * s + c, y * s + y1)-(x * s + s - 1 + c, y * s + s - 1 + y1), c1, BF
\r
623 CIRCLE (160, 100), a, a * 2 + 5
\r
627 DIM buff1(1 TO 10000)
\r
628 DIM buff2(1 TO 10000)
\r
631 GET (160 - a, 90)-(160, 110), buff1(1)
\r
632 GET (160, 90)-(160 + a, 110), buff2(1)
\r
634 PUT (159 - a, 90), buff1(1), PSET
\r
635 PUT (150 + a, 90), buff2(1), PSET
\r
638 IF a < 140 THEN GOTO 5
\r
642 GET (20, 90)-(300, 100), buff1(1)
\r
643 GET (20, 100)-(300, 110), buff2(1)
\r
645 PUT (20, 90 - a), buff1(1), PSET
\r
646 PUT (20, 100 + a), buff2(1), PSET
\r
650 IF a < 60 THEN GOTO 6
\r
663 IF c > 0 THEN c1 = 50 ELSE c1 = 0
\r
664 LINE (x * 5 + 35, y * 3 + 50)-(x * 5 + 4 + 35, y * 3 + 2 + 50), c1, BF
\r
675 c1 = (c1 * 1 + c) / 2
\r
683 c1 = (c1 * 1 + c) / 2
\r
689 FOR x = 319 TO 0 STEP -1
\r
691 c1 = (c1 * 1 + c) / 2
\r
697 FOR y = 80 TO 30 STEP -1
\r
699 c1 = (c1 * 1 + c) / 2
\r
720 box1 30, 30, 290, 170, 1
\r
722 prin 65, 50, 3, 0, "Eesm
\84rk:"
\r
724 prin 40, 100, 1, 0, CHR$(254) + " Uurida, interneti kaudu tu-"
\r
725 prin 40, 108, 1, 0, " rismifirmade poolt pakutavaid"
\r
726 prin 40, 116, 1, 0, " teenuseid."
\r
727 prin 40, 130, 1, 0, CHR$(254) + " Saada hinne."
\r
738 box1 30, 30, 290, 150, 1
\r
740 prin 57, 50, 3, 0, " T
\84nan"
\r
741 prin 45, 74, 3, 0, "t
\84helepanu"
\r
742 prin 45, 98, 3, 0, " eest"
\r
755 box1 3, 3, 260, 50, 1
\r
757 pal4 255, 50, 50, 0
\r
758 prin 10, 10, 2, 255, "Eesti Reisiinfo"
\r
759 prin 50, 30, 1, 255, "www.reisiinfo.ee"
\r
762 box1 20, 40, 290, 180, 2
\r
764 pal4 254, 63, 45, 0
\r
768 prin 40, 60, 1, 254, CHR$(254) + " Eestisisesed reisid"
\r
770 prin 40, 60 + a, 1, 254, CHR$(254) + " Reisiv
\93imaluste tutvustus"
\r
772 prin 40, 60 + a, 1, 254, CHR$(254) + " Otsingumootor"
\r
774 prin 40, 60 + a, 1, 254, CHR$(254) + " Valida sobiv tegevus"
\r
789 box1 3, 3, 300, 50, 1
\r
791 pal4 255, 50, 50, 0
\r
792 prin 10, 10, 2, 255, "Wristours"
\r
793 prin 50, 30, 1, 255, "www.wristours.ee"
\r
796 box1 20, 40, 290, 180, 2
\r
798 pal4 254, 63, 45, 0
\r
800 prin 40, 60, 1, 254, CHR$(254) + " Reisid
\81le maailma"
\r
802 prin 40, 60 + a, 1, 254, CHR$(254) + " Väimalus tellida"
\r
804 prin 40, 60 + a, 1, 254, CHR$(254) + " Info viisade kohta"
\r
806 prin 40, 60 + a, 1, 254, CHR$(254) + " V
\93imalus liisinguks"
\r
819 box1 3, 3, 300, 50, 1
\r
821 pal4 255, 50, 50, 0
\r
822 prin 10, 10, 2, 255, "F R I S O N"
\r
823 prin 50, 30, 1, 255, "www.frison.ee"
\r
826 box1 20, 40, 290, 180, 2
\r
828 pal4 254, 63, 45, 0
\r
830 prin 40, 60, 1, 254, CHR$(254) + " Aktiivne puhkus"
\r
832 prin 40, 60 + a, 1, 254, CHR$(254) + " Reisipaiga valik"
\r
834 prin 40, 60 + a, 1, 254, CHR$(254) + " V
\93imalused registreerida"
\r
836 prin 40, 60 + a, 1, 254, CHR$(254) + " Tellimusreisid"
\r
850 box1 3, 3, 300, 50, 1
\r
852 pal4 255, 50, 50, 0
\r
853 prin 10, 10, 2, 255, "Last Minute"
\r
854 prin 50, 30, 1, 255, "www.lastminute.ee"
\r
857 box1 20, 40, 290, 180, 2
\r
859 pal4 254, 63, 45, 0
\r
861 prin 40, 60, 1, 254, CHR$(254) + " Reisid"
\r
863 prin 40, 60 + a, 1, 254, CHR$(254) + " Valida sihtkoht"
\r
865 prin 40, 60 + a, 1, 254, CHR$(254) + " V
\93imalused tellida reis"
\r
867 prin 40, 60 + a, 1, 254, CHR$(254) + " V
\93imalus reisikindlustuseks"
\r
895 IF COMMAND$ = "t" OR COMMAND$ = "T" THEN
\r
897 PRINT "timer is on"
\r
906 IF tim \ 10 = tim / 10 THEN
\r
910 IF a = 10 THEN tim2 = 1: tim = 0: pal4 255, 63, 45, 0
\r
912 pr 10, 10, 2, 255, a, "Infoallikas:"
\r