mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-22 19:31:58 +00:00
16 lines
370 B
QBasic
16 lines
370 B
QBasic
0 REM RYAN NORSE STARFIELD
|
|
1 GR:DIM X(32),Y(32),V(32)
|
|
'2FOR I=1 TO 32:X(I)=INT(RND(1)*39)+1:Y(I)=INT(RND(1)*39)+1:V(I)=RND(1):NEXT
|
|
100 FOR S=1 TO 32
|
|
110 X(S)=X(S)-V(S)
|
|
120 IF X(S)<1 THEN X(S)=39:Y(S)=INT(RND(1)*39):V(S)=RND(1)
|
|
130 NEXT S
|
|
140 FOR S=1 TO 32
|
|
150 Z=5
|
|
160 IF V(S)>0.3 THEN Z=7
|
|
160 IF V(S)>0.7 THEN Z=15
|
|
170 COLOR=Z
|
|
180 PLOT X(S),Y(S)
|
|
190 NEXT S
|
|
200 GOTO 100
|