home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / PUDEMO2.B < prev    next >
Text File  |  1996-05-09  |  634b  |  20 lines
  1. * this one shows:
  2. * 1) literal fields
  3. * 2) left justified field with argument less than arg size
  4. * 3) right justified field with argument less than arg size
  5. * 4) centered field with argument less than arg size
  6. * 5) left justified field with no arg
  7. * 6) right justified field with no arg
  8. * 7) centered field with no arg
  9.  
  10.  dim a$:string[100]
  11.  dim b$:string[10]
  12.  dim c$:string[10]
  13.  dim d$:string[10]
  14.  print ".'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'"
  15.  a$="This is a test |<<<<<| |>>>>>|^^^^^^^^| <<<<<>>>>>^^^^^^^end of line"
  16.  b$="arg2"
  17.  c$="arg3"
  18.  d$="arg4"
  19.  print using(a$,b$,c$,d$)
  20.