Quelle  beispiel.poe   Sprache: SPS

PROGRAM MAIN;
VAR_GLOBAL 
  engine    AT %QX0.0:  BOOL; 
  deviceUp    AT %QX0.1:  BOOL; 
  deviceDown   AT %QX0.2:  BOOL; 
  timerUp:    TON; 
  timerDown:    TON; 
  steps:     BYTE; 
  count:     UINT := 0; 
  devSpeed:    TIME := t#10ms; 
  devTimer:    TP; 
  switch:    BOOL;
END_VAR 
IF Switch=TRUE  THEN
  devspeed:=T#10msec
ELSE
  devspeed:=T#10msec
END_IF