1 ' Svjatoslav Agejenko 2003.01
\r
2 ' svjatoslav@svjatoslav.eu
\r
32 IF a >= 128 THEN a = a - 128
\r
33 IF a >= 64 THEN a = a - 64
\r
34 IF a >= 32 THEN a = a - 32
\r
35 IF a >= 16 THEN a = a - 16
\r
36 IF a < 8 THEN GOTO 1
\r
39 IF frm > 10000 THEN frm = -10000
\r
42 IF w > 300 THEN wa = wa + 1 ELSE wa = wa - 1
\r
43 IF w < 250 THEN wa = wa - 5
\r
44 IF w > 3000 THEN wa = wa + 30
\r
45 IF w > 1000 THEN wa = wa + 5
\r
47 IF INKEY$ <> "" THEN
\r
58 OUT &H3C9, SIN(b / 20) * 30 + 30
\r
59 OUT &H3C9, SIN(b / 27) * 30 + 30
\r
60 OUT &H3C9, SIN(b / 31) * 30 + 30
\r