8 lines
258 B
Text
8 lines
258 B
Text
10 DATA "a","bb","ccc","ddd","ee","f","ggg","~"
|
|
30 READ T$
|
|
40 IF T$ = "~" THEN GOTO 80
|
|
50 IF LEN(T$) > LEN(T1$) THEN LET T1$ = T$ : LET T2$ = T1$ + CHR$(10) : GOTO 30
|
|
60 IF LEN(T$) = LEN(T1$) THEN LET T2$ = T2$ + T$ + CHR$(10)
|
|
70 GOTO 30
|
|
80 PRINT T2$
|
|
90 END
|