Data commit

Task/Longest-string-challenge/True-BASIC/longest-string-challenge.basic

@@ -0,0 +1,15 @@
+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