RETRY_MACHINE=LABEL/
ASSIGN/WHICH_MACHINE = 0
WHICH_MACHINE_ =COMMENT/INPUT,NO,'ENTER MACHINE, 1 FOR 9-15-9,
,2 FOR DEA, 3 FOR 12-20-10
,OR 4 FOR 7-10-7'
ASSIGN/WHICH_MACHINE = WHICH_MACHINE_.INPUT
IF/(WHICH_MACHINE == 1)
ASSIGN/MOVESPEED = 30
ASSIGN/TOUCHSPEED = 0.35
COMMENT/OPER,YES,9-15-9 SELECTED
GOTO/CONTINUE
END_IF/
ELSE_IF/(WHICH_MACHINE == 2)
ASSIGN/MOVESPEED = 50
ASSIGN/TOUCHSPEED = 3
COMMENT/OPER,YES,DEA SELECTED
GOTO/CONTINUE
END_ELSEIF/
ELSE_IF/(WHICH_MACHINE == 3)
ASSIGN/MOVESPEED = 30
ASSIGN/TOUCHSPEED = 1.8
COMMENT/OPER,YES,12-20-10 SELECTED
GOTO/CONTINUE
END_ELSEIF/
ELSE_IF/(WHICH_MACHINE == 4)
ASSIGN/MOVESPEED = 30
ASSIGN/TOUCHSPEED = 1.3
COMMENT/OPER,YES,7-10-7 SELECTED
GOTO/CONTINUE
END_ELSEIF/
COMMENT/OPER,NO,INCORRECT MACHINE ENTRY
GOTO/RETRY_MACHINE
CONTINUE =LABEL/
Burada amac 4 ayri CMM'de calisacak program icin makina hizlarini vs degistirmek..
Calistiran makina secimini 1 , 2 , 3 , 4 sayilarindan birini tuslayarak yapar. Bunlarin disinda bir sayi girerse HATALI MAKINA KODU uyarisi gelir.
örnek hem Assign , hem IF/GOTO , hem OPERATOR MESAJLARI acisindan yeni fikirler verebilir sizlere sanirim....