home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / PUDEMO6.B < prev    next >
Text File  |  1996-05-09  |  264b  |  13 lines
  1. * this one shows:
  2. * 1) literal fields
  3. * 2) left justified hexadecimal numbers
  4. * 3) left justified decimal numbers
  5.  
  6.  dim a:short
  7.  dim a$:string[50]
  8.  dim i:byte
  9.  a$="Count=>>>>=>>>> hexidecimal, decimal"
  10.  for i=1 to 20
  11.     print using(a$,hex$(i),i)
  12.  next i
  13.