BEGIN ~CALIMART~

IF ~True()~ THEN BEGIN 0
  SAY @0
  IF ~~ THEN REPLY @1 DO ~StartStore("calimart",LastTalkedToBy())~ EXIT
  IF ~~ THEN REPLY @2 DO ~StartStore("calimart",LastTalkedToBy())~ EXIT
  IF ~~ THEN REPLY @3 GOTO 1
  IF ~~ THEN REPLY @4 EXIT
END

IF ~~ THEN BEGIN 1 // from: 0.2
  SAY @5
  IF ~~ THEN REPLY @6 EXIT
  IF ~~ THEN REPLY @7 GOTO 2
END

IF ~~ THEN BEGIN 2 // from: 1.1
  SAY @8
  IF ~~ THEN REPLY @9 GOTO 3
  IF ~~ THEN REPLY @10 EXIT
END

IF ~~ THEN BEGIN 3 // from: 2.0
  SAY @11
  IF ~~ THEN REPLY @12 GOTO 4
END

IF ~~ THEN BEGIN 4 // from: 3.0
  SAY @13
  IF ~~ THEN REPLY @14 GOTO 5
  IF ~~ THEN REPLY @15 GOTO 5
  IF ~~ THEN REPLY @16 GOTO 8
END

IF ~~ THEN BEGIN 5 // from: 4.1 4.0
  SAY @17
  IF ~~ THEN GOTO 7
END

IF ~~ THEN BEGIN 7 // from: 5.0
  SAY @18
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 8 // from: 4.2
  SAY @19
  IF ~~ THEN REPLY @20 EXIT
  IF ~~ THEN REPLY @21 EXIT
END
