T0 D0: P" Y% e- y: a; `- H
G0 G56 Z500 W03 W" z( q% t1 ]" E. q" S! s
R3=0
' A! Q9 f% i9 p8 v" xX-600 Y0
' y* `" q, E4 {7 R. F% F- [M44
4 ]$ `3 _9 W( x7 N; W0 HM3 S350 F2000
* |# E* m6 _" o7 G& b' \, b0 h( H+ K+ zZ14.5
, q- \3 u0 p; k* ^" NG1 G41 X=-540/2 T1 D1
+ Y+ K+ J) n% r$ rG2 X=-540/2 Y0 I=540/2! P4 }7 Q) m, ]2 s# _) f9 J0 S: r5 z
G0 G40 X-600' @, G1 Y1 D R( a) ^3 W. q
AA:
( ]9 V+ j; B4 i3 q. QX-600 Y0
( H( X( V& S. u2 GIF R3>90
9 i7 w9 i( T# x& f3 U- F4 j# TR3=905 ]9 l2 v$ W: p. V4 F, Q. p/ [
ENDIF
" o* p4 K2 c2 |# e8 \R3=R3+1.5" _6 e6 m& n+ l4 D' ]1 ~8 V& U
Z=14.6-SIN(R3)*14.5
8 H3 J \3 ^9 UG1 G41 X=-540/2-(14.5-COS(R3)*14.5) T1 D1" e+ X3 C3 h; K4 o
G2 X=-540/2-(14.5-COS(R3)*14.5) I=540/2+(14.5-COS(R3)*14.5)% y, i4 v6 z7 E$ M! k6 U
G0 G40 X-600& S, _( O5 Q$ f
IF R3<90 GOTOB AA
+ N: g. Y* | E# c" c: A* C1 u* U7 |Z500 W05 ^+ c' o4 K1 u u' X0 b' i: S
M30 |