%BEGIN
%constbyteintegerarray ind(1:6)=1,2,3,4,5,6;
%record (%byte a,b,c,d) x
%SWITCH SW(0:5)
      X_a=3
      ->SW(Ind(X_a))
SW(*):
      PRINTSTRING("WRONG PLACE"); %monitor; %STOP
SW(3):
      PRINTSTRING("GOT HERE OK
")
      %STOP
%ENDOFPROGRAM