define clearscreen;
  rawcharout(12); sysflush(popdevraw); ;;; for sun
enddefine;