%BEGIN
%LONGINTEGER L
%SWITCH SW(0:5)
      L=3
      ->SW(L)
SW(*):
      PRINTSTRING("WRONG PLACE"); %STOP
SW(3):
      PRINTSTRING("GOT HERE OK
")
      %STOP
%ENDOFPROGRAM