=� CIRCLE X% and Y% = position N%=resolution R=size Q%=ARC
�0:�circle
���circle:�0,0)"SIZE" R:�0,1)"ARC" Q%:X%=500:Y%=500:N%=25:T=Q%/�/N%:S=�(T):C=�(T):X1=R:Y1=0:�X%+R,Y%+Y1:�M%=1�N%:X=R*C-Y1*S:Y=R*S+Y1*C:�X%+X,Y%+Y:R=X:Y1=Y:�M%:� 
(� INPUTTAB(0,0)"SIZE" R
2� INPUTTAB(0,1)"ARC" Q%
<� X%=500
F
� Y%=500 
P� N%=25
Z� T=Q%/PI/N%
d� S=SIN(T)
n� C=COS(T)
x� X1=R:Y1=0
�� MOVEX%+R,Y%+Y1
�� FORM%=1TON%
�� X=R*C-Y1*S
�� Y=R*S+Y1*C
�� DRAWX%+X,Y%+Y
�	� R=X
�
� Y1=Y
�� NEXTM%  
�

00000000  0d 00 0a 3d f4 20 43 49  52 43 4c 45 20 58 25 20  |...=. CIRCLE X% |
00000010  61 6e 64 20 59 25 20 3d  20 70 6f 73 69 74 69 6f  |and Y% = positio|
00000020  6e 20 4e 25 3d 72 65 73  6f 6c 75 74 69 6f 6e 20  |n N%=resolution |
00000030  52 3d 73 69 7a 65 20 51  25 3d 41 52 43 0d 00 14  |R=size Q%=ARC...|
00000040  0e eb 30 3a f2 63 69 72  63 6c 65 0d 00 1e a6 dd  |..0:.circle.....|
00000050  f2 63 69 72 63 6c 65 3a  e8 8a 30 2c 30 29 22 53  |.circle:..0,0)"S|
00000060  49 5a 45 22 20 52 3a e8  8a 30 2c 31 29 22 41 52  |IZE" R:..0,1)"AR|
00000070  43 22 20 51 25 3a 58 25  3d 35 30 30 3a 59 25 3d  |C" Q%:X%=500:Y%=|
00000080  35 30 30 3a 4e 25 3d 32  35 3a 54 3d 51 25 2f af  |500:N%=25:T=Q%/.|
00000090  2f 4e 25 3a 53 3d b5 28  54 29 3a 43 3d 9b 28 54  |/N%:S=.(T):C=.(T|
000000a0  29 3a 58 31 3d 52 3a 59  31 3d 30 3a ec 58 25 2b  |):X1=R:Y1=0:.X%+|
000000b0  52 2c 59 25 2b 59 31 3a  e3 4d 25 3d 31 b8 4e 25  |R,Y%+Y1:.M%=1.N%|
000000c0  3a 58 3d 52 2a 43 2d 59  31 2a 53 3a 59 3d 52 2a  |:X=R*C-Y1*S:Y=R*|
000000d0  53 2b 59 31 2a 43 3a df  58 25 2b 58 2c 59 25 2b  |S+Y1*C:.X%+X,Y%+|
000000e0  59 3a 52 3d 58 3a 59 31  3d 59 3a ed 4d 25 3a e1  |Y:R=X:Y1=Y:.M%:.|
000000f0  20 0d 00 28 1b f4 20 49  4e 50 55 54 54 41 42 28  | ..(.. INPUTTAB(|
00000100  30 2c 30 29 22 53 49 5a  45 22 20 52 0d 00 32 1b  |0,0)"SIZE" R..2.|
00000110  f4 20 49 4e 50 55 54 54  41 42 28 30 2c 31 29 22  |. INPUTTAB(0,1)"|
00000120  41 52 43 22 20 51 25 0d  00 3c 0c f4 20 58 25 3d  |ARC" Q%..<.. X%=|
00000130  35 30 30 0d 00 46 0d f4  20 59 25 3d 35 30 30 20  |500..F.. Y%=500 |
00000140  0d 00 50 0b f4 20 4e 25  3d 32 35 0d 00 5a 10 f4  |..P.. N%=25..Z..|
00000150  20 54 3d 51 25 2f 50 49  2f 4e 25 0d 00 64 0e f4  | T=Q%/PI/N%..d..|
00000160  20 53 3d 53 49 4e 28 54  29 0d 00 6e 0e f4 20 43  | S=SIN(T)..n.. C|
00000170  3d 43 4f 53 28 54 29 0d  00 78 0f f4 20 58 31 3d  |=COS(T)..x.. X1=|
00000180  52 3a 59 31 3d 30 0d 00  82 14 f4 20 4d 4f 56 45  |R:Y1=0..... MOVE|
00000190  58 25 2b 52 2c 59 25 2b  59 31 0d 00 8c 11 f4 20  |X%+R,Y%+Y1..... |
000001a0  46 4f 52 4d 25 3d 31 54  4f 4e 25 0d 00 96 10 f4  |FORM%=1TON%.....|
000001b0  20 58 3d 52 2a 43 2d 59  31 2a 53 0d 00 a0 10 f4  | X=R*C-Y1*S.....|
000001c0  20 59 3d 52 2a 53 2b 59  31 2a 43 0d 00 aa 13 f4  | Y=R*S+Y1*C.....|
000001d0  20 44 52 41 57 58 25 2b  58 2c 59 25 2b 59 0d 00  | DRAWX%+X,Y%+Y..|
000001e0  b4 09 f4 20 52 3d 58 0d  00 be 0a f4 20 59 31 3d  |... R=X..... Y1=|
000001f0  59 0d 00 c8 0e f4 20 4e  45 58 54 4d 25 20 20 0d  |Y..... NEXTM%  .|
00000200  ff                                                |.|
00000201