35 lines
600 B
Plaintext
35 lines
600 B
Plaintext
SUB d (p,s,x,y)
|
|
SET COLOR p
|
|
SET BACKGROUND COLOR s
|
|
|
|
IF y > 0 AND y < 24 THEN
|
|
SET CURSOR y, x
|
|
PRINT CHR$(33+REMAINDER((x*y),200));
|
|
END IF
|
|
END SUB
|
|
|
|
DIM t(80)
|
|
FOR i = 1 TO 80
|
|
LET t(i) = INT(-50*RND)
|
|
NEXT i
|
|
LET s = TIME
|
|
|
|
CLEAR
|
|
DO
|
|
FOR i = 1 TO 80
|
|
IF t(i) > 28 THEN LET t(i) = 0
|
|
LET t(i) = t(i)+1
|
|
LET y = t(i)
|
|
CALL d (0, 0, i, y-6)
|
|
CALL d (2, 0, i, y-5)
|
|
CALL d (2, 0, i, y-4)
|
|
CALL d (10, 0, i, y-2)
|
|
CALL d (11, 0, i, y-1)
|
|
CALL d (0, 2, i, y)
|
|
NEXT i
|
|
LET l = TIME
|
|
DO WHILE l = TIME
|
|
LOOP
|
|
LOOP
|
|
END
|