1 ' by Svjatoslav Agejenko svjatoslav@svjatoslav.eu
\r
4 DECLARE FUNCTION getc% ()
\r
11 DIM SHARED buf(1 TO 40, 1 TO 25) AS INTEGER
\r
12 DIM SHARED col(1 TO 40, 1 TO 25) AS INTEGER
\r
13 DIM SHARED snd(1 TO 20)
\r
35 IF frm > 10000 THEN frm = 1
\r
36 FOR y = 25 TO 2 STEP -1
\r
38 buf(x, y) = buf(x, y - 1)
\r
43 buf(x, 1) = buf(x, 25)
\r
45 buf(RND * 39 + 1, RND * 10 + 1) = getc
\r
52 IF RND * 100 < 2 THEN snd(a) = RND * 4000 + 4000
\r
54 b = SIN(frm / 100) * 3 + 6
\r
55 FOR a = 1 TO 20 STEP b
\r
64 IF x1 > x2 THEN SWAP x1, x2
\r
73 IF y1 > y2 THEN SWAP x1, x2
\r
78 IF RND * 100 < 20 THEN
\r
81 IF col(x, y) > 1 THEN col(x, y) = col(x, y) - 1
\r
86 IF RND * 100 < 5 THEN
\r
87 FOR y = 1 TO 25 STEP 2
\r
94 IF RND * 100 < 5 THEN
\r
95 FOR x = 1 TO 40 STEP 2
\r
103 col(RND * 39 + 1, RND * 23 + 1) = RND * 4 + 1
\r
106 IF INKEY$ <> "" THEN SYSTEM
\r
120 PRINT CHR$(buf(x, y));
\r
127 PRINT CHR$(buf(x, y));
\r
134 PRINT CHR$(buf(x, y));
\r
142 IF RND * 100 > 50 THEN
\r
147 IF RND * 100 < 15 THEN a = 32
\r
153 IF sndp > 20 THEN sndp = 1
\r
154 SOUND snd(sndp), .07
\r
162 PRINT a, "Palette test"
\r
185 IF r > 63 THEN r = 63
\r
186 IF g > 63 THEN g = 63
\r
187 IF b > 63 THEN b = 63
\r