home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 2 / sauce-n-code-02.adf / ASCII_Source / WordWrap.asc < prev   
Text File  |  1995-07-02  |  722b  |  38 lines
  1. ' ********************************** 
  2. ' * Routine to wordwrap text in s$ * 
  3. ' ********************************** 
  4.  
  5. S$="This routine will wordwrap any text found in the variable s$, and will"
  6. S$=S$+" work acording to the amount in ll, which tells it how much characters"
  7. S$=S$+" you wish to have in each line. The finished result will be returned"
  8. S$=S$+" in f$."
  9.  
  10. LL=38 : Rem amount of characters in line 
  11.  
  12. While Len(S$)>0
  13.    
  14.    L$=Left$(S$,LL)
  15.    S$=Mid$(S$,LL+1)
  16.    R$=Right$(L$,1)
  17.    
  18.    If R$<>" "
  19.       S=Instr(Flip$(L$)," ")
  20.       
  21.       If S>0
  22.          R$=Right$(L$,S-1)
  23.          S$=R$+S$
  24.          L$=Left$(L$,Len(L$)-S)
  25.       End If 
  26.       
  27.    End If 
  28.    
  29.    L$=Left$(L$+Space$(LL),LL)
  30.    Print L$
  31.    
  32. Wend 
  33.  
  34.  
  35.  
  36.  
  37.  
  38.