BEGIN ~cory~

IF ~GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 0
  SAY @18605
  IF ~~ THEN REPLY @18607 GOTO 1
  IF ~~ THEN REPLY @18617 GOTO 5
END

IF ~~ THEN BEGIN 1
  SAY @18608
  IF ~~ THEN REPLY @18609 GOTO 2
  IF ~~ THEN REPLY @18611 GOTO 3
  IF ~~ THEN REPLY @18612 GOTO 4
END

IF ~~ THEN BEGIN 2
  SAY @18613
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310337 EXIT
END

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

IF ~~ THEN BEGIN 4
  SAY @18615
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310338 EXIT
END

IF ~~ THEN BEGIN 5
  SAY @18619
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END
