mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-08-13 11:25:14 +00:00
9 lines
253 B
QBasic
9 lines
253 B
QBasic
0HGR2
|
|
1HCOLOR=1+RND(1)*7:A=40+RND(1)*200:B=40+RND(1)*100:Y=RND(1)*40
|
|
3X=0:D=3-2*Y:GOTO6
|
|
4X=X+1:IFD>0THENY=Y-1:D=D+4*(X-Y)+10:GOTO6
|
|
5D=D+4*X+6
|
|
6HPLOTA+X,B+Y TO A-X,B+Y TO A+X,B-Y TO A-X,B-Y TO A+Y,B+X TO A-Y,B+X TO A+Y,B-X TO A-Y,B-X
|
|
8IFY>=XTHEN4
|
|
9GOTO1
|