Text wrapping
From Retrosoftware
(Difference between revisions)
m (→Text Wrapping Routine) |
m (→Text Wrapping Routine - Changed the code formatting to monospaced type) |
||
| Line 6: | Line 6: | ||
| - | <code> | + | <code> 10 MODE 0 |
| - | + | ||
| - | + | ||
20 A$="This is a text wrapping example. Here you can see the text being dynamically wrapped to a user defined width. Pretty neat stuff isn't it?" | 20 A$="This is a text wrapping example. Here you can see the text being dynamically wrapped to a user defined width. Pretty neat stuff isn't it?" | ||
30 REPEAT | 30 REPEAT | ||
| Line 29: | Line 27: | ||
200 UNTIL P%=LEN(A$) | 200 UNTIL P%=LEN(A$) | ||
210 ENDPROC | 210 ENDPROC | ||
| - | |||
</code> | </code> | ||
Current revision
Text Wrapping Routine
This is a little routine that could be useful for people writing text adventures or any other program that requires text to be wrapped on the fly.
The Code
10 MODE 0
20 A$="This is a text wrapping example. Here you can see the text being dynamically wrapped to a user defined width. Pretty neat stuff isn't it?"
30 REPEAT
40 INPUT'"Enter text width: " W%
50 IF W% THEN PRINT'STRING$(W%,"-"):PROCwrap(A$):PRINT
60 UNTIL W%=0
70 END
80
90 DEF PROCwrap(A$)
100 L%=W%:O%=1
110 REPEAT
120 P%=INSTR(A$," ",O%)
130 IF P%=0 THEN P%=LEN(A$)
140 S%=P%-O%
150 IF S%>=L% AND POS>1 THEN PRINT
160 IF S%>=L% THEN L%=W%-S%-1 ELSE L%=L%-S%-1
170 PRINT MID$(A$,O%,S%+1);
180 IF POS=1 THEN PRINT CHR$(127);
190 O%=P%+1
200 UNTIL P%=LEN(A$)
210 ENDPROC