Matrix 3Letter

[bikemadness]

Now using 3 letter words.

Although there is at least 500 words,
I've whittled that down to about 100.

Code Select Expand


restore words
read char
dim word$(char)
for a=1 to char
read word$(a)
next a

tails=30
tail=12

dim go(tails)
dim en(tails)
dim x(tails)
dim y(tails)
dim z(tail,tails)

for a=1 to tails
en(a)=ran(10)+1
x(a)=int(ran(21))*30
y(a)=int(ran(50))*12

for b=1 to tail
z(b,a)=int(ran(char))+1
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)+1
en(a)=en(a)+.1
if en(a)>10 en(a)=1

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
x(a)=int(ran(21))*30

for b=1 to tail
z(b,a)=int(ran(char))+1
next b

endif

for b=1 to tail
clear fill rectangle x(a),y(a)-(b*12)-14 to x(a)+31,y(a)-(b*12)-2
next b

for b=1 to tail
setrgb 1,0,255+tail-(b*(255/tail)),0
text x(a),y(a)-(b*12)-4,word$(z(b,a))
next b

next a

until (1=0)


label words
data 118
data "aid","ail","aim","air"
data "all","and","any","are"
data "arm","art","ask","ate"
data "awe","bad","ban","bar"
data "beg","bet","bid","big"
data "bit","but","buy","bye"
data "can","cap","cob","con"
data "cop","coy","cry","cue"
data "day","did","due","dye"
data "eat","end","era","far"
data "few","fit","for","gap"
data "get","got","had","has"
data "her","hid","him","his"
data "how","its","job","joy"
data "lag","lap","lay","led"
data "let","lie","lot","low"
data "may","new","nod","nor"
data "not","now","odd","off"
data "old","one","opt","our"
data "out","owe","own","pat"
data "pry","put","ran","raw"
data "ray","red","rid","rot"
data "row","rub","run","sad"
data "sag","sat","say","sea"
data "see","set","she","sit"
data "six","ten","the","too"
data "try","two","use","vow"
data "was","way","who","why"
data "win","woe","won","yes"
data "yet","you"