Make CTRL() ANSI-compliant.

[bsdgames-darwin.git] / larn / io.c

/* io.c                  Larn is copyrighted 1986 by Noah Morgan.
 *
 *      Below are the functions in this file:
 *
 *      setupvt100()    Subroutine to set up terminal in correct mode for game
 *      clearvt100()    Subroutine to clean up terminal when the game is over
 *      getchar()               Routine to read in one character from the terminal
 *      scbr()                  Function to set cbreak -echo for the terminal
 *      sncbr()                 Function to set -cbreak echo for the terminal
 *      newgame()               Subroutine to save the initial time and seed rnd()
 *
 *      FILE OUTPUT ROUTINES
 *
 *      lprintf(format,args . . .)      printf to the output buffer
 *      lprint(integer)                         send binary integer to output buffer
 *      lwrite(buf,len)                         write a buffer to the output buffer
 *      lprcat(str)                                     sent string to output buffer
 *
 *      FILE OUTPUT MACROS (in header.h)
 *
 *      lprc(character)                         put the character into the output buffer
 *
 *      FILE INPUT ROUTINES
 *
 *      long lgetc()                            read one character from input buffer
 *      long lrint()                            read one integer from input buffer
 *      lrfill(address,number)          put input bytes into a buffer
 *      char *lgetw()                           get a whitespace ended word from input
 *      char *lgetl()                           get a \n or EOF ended line from input
 *
 *      FILE OPEN / CLOSE ROUTINES
 *
 *      lcreat(filename)                        create a new file for write
 *      lopen(filename)                         open a file for read
 *      lappend(filename)                       open for append to an existing file
 *      lrclose()                                       close the input file
 *      lwclose()                                       close output file
 *      lflush()                                        flush the output buffer
 *
 *      Other Routines
 *
 *      cursor(x,y)                                     position cursor at [x,y]
 *      cursors()                                       position cursor at [1,24] (saves memory)
 *  cl_line(x,y)                        Clear line at [1,y] and leave cursor at [x,y]
 *  cl_up(x,y)                                  Clear screen from [x,1] to current line.
 *  cl_dn(x,y)                                  Clear screen from [1,y] to end of display. 
 *  standout(str)                               Print the string in standout mode.
 *  set_score_output()                  Called when output should be literally printed.
 ** putchar(ch)                                 Print one character in decoded output buffer.
 ** flush_buf()                                 Flush buffer with decoded output.
 ** init_term()                                 Terminal initialization -- setup termcap info
 **     char *tmcapcnv(sd,ss)           Routine to convert VT100 \33's to termcap format
 *      beep()          Routine to emit a beep if enabled (see no-beep in .larnopts)
 *
 * Note: ** entries are available only in termcap mode.
 */

#include "header.h"

#ifdef SYSV     /* system III or system V */
#include <termio.h>
#define sgttyb termio
#define stty(_a,_b) ioctl(_a,TCSETA,_b)
#define gtty(_a,_b) ioctl(_a,TCGETA,_b)
static int rawflg = 0;
static char saveeof,saveeol;
#define doraw(_a) if(!rawflg){++rawflg;saveeof=_a.c_cc[VMIN];saveeol=_a.c_cc[VTIME];}\
    _a.c_cc[VMIN]=1;_a.c_cc[VTIME]=1;_a.c_lflag &= ~(ICANON|ECHO|ECHOE|ECHOK|ECHONL)
#define unraw(_a) _a.c_cc[VMIN]=saveeof;_a.c_cc[VTIME]=saveeol;_a.c_lflag |= ICANON|ECHO|ECHOE|ECHOK|ECHONL

#else not SYSV

#ifndef BSD
#define CBREAK RAW              /* V7 has no CBREAK */
#endif

#define doraw(_a) (_a.sg_flags |= CBREAK,_a.sg_flags &= ~ECHO)
#define unraw(_a) (_a.sg_flags &= ~CBREAK,_a.sg_flags |= ECHO)
#include <sgtty.h>
#endif not SYSV

#ifndef NOVARARGS       /* if we have varargs */
#include <varargs.h>
#else NOVARARGS /* if we don't have varargs */
typedef char *va_list;
#define va_dcl int va_alist;
#define va_start(plist) plist = (char *) &va_alist
#define va_end(plist)
#define va_arg(plist,mode) ((mode *)(plist += sizeof(mode)))[-1]
#endif NOVARARGS

#define LINBUFSIZE 128          /* size of the lgetw() and lgetl() buffer               */
int lfd;                                        /*  output file numbers                                                 */
int fd;                                         /*  input file numbers                                                  */
static struct sgttyb ttx;       /* storage for the tty modes                                    */
static int ipoint=MAXIBUF,iepoint=MAXIBUF;      /*  input buffering pointers    */
static char lgetwbuf[LINBUFSIZE];       /* get line (word) buffer                               */

/*
 *      setupvt100()            Subroutine to set up terminal in correct mode for game
 *
 *      Attributes off, clear screen, set scrolling region, set tty mode 
 */
setupvt100()
        {
        clear();  setscroll();  scbr(); /* system("stty cbreak -echo"); */
        }

/*
 *      clearvt100()            Subroutine to clean up terminal when the game is over
 *
 *      Attributes off, clear screen, unset scrolling region, restore tty mode 
 */
clearvt100()
        {
        resetscroll();  clear();  sncbr(); /* system("stty -cbreak echo"); */
        }

/*
 *      getchar()               Routine to read in one character from the terminal
 */
getchar()
        {
        char byt;
#ifdef EXTRA
        c[BYTESIN]++;
#endif
        lflush();               /* be sure output buffer is flushed */
        read(0,&byt,1);         /* get byte from terminal */
        return(byt);
        }

/*
 *      scbr()          Function to set cbreak -echo for the terminal
 *
 *      like: system("stty cbreak -echo")
 */
scbr()
        {
        gtty(0,&ttx);           doraw(ttx);             stty(0,&ttx);
        }

/*
 *      sncbr()         Function to set -cbreak echo for the terminal
 *
 *      like: system("stty -cbreak echo")
 */
sncbr()
        {
        gtty(0,&ttx);           unraw(ttx);             stty(0,&ttx);
        }

/*
 *      newgame()               Subroutine to save the initial time and seed rnd()
 */
newgame()
        {
        register long *p,*pe;
        for (p=c,pe=c+100; p<pe; *p++ =0);
        time(&initialtime);             srand(initialtime);
        lcreat((char*)0);       /* open buffering for output to terminal */
        }

/*
 *      lprintf(format,args . . .)              printf to the output buffer
 *              char *format;
 *              ??? args . . .
 *
 *      Enter with the format string in "format", as per printf() usage
 *              and any needed arguments following it
 *      Note: lprintf() only supports %s, %c and %d, with width modifier and left
 *              or right justification.
 *      No correct checking for output buffer overflow is done, but flushes 
 *              are done beforehand if needed.
 *      Returns nothing of value.
 */
#ifdef lint
/*VARARGS*/
lprintf(str)
        char *str;
        {
        char *str2;
        str2 = str;
        str = str2; /* to make lint happy */
        }
/*VARARGS*/
sprintf(str)
        char *str;
        {
        char *str2;
        str2 = str;
        str = str2; /* to make lint happy */
        }
#else lint
/*VARARGS*/
lprintf(va_alist)
va_dcl
    {
        va_list ap;     /* pointer for variable argument list */
        register char *fmt;
        register char *outb,*tmpb;
        register long wide,left,cont,n;         /* data for lprintf     */
        char db[12];                    /* %d buffer in lprintf */

        va_start(ap);   /* initialize the var args pointer */
        fmt = va_arg(ap, char *);       /* pointer to format string */
        if (lpnt >= lpend) lflush(); 
        outb = lpnt;
        for ( ; ; )
                {
                while (*fmt != '%')
                        if (*fmt) *outb++ = *fmt++;  else { lpnt=outb;  return; }
                wide = 0;       left = 1;       cont=1;
                while (cont)
                  switch(*(++fmt))
                        {
                        case 'd':       n = va_arg(ap, long);
                                                if (n<0) { n = -n;  *outb++ = '-';  if (wide) --wide; }
                                                tmpb = db+11;   *tmpb = (char)(n % 10 + '0');
                                                while (n>9)  *(--tmpb) = (char)((n /= 10) % 10 + '0');
                                                if (wide==0)  while (tmpb < db+12) *outb++ = *tmpb++;
                                                else
                                                        {
                                                        wide -= db-tmpb+12;
                                                        if (left)  while (wide-- > 0) *outb++ = ' ';
                                                        while (tmpb < db+12) *outb++ = *tmpb++;
                                                        if (left==0)  while (wide-- > 0) *outb++ = ' ';
                                                        }
                                                cont=0; break;

                        case 's':       tmpb = va_arg(ap, char *);
                                                if (wide==0)  { while (*outb++ = *tmpb++);  --outb; } 
                                                else
                                                        {
                                                        n = wide - strlen(tmpb);
                                                        if (left)  while (n-- > 0) *outb++ = ' ';
                                                        while (*outb++ = *tmpb++);  --outb;
                                                        if (left==0)  while (n-- > 0) *outb++ = ' ';
                                                        }
                                                cont=0; break;

                        case 'c':       *outb++ = va_arg(ap, int);      cont=0;  break;

                        case '0':
                        case '1':
                        case '2':
                        case '3':
                        case '4':
                        case '5':
                        case '6':
                        case '7':
                        case '8':
                        case '9':       wide = 10*wide + *fmt - '0';    break;

                        case '-':       left = 0;       break;

                        default:        *outb++ = *fmt;  cont=0;        break;
                        };
                fmt++;
                }
        va_end(ap);
        }
#endif lint

/*
 *      lprint(long-integer)                            send binary integer to output buffer
 *              long integer;
 *
 *              +---------+---------+---------+---------+
 *              |       high  |                 |                 |       low   |
 *              |  order  |                     |                 |  order      |
 *              |   byte  |                     |                 |       byte  |
 *              +---------+---------+---------+---------+
 *         31  ---  24 23 --- 16 15 ---  8 7  ---   0
 *
 *      The save order is low order first, to high order (4 bytes total)
 *              and is written to be system independent.
 *      No checking for output buffer overflow is done, but flushes if needed!
 *      Returns nothing of value.
 */
lprint(x)
        register long x;
        {
        if (lpnt >= lpend) lflush();
        *lpnt++ =  255 & x;                     *lpnt++ =  255 & (x>>8);
        *lpnt++ =  255 & (x>>16);       *lpnt++ =  255 & (x>>24);
        }

/*
 *      lwrite(buf,len)                                 write a buffer to the output buffer
 *              char *buf;
 *              int len;
 *      
 *      Enter with the address and number of bytes to write out
 *      Returns nothing of value
 */
lwrite(buf,len)
    register char *buf;
    int len;
    {
        register char *str;
        register int num2;
        if (len > 399)  /* don't copy data if can just write it */
                {
#ifdef EXTRA
                c[BYTESOUT] += len;
#endif

#ifndef VT100
                for (str=buf;  len>0; --len)
                        lprc(*str++);
#else VT100
                lflush();
                write(lfd,buf,len);
#endif VT100
                } 
        else while (len)
                {
                if (lpnt >= lpend) lflush();    /* if buffer is full flush it   */
                num2 = lpbuf+BUFBIG-lpnt;       /*      # bytes left in output buffer   */
                if (num2 > len) num2=len;
                str = lpnt;  len -= num2;
                while (num2--)  *str++ = *buf++;        /* copy in the bytes */
                lpnt = str;
                }
    }

/*
 *      long lgetc()                            Read one character from input buffer
 *
 *  Returns 0 if EOF, otherwise the character
 */
long lgetc()
    {
    register int i;
    if (ipoint != iepoint)  return(inbuffer[ipoint++]);
    if (iepoint!=MAXIBUF)   return(0);
    if ((i=read(fd,inbuffer,MAXIBUF))<=0)
        {
        if (i!=0)  write(1,"error reading from input file\n",30);
                iepoint = ipoint = 0;           return(0);
        }
    ipoint=1;  iepoint=i;  return(*inbuffer);
    }

/*
 *      long lrint()                    Read one integer from input buffer
 *
 *              +---------+---------+---------+---------+
 *              |       high  |                 |                 |       low   |
 *              |  order  |                     |                 |  order      |
 *              |   byte  |                     |                 |       byte  |
 *              +---------+---------+---------+---------+
 *         31  ---  24 23 --- 16 15 ---  8 7  ---   0
 *
 *      The save order is low order first, to high order (4 bytes total)
 *      Returns the int read
 */
long lrint()
        {
        register unsigned long i;
        i  = 255 & lgetc();                             i |= (255 & lgetc()) << 8;
        i |= (255 & lgetc()) << 16;             i |= (255 & lgetc()) << 24;
        return(i);
        }

/*
 *      lrfill(address,number)                  put input bytes into a buffer
 *              char *address;
 *              int number;
 *
 *      Reads "number" bytes into the buffer pointed to by "address".
 *      Returns nothing of value
 */
lrfill(adr,num)
        register char *adr;
        int num;
        {
        register char *pnt;
        register int num2;
        while (num)
                {
                if (iepoint == ipoint)
                        {
                        if (num>5) /* fast way */
                                {
                                if (read(fd,adr,num) != num)
                                        write(2,"error reading from input file\n",30);
                                num=0;
                                }
                        else { *adr++ = lgetc();  --num; }
                        }
                else
                        {
                        num2 = iepoint-ipoint;  /*      # of bytes left in the buffer   */
                        if (num2 > num) num2=num;
                        pnt = inbuffer+ipoint;  num -= num2;  ipoint += num2;
                        while (num2--)  *adr++ = *pnt++;
                        }
                }
        }

/*
 *      char *lgetw()                   Get a whitespace ended word from input
 *
 *      Returns pointer to a buffer that contains word.  If EOF, returns a NULL
 */
char *lgetw()
        {
        register char *lgp,cc;
        register int n=LINBUFSIZE,quote=0;
        lgp = lgetwbuf;
        do cc=lgetc();  while ((cc <= 32) && (cc > NULL));  /* eat whitespace */
        for ( ; ; --n,cc=lgetc())
                {
                if ((cc==NULL) && (lgp==lgetwbuf))  return(NULL);       /* EOF */
                if ((n<=1) || ((cc<=32) && (quote==0))) { *lgp=NULL; return(lgetwbuf); }
                if (cc != '"') *lgp++ = cc;   else quote ^= 1;
                }
        }

/*
 *      char *lgetl()           Function to read in a line ended by newline or EOF
 *
 *      Returns pointer to a buffer that contains the line.  If EOF, returns NULL
 */
char *lgetl()
        {
        register int i=LINBUFSIZE,ch;
        register char *str=lgetwbuf;
        for ( ; ; --i)
                {
                if ((*str++ = ch = lgetc()) == NULL)
                        {
                        if (str == lgetwbuf+1)  return(NULL); /* EOF */
                ot:     *str = NULL;    return(lgetwbuf);       /* line ended by EOF */
                        }
                if ((ch=='\n') || (i<=1))  goto ot; /* line ended by \n */
                }
        }

/*
 *      lcreat(filename)                        Create a new file for write
 *              char *filename;
 *
 *      lcreat((char*)0); means to the terminal
 *      Returns -1 if error, otherwise the file descriptor opened.
 */
lcreat(str)
        char *str;
        {
        lpnt = lpbuf;   lpend = lpbuf+BUFBIG;
        if (str==NULL) return(lfd=1);
        if ((lfd=creat(str,0644)) < 0) 
                {
                lfd=1; lprintf("error creating file <%s>\n",str); lflush(); return(-1);
                }
        return(lfd);
        }

/*
 *      lopen(filename)                 Open a file for read
 *              char *filename;
 *
 *      lopen(0) means from the terminal
 *      Returns -1 if error, otherwise the file descriptor opened.
 */
lopen(str)
        char *str;
        {
        ipoint = iepoint = MAXIBUF;
        if (str==NULL) return(fd=0);
        if ((fd=open(str,0)) < 0)
                {
                lwclose(); lfd=1; lpnt=lpbuf; return(-1);
                }
        return(fd);
        }

/*
 *      lappend(filename)               Open for append to an existing file
 *              char *filename;
 *
 *      lappend(0) means to the terminal
 *      Returns -1 if error, otherwise the file descriptor opened.
 */
lappend(str)
        char *str;
        {
        lpnt = lpbuf;   lpend = lpbuf+BUFBIG;
        if (str==NULL) return(lfd=1);
        if ((lfd=open(str,2)) < 0)
                {
                lfd=1; return(-1);
                }
        lseek(lfd,0,2); /* seek to end of file */
        return(lfd);
        }

/*
 *      lrclose()                                               close the input file
 *
 *      Returns nothing of value.
 */
lrclose()
        {
        if (fd > 0) close(fd);
        }

/*
 *      lwclose()                                               close output file flushing if needed
 *
 *      Returns nothing of value.
 */
lwclose()
        {
        lflush();       if (lfd > 2) close(lfd);
        }

/*
 *      lprcat(string)                                  append a string to the output buffer
 *                                                                  avoids calls to lprintf (time consuming)
 */
lprcat(str)
    register char *str;
    {
        register char *str2;
        if (lpnt >= lpend) lflush(); 
        str2 = lpnt;
        while (*str2++ = *str++);
        lpnt = str2 - 1;
    }

#ifdef VT100
/*
 *      cursor(x,y)             Subroutine to set the cursor position
 *
 *      x and y are the cursor coordinates, and lpbuff is the output buffer where
 *      escape sequence will be placed. 
 */
static char *y_num[]= { "\33[","\33[","\33[2","\33[3","\33[4","\33[5","\33[6",
        "\33[7","\33[8","\33[9","\33[10","\33[11","\33[12","\33[13","\33[14",
        "\33[15","\33[16","\33[17","\33[18","\33[19","\33[20","\33[21","\33[22",
        "\33[23","\33[24" };

static char *x_num[]= { "H","H",";2H",";3H",";4H",";5H",";6H",";7H",";8H",";9H",
        ";10H",";11H",";12H",";13H",";14H",";15H",";16H",";17H",";18H",";19H",
        ";20H",";21H",";22H",";23H",";24H",";25H",";26H",";27H",";28H",";29H",
        ";30H",";31H",";32H",";33H",";34H",";35H",";36H",";37H",";38H",";39H",
        ";40H",";41H",";42H",";43H",";44H",";45H",";46H",";47H",";48H",";49H",
        ";50H",";51H",";52H",";53H",";54H",";55H",";56H",";57H",";58H",";59H",
        ";60H",";61H",";62H",";63H",";64H",";65H",";66H",";67H",";68H",";69H",
        ";70H",";71H",";72H",";73H",";74H",";75H",";76H",";77H",";78H",";79H",
        ";80H" };

cursor(x,y)
        int x,y;
        {
        register char *p;
        if (lpnt >= lpend) lflush();

        p = y_num[y];   /* get the string to print */
        while (*p) *lpnt++ = *p++;      /* print the string */

        p = x_num[x];   /* get the string to print */
        while (*p) *lpnt++ = *p++;      /* print the string */
        }
#else VT100
/*
 * cursor(x,y)    Put cursor at specified coordinates staring at [1,1] (termcap)
 */
cursor (x,y)
        int x,y;
        {
        if (lpnt >= lpend) lflush ();

        *lpnt++ = CURSOR;               *lpnt++ = x;            *lpnt++ = y;
        }
#endif VT100

/*
 *      Routine to position cursor at beginning of 24th line
 */
cursors()
        {
        cursor(1,24);
        }

#ifndef VT100
/*
 * Warning: ringing the bell is control code 7. Don't use in defines.
 * Don't change the order of these defines.
 * Also used in helpfiles. Codes used in helpfiles should be \E[1 to \E[7 with
 * obvious meanings.
 */

static char cap[256];
char *CM, *CE, *CD, *CL, *SO, *SE, *AL, *DL;/* Termcap capabilities */
static char *outbuf=0;  /* translated output buffer */

int putchar ();

/*
 * init_term()          Terminal initialization -- setup termcap info
 */
init_term()
        {
        char termbuf[1024];
        char *capptr = cap+10;
        char *term;

        switch (tgetent(termbuf, term = getenv("TERM")))
                {
                case -1: 
                        write(2, "Cannot open termcap file.\n", 26); exit();
                case 0: 
                        write(2, "Cannot find entry of ", 21);
                        write(2, term, strlen (term));
                        write(2, " in termcap\n", 12);
                        exit();
                };

        CM = tgetstr("cm", &capptr);  /* Cursor motion */
        CE = tgetstr("ce", &capptr);  /* Clear to eoln */
        CL = tgetstr("cl", &capptr);  /* Clear screen */

/* OPTIONAL */
        AL = tgetstr("al", &capptr);  /* Insert line */
        DL = tgetstr("dl", &capptr);  /* Delete line */
        SO = tgetstr("so", &capptr);  /* Begin standout mode */
        SE = tgetstr("se", &capptr);  /* End standout mode */
        CD = tgetstr("cd", &capptr);  /* Clear to end of display */

        if (!CM)        /* can't find cursor motion entry */
                {
                write(2, "Sorry, for a ",13);           write(2, term, strlen(term));
                write(2, ", I can't find the cursor motion entry in termcap\n",50);
                exit();
                }
        if (!CE)        /* can't find clear to end of line entry */
                {
                write(2, "Sorry, for a ",13);           write(2, term, strlen(term));
                write(2,", I can't find the clear to end of line entry in termcap\n",57);
                exit();
                }
        if (!CL)        /* can't find clear entire screen entry */
                {
                write(2, "Sorry, for a ",13);           write(2, term, strlen(term));
                write(2, ", I can't find the clear entire screen entry in termcap\n",56);
                exit();
                }
        if ((outbuf=malloc(BUFBIG+16))==0) /* get memory for decoded output buffer*/
                {
                write(2,"Error malloc'ing memory for decoded output buffer\n",50);
                died(-285);     /* malloc() failure */
                }
        }
#endif VT100

/*
 * cl_line(x,y)  Clear the whole line indicated by 'y' and leave cursor at [x,y]
 */
cl_line(x,y)
        int x,y;
        {
#ifdef VT100
        cursor(x,y);            lprcat("\33[2K");
#else VT100
        cursor(1,y);            *lpnt++ = CL_LINE;              cursor(x,y);
#endif VT100
        }

/*
 * cl_up(x,y) Clear screen from [x,1] to current position. Leave cursor at [x,y]
 */
cl_up(x,y)
        register int x,y;
        {
#ifdef VT100
        cursor(x,y);  lprcat("\33[1J\33[2K");
#else VT100
        register int i;
        cursor(1,1);
        for (i=1; i<=y; i++)   { *lpnt++ = CL_LINE;  *lpnt++ = '\n'; }
        cursor(x,y);
#endif VT100
        }

/*
 * cl_dn(x,y)   Clear screen from [1,y] to end of display. Leave cursor at [x,y]
 */
cl_dn(x,y)
        register int x,y;
        {
#ifdef VT100
        cursor(x,y); lprcat("\33[J\33[2K");
#else VT100
        register int i;
        cursor(1,y);
        if (!CD)
                {
                *lpnt++ = CL_LINE;
                for (i=y; i<=24; i++) { *lpnt++ = CL_LINE;  if (i!=24) *lpnt++ = '\n'; }
                cursor(x,y);
                }
        else
                *lpnt++ = CL_DOWN;
        cursor(x,y);
#endif VT100
        }

/*
 * standout(str)        Print the argument string in inverse video (standout mode).
 */
standout(str)
        register char *str;
        {
#ifdef VT100
        setbold();
        while (*str)
                *lpnt++ = *str++;
        resetbold();
#else VT100
        *lpnt++ = ST_START;
        while (*str)
                *lpnt++ = *str++;
        *lpnt++ = ST_END;
#endif VT100
        }

/*
 * set_score_output()   Called when output should be literally printed.
 */
set_score_output()
        {
        enable_scroll = -1;
        }

/*
 *      lflush()                                                Flush the output buffer
 *
 *      Returns nothing of value.
 *      for termcap version: Flush output in output buffer according to output
 *                                                      status as indicated by `enable_scroll'
 */
#ifndef VT100
static int scrline=18; /* line # for wraparound instead of scrolling if no DL */
lflush ()
        {
        register int lpoint;
        register char *str;
        static int curx = 0;
        static int cury = 0;

        if ((lpoint = lpnt - lpbuf) > 0)
                {
#ifdef EXTRA
                c[BYTESOUT] += lpoint;
#endif
                if (enable_scroll <= -1)
                        {
                        flush_buf();
                if (write(lfd,lpbuf,lpoint) != lpoint)
                                write(2,"error writing to output file\n",29);
                        lpnt = lpbuf;   /* point back to beginning of buffer */
                        return;
                        }
                for (str = lpbuf; str < lpnt; str++)
                        {
                        if (*str>=32)   { putchar (*str); curx++; }
                        else switch (*str)
                                {
                                case CLEAR:             tputs (CL, 0, putchar);         curx = cury = 0;
                                                                break;

                                case CL_LINE:   tputs (CE, 0, putchar);
                                                                break;

                                case CL_DOWN:   tputs (CD, 0, putchar);
                                                                break;

                                case ST_START:  tputs (SO, 0, putchar);
                                                                break;

                                case ST_END:    tputs (SE, 0, putchar);
                                                                break;

                                case CURSOR:    curx = *++str - 1;              cury = *++str - 1;
                                                                tputs (tgoto (CM, curx, cury), 0, putchar);
                                                                break;

                                case '\n':              if ((cury == 23) && enable_scroll)
                                                                  {
                                                                  if (!DL || !AL) /* wraparound or scroll? */
                                                                        {
                                                                        if (++scrline > 23) scrline=19;

                                                                        if (++scrline > 23) scrline=19;
                                                                        tputs (tgoto (CM, 0, scrline), 0, putchar);
                                                                        tputs (CE, 0, putchar);

                                                                        if (--scrline < 19) scrline=23;
                                                                        tputs (tgoto (CM, 0, scrline), 0, putchar);
                                                                        tputs (CE, 0, putchar);
                                                                        }
                                                                  else
                                                                        {
                                                                        tputs (tgoto (CM, 0, 19), 0, putchar);
                                                                        tputs (DL, 0, putchar);
                                                                        tputs (tgoto (CM, 0, 23), 0, putchar);
                                                                /*      tputs (AL, 0, putchar); */
                                                                        }
                                                                  }
                                                                else
                                                                  {
                                                                  putchar ('\n');               cury++;
                                                                  }
                                                                curx = 0;
                                                                break;

                                default:                putchar (*str); curx++;
                                };
                        }
                }
        lpnt = lpbuf;
        flush_buf();    /* flush real output buffer now */
        }
#else VT100
/*
 *      lflush()                                                flush the output buffer
 *
 *      Returns nothing of value.
 */
lflush()
    {
        register int lpoint;
        if ((lpoint = lpnt - lpbuf) > 0)
        {
#ifdef EXTRA
                c[BYTESOUT] += lpoint;
#endif
        if (write(lfd,lpbuf,lpoint) != lpoint)
                        write(2,"error writing to output file\n",29);
        }
        lpnt = lpbuf;   /* point back to beginning of buffer */
    }
#endif VT100

#ifndef VT100
static int index=0;
/*
 * putchar(ch)          Print one character in decoded output buffer.
 */
int putchar(c)
int c;
        {
        outbuf[index++] = c;
        if (index >= BUFBIG)  flush_buf();
        }

/*
 * flush_buf()                  Flush buffer with decoded output.
 */
flush_buf()
        {
        if (index) write(lfd, outbuf, index);
        index = 0;
        }

/*
 *      char *tmcapcnv(sd,ss)  Routine to convert VT100 escapes to termcap format
 *
 *      Processes only the \33[#m sequence (converts . files for termcap use 
 */
char *tmcapcnv(sd,ss)  
        register char *sd,*ss;
        {
        register int tmstate=0; /* 0=normal, 1=\33 2=[ 3=# */
        char tmdigit=0; /* the # in \33[#m */
        while (*ss)
                {
                switch(tmstate)
                        {
                        case 0: if (*ss=='\33')  { tmstate++; break; }
                          ign:  *sd++ = *ss;
                          ign2: tmstate = 0;
                                        break;
                        case 1: if (*ss!='[') goto ign;
                                        tmstate++;
                                        break;
                        case 2: if (isdigit(*ss)) { tmdigit= *ss-'0'; tmstate++; break; }
                                        if (*ss == 'm') { *sd++ = ST_END; goto ign2; }
                                        goto ign;
                        case 3: if (*ss == 'm')
                                                {
                                                if (tmdigit) *sd++ = ST_START;
                                                        else *sd++ = ST_END;
                                                goto ign2;
                                                }
                        default: goto ign;
                        };
                ss++;
                }
        *sd=0; /* NULL terminator */
        return(sd);
        }
#endif VT100

/*
 *      beep()          Routine to emit a beep if enabled (see no-beep in .larnopts)
 */
beep()
        {
        if (!nobeep) *lpnt++ = '\7';
        }