don't throw away float <-> double conversions for FORTRAN.

[unix-history] / usr / src / old / lib2648 / dispmsg.c

/*      dispmsg.c       4.1     83/03/09        */
/*
* display a message, str, starting at (x, y).
*/

#include "2648.h"

dispmsg(str, x, y, maxlen)
char *str;
int x, y;
{
       int oldx, oldy;
       int oldcuron;
       int oldquiet;
       extern int QUIET;

       oldx = _curx; oldy = _cury;
       oldcuron = _cursoron;
       zoomout();
       areaclear(y, x, y+8, x+6*maxlen);
       setset();
       curon();
       movecurs(x, y);
       texton();
       oldquiet = QUIET;
       QUIET = 0;
       outstr(str);
       if (oldquiet)
               outstr("\r\n");
       QUIET = oldquiet;
       textoff();
       movecurs(oldx, oldy);
       if (oldcuron == 0)
               curoff();
}