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
Ah, nice work. Why didn't I think of that? ;D
It works! :)
with using arrays and cycles code will be smaller but slower
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.
Quote from: UglyJoe on August 26, 2014, 11:55:20 am
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.
I see some rudiments in the code ::)
:) :redcart: It would be neat to be able to make it color changing