BEGIN ~stepha~

IF ~True()~ THEN BEGIN 0
  SAY @20331
  IF ~~ THEN REPLY @20334 GOTO 1
  IF ~~ THEN REPLY @17934 GOTO 2
  IF ~~ THEN REPLY @20354 GOTO 3
  IF ~~ THEN REPLY @20418 GOTO 7
END

IF ~~ THEN BEGIN 1
  SAY @20342
  IF ~~ THEN REPLY @20352 GOTO 2
  IF ~~ THEN REPLY @20408 GOTO 4
  IF ~~ THEN REPLY @20413 GOTO 5
  IF ~~ THEN REPLY @20415 GOTO 3
  IF ~~ THEN REPLY @20419 GOTO 7
END

IF ~~ THEN BEGIN 2
  SAY @17935
  IF ~~ THEN REPLY @20416 GOTO 1
  IF ~~ THEN REPLY @20417 GOTO 3
  IF ~~ THEN REPLY @20420 GOTO 7
  IF ~~ THEN REPLY @20443 GOTO 5
  IF ~~ THEN REPLY @20444 GOTO 4
END

IF ~~ THEN BEGIN 3
  SAY @20355
  IF ~~ THEN REPLY @20421 GOTO 7
  IF ~~ THEN REPLY @20423 GOTO 1
  IF ~~ THEN REPLY @20425 GOTO 2
  IF ~~ THEN REPLY @20432 GOTO 4
  IF ~~ THEN REPLY @20433 GOTO 5
END

IF ~~ THEN BEGIN 4
  SAY @20364
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310532 EXIT
END

IF ~~ THEN BEGIN 5
  SAY @20426
  IF ~~ THEN REPLY @20427 GOTO 4
  IF ~~ THEN REPLY @20428 GOTO 6
END

IF ~~ THEN BEGIN 6
  SAY @20430
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310532 EXIT
END

IF ~~ THEN BEGIN 7
  SAY @20434
  IF ~~ THEN REPLY @20440 GOTO 1
  IF ~~ THEN REPLY @20441 GOTO 2
  IF ~~ THEN REPLY @20442 GOTO 3
  IF ~~ THEN REPLY @20445 GOTO 4
  IF ~~ THEN REPLY @20446 GOTO 5
END
