home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / LANGUAGES / OB68_116.LZH / pu4.b < prev    next >
Text File  |  1996-05-09  |  453b  |  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,"/p":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.