home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / TEXT1.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  1.3 KB  |  24 lines
  1. *****************************************************************
  2. *     * 09/92               POPUP1.PRG                          *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * Program illustrates use of TXTWIDTH()                   *
  8. *****************************************************************
  9.   @ 10,1 SAY ""
  10.   tstart = prtline("Text displays in ","Roman",14,"N",11,1)
  11.   tstart = prtline("Bold","Roman",14,"B",11,tstart)
  12.   tstart = prtline(", ","Roman",14,"N",11,tstart)
  13.   tstart = prtline("Itilacs","Roman",14,"I",11,tstart)
  14.   tstart = prtline(", and","Roman",14,"N",11,tstart)
  15.   tstart = prtline("Bold and Italics","Roman",14,"BI",11,tstart)
  16.   tstart = prtline(".","Roman",14,"N",11,tstart)
  17. *****************************************************
  18. * PRTLINE() Displays text in specified font and style
  19. *****************************************************
  20.    PROCEDURE prtline
  21.    PARAMETER TEXT, tfont, tsize, tstyle, LINE, start
  22.    @ LINE,col() SAY TEXT FONT TFont,tsize STYLE tstyle
  23.    RETURN start + TXTWIDTH(TEXT,tfont, tsize, tstyle)
  24.