home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / PUDEMO5.B < prev    next >
Text File  |  1996-05-09  |  470b  |  16 lines
  1. * this one is like pu4 except output is to printer
  2.  
  3.  dim printer:byte
  4.  dim a$:string[100]
  5.  dim a:real
  6.  open #printer,"lpt1":write
  7.  print #printer using("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^","Centered Title")
  8.  a$="         >>>>>>>>>>>>"
  9.  a=4.5
  10.  print #printer using(a$,str$(a))
  11.  a=456.66
  12.  print #printer using(a$,str$(a))
  13.  print #printer "         ____________"
  14.  a=4.5+456.66
  15.  print #printer using(a$,str$(a))
  16.