Data commit

Task/Matrix-digital-rain/True-BASIC/matrix-digital-rain.basic

@@ -0,0 +1,34 @@
+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