BEGIN ~bob~

IF ~GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 0
  SAY @18628
  IF ~~ THEN REPLY @18629 GOTO 1
END

IF ~~ THEN BEGIN 1
  SAY @18630
  IF ~~ THEN REPLY @18632 GOTO 2
  IF ~~ THEN REPLY @18633 GOTO 3
  IF ~~ THEN REPLY @18634 GOTO 4
END

IF ~~ THEN BEGIN 2
  SAY @18635
  IF ~~ THEN UNSOLVED_JOURNAL @310331 EXIT
END

IF ~~ THEN BEGIN 3
  SAY @18636
  IF ~~ THEN UNSOLVED_JOURNAL @310331 EXIT
END

IF ~~ THEN BEGIN 4
  SAY @18637
  IF ~~ THEN UNSOLVED_JOURNAL @310332 EXIT
END
