BEGIN
{%LONG} INTEGER L
SWITCH SW(0:5)
switch sparse(1:3)
      L=3
      ->SW(L)
SW(*):
sparse(1):sparse(*):
      PRINTSTRING("WRONG PLACE"); STOP
SW(3):
    ->sparse(L)
sparse(3):
      PRINTSTRING("TEST OK
")
      STOP
ENDOFPROGRAM