Family Basic Prorgam - Matrix Effect

[volk]

You can just paste code to emulator.
Family Basic V2 and V3.
Source:

Spoiler

10   CLS
20   PALETB 0,15,42,15,15
50   c1=rnd(42)+92
60   c2=c1+1
70   c3=c1+2
80   c4=c1+3
90   c5=c1+4
120   y1=y1+1
130   y2=y2+1
140   y3=y3+1
150   y4=y4+1
160   y5=y5+1
190   l1=l1+1
200   l2=l2+1
220   if y1=24 then y1=rnd(23):x1=rnd(27)
230   if y2=24 then y2=rnd(23):x2=rnd(27)
240   if y3=24 then y3=rnd(23):x3=rnd(27)
250   if y4=22 then y4=rnd(21):x4=rnd(27)
260   if y5=24 then y5=rnd(23):x5=rnd(27)
290   if l1=24 then l1=rnd(23):k1=rnd(27)
300   if l2=24 then l2=rnd(23):k2=rnd(27)
310   if l3=24 then l3=rnd(23):k3=rnd(27)
320   locate x1,y1:print chr$(c1);
330   locate x2,y2:print chr$(c2);
340   locate x3,y3:print chr$(c3);
350   locate x4,y4:print chr$(c4);
360   locate x5,y5:print chr$(c5);
390   locate k1,l1:print chr$(32);
400   locate k2,l2:print chr$(32);
420   goto 50

[close]

[UglyJoe]

Ah, nice work.  Why didn't I think of that?

[P]

It works!

[volk]

with using arrays and cycles code will be smaller but slower

[UglyJoe]

I had the gears turning in my head this morning thinking about how to add some palette logic to do a kind of CRT fade-out effect on the old kana.

[volk]

I had the gears turning in my head this morning thinking about how to add some palette logic to do a kind of CRT fade-out effect on the old kana.

I was trying that. But palette affects 4x4 zone of the screen and decrease speed.

[80sFREAK]

I see some rudiments in the code 

[64bitmad]

    It would be neat to be able to make it color changing