#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


