home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / PUDEMO3.B < prev    next >
Text File  |  1997-09-11  |  491b  |  17 lines
  1. * this one shows:
  2. * 1) a literal phrase
  3. * 2) a left justified arg which is greater than field size
  4. * 3) a right justified arg which is greater than field size
  5. * 4) a centered arg hich is greater than field size
  6.  
  7.  dim a$:string[100]
  8.  dim b$:string[10]
  9.  dim c$:string[10]
  10.  dim d$:string[10]
  11.  print ".'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'.'"
  12.  a$="This is a test |<<<<<| |>>>>>|^^^^^^^^|"
  13.  b$="argument2"
  14.  c$="argument3"
  15.  d$="argument4"
  16.  print using(a$,b$,c$,d$)
  17.