BEGIN ~regina~

IF ~True()~ THEN BEGIN 0
  SAY @11481
  IF ~~ THEN REPLY @11482 GOTO 1
  IF ~~ THEN REPLY @11483 GOTO 3
  IF ~~ THEN REPLY @11484 GOTO 8
END

IF ~~ THEN BEGIN 1
  SAY @11485
  IF ~~ THEN REPLY @11486 GOTO 2
  IF ~~ THEN REPLY @11489 GOTO 3
  IF ~~ THEN REPLY @11490 GOTO 8
END

IF ~~ THEN BEGIN 2
  SAY @11487
  IF ~~ THEN REPLY @11488 GOTO 4
END

IF ~~ THEN BEGIN 3
  SAY @11491
  IF ~~ THEN REPLY @11492 GOTO 2
  IF ~~ THEN REPLY @11493 GOTO 1
  IF ~~ THEN REPLY @11507 GOTO 8
END

IF ~~ THEN BEGIN 4
  SAY @11496
  IF ~~ THEN REPLY @11497 GOTO 5
END

IF ~~ THEN BEGIN 5
  SAY @11498
  IF ~~ THEN REPLY @11499 GOTO 6
END

IF ~~ THEN BEGIN 6
  SAY @11500
  IF ~~ THEN REPLY @11501 GOTO 7
END

IF ~~ THEN BEGIN 7
  SAY @11502
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 8
  SAY @11503
  IF ~~ THEN REPLY @11504 GOTO 2
  IF ~~ THEN REPLY @11505 GOTO 1
  IF ~~ THEN REPLY @11506 GOTO 3
END
