Matrix Dataless

[bikemadness]

Short and sweet.

A mistake corrected.
Maybe it was noticed.
14/07/23

Code Select Expand


tails=50
tail=12
dim gap(tails)
dim go(tails)
dim en(tails)
dim x(tails)
dim y(tails)
dim z(tail,tails)
for a=1 to tails
gap(a)=1
en(a)=int(ran(100))/10
x(a)=(a-1)*12.8
y(a)=int(ran(50))*12
for b=1 to tail
z(b,a)=int(ran(223))+32
'z(b,a)=int(ran(2)) rem this sets up 0's and 1's
next b
next a
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
for a=1 to tails
go(a)=go(a)+gap(a)
en(a)=en(a)+.1
if en(a)>10 en(a)=0
if go(a)>en(a) go(a)=1
if go(a)>en(a)-1 y(a)=y(a)+12
if y(a)>520+(tail*12) then
y(a)=0
'for b=1 to tail
'z(b,a)=int(ran(2))
''next b
endif
for b=1 to tail
setrgb 1,0,255+tail-(b*(255/tail)),0
text x(a),y(a)-(b*12),chr$(z(b,a))
'text x(a),y(a)-(b*12),str$(z(b,a)) rem this displays 0's and 1's
next b
next a
until (1=0)