mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-09 07:29:32 +00:00
6 lines
286 B
QBasic
6 lines
286 B
QBasic
0GR:DIMV%(255,48):FORZ=1TO48:FORX=0TO255:V%(X,Z)=(X-128)/Z+20:NEXTX,Z
|
|
2FORP=0TO9: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)*256:B(P)=RND(1)*256: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
|
|
{B99}
|