Exemple de la tâche NoPause/NoEmgAbort

L'exemple suivant montre un programme qui surveille l'erreur du contrôleur et active/désactive les E/S lorsqu'une erreur se produit en fonction du numéro d'erreur.

Des exemples de programme ErrOn, EStopOn et SafetyOn sont indiqués dans Référence du langage SPEL+.

Function main
  Xqt ErrorMonitor, NoEmgAbort
  :
  :
Fend

Function ErrorMonitor
  Wait ErrorOn
  If 4000 < SysErr And Syserr < 5999 Then
    Print "Mortion Error = ", SysErr
    Off 10, Forced
    On 12, Forced
  Else
    Print "Other Error = ", SysErr
    Off 11, Forced
    On 13, Forced
  EndIf
Fend