home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib37b.dsk
/
STAR.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
244b
|
14 lines
5 HOME
10 Y = 30
20 IF Y = 0 THEN 10
30 HGR2
40 FOR T = 1 TO Y
50 C = INT( RND(1) *7)
60 HCOLOR= C
70 U = INT( RND(1) *279)
80 W = INT( RND(1) *191)
90 HPLOT 139,95 TO U,W
100 R = PEEK( -16336)
110 NEXT T
120 Y = Y -1
130 GOTO 40