O9730(REN PRINT);4 H; b$ z# i0 @; Y
(40120520 . OEB);
' q, {, \! C* p6 N4 e' _8 B& W9 wPOPEN;
; k. X( @3 R* V) D5 q& h ?8 cIF[#121NE#0]GOTO1;6 W8 i& M+ V, T0 \# f/ W$ y
#121=1;& ~. V9 }' Y/ s* o) u3 s1 ~' }0 D) F
N1;
( Y9 t- I, b2 p0 Q) M0 NIF[#122NE#0]GOTO2;
. \. q. I: v" A( f9 K9 E. J#122=1;& X% J2 ?6 q# I0 P
N2;
5 q) @" \) i4 @9 hIF[#23NE2]GOTO3;
! c0 J( R7 d& s* U$ ~#121=#121+1;# j9 \) z- T! v! y5 [# b/ V" i1 k
#122=1;
6 _. A# h1 G6 y" RN3;6 ]7 b2 l# E0 q: t) c/ S
DPRNT[ ];
2 Q3 e i! ]3 D) z3 bDPRNT[----------------];
5 b8 r* X1 t( X& kDPRNT[***COMPONENT*NO*#121[60]****FEATURE*NO*#122[40]];4 b5 b2 c) X$ d$ K, n
DPRNT[----------------];
- s& W6 n0 w( {! D* `, }#122=#122+1;- ?$ c6 U. P; \
IF[#20EQ#0]GOTO4;3 _# }( A& j4 u) u& L
DPRNT[TOOL *OFFSET*H#20[40]];$ g$ ^' m6 q+ x9 d2 @( F8 {
N4;- V2 }* ]3 r9 g( z
IF[#19EQ#0]GOTO20;% z: u8 q# D$ s k$ s
DPRNT[WORK *OFFSET*S#19[30]];
Z0 V3 Y# s8 H. QN20;
( i$ V$ a& [8 r4 \IF[#18EQ#0]GOTO30;. H% W$ k- Z+ m8 _- \9 x0 t. ]
(PCD INPUT);% i, C1 f8 B" N# T
#28=#135-#24+#4;7 u! N `4 n, q' z$ { f! z. d2 {
#29=#136-#25+#5;2 r8 v0 |% V3 j- F+ L& M( n% Q
DPRNT[PCD*FEATURE*NO*#147[30]];2 r8 |" z( k }, k
DPRNT[INC*X#4[44]****ACTUAL*#128[44]];
0 W+ D) f. K% P4 NDPRNT[INC*Y#5[44]***ACTUAL*#29[44]];0 X% C$ n& c ~: ~* z% O7 {
DPRNT[PCD*#18[44]***ACTUAL*#137[44]***DEV*#142[34]];
& ?7 h' M6 a3 B/ q3 F9 `2 N! U ?DPRNT[ANG*#1[44]***ACTUAL*#139[44]***DEV*#144[34]];
1 o1 u( j' R& _1 {( @DPRNT[ ];9 \, k, W8 T( n6 n6 I( X% @
#1=#0;
) e3 F# A7 K9 s9 kN30(D INPUT);
& k/ D* g( M5 O4 RIF[#7EQ#0]GOTO40;, I3 {8 n6 A+ A' i; U% X
IF[#8EQ2]GOTO31;4 x: B5 C% m7 }+ B
IF[#11NE#0]GOTO31;) j# g: |3 b8 M: S
IF[#20NE#0]GOTO31;
/ o# w7 ^1 ?) m, v* WGOTO35;
% r. F+ F3 t) R/ P& I! SN31(SIZE DATA);
- P/ u1 K- o; U- X3 M8 S3 y#14=1;$ b) v7 o' F% U5 A- o2 G6 i3 P. g
IF[#11NE#0]GOTO32;
- h5 n/ K0 v/ M+ DDPRNT[SIZE*D#7[44]***ACTUAL*#138[44]***DEV*#143[34]];
0 J6 ?& o( H4 }, O o6 E2 ?* y+ kGOTO40;# ]! u$ i! w g, T0 N
N32;% N, ]' _% B, }* V( g# ?& B2 m. l. Z
DPRNT[SIZE*D#7[44]***ACTUAL*#138[44]***TOL*#11[24]**DEV*#143[34]];
1 }; d8 Q- g2 y+ `, r0 e u: b4 TIF[ABS[#143]LE#11]GOTO40;
+ Y" s" k. w2 ]- C9 f( H, g) ?#32=40;9 W( v5 l7 \2 U' D- x
GOTO110;
3 ~/ n* n+ f8 @1 A# eN35(POS); [; U7 F$ Z, o- K! L' i
IF[#13NE#0]GOTO36;
% r( d9 N& G4 E8 X4 e4 M( V* zDPRNT[POSN*R#7[44]***ACTUAL*#138[44]***DEV*#143[34]];. w! B6 T) @& S- D1 F
GOTO40;9 X& B, s m# }5 _& k
N36;
r- p6 e0 _6 |( KDPRNT[POSN*R#7[44]***ACTUAL*#138[44]***TOL*TP*#13[24]**DEV*#143[34]];( ~1 W. O- C+ l% h: z
N40(X INPUT);
. j' `1 T& y( }- sIF[#24EQ#0]GOTO50;
8 u$ g6 Q) u) ^: j. xIF[#14EQ1]GOTO45;
1 Q8 s( R/ b2 H" F, WIF[#11NE#0]GOTO41;
1 L) c. x; [4 m6 |) D& hIF[#20NE#0]GOTO41;& k7 S4 Q* ]2 p c1 u5 F# e
GOTO45;+ t% O5 B' [: \6 d/ V7 h
N41(SIZE DATA);6 Y8 V- `: o i( ]! n3 k
#14=1;% p$ ~# |( m0 \) ]2 Z% P# z9 F, ^4 w
IF[#11NE#0]GOTO42;8 n. ]" q* m) @
DPRNT[SIZE*X#24[44]***ACTUAL*#138[44]***DEV*#143[34]];
: B9 v7 H3 z( F' ZGOTO50;/ A( U5 P' s! F2 n
N42;
0 ]' F6 H) o$ oDPRNT[SIZE*X#24[44]***ACTUAL*#138[44]***TOL*#11[24]**DEV*#143[34]];$ b7 {% B# W" j# w+ L
IF[ABS[#143]LE[#11]]GOTO50;3 N4 a9 C2 b" B c
#32=50;9 {4 G" U: l/ ?. N/ s+ U" i$ P+ s
GOTO110;" Z. s8 E! F' C. A6 H: }& k1 ]
N45(POS);
- G% l( Q% @# @8 [0 C2 BIF[#13NE#0]GOTO46;
6 O; S+ }5 U$ L6 ?" UDPRNT[POSN*X#24[44]***ACTUAL*#135[44]***DEV*#140[34]];
( x+ r9 B' m* f3 a9 l% N; t% P# hGOTO50;
* q1 p0 D! C7 ?& M$ y# V2 YN46;: J# G1 H, ~% S3 D( j3 a* o0 E
DPRNT[POSN*X#24[44]***ACTUAL*#135[44]***TOL*TP*#13[24]**DEV*#140[34]];
3 ]' j3 i5 A+ P# I% [6 A! ?) HN50(Y INPUT);& |" ?4 Q: w! W4 Q$ h
IF[#25EQ#0]GOTO60;; V1 n& F: ^1 `. m
IF[#14EQ1]GOTO55;
. \4 V8 K/ D7 V9 n3 k& LIF[#11NE#0]GOTO51;" e2 b# C5 r8 U2 d( }
IF[#20NE#0]GOTO51;. G. m1 ]: e4 H# l" f% H
GOTO55;
- b/ p& t# a0 {/ S; h7 IN51(SIZE DATA);4 w, S" D( L, h+ S
#14=1;4 s) \) ~/ P4 D. U' A1 O
IF[#11NE#0]GOTO52;' @# T) {) Q7 V4 B7 H0 {
DPRNT[SIZE*Y#25[44]***ACTUAL*#138[44]***DEV*#143[34]];$ l0 |' x* y& Z8 S. j) O
GOTO60;; W/ L* ~2 \) t; d
N52;
% c* s2 F5 J3 `) V$ h2 ZDPRNT[SIZE*Y#25[44]***ACTUAL*#138[44]***TOL*#11[24]**DEV*#143[34]];
M. K7 C/ r2 V' {) Z/ M: a, BIF[ABS[#143]LE#11]GOTO60;
6 X; ~* K& _5 B K% X% i#32=60;/ k/ S a5 w3 \
GOTO110;
2 u% E8 V* y" h# A+ ?7 z2 _N55(POS);
0 F n5 e" R: h* F4 xIF[#13NE#0]GOTO56;4 I# u0 l" t2 K+ _% n1 R2 X; v
DPRNT[POSN*Y#25[44]***ACTUAL*#136[44]***DEV*#141[34]];
' D$ w9 m0 J3 CGOTO60;
- o, `& {1 ]6 ]% \' EN56;
9 d* E& B4 T) R. q) l" |DPRNT[POSN*Y#25[44]***ACTUAL*#136[44]***TOL*TP*#13[24]**DEV*#141[34]];
: h. j( v/ o# a' _7 MN60(Z INPUT);- V" w" A: ^; _, A3 D
IF[#26EQ#0]GOTO67;+ f7 Q5 ]# V4 u1 j
IF[#14EQ1]GOTO65;
" B: ~2 u/ b" u% u! O+ e0 B" ZIF[#11NE#0]GOTO61;: D1 Q$ [- t/ H0 X
IF[#20NE#0]GOTO61;
; s- j3 f, Z0 ~# NGOTO65;, n" T! p- [5 s8 o
N61(SIZE DATA);7 m, n1 f+ L2 W9 Q w1 u8 p: J+ E c
#14=1;
# I0 m' t8 e( R8 N6 kIF[#11NE#0]GOTO62;- ]- K" K1 W8 D# s1 Y F
DPRNT[SIZE*Z#26[44]***ACTUAL*#138[44]***DEV*#143[34]];
* E6 @2 V* v+ T2 K! TGOTO70;
+ }9 X+ ]! @3 ?7 H- M i/ LN62;8 `+ x+ |" J6 w
DPRNT[SIZE*Z#26[44]***ACTUAL*#138[44]***TOL*#11[24]**DEV*#143[34]];9 g5 c9 W3 u0 z* }) t
IF[ABS[#143]LE#11]GOTO70;0 O! `4 M' [. @, o, j0 v
#32=70;) ?" T) M+ S( {- c% K; Y8 b
GOTO110;
5 j7 D3 z4 @+ P1 h- J* u7 \5 ]N65(POS);7 p" T4 x- T3 ?+ x' b% |5 j5 Z
IF[#13NE#0]GOTO66;/ o8 W+ @7 u& t# p( v
DPRNT[POSN*Z#26[44]***ACTUAL*#137[44]***DEV*#142[34]];
7 R- a! |5 }, I! N' ]GOTO70;
0 O$ a( V+ L: t0 O+ S- z0 {N66;
0 f- E0 F, M2 \; s1 ?DPRNT[POSN*Z#26[44]***ACTUAL*#137[44]***TOL*TP*#13[24]**DEV*#142[34]];
9 j3 n) C5 B' [; M, bN67;
" I' q3 k5 T3 W! }, ]1 P+ KIF[#13EQ#0]GOTO70;
, ~# K1 }) C& a3 l9 VIF[ABS[#145]LE[#13/2]]GOTO70;9 l! G ]1 J& k% ]; V4 b: y% d1 s
#32=70;, u2 H9 ~! c9 E+ Z, [) `
GOTO120;; D6 D5 N. I: h3 I( \# v& @! `
N70(ANG INPUT);5 o P: ]; r2 h9 b
IF[#1EQ#0]GOTO80;: h5 S9 i1 t( d% l
IF[#17NE#0]GOTO71;
# E0 G# B9 |; {# a) v3 f- lDPRNT[ANG*#1[44]***ACTUAL*#139[44]***TOL*#17[24]**DEV*#144[34]];; A8 n0 x# I# T( e1 b; I ^* p3 y
IF[ABS[#144]LE#17]GOTO80;9 ^1 ~' Y( B( O+ T9 a4 C; c% q0 r
#28=#144;; J/ t6 X0 W7 t( L
#29=#17; @5 P3 }5 H5 C( r2 G9 ]+ u
#32=80;
( O( V9 J: h1 G h, W2 }GOTO130; e c/ ^2 b, W' @2 [! G# g" H9 }
N80;
& Y$ r7 a' E' A0 p8 SIF[#2EQ#0]GOTO199;
6 {1 _( Z* G1 D* m% _6 T; C8 O(ANG2 INPUT);$ s' a* m+ K+ X8 z
IF[#3NE#0]GOTO81;
5 T4 [- p& j5 @' {5 g4 f. YDPRNT[ANG*#2[44]***ACTUAL*#142[44]**DEV*#143[34]];
+ A, }3 p& t7 c6 H! UGOTO199;
2 y; a3 a' E) m1 v/ t/ IN81;
- O$ q d% u; w+ _DPRNT[ANG*#2[44]***ACTUAL*#142[44]***TOL*#3[24]**DEV*#143[34]]; j; W8 D4 C5 ?4 T; j- a+ z1 }
IF[ABS[#143]LE#3]GOTO199;
8 O7 d5 W6 Z8 k p7 b: W* C' Z, f#28=#143;2 J, q8 A5 A/ s' \- Z
#29=#3; @9 b2 ^5 J) f
#32=199;. X; l3 u0 C" K. s/ s
GOTO130;
" }0 ]% L: W' ON110(SIZE TOL);3 H# g9 n: \8 V9 l2 _6 Q# [
IF[#143LT0]GOTO111;
3 Z* D# i {7 m9 A#31=#143-#11;
b! Z; Y. i% r% jGOTO12;# I- s; B- z1 l# h3 _2 E1 W
N111;; C4 {4 p6 R$ v
#31=#143+#11;+ N- _2 M# N+ z1 ?! r* I* b
N112;
9 K+ ?' q6 p+ Y* k Q0 ODPRNT[ ];% v6 T, V Y" V' Y/ m6 G" C
DPRNT[*******++++++OUT*OF*TOL++++*ERROR*#31[34]];
: }! [1 m0 T2 `# jDPRNT[ ];2 A4 X0 j: W+ A# [& b& P- P* c
GOTO#32;- X2 O# @) C6 Y
N120(POS TOL);
5 b+ `; f1 T8 d. i( h6 {+ xIF[#15EQ1]GOTO#32;
, U6 i9 Z5 x% c( g* }. M5 m#28=#145-#13/2;
, C" x. X( |9 o* B( mDPRNT[ ];2 x: h, a- T( f1 w3 C9 l
DPRNT[******+++++OUT*OF*POS++++*ERROR*TP*#28[34]*RADIAL];
* F1 n6 f1 ~8 |: C) C4 \DPRNT[ ];
" I( X( ~& w1 a; V+ {7 o#15=1;
8 |) I- }- C* q% S2 \ [+ vGOTO#32;
& A% R9 q8 j( U2 LN130(ANG TOL);. d% E; }4 Y! e# @3 @) c" q
IF[#28LT0]GOTO131;* e6 \/ ~7 [- g( Q; G; I: M
#31=#28-#29;; C: f+ X' `- _4 Z o3 o) N
GOTO132;. }' q% U* r7 F C
N131; l: }6 p; O7 n8 ^7 W
#31=#28+#29;* n( j9 O. f$ a3 z7 m
N32;; m: f7 p0 V+ D4 m) }1 w; q8 {
DPRNT[ ];
- k, g3 s, j \+ W9 F2 x5 ^DPRNT[****++++++ANG*OUT*OF*TOL++++*ERROR*#31[34]];
% _& U) a$ A7 n; TDPRNT[ ];
2 P) I3 `( _* C0 @GOTO#32;
6 x7 O e9 [0 |2 RN199;2 ?3 c( e B1 B' f
PCLOS;( ]# r8 o( {& U. o
M99; |