9 lines
340 B
Plaintext
9 lines
340 B
Plaintext
10 data "a","bb","ccc","ddd","ee","f","ggg","~" : ' la tilde es solo para mantener el código compacto
|
|
20 restore
|
|
30 read test$
|
|
40 if test$ = "~" then goto 70
|
|
50 if len(test$) > len(test1$) then test1$ = test$ : test2$ = test1$+chr$(10) else if len(test$) = len(test1$) then test2$ = test2$+test$+chr$(10)
|
|
60 goto 30
|
|
70 print test2$
|
|
80 end
|