mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-19 15:30:08 +00:00
6 lines
275 B
QBasic
6 lines
275 B
QBasic
0GR:DIMV(64,48):FORZ=1TO48:FORX=0TO64:V(X,Z)=(X*4-128)/Z+20:NEXTX,Z
|
|
2FORP=0TO5:X=V(A(P),Z(P)):Y=V(B(P),Z(P)):Z(P)=Z(P)-1:IFX<0ORX>39ORY<0ORY>39ORZ(P)<1THENA(P)=RND(1)*64:B(P)=RND(1)*64:Z(P)=RND(1)*48+1:GOTO7
|
|
4COLOR=0:PLOTO(P),Q(P):COLOR=15:PLOTX,Y:O(P)=X:Q(P)=Y
|
|
7NEXT:GOTO2
|
|
|