Longest string challenge: Difference between revisions

=={{header|BASIC}}==

==={{header|True BASIC}}===

{{trans|FreeBASIC}}

<lang basic>

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

</lang>

{{out}}

<pre>

Igual que la entrada de FreeBASIC.

</pre>