mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-22 19:31:58 +00:00
14 lines
323 B
QBasic
14 lines
323 B
QBasic
0 REM RYAN NORSE STARFIELD
|
|
1 GR:DIM X(32),Y(32),V(32),Z(32)
|
|
2FOR S=1 TO 32:X(S)=RND(1)*39:GOSUB100:NEXT
|
|
3FORS=1TO32
|
|
4COLOR=0:PLOTX(S),Y(S):X(S)=X(S)-V(S)
|
|
5IFX(S)<0THENX(S)=39:GOSUB100
|
|
8COLOR=Z(S):PLOT X(S),Y(S):NEXT
|
|
9GOTO3
|
|
100 Y(S)=RND(1)*39:V(S)=RND(1)
|
|
110 Z=5:IFV(S)>0.3THENZ=7
|
|
120IFV(S)>0.7THENZ=15
|
|
130Z(S)=Z
|
|
140 RETURN
|