CNC 8035 - Programming manual - Fagor Automation

Sets the softkeys to access the various modes and requests a choice
(SK 1="CYCLE 1",SK 2="CYCLE 2",SK 7="EXIT")
N5 ( WKEY ) ; Request a key
(IF KEY EQ $FC00 GOTO N10) ; Cycle 1
(IF KEY EQ $FC01 GOTO N20) ; Cycle 2
(IF KEY EQ $FC06 SYSTEM ELSE GOTO N5) ; Quit or request a key
CYCLE 1
; Displays page 11 and defines 2 data entry windows
N10 ( PAGE 11 )
;Editing
(ODW 1,10,60)
(ODW 2,15,60)
(WBUF "(PCALL 1, ") ; Adds "(PCALL 1," to the block being edited.
(IB 1=INPUT "X:",-6.5) ; Requests the value of X.
(DW 1=IB1) ; Data window 1 shows the entered value.
(WBUF "X",IB1) ; Adds X (entered value) to the block being edited.
(WBUF ",") ; Adds "," to the block being edited.
(IB 2=INPUT "Y:",-6.5) ; Requests the value of Y.
(DW 2=IB2) ; Data window 2 shows the entered value.
(WBUF "Y",IB2) ; Adds Y (entered value) to the block being edited.
(WBUF ")") ; Adds ")" to the block being edited.
( WBUF ) ; Enters the edited block into memory.
; For example : (PCALL 1, X2, Y3)
(GOTO N0)
Programming manual
PROGRAM CONTROL INSTRUCTIONS
Screen customizing instructions 12.
CNC 8035
·T· MODEL
(SOFT V16.3X)
·271·