26 lines
842 B
Text
26 lines
842 B
Text
100 DATA"---------- ICE AND FIRE ------------"
|
|
110 DATA" "
|
|
120 DATA"FIRE, IN END WILL WORLD THE SAY SOME"
|
|
130 DATA"ICE. IN SAY SOME "
|
|
140 DATA"DESIRE OF TASTED I'VE WHAT FROM "
|
|
150 DATA"FIRE. FAVOR WHO THOSE WITH HOLD I "
|
|
160 DATA" "
|
|
170 DATA"... ELIDED PARAGRAPH LAST ... "
|
|
180 DATA" "
|
|
190 DATA"FROST ROBERT -----------------------"
|
|
|
|
200 FOR L = 1 TO 10
|
|
210 READ T$
|
|
220 I = LEN(T$)
|
|
240 IF I THEN GOSUB 300 : PRINT W$; : IF I THEN PRINT " "; : GOTO 240
|
|
250 PRINT
|
|
260 NEXT L
|
|
270 END
|
|
|
|
300 W$ = ""
|
|
310 FOR I = I TO 1 STEP -1
|
|
320 IF MID$(T$, I, 1) = " " THEN NEXT I : RETURN
|
|
330 FOR I = I TO 1 STEP -1
|
|
340 C$ = MID$(T$, I, 1)
|
|
350 IF C$ <> " " THEN W$ = C$ + W$ : NEXT I
|
|
360 RETURN
|