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