BEGIN ~ender~

IF ~True()~ THEN BEGIN 0
  SAY @20060
  IF ~~ THEN REPLY @20061 GOTO 1
  IF ~~ THEN REPLY @20062 GOTO 15
  IF ~~ THEN REPLY @20063 GOTO 16
END

IF ~~ THEN BEGIN 1
  SAY @20064
  IF ~~ THEN REPLY @20065 GOTO 2
  IF ~~ THEN REPLY @20066 GOTO 9
END

IF ~~ THEN BEGIN 2
  SAY @20067
  IF ~~ THEN REPLY @20068 GOTO 3
  IF ~~ THEN REPLY @20069 GOTO 7
END

IF ~~ THEN BEGIN 3
  SAY @20070
  IF ~~ THEN REPLY @20071 GOTO 4
END

IF ~~ THEN BEGIN 4
  SAY @20072
  IF ~~ THEN REPLY @20073 GOTO 5
END

IF ~~ THEN BEGIN 5
  SAY @20074
  IF ~~ THEN REPLY @20076 GOTO 6
END

IF ~~ THEN BEGIN 6
  SAY @20078
  IF ~~ THEN DO ~MoveToPointNoInterrupt([621.461]) EscapeArea()~ UNSOLVED_JOURNAL @310409 EXIT
END

IF ~~ THEN BEGIN 7
  SAY @20079
  IF ~~ THEN REPLY @20080 GOTO 8
END

IF ~~ THEN BEGIN 8
  SAY @20081
  IF ~~ THEN REPLY @20082 GOTO 4
END

IF ~~ THEN BEGIN 9
  SAY @20083
  IF ~~ THEN REPLY @20084 GOTO 10
  IF ~~ THEN REPLY @20086 GOTO 11
END

IF ~~ THEN BEGIN 10
  SAY @20087
  IF ~~ THEN REPLY @20088 GOTO 3
END

IF ~~ THEN BEGIN 11
  SAY @20089
  IF ~~ THEN REPLY @20090 GOTO 12
  IF ~~ THEN REPLY @20091 GOTO 14
END

IF ~~ THEN BEGIN 12
  SAY @20092
  IF ~~ THEN REPLY @20093 GOTO 13
END

IF ~~ THEN BEGIN 13
  SAY @20094
  IF ~~ THEN DO ~MoveToPointNoInterrupt([621.461]) EscapeArea()~ UNSOLVED_JOURNAL @310808 EXIT
END

IF ~~ THEN BEGIN 14
  SAY @20096
  IF ~~ THEN REPLY @20098 GOTO 5
END

IF ~~ THEN BEGIN 15
  SAY @20100
  IF ~~ THEN REPLY @20101 GOTO 16
  IF ~~ THEN REPLY @20102 GOTO 1
END

IF ~~ THEN BEGIN 16
  SAY @20103
  IF ~~ THEN REPLY @20106 GOTO 17
END

IF ~~ THEN BEGIN 17
  SAY @20108
  IF ~~ THEN REPLY @20112 GOTO 4
END
