BEGIN ~CB3579DK~

IF ~NumTimesTalkedTo(0)
~ THEN BEGIN 0 
  SAY @1 
  IF ~~ THEN REPLY @2 GOTO 1
  IF ~~ THEN REPLY @3 GOTO 2
  IF ~~ THEN REPLY @4 GOTO 3
  IF ~~ THEN REPLY @5 GOTO 4
END

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

IF ~~ THEN BEGIN 2
  SAY @9 
  IF ~~ THEN REPLY @10 GOTO 5
  IF ~~ THEN REPLY @11 GOTO 6
END

IF ~~ THEN BEGIN 3
  SAY @12 
  IF ~~ THEN REPLY @13 GOTO 5
  IF ~~ THEN REPLY @14 GOTO 6
END

IF ~~ THEN BEGIN 4
  SAY @15 
  IF ~~ THEN REPLY @16 GOTO 5
  IF ~~ THEN REPLY @17 GOTO 6
END

IF ~~ THEN BEGIN 5
  SAY @18 
  IF ~~ THEN REPLY @19 GOTO 7
  IF ~~ THEN REPLY @20 GOTO 8
  IF ~~ THEN REPLY @21 GOTO 9
  IF ~~ THEN REPLY @22 GOTO 10
END

IF ~~ THEN BEGIN 6
  SAY @23 
  IF ~~ THEN REPLY @19 GOTO 7
  IF ~~ THEN REPLY @20 GOTO 8
  IF ~~ THEN REPLY @21 GOTO 9
  IF ~~ THEN REPLY @22 GOTO 10
END

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

IF ~~ THEN BEGIN 8
  SAY @25 
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 9
  SAY @26 
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 10
  SAY @27 
  IF ~~ THEN EXIT
END

IF ~True()
~ THEN BEGIN 11
  SAY @28 
  IF ~~ THEN DO ~SetGlobal("mirrordone","GLOBAL",1)
~ EXIT
END
