VC1=11.085 E# z- q7 l: C1 X B
VC2=2.209
5 e4 z' `6 u0 o7 D, aVC3=2.209 Q. u* l$ K% i7 l8 w% b' S
VC4=-10*VC3
3 j6 u: W3 J$ SVC5=1/32
$ M4 N5 ?& |/ q4 E5 u- W) TVC6=2
% ^% i4 X; C( O5 |! ~; Y/ bVC7=VC2-VC4) e% n# @: J+ L# a% ?: H- V/ K3 P
VC8=-1*VC7*360/VC32 F$ |3 @/ A2 [: J% K7 R# I
VC9=VC3*VC6/360 s1 v2 H* }) `' C
VC10=VC9*VC5
9 Y) S* V7 P: `! p7 ZVC30=0
6 E: @2 g: r% {! ^3 R. u" d& H4 zVC21=0+ s) ` Z, K G( S( A
VC11=VC1+VC30# H, @+ H% i1 k
VC12=0, l8 s s! t" s8 C6 E# q6 x0 |9 Y
VC25=0, f/ K1 l1 o# |- U; K; v# l
VC26=00 B8 @2 |1 J; I( b
G15H1
8 ~( h7 J" a4 ~4 m9 a& yS900M3
% M5 O |$ A+ lG01G90Z50F3000; W# |" }. i) z; h+ ^- Z( X# r2 L' A7 V
X0Y0! _! m; ?! _1 b. d M! U7 B
MODIN O51
: D. o1 h% r7 L3 T( a6 u# ~X0Y0
3 E) Q, ^5 O- A" pMODOUT
. k/ s9 J3 d3 JM30O51$ M# x; P# c+ c* p
G1 G90 X=VC30 Y=VC21 F3000; I4 f$ J2 d" E0 u: N! p
Z50
! F2 U d# E* ~/ xZ=VC2: U( F4 }( z% Y! j2 v
G01 X=VC11 F1000
9 Y5 q; ^8 }$ w) J6 B. ` HN1. i# m/ A. ^" ~! ?! |+ V% @; m! Z1 T
VC12=VC12-VC6) T3 w4 o* n6 ?& X6 E/ V
VC1=VC1-VC10
2 J0 d2 L( g+ W2 Z, N8 L. C4 p1 yVC25=VC30+[VC1*COS[VC12]]
4 `+ R& {2 n; R+ s Z( R4 o% N- M3 DVC26=VC21+[VC1*SIN[VC12]]
8 A5 a. l6 |, ?VC2=VC2-VC9
' Z! E9 H/ v1 g) B9 [ i u# YG01 X=VC25 Y=VC26 Z=VC2 F500: s, M" Z7 O7 N# V6 h/ f
IF[VC12 EQ VC8]GOTO N21 Z" N) Q4 ~' m
GOTO N1
, m+ ]' o/ l o9 R. Q8 e4 u* ?7 LN2 5 f' a. h2 ?& d0 S- ~; f
G01 X=VC30 Y=VC21 F1000, S; E3 c6 u) H. p4 T
G1 G90 Z100 F3000$ r9 ~, a+ ^/ M6 q0 _# ]5 ^8 x
RTS! ]! ?' t- i! U7 G+ d3 p- j0 x
9 L n; s0 I$ M7 l0 J |