home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / quicksub / center.sub < prev    next >
Encoding:
Text File  |  1986-06-12  |  256 b   |  10 lines
  1. ' CENTER.SUB -- MSDOS QuickBASIC text centering subroutine
  2. '        Enter with TXT$ containing the string to be centered
  3.  
  4. CENTER:
  5.     PRINT TAB(40 - (LEN(TXT$) / 2)) TXT$ 
  6.  
  7. RETURN
  8.  
  9. ' >>>>> Physical EOF CENTER.SUB
  10.