DECL INT ANSWER
DECL INT OFFSET
DECL STATE_T STATE
DECL MSG_T EMPTY_MSG
EMPTY_MSG={MSG_T: VALID FALSE,RELEASE FALSE,TYP #NOTIFY,MODUL[] ”
”,KEY[] ””,PARAM_TYP #VALUE,PARAM[] ””,DLG_FORMAT[] ””,ANSWER 0}
;------------------------------------------ONAY MESAJI--------------------
$MSG_T=EMPTY_MSG ;reinitialization
$MSG_T.MODUL[]=””
$MSG_T.KEY[]=”DEMO: ONAY MESAJI + %1”
$MSG_T.PARAM[]=”PARAM”
$MSG_T.PARAM_TYP=#WORDS
$MSG_T.TYP=#QUIT
$MSG_T.VALID=TRUE ;trigger
WHILE $MSG_T.VALID ;wait for acknowledgement
WAIT SEC 0.05
ENDWHILE
;------------------------------------DİYALOG--------------------------------
$MSG_T=EMPTY_MSG ;reinitialization
$MSG_T.MODUL[]=””
$MSG_T.KEY[]=”DEMO: DIYALOG + %1”
$MSG_T.PARAM[]=”PARAM”
$MSG_T.PARAM_TYP=#KEY
$MSG_T.TYP=#DIALOG
$MSG_T.DLG_FORMAT[]=”A|B|C”
$MSG_T.VALID=TRUE ;trigger
WHILE $MSG_T.VALID ;wait for answer
WAIT SEC 0.05
ENDWHILE
ANSWER=$MSG_T.ANSWER
;------------------------------------BİLDİRİM MESAJI------------------------------------
$MSG_T=EMPTY_MSG ;reinitialization
$MSG_T.MODUL[]=””
$MSG_T.KEY[]=”DEMO: DIALOG ANSWER = %1”
OFFSET=0
SWRITE($MSG_T.PARAM[],STATE,OFFSET,”%d”,ANSWER)
$MSG_T.PARAM_TYP=#VALUE
$MSG_T.VALID=TRUE ;trigger
WHILE $MSG_T.VALID
WAIT SEC 0.05
ENDWHILE
;-------------------------------------- SIMULASYON MESAJI----------------------------------------------
$LOOP_CONT=TRUE
$LOOP_MSG[]=”Merhaba ben $IN[10] !”;trigger
WHILE $LOOP_CONT or $IN[10] ;mesaj silinme şartı $IN[10]==TRUE
ENDWHILE
$LOOP_MSG[]=” ”
END