home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / PUDEMO4.B < prev    next >
Text File  |  1996-05-09  |  391b  |  16 lines
  1. * this one shows:
  2. * 1) a centered title
  3. * 2) right justified floating point args
  4.  
  5.  dim a$:string[100]
  6.  dim a:real
  7.  print using("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^","Centered Title")
  8.  a$="         >>>>>>>>>>>>"
  9.  a=4.5
  10.  print using(a$,a)
  11.  a=456.66
  12.  print using(a$,a)
  13.  print "         ____________"
  14.  a=4.5+456.66
  15.  print using(a$,a)
  16.