Description: Draw graphical text
Mapped Command: DRAW <string> AT
FUNCTION __DrawText(text,x,y,type,size,vertical,center,rightjust)
   local mode
   vertical  := if(vertical == NIL,0,vertical)   // determine positioning
   center    := if(center == NIL,0,center)       // horizontal positioning (center)
   rightjust := if(rightjust == NIL,0,rightjust) // horizontal positioning (right just)
   mode      := vertical + center + rightjust    // calculate the display mode
   __SetCSet(if(type == NIL,"",type),if(size == NIL,"",size))
   saystring(__XdGE(y),__YdGE(x),4,mode,__DgeColor(setcolor()),text)
RETURN(Void)