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
