|
O09730 (REN PRINT)
* k4 S- n+ ^1 u$ ~(40120883.0C HAAS)
" x w1 n& M' z4 AG103 P1 % h& U6 _% g/ U, i: D% Q' s
#30= 500 (EDIT DWELL)
# Q8 R B( U& _# BPOPEN
- t3 d" r0 ?& @9 `IF [ #171 NE #0 ] GOTO1
; k p/ T* h; z. t( {#171= 1
1 R* W' D& \# ?+ v# P5 c- IN1
; u2 M; b0 ^. Y% d7 _8 a" sIF [ #172 NE #0 ] GOTO2
! s/ @" \) w; r6 _* b7 \0 Y R#172= 1
& T3 p6 w. {3 J& s, I8 iN2
, @: u: Z- T7 A1 R! f& o5 mIF [ #23 NE 2 ] GOTO3 p {. P7 d1 I* W1 s$ j0 B
#171= #171 + 1
|/ E8 | K# ` m7 N9 Q#172= 1 ! I! g+ v( w* N9 b+ b! ?: c! [
N3
; V/ k/ Q. W; ?% i- [! `! S: P6 HDPRNT[] $ |& S8 [3 C% t% M5 t1 O d4 D5 e3 `
G04 P#30
4 x3 j7 c* ?6 C1 r# c' a; g2 cDPRNT[-------------------------------------------------------------------] ' D3 N! F+ G; u( Y! e
G04 P#30
X/ G0 I- _' u' u* v7 P1 RDPRNT[***COMPONENT*NO*#171[60]*******************FEATURE*NO*#172[40]] 7 ] J" H: ^* J0 A5 r5 B, ^
G04 P#30 - H- S- C1 t% m5 @
DPRNT[-------------------------------------------------------------------] . T, c+ a: q2 ]" U
G04 P#30
( Z7 T' S: ]! I7 m8 {9 {* I#172= #172 + 1 # r4 R3 E7 ^8 Q* _
IF [ #20 EQ #0 ] GOTO4
. H b6 B1 A$ b6 R! T# @ EDPRNT[TOOL*OFFSET*H#20[40]] 3 t( s9 d4 T0 N8 y8 S; E3 `0 C
G04 P#30 8 R4 D, c' c$ w! ?
N4 - R( b W6 X5 {7 E. a0 E3 L
IF [ #19 EQ #0 ] GOTO20 . r6 m1 D& M: v- t
DPRNT[WORK*OFFSET*S#19[30]]
/ n( @ J( _) ]8 z1 b6 S9 EG04 P#30 ! y* |" T1 K5 Z6 `2 z1 g+ A9 a
N20 ( {/ E1 k* |! ^0 m* L
IF [ #18 EQ #0 ] GOTO30 # q& @1 N" z: B9 O" H9 q p# P
(PCD INPUT) ' z/ e$ |% t8 h0 [- Z" x& {
#28= #185 - #24 + #4 ! p' r( }3 ^5 d2 [7 @9 R9 }
#29= #186 - #25 + #5
/ L8 b) ] |7 o3 z- ~' `5 @+ XDPRNT[PCD*FEATURE*NO*#197[30]]
& W1 W$ T# h# u* D XG04 P#30 3 @' a! E, L ~; D" F1 A
DPRNT[INC*X#4[44]***ACTUAL*#28[44]]
) Z9 u* s( m4 E4 v% p3 lG04 P#30 5 D( N3 {6 Z4 B2 u) c+ V) @
DPRNT[INC*Y#5[44]***ACTUAL*#29[44]] O1 s* h& h: J7 M2 |' o
G04 P#30
/ A2 `2 R+ {6 G' @' b+ z3 U8 DDPRNT[PCD*#18[44]***ACTUAL*#187[44]***DEV*#192[34]]
& J) n [9 s4 _G04 P#30 . a1 f2 Q9 V" I! v- X. \: a
DPRNT[ANG*#1[44]***ACTUAL*#189[44]***DEV*#194[34]] ' W1 X8 p2 `- `* ?0 S- ^! S# T
G04 P#30 - Z, i7 h( P' C* {" E
DPRNT[] + f4 s2 @7 a+ D1 V% ^
G04 P#30
4 y, G0 d4 a$ m/ @" P9 U#1= #0 " A4 n2 F' g1 j3 g8 p7 D' I- L
N30 (D INPUT)
. a j$ Y+ k/ U7 X+ | @/ M3 nIF [ #7 EQ #0 ] GOTO40 : G& k# P: f$ u
IF [ #8 EQ 2 ] GOTO31 8 N% h* h# n' X# p( B( L7 x
IF [ #11 NE #0 ] GOTO31
" W( \& ?9 L- ^: L) U9 A$ u& Z( hIF [ #20 NE #0 ] GOTO31
; g8 _0 {% V) R6 e& PGOTO35
% u( [) f" H. O3 D n9 kN31 (SIZE DATA)
8 _- ^/ r. ~/ ]; T#14= 1
O) _ H( w7 c. ]; XIF [ #11 NE #0 ] GOTO32 8 `+ ?* w! L$ d% M! @" c
DPRNT[SIZE*D#7[44]***ACTUAL*#188[44]***DEV*#193[34]]
J: c8 @- y( k. s* U4 tG04 P#30
' w' p, L: O3 y; cGOTO40 2 S, n# C# d8 g H! j
N32
0 i3 l2 J) I% O; q# C) J SDPRNT[SIZE*D#7[44]***ACTUAL*#188[44]***TOL*#11[24]**DEV*#193[34]]
. Q9 T7 i* @/ e! p# s0 T) EG04 P#30 , @/ M8 E3 ]5 B2 `! q
IF [ ABS[ #193 ] LE #11 ] GOTO40 9 J4 b4 N T# }0 A8 C. y7 O, Z
#32= 40 ; t3 E9 S' Z& E& P2 s
GOTO110
2 C2 v2 e) S1 ?8 {% w+ |8 b$ m& oN35 (POS)
5 x) _* ]6 K& O9 C" |IF [ #13 NE #0 ] GOTO36 2 K: u! d" z2 R4 F5 p
DPRNT[POSN*R#7[44]***ACTUAL*#188[44]***DEV*#193[34]]
: S! G" U) P2 _% T9 m {G04 P#30
: y m: }# a3 }7 `3 { v7 lGOTO40
1 L1 ?2 w6 y# f0 |N36
# `% Z, N) T* y0 f9 y; e ?DPRNT[POSN*R#7[44]***ACTUAL*#188[44]***TOL*TP*#13[24]**DEV*#193[34]]
/ c( f1 O& H, i, x% D: o/ a& H7 hG04 P#30 1 ~5 a/ E4 ?4 a+ U0 F9 P* s
N40 (X INPUT)
0 D% u* C7 t' }7 e6 k' VIF [ #24 EQ #0 ] GOTO50
, w( i1 G9 w* F9 QIF [ #14 EQ 1 ] GOTO45
9 ~0 s" \/ }$ u! P- T' h6 G7 r! yIF [ #11 NE #0 ] GOTO41
0 [: w1 b: a0 E. ^+ @IF [ #20 NE #0 ] GOTO41 . b# t2 ~/ L3 ]5 c
GOTO45
+ ?( v4 e5 V1 y& j8 [7 uN41 (SIZE DATA) ; _- m7 t' D/ ^( Q! P0 k
#14= 1
/ b1 | K3 _1 I9 b) A+ u0 WIF [ #11 NE #0 ] GOTO42 7 B' ?( F$ {2 S G) ^) x4 d! P( c
DPRNT[SIZE*X#24[44]***ACTUAL*#188[44]***DEV*#193[34]]
/ g6 c s- G) C/ h5 l$ X0 q, c: \G04 P#30
/ \# u, C; f" n: @% l: KGOTO50
" N* a& S# l' a. rN42 + t- E9 c; G/ O( E9 s3 X' K8 ^
DPRNT[SIZE*X#24[44]***ACTUAL*#188[44]***TOL*#11[24]**DEV*#193[34]]
" [" S9 W. j5 S- E8 o8 m: Q* MG04 P#30
1 R, Y* g- s, K$ N* |IF [ ABS[ #193 ] LE #11 ] GOTO50 6 A- j) p9 G/ D! C
#32= 50 " d/ D. K& m4 X; [
GOTO110
! }4 Y+ r6 D, x- NN45 (POS) 7 Q, Z( j* p- {4 \
IF [ #13 NE #0 ] GOTO46
) c4 S& m$ O5 M" @% @; UDPRNT[POSN*X#24[44]***ACTUAL*#185[44]***DEV*#190[34]] ' c) X9 {: Q# A
G04 P#30 5 o9 u( f$ ?& ? q/ Z
GOTO50
. q6 V* E% p4 yN46
. j2 n" A- b) P8 W% oDPRNT[POSN*X#24[44]***ACTUAL*#185[44]***TOL*TP*#13[24]**DEV*#190[34]] 4 r: T5 B+ ]! P
G04 P#30
/ S+ H2 R; ?1 [9 J" M1 }) H3 m- ZN50 (Y INPUT)
7 q6 ~3 T. |! u0 R9 |IF [ #25 EQ #0 ] GOTO60 $ Q' \2 m9 X8 {5 A' R" }
IF [ #14 EQ 1 ] GOTO55
; ] r% U7 N, |* |. w- y7 oIF [ #11 NE #0 ] GOTO51
k1 s# T$ F5 W( q: }: v+ d) EIF [ #20 NE #0 ] GOTO51 ( w! i8 l- M1 L+ a2 }3 `
GOTO55
: P! V6 `/ c( S( N5 g! {N51 (SIZE DATA)
) b9 r# a0 i$ o* j& [8 c& |#14= 1 7 k# l9 ~ J, h7 U# F1 _
IF [ #11 NE #0 ] GOTO52
, n) S7 h+ ]0 SDPRNT[SIZE*Y#25[44]***ACTUAL*#188[44]***DEV*#193[34]] 5 {' ~8 }* B/ y! d0 }: I
G04 P#30
' S6 g3 h7 v4 _: ]0 yGOTO60
+ T2 a" P/ b! jN52 5 x6 J6 L/ z( Z! R& F
DPRNT[SIZE*Y#25[44]***ACTUAL*#188[44]***TOL*#11[24]**DEV*#193[34]] & {4 s8 P4 S8 M, p
G04 P#30 - @8 r( d8 H6 M7 h
IF [ ABS[ #193 ] LE #11 ] GOTO60 & U6 i, C5 { M* i% h
#32= 60
* C% a0 ]* c3 b4 h1 {; S# A( LGOTO110 % y: K' l- u, w$ ?
N55 (POS)
. [' q4 _& p% E; ZIF [ #13 NE #0 ] GOTO56 - S: ^: N- _, w$ S, P9 t; ~( {* a! `
DPRNT[POSN*Y#25[44]***ACTUAL*#186[44]***DEV*#191[34]] . b$ t5 y- z; F. P' R- W5 D
G04 P#30
0 H+ _8 |: d8 q8 SGOTO60
& _9 x# F, ]" MN56
# ^8 L7 k; t0 E" Q4 H# DDPRNT[POSN*Y#25[44]***ACTUAL*#186[44]***TOL*TP*#13[24]**DEV*#191[34]] % `' s- R! V; U, U: ^
G04 P#30 0 @. j2 H% i' T* y" }
N60 (Z INPUT) 3 Y1 Z9 d9 S/ s0 Y
IF [ #26 EQ #0 ] GOTO67 % R7 j4 _ }( i3 b5 |, X
IF [ #14 EQ 1 ] GOTO65
4 K7 L+ m/ u7 u( w% PIF [ #11 NE #0 ] GOTO61
6 ^+ B' i( g8 _& H7 j, LIF [ #20 NE #0 ] GOTO61
0 G8 ^* B0 u k! xGOTO65 9 u( @0 [! v$ O5 f; Q2 d5 j
N61 (SIZE DATA)
4 t; d' Z" w+ _6 q3 z#14= 1 " u1 T5 ~. K D4 G: r
IF [ #11 NE #0 ] GOTO62 9 d6 _0 M2 U. _( p% _
DPRNT[SIZE*Z#26[44]***ACTUAL*#188[44]***DEV*#193[34]]
6 [ x: n- I$ ^9 XG04 P#30 ) r8 F& F/ @9 c; x' t: x# \! M' R, e
GOTO70
4 \- w- g' F" C8 h! S4 VN62
' j3 Q8 F5 S( nDPRNT[SIZE*Z#26[44]***ACTUAL*#188[44]***TOL*#11[24]**DEV*#193[34]]
& T8 e( K9 }4 t9 ZG04 P#30 - Y4 F( C& ^- i
IF [ ABS[ #193 ] LE #11 ] GOTO70
6 z& D% O; i [+ ]3 }9 [#32= 70 ! e% E5 \8 y5 V. Z# P {
GOTO110 A0 |/ K, @5 v, p$ y' W1 \
N65 (POS)
1 R$ [2 {7 b2 c: f4 }' C+ aIF [ #13 NE #0 ] GOTO66 * l5 L; M! B3 _ A' T% {, e
DPRNT[POSN*Z#26[44]***ACTUAL*#187[44]***DEV*#192[34]] 4 ?# M+ x z1 `+ T6 C9 I: F
G04 P#30 ; ~/ P: T) u. \: B# V! \# I. [) y
GOTO70
, @0 [0 }! t9 hN66 3 x$ S1 f: l8 n
DPRNT[POSN*Z#26[44]***ACTUAL*#187[44]***TOL*TP*#13[24]**DEV*#192[34]] 1 C6 c7 f& r( X. c. U7 c/ K
G04 P#30
* F2 G8 P' o E9 q! z* v5 NN67 ) U- l9 o5 h" D9 P3 ~
IF [ #13 EQ #0 ] GOTO70 1 s( ^% T, t" K
IF [ ABS[ #195 ] LE #13 / 2 ] GOTO70 : L. O4 S( h) i' `
#32= 70
; `$ k. c! H9 y; ^' B! N! f# `GOTO120
4 a" F6 K5 x4 D/ xN70 (ANG1 INPUT) r1 w# ~- t/ b: u* I: i( u
IF [ #1 EQ #0 ] GOTO80 . M4 s! Z6 C: Q! F" m
IF [ #17 NE #0 ] GOTO71 ( f1 k% ], y4 f' i
DPRNT[ANG*#1[44]***ACTUAL*#189[44]***DEV*#194[34]] ; A% {9 v1 R( a, N3 n3 n! K
G04 P#30 0 E) |! @+ s8 B- W
GOTO80
! p/ B+ P- q; V( o/ O6 sN71
" ~, V- |9 v6 ^! N6 p4 kDPRNT[ANG*#1[44]***ACTUAL*#189[44]***TOL*#17[24]**DEV*#194[34]] ( `( x" n1 A- h0 c
G04 P#30
8 {1 z6 g- D, u; P5 M% p n4 @IF [ ABS[ #194 ] LE #17 ] GOTO80 % s7 p7 O7 F7 H3 |, [* R, X
#28= #194 2 ]- d- L8 [; ?
#29= #17 : x0 K5 _1 {7 z6 s
#32= 80 P. ^5 j" C. V1 f6 L" P
GOTO130
9 G) ^0 I; L; b9 T' |N80
6 F% B9 o0 K0 ?4 l& WIF [ #2 EQ #0 ] GOTO199 / W, b. u' x/ H( [# e
(ANG2 INPUT) 9 e$ E5 h9 q, g L
IF [ #3 NE #0 ] GOTO81 3 ?- O! J/ Q2 v) h
DPRNT[ANG*#2[44]***ACTUAL*#192[44]***DEV*#193[34]] : C2 e/ O7 P9 {" G0 U, `
G04 P#30 7 V/ W* ^6 k3 o: g9 `
GOTO199 ' n; y: K- B9 d8 `# y6 |
N81 % G2 s5 F$ s3 z& c
DPRNT[ANG*#2[44]***ACTUAL*#192[44]***TOL*#3[24]**DEV*#193[34]] $ O2 L5 ]$ b P) H2 P
G04 P#30
) z) R( \* ? z$ ^7 h' T2 YIF [ ABS[ #193 ] LE #3 ] GOTO199 % T9 l7 m% z" K
#28= #193 & M& B& u" J- p8 j5 Q# \
#29= #3
: v3 {% k) c- x% B; D9 n& d2 |#32= 199 8 |- ]# |" @. Y- j
GOTO130 - Y' r9 s3 o! p0 h
N110 (SIZE TOL) % _7 m" q# S4 F. w4 s
IF [ #193 LT 0 ] GOTO111 0 {( k/ A) y. E/ [% O( p4 }
#31= #193 - #11
8 @6 _* M* T# f7 IGOTO112 . H( S% f/ s" i: z8 m& F* |
N111
' F4 T9 ?4 ?% U0 g, E# ?0 }#31= #193 + #11 , A$ N5 k* J9 w0 @# H" e
N112
: s) P8 i6 r$ d" f; {DPRNT[] 7 N) j b! N/ O: C1 ~
G04 P#30
& r* A& x6 {. d1 xDPRNT[**********+++++OUT*OF*TOL+++++*ERROR*#31[34]]
! S8 Y( D: F0 F7 c' x+ g$ RG04 P#30
9 B, | X' ~4 M6 mDPRNT[]
0 U5 S5 y$ O. J$ M" \G04 P#30
( s5 a8 d, r, o9 K: {: p- kGOTO#32
/ H" E0 Y; u& \, m' z" fN120 (POS TOL)
( Y- M& K1 ?+ k" L' i, sIF [ #15 EQ 1 ] GOTO#32
( I$ G: s* C3 \; ]- v/ p* `#28= #195 - #13 / 2 ( C7 y+ z2 t4 ~
DPRNT[] $ T# L7 U9 V& G% l" X" V
G04 P#30
5 e$ B- o: Y$ V3 ~* A" Q& c, T: lDPRNT[**********+++++OUT*OF*POS+++++*ERROR*TP*#28[34]*RADIAL]
a* Q& E; q! UG04 P#30
* _) ?: f4 L# m& h1 n2 C' N- L, QDPRNT[] " f1 c2 }% m" `
G04 P#30
^4 K; X. w/ L# ]#15= 1 ( {- U+ i4 T) A$ z
GOTO#32
* Y7 ]$ K i' k s/ E1 JN130 (ANG TOL) $ {, u6 P' h! O2 D+ A7 R7 o
IF [ #28 LT 0 ] GOTO131 $ ~4 f# K" G$ p/ t3 s/ W2 n8 o
#31= #28 - #29 , F5 N. R8 m5 u9 ?4 l
GOTO132 ; E1 K( ]) P: E, C) b4 n
N131
9 Q+ b+ I( x, E/ k: o2 ]#31= #28 + #29 4 @! E# `0 p& W' ]
N132 8 b, V D8 M: \0 n2 C
DPRNT[] , F/ w: Y( W" n3 ~
G04 P#30 `5 e4 R5 b$ t
DPRNT[**********+++++ANG*OUT*OF*TOL+++++*ERROR*#31[34]] . D1 ?+ A$ R! c# F2 R
G04 P#30 % |2 U0 ^8 Y: @! l. |" d" b# j
DPRNT[] - T+ a6 v* \. G/ D
G04 P#30 8 ]* i8 Q- L( d% w( n! F
GOTO#32 % M- }4 u, \. }3 T4 B' ]2 ?
N199 5 j) t) p9 k) n; r0 J) j! K! X$ ~! H( g# }
PCLOS ! M! G0 J2 K# _5 i# R# k/ @
M99 |
|