mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-21 07:29:18 +00:00
6 lines
246 B
QBasic
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
|