home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / oncmd.zip / BOX.PRG < prev    next >
Text File  |  1995-03-01  |  558b  |  28 lines
  1. #include special.inc
  2. setwin( 0, 0, -1, -1 )
  3. system( 7001, 'Box Draw' )
  4. private i,r,c,r2,c2
  5. msgbox( 'This program demonstrates the high performance integration of OnCmd with Presentation Manager.', 'The same program written in competetive products would be painfully slow.', 7 )
  6.  
  7. i = .04
  8. do while i <= .4
  9. * -- initialize row, column values
  10.     r = 1.00
  11.     c = 1.00
  12.     r2 = 10.00
  13.     c2 = 10.00
  14.  
  15.     clear
  16.     do while r2 < 24
  17. * -- display box
  18.         @r,c to r2,c2
  19.         r = r + i
  20.         c = c + i
  21.         r2 = r2 + (2*i)
  22.         c2 = c2 + (8*i)
  23.     enddo
  24.     i = i + .04
  25. enddo
  26.  
  27.  
  28.