21 lines
236 B
Plaintext
21 lines
236 B
Plaintext
%
|
|
( A nested Fanuc subroutine example )
|
|
|
|
#1 = 0
|
|
(PRINT,X MAIN BEGIN: 1=#1)
|
|
M98 P2 L5
|
|
(PRINT,X MAIN END: 1=#1)
|
|
M30
|
|
|
|
O2
|
|
M98 P1 L5
|
|
#1 = [FIX[#1] + 1]
|
|
(PRINT,X O2 END: 1=#1)
|
|
M99
|
|
|
|
O1
|
|
#1 = [#1 + 0.1]
|
|
(PRINT,X >>>> LOOP [O2.O1]: #1)
|
|
M99
|
|
%
|