56
E
XAMPLE
MANUAL
User screen customizing program
;——————————————————————————————————
; Initializing variables
;——————————————————————————————————
(IB0=(0))
(IB1=(0))
(IB2=(0))
(IB3=(0))
(IB4=(0))
(IB5=(0))
(IB6=(0))
(IB7=(0))
(IB8=(0))
(IB9=(0))
(IB10=(0))
;——————————————————————————————————
; It displays page 50 and the windows on the screen
;——————————————————————————————————
(PAGE 50)
;Displays page 50
(ODW 0,6,65)
;Displays the windows
(ODW 1,7,65)
;Displays the windows
(ODW 2,9,65)
(ODW 3,10,65)
(ODW 4,11,65)
(ODW 5,13,65)
(ODW 6,14,65)
(ODW 7,15,65)
(ODW 8,17,65)
(ODW 9,18,65)
(ODW 10,19,65)
;——————————————————————————————————
; It displays in each window the initial value «0».
;——————————————————————————————————
(DW0=IB0)
(DW1=IB1)
(DW2=IB2)
(DW3=IB3)
(DW3=IB3)
(DW4=IB4)
(DW5=IB5)
(DW6=IB6)
(DW7=IB7)
(DW8=IB8)
(DW9=IB9)
(DW10=IB10)
;——————————————————————————————————
; First set of softkeys - Parameters P100 through P105
;——————————————————————————————————
N1
(SK1="P100", SK2="P101", SK3="P102", SK4="P103", SK5="P104",
SK6="P105", SK7="+")
(IB11=INPUT "Press softkey to select an option")
(WKEY )
(IF KEY EQ $FC00 GOTO N10)
;If "P100", go on to N10
(IF KEY EQ $FC01 GOTO N11)
;If "P101" go on to N11
(IF KEY EQ $FC02 GOTO N12)
;If "P102" go on to N12
(IF KEY EQ $FC03 GOTO N13)
;If "P103" go on to N13
(IF KEY EQ $FC04 GOTO N14)
;If "P104" go on to N14
(IF KEY EQ $FC05 GOTO N15)
;If "P105" go on to N15
(IF KEY EQ $FC06 GOTO N2)
;If "+" option, go on to N2
(GOTO N1)
;——————————————————————————————————
; Second set of softkeys - Parameters P106 through P110
;——————————————————————————————————
N2
(SK1="(P106)", SK2="(P107)", SK3="(P108)", SK4="(P109)", SK5="(P110)",
SK6="FIN", SK7="+")
(IB11=INPUT "Press softkey to select an option")
(WKEY )
(IF KEY EQ $FC00 GOTO N16)
;If "P106" go on to N16
(IF KEY EQ $FC01 GOTO N17)
;If "P107" go on to N17
(IF KEY EQ $FC02 GOTO N18)
;If "P108" go on to N18
(IF KEY EQ $FC03 GOTO N19)
;If "P109" go on to N19
(IF KEY EQ $FC04 GOTO N20)
;If "P110" go on to N20
(IF KEY EQ $FC05 GOTO N100)
;If "END" option, go on to N100
(IF KEY EQ $FC06 GOTO N1)
;If "+" option, go back to N1
(GOTO N2)
;——————————————————————————————————
; Requests P100 Angle between sides of the pulley
;——————————————————————————————————
N10
(SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB0=INPUT "Angle between sides of the pulley:", 3.0)
(DW0=IB0)
(GOTO N1)
;——————————————————————————————————
; Requests P101 Absolute Z coordinate of pulley center
;——————————————————————————————————
N11
(SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
(IB1=INPUT "Absolute Z coordinate of pulley center:", -6.5)
(DW1=IB1)
(GOTO N1)
