begin
  label fred
  begin
    name jim  ; ! here as a comparison of what is being output by the translator
    switch bert(0:1)
    -> fred
    bert(0):
    stop
    fred:
    ->bert(0)
    bert(1):
  end
  ->fred
  fred:
endofprogram