BEGIN ~sorrel~

IF ~True()~ THEN BEGIN 0
  SAY @9695
  IF ~~ THEN REPLY @9697 GOTO 1
  IF ~~ THEN REPLY @9698 GOTO 2
END

IF ~~ THEN BEGIN 1
  SAY @9696
  IF ~~ THEN REPLY @9699 JOURNAL @310529 GOTO 2
  IF ~~ THEN REPLY @9700 GOTO 3
END

IF ~~ THEN BEGIN 2
  SAY @9701
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310530 EXIT
END

IF ~~ THEN BEGIN 3
  SAY @9702
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310531 EXIT
END
