#include <stdio.h>
#include <errno.h>

#include "xtek.h"

/* use this to send a clear screen to the mailbox */

main(argc,argv)
     int argc; char **argv;
{char codes[3];
 FILE *out;
 if (argc != 2)
   {fprintf(stderr,"cat <tek-mailbox-name>\n");
    exit(44);}
 if (!(out = fopen(argv[1],"w")))
   {perror(argv[1]);
    exit(vaxc$errno);}
 codes[0] = ESC;
 codes[1] = FF;
 codes[2] = 0;
 fputs(codes,out);
 fclose(out);}