Procedure Graf_growbox(Gstx%,Gsty%,Gstwidth%,Gstheight%,Gfinx%,Gfiny%,Gfinwidth%,Gfinheight%,rreturn%)
  Dpoke Gintin,Gstx%
  Dpoke Gintin+2,Gsty%
  Dpoke Gintin+4,Gstwidth%
  Dpoke Gintin+6,Gstheight%
  Dpoke Gintin+8,Gfinx%
  Dpoke Gintin+10,Gfiny%
  Dpoke Gintin+12,Gfinwidth%
  Dpoke Gintin+14,Gfinheight%
  Gemsys 73
  *rreturn%=dpeek(gintout)
Return