mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-03 18:29:53 +00:00
9 lines
236 B
QBasic
9 lines
236 B
QBasic
0HGR2
|
|
1HCOLOR=1+RND(1)*7:A=40+RND(1)*200:B=40+RND(1)*100:X=RND(1)*40
|
|
3Y=0:P=1-X:GOTO7
|
|
4Y=Y+1:IFP<=0THENP=P+2*Y+1:GOTO6
|
|
5X=X-1:P=P+2*Y-2*X+1
|
|
6IFX<YTHEN1
|
|
7HPLOTA+X,B+YTOA-X,B+YTOA+X,B-YTOA-X,B-YTOA+Y,B+XTOA-Y,B+XTOA+Y,B-XTOA-Y,B-X
|
|
9GOTO4
|