16 lines
373 B
Plaintext
16 lines
373 B
Plaintext
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
|