RosettaCodeData/Task/Longest-string-challenge/Yabasic/longest-string-challenge.basic

16 lines
319 B
Plaintext

data "a", "bb", "ccc", "ddd", "ee", "f", "ggg", "~"
do
read test$
if test$ = "~" then break : fi
if len(test$) > len(test1$) then
test1$ = test$
test2$ = test1$ + chr$(10)
elsif len(test$) = len(test1$) then
test2$ = test2$ + test$ + chr$(10)
end if
loop
print(test2$)
end