BEGIN
{%LONG} INTEGER L
SWITCH SW(2:4)
      L=3
      ->SW(L)
SW(*):
      PRINTSTRING("WRONG PLACE"); STOP
SW(3):
      PRINTSTRING("TEST OK
")
      STOP
ENDOFPROGRAM