dos33fsprogs/graphics/gr/starfield/stargood.bas
2021-06-11 21:29:04 -04:00

6 lines
246 B
QBasic

0GR:FORP=0TO9:GOTO8
2FORP=0TO9:X=A(P)/Z(P)+20:Y=B(P)/Z(P)+20:IFX<0ORX>39ORY<0ORY>39THEN8
4COLOR=0:PLOTO(P),Q(P):COLOR=15:PLOTX,Y:O(P)=X:Q(P)=Y:Z(P)=Z(P)-1:IFZ(P)<=0THEN8
7NEXT:GOTO2
8A(P)=RND(1)*256-128:B(P)=RND(1)*256-128:Z(P)=RND(1)*48+1:GOTO7