BEGIN ~marvin~

IF ~GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 0
  SAY @18595
  IF ~~ THEN REPLY @18596 GOTO 1
  IF ~~ THEN REPLY @18600 GOTO 3
END

IF ~~ THEN BEGIN 1
  SAY @18597
  IF ~~ THEN REPLY @18602 GOTO 2
  IF ~~ THEN REPLY @18603 GOTO 3
END

IF ~~ THEN BEGIN 2
  SAY @18598
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310338 EXIT
END

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