Text wrapping

From Retrosoftware

(Difference between revisions)
Jump to: navigation, search
(→Text Wrapping Routine - Initial version)
m (→Text Wrapping Routine)
Line 2: Line 2:
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.
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 ==
== The Code ==

Revision as of 21:39, 4 April 2008

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

Retrieved from "http://www.retrosoftware.co.uk/wiki/index.php/Text_wrapping"