12 lines
560 B
Plaintext
12 lines
560 B
Plaintext
10 mode 0:defint a-z:randomize time:ink 0,0:ink 1,26:ink 2,19:border 0
|
|
20 dim p(20):mm=5:dim act(mm):for i=1 to mm:act(i)=rnd*19+1:next
|
|
30 md=mm-2:dim del(md):for i=1 to md:del(i)=rnd*19+1:next
|
|
40 for i=1 to mm:x=act(i):locate x,p(x)+1:pen 1:print chr$(rnd*55+145);
|
|
50 if p(x)>0 then locate x,p(x):pen 2:print chr$(rnd*55+145);
|
|
60 p(x)=p(x)+1:if p(x)=25 then locate x,25:pen 2:print chr$(rnd*55+145);:p(x)=0:act(i)=rnd*19+1
|
|
70 next
|
|
80 for i=1 to md:x=del(i):locate x,p(x)+1:print " ";
|
|
90 p(x)=p(x)+1:if p(x)=25 then p(x)=0:del(i)=rnd*19+1
|
|
100 next
|
|
110 goto 40
|