BEGIN ~w#ribal~

IF ~True()~ THEN BEGIN 1
  SAY @1000
  IF ~~ THEN REPLY @1001 GOTO 2
  IF ~~ THEN REPLY @1003 GOTO 3
  IF ~~ THEN REPLY @1005 GOTO 4
  IF ~~ THEN REPLY @1007 GOTO 5
  IF ~~ THEN REPLY @1008 EXIT
END

IF ~~ THEN BEGIN what
  SAY @1010
  IF ~~ THEN REPLY @1001 GOTO 2
  IF ~~ THEN REPLY @1003 GOTO 3
  IF ~~ THEN REPLY @1005 GOTO 4
  IF ~~ THEN REPLY @1007 GOTO 5
  IF ~~ THEN REPLY @1008 EXIT
END

IF ~~ THEN BEGIN 2
  SAY @1002 
  IF ~~ THEN GOTO what
END

IF ~~ THEN BEGIN 3
  SAY @1004 
  IF ~~ THEN GOTO what
END

IF ~~ THEN BEGIN 4
  SAY @1006 
  IF ~~ THEN GOTO what
END

IF ~~ THEN BEGIN 5
  SAY @1009
  IF ~~ THEN DO ~StartStore("w#ribald",Protagonist)~ EXIT
END
