This is another variation of the Vertical stars I made earlier. Last year I worked out with a series of Loops to determine Blocks and Segments I could fill a whole Screen Line for Line with Random values in Locomotive BASIC. BASIC on that coding I came up with with a way to POKE some pixels (PEN 1 & 2) and have them move across the screen and as I thought the result works a little bit quicker than the earlier version which uses PLOT to do.

- Code:

100 MODE 0:BORDER 0:INK 0,0:INK 1,26:INK 2,13

110 DEFBYTE p : DEFWORD a-o,q-z : DIM p(2), x(10), y(10), b(10), s(10), z(10) : p(1)=128 : p(2) = 8

120 c = 0

130 WHILE c <> 10

140 y(c) = RND MOD 7

150 x(c) = RND MOD 79

160 b(c) = RND MOD 25 : z(c) = b(c) * 80

170 s(c) = p(RND MOD 2 + 1)

180 GOSUB 1000

190 c = c + 1

200 WEND

210 ' Main Loop

220 c = 0

230 WHILE 1

240 IF x(c) = 0 THEN GOSUB 1100 : GOSUB 2000 : s(c) = p(RND MOD 2 + 1)

250 IF x(c) > 0 THEN GOSUB 1100 : x(c) = x(c) - 1

260 GOSUB 1000

270 c = c + 1

280 IF c=10 THEN CALL &BD19 : c=0

290 WEND

1000 POKE (&C000+(y(c)*&800)+z(c))+x(c),s(c)

1010 RETURN

1100 POKE (&C000+(y(c)*&800)+z(c))+x(c),0

1110 RETURN

2000 x(c) = 79

2010 y(c) = RND MOD 7

2020 b(c) = RND MOD 25

2030 z(c) = b(c) * 80

2040 RETURN