BEGIN ~bendal~

IF ~True()~ THEN BEGIN 0
  SAY @20005
  IF ~~ THEN REPLY @20006 GOTO 1
  IF ~~ THEN REPLY @20007 GOTO 4
  IF ~~ THEN REPLY @20008 GOTO 5
END

IF ~~ THEN BEGIN 1
  SAY @20009
  IF ~~ THEN REPLY @20010 GOTO 2
  IF ~~ THEN REPLY @20011 GOTO 3
END

IF ~~ THEN BEGIN 2
  SAY @20012
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310326 EXIT
END

IF ~~ THEN BEGIN 3
  SAY @20013
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310326 EXIT
END

IF ~~ THEN BEGIN 4
  SAY @20014
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310327 EXIT
END

IF ~~ THEN BEGIN 5
  SAY @20015
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310327 EXIT
END
