BEGIN ~alanbl~

IF ~True()~ THEN BEGIN 0
  SAY @9720
  IF ~~ THEN REPLY @9721 GOTO 1
  IF ~~ THEN REPLY @9722 GOTO 3
  IF ~~ THEN REPLY @9723 GOTO 4
END

IF ~~ THEN BEGIN 1
  SAY @9724
  IF ~~ THEN REPLY @9725 GOTO 2
  IF ~~ THEN REPLY @9726 GOTO 5
END

IF ~~ THEN BEGIN 2
  SAY @9727
  IF ~~ THEN REPLY @9754 GOTO 8
END

IF ~~ THEN BEGIN 3
  SAY @9728
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 4
  SAY @9729
  IF ~~ THEN REPLY @9734 GOTO 2
  IF ~~ THEN REPLY @9736 GOTO 5
END

IF ~~ THEN BEGIN 5
  SAY @9737
  IF ~~ THEN REPLY @9745 GOTO 6
END

IF ~~ THEN BEGIN 6
  SAY @9751
  IF ~~ THEN REPLY @9752 GOTO 7
END

IF ~~ THEN BEGIN 7
  SAY @9753
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310301 EXIT
END

IF ~~ THEN BEGIN 8
  SAY @9755
  IF ~~ THEN REPLY @9756 GOTO 7
END
