BEGIN ~psVortel~

IF ~True()~ THEN BEGIN 0
  SAY @0
  IF ~~ THEN REPLY @1 GOTO 1
  IF ~~ THEN REPLY @2 GOTO 2
  IF ~~ THEN REPLY @16 EXIT
END

IF ~~ THEN BEGIN 1
  SAY @3
  IF ~~ THEN DO ~StartStore("psSphere",LastTalkedToBy())~ EXIT
END

IF ~~ THEN BEGIN 2
  SAY @4
  IF ~~ THEN REPLY @5 GOTO 7
  IF ~~ THEN REPLY @6 GOTO 1
END

IF ~~ THEN BEGIN 7
  SAY @7
  IF ~~ THEN REPLY @8 GOTO 11
  IF ~~ THEN REPLY @9 EXIT
  IF ~~ THEN REPLY @10 GOTO 1
END

IF ~~ THEN BEGIN 11
  SAY @11
  IF ~~ THEN REPLY @12 GOTO 13
END

IF ~~ THEN BEGIN 13
  SAY @13
  IF ~~ THEN REPLY @14 EXIT
  IF ~~ THEN REPLY @15 GOTO 1
END