home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Product
/
Product.zip
/
oncmd.zip
/
BOX.PRG
< prev
next >
Wrap
Text File
|
1995-03-01
|
558b
|
28 lines
#include special.inc
setwin( 0, 0, -1, -1 )
system( 7001, 'Box Draw' )
private i,r,c,r2,c2
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 )
i = .04
do while i <= .4
* -- initialize row, column values
r = 1.00
c = 1.00
r2 = 10.00
c2 = 10.00
clear
do while r2 < 24
* -- display box
@r,c to r2,c2
r = r + i
c = c + i
r2 = r2 + (2*i)
c2 = c2 + (8*i)
enddo
i = i + .04
enddo