www.pudn.com > jq_gongzi.ARJ > BOX-1.PRG

*************************** 
* .\BOX-1.PRG 
*************************** 
I = 1 
@ X1 , Y1 say '©³' 
do while Y2-Y1>I*2 
  @ X1 , Y1+I*2 say '©¥' 
  I = I+1 
enddo  
@ X1 , Y2 say '©·' 
I = X1+1 
do while II*2 
  @ X2 , Y1+I*2 say '©¥' 
  I = I+1 
enddo  
@ X2 , Y2 say '©¿' 
return