DECLARE SUB DoSolveRiddle

 CREATE Main AS QFORM
  CREATE List AS QRICHEDIT
   Height = Main.clientHeight
   Width  = Main.ClientWidth
  END CREATE
 END CREATE

 DoSolveRiddle

 Main.SHOWMODAL

 SUB DoSolveRiddle

  DIM  NrOfRounds  :  NrOfRounds  = 10 '//   Dont go higher then 28, it will get an error thats the string is too long :(


  DIM  RiddleLine$ :  RiddleLine$ = "1"

  List.AddString "Line 1: " +RiddleLine$

  FOR Rounds = 1 TO NrOfRounds

   FOR Chars = 1 TO LEN(RiddleLine$)
    Char$ = MID$(RiddleLine$,Chars,1)

    IF Chars = 1 THEN
     Count = 1
     PrevChar$ = Char$
    ELSE

     IF Char$ <> PrevChar$ THEN
      NewLine$ = NewLine$ + STR$(Count) + PrevChar$
      Count = 1
      PrevChar$ = Char$
     ELSE
      Count = Count + 1
      PrevChar$ = Char$
     END IF

    END IF

   NEXT Chars

   NewLine$ = NewLine$ + STR$(Count) +Char$
   List.AddString "Line " + STR$(Rounds + 1)+ ": " +NewLine$
   RiddleLine$ = NewLine$
   NewLine$     = ""

  NEXT Rounds


 END SUB