home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / DEMOS / UB_68000.LZH / pu6.b < prev    next >
Text File  |  1996-05-09  |  287b  |  13 lines
  1. * this one shows:
  2. * 1) literal fields
  3. * 2) left justified, zero-filled hexadecimal numbers
  4. * 3) left justified, zero-filled 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$,zhex$(i),zstr$(i))
  12.  next i
  13.