DATA "a", "bb", "ccc", "ddd", "ee", "f", "ggg", "~"   ! la tilde es solo para mantener el código compacto

DO
   READ test$
   IF test$ = "~" then EXIT DO
   IF len(test$) > len(test1$) then
      LET test1$ = test$
      LET test2$ = test1$ & chr$(10)
   ELSEIF len(test$) = len(test1$) then
      LET test2$ = test2$ & test$ & chr$(10)
   END IF
LOOP

PRINT(test2$)
END