' Svjatoslav Agejenko 2003.01
' svjatoslavagejenko@gmail.com

DEFINT A-Z
CLS
COLOR 7

FOR b = 1 TO 500
COLOR RND * 15
PRINT RND;
NEXT b

COLOR 0, 1
FOR y = 5 TO 20
FOR x = 20 TO 50
LOCATE y, x
PRINT " "
NEXT x
NEXT y
LOCATE 10, 25
PRINT "[ TEST ]"

LOCATE 15, 37
COLOR 2
PRINT "[ TEST ]"

wa = 1
p = &H3DA
1
w = w + 1
a = INP(p)
IF a >= 128 THEN a = a - 128
IF a >= 64 THEN a = a - 64
IF a >= 32 THEN a = a - 32
IF a >= 16 THEN a = a - 16
IF a < 8 THEN GOTO 1

frm = frm + 1
IF frm > 10000 THEN frm = -10000


IF w > 300 THEN wa = wa + 1 ELSE wa = wa - 1
IF w < 250 THEN wa = wa - 5
IF w > 3000 THEN wa = wa + 30
IF w > 1000 THEN wa = wa + 5

IF INKEY$ <> "" THEN
  OUT &H3C8, 0
  OUT &H3C9, 0
  OUT &H3C9, 0
  OUT &H3C9, 0
  SYSTEM
END IF

FOR a = 0 TO 70
  b = a * 6 + frm
  OUT &H3C8, 0
  OUT &H3C9, SIN(b / 20) * 30 + 30
  OUT &H3C9, SIN(b / 27) * 30 + 30
  OUT &H3C9, SIN(b / 31) * 30 + 30
  FOR u = 1 TO wa
  NEXT u
NEXT a

w = 0
GOTO 1