BEGIN ~emitar~

IF ~True()~ THEN BEGIN 0
  SAY @20279
  IF ~~ THEN REPLY @20280 GOTO 1
  IF ~~ THEN REPLY @20282 GOTO 5
END

IF ~~ THEN BEGIN 1
  SAY @20287
  IF ~~ THEN REPLY @20293 GOTO 2
  IF ~~ THEN REPLY @20296 GOTO 3
  IF ~~ THEN REPLY @20301 GOTO 4
END

IF ~~ THEN BEGIN 2
  SAY @20298
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310130 EXIT
END

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

IF ~~ THEN BEGIN 4
  SAY @20302
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 5
  SAY @20306
  IF ~~ THEN REPLY @20308 GOTO 2
  IF ~~ THEN REPLY @20309 GOTO 3
  IF ~~ THEN REPLY @20310 GOTO 4
END
