www.pudn.com > jq_caiwu.ARJ > BOX_1.PRG

 i = 1 
 @ x1, y1 SAY '©³' 
 DO WHILE y2-y1>i*2 
      @ x1, y1+i*2 SAY '©¥' 
      i = i+1 
 ENDD 
 @ x1, y2 SAY '©·' 
 i = x1+1 
 DO WHILE ii*2 
      @ x2, y1+i*2 SAY '©¥' 
      i = i+1 
 ENDD 
 @ x2, y2 SAY '©¿' 
 RETU 
*