proc drawcross (x1,y1,x2,y2:int)
var width :int:=0
 width:= x2-x1
drawfillbox (x1 + width div 3,y1, x2 -width div 3,y2,brown)
 drawfillbox (x1, y1 + width div 2, x2, y2 - width div 4,brown)
 end drawcross
 
drawcross (100,100,200,200)