mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-16 11:30:55 +00:00
8 lines
279 B
QBasic
8 lines
279 B
QBasic
0GR
|
|
1Z=H:FORI=0TO39:Z=Z+.04:X=SIN(Z)/2:Y=COS(Z)/2:D=0:R=P:S=Q
|
|
2D=D+1:R=R+X:S=S+Y:C=0:A=ABS(R):B=ABS(S):IFA>6ORB>6THENC=5
|
|
5IFA>3ANDA<5ANDB>3ANDB<5THENC=1
|
|
6IFC=0THEN2
|
|
7U=40/D:IFU>19THENU=19
|
|
8V=19-U:U=19+U:COLOR=7:VLIN0,VATI:COLOR=C:VLINV,UATI:COLOR=8:VLINU,39ATI:NEXT:H=H+.2:GOTO1
|