home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / DEMOS / UB_68000.LZH / pu5.b < prev    next >
Text File  |  1996-05-09  |  252b  |  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.