% VAX-11 Librarian V04-00@N`ct7R   4($INPUT SYSTEMVT52 L#include iodef#include descrip#include ssdefinkey(esc,p1,buf)char *buf,esc,p1; {i int vtchan, retc; static char dn[]="TT:"; static $DESCRIPTOR(devnam,dn);r& retc=SYS$ASSIGN(&devnam,&vtchan,0,0);$ if (retc != SS$_NORMAL) exit(retc);H retc=SYS$QIOW(0,vtchan,IO$_READVBLK|IO$M_PURGE|IO$M_NOECHO|IO$M_NOFILTR ,0,0,0,buf,1,0,0,0,0);i$ if (retc != SS$_NORMAL) exit(retc); if (*buf == esc){ {1 retc=SYS$QIOW(0,vtchan,IO$_READVBLK|IO$M_NOECHO1 ,0,0,0,buf+1,1,0,0,0,0);% if (retc != SS$_NORMAL) exit(retc);) if (*(buf+1) == p1)= {I2 retc=SYS$QIOW(0,vtchan,IO$_READVBLK|IO$M_NOECHO ,0,0,0,buf+2,1,0,0,0,0);t& if (retc != SS$_NORMAL) exit(retc); }  else *(buf+2)=0; } else) *(buf+1)=0;= *(buf+3)=0; retc=SYS$DASSGN(vtchan); $ if (retc != SS$_NORMAL) exit(retc); return buf;}cmdline(buf,prompt)char buf[],prompt[]; { static char bufs[80],proms[80];" static $DESCRIPTOR(buf_des,bufs);% static $DESCRIPTOR(us_prompt,pr}prompt(text,buf)char *text,*buf; { fputs(text,stdout); gets(buf); }ww`z׻ MURAY_L INPUTA6 MURAY_L INPUT@D  MURAY_L INPUTf MURAY_L SYSTEM C MURAY_L SYSTEMR MURAY_L SYSTEME MURAY_L SYSTEM  MURAY_L VT52@t7 MURAY_L VT52`X6prompt(text,buf) { char *buf,*text; fputs(text,stdout); gets(buf); }wwf#include iodef#include descrip#include ssdefinkey(esc,p1,buf)char *buf,esc,p1; { int vtchan, retc; static char dn[]="TT:"; static $DESCRIPTOR(devnam,dn);& retc=SYS$ASSIGN(&devnam,&vtchan,0,0);$ if (retc != SS$_NORMAL) exit(retc);H retc=SYS$QIOW(0,vtchan,IO$_READVBLK|IO$M_PURGE|IO$M_NOECHO|IO$M_NOFILTR ,0,0,0,buf,1,0,0,0,0);$ if (retc != SS$_NORMAL) exit(retc); if (*buf == esc) {% retc=SYS$QIOW(0,vtchan,IO$_READVBLK ,0,0,0,buf+1,1,0,0,0,0);% if (retc != SS$_NORMAL) exit(retc); if (*(buf+1) == p1) {& retc=SYS$QIOW(0,vtchan,IO$_READVBLK ,0,0,0,buf+2,1,0,0,0,0);& if (retc != SS$_NORMAL) exit(retc); } else *(buf+2)=0; } else *(buf+1)=0; *(buf+3)=0; retc=SYS$DASSGN(vtchan);$ if (retc != SS$_NORMAL) exit(retc); return buf;}ww`#include iodef#include descrip#include ssdefinkey(esc,p1,buf)char *buf,esc,p1; { int vtchan, retc; static char dn[]="TT:"; static $DESCRIPTOR(devnam,dn);& retc=SYS$ASSIGN(&devnam,&vtchan,0,0);$ if (retc != SS$_NORMAL) exit(retc);H retc=SYS$QIOW(0,vtchan,IO$_READVBLK|IO$M_PURGE|IO$M_NOECHO|IO$M_NOFILTR ,0,0,0,buf,1,0,0,0,0);$ if (retc != SS$_NORMAL) exit(retc); if (*buf == esc) {1 retc=SYS$QIOW(0,vtchan,IO$_READVBLK|IO$M_NOECHO ,0,0,0,buf+1,1,0,0,0,0);% if (retc != SS$_NORMAL) exit(retc); if (*(buf+1) == p1) {2 retc=SYS$QIOW(0,vtchan,IO$_READVBLK|IO$M_NOECHO ,0,0,0,buf+2,1,0,0,0,0);& if (retc != SS$_NORMAL) exit(retc); } else *(buf+2)=0; } else *(buf+1)=0; *(buf+3)=0; retc=SYS$DASSGN(vtchan);$ if (retc != SS$_NORMAL) exit(retc); return buf;}ww oms); int err,glen; strcpy(proms,prompt);E if((err=LIB$GET_FOREIGN(&buf_des,&us_prompt,&glen,0)) != SS$_NORMAL) exit(err); strcpy(buf,bufs); }wwX (#define outrange(x,max) (x<0) || (x>max)#define esc 27 vt52_mode() {# putchar(esc); /* Set VT52 Mode */ puts("[?2l"); }setcur(line,col) {/ if ((outrange(line,24)) || (outrange(col,79))) return; putchar(esc); putchar('Y'); putchar(line+' '); putchar(col+' '); } clr2end() {, putchar(esc); /* Clear to End of Screen */ fputs("J",stdout); } cur_home() {' putchar(esc); /* Set Cursor to 0,0 */ fputs("H",stdout); }ww"`ct7(#define outrange(x,max) (x<0) || (x>max)#define esc 27 vt52_mode() {# putchar(esc); /* Set VT52 Mode */ puts("[?2l"); } novt52_mode() {% putchar(esc); /* Enter ANSI Mode */ putchar('<'); }setcur(line,col) {/ if ((outrange(line,24)) || (outrange(col,79))) return; putchar(esc); putchar('Y'); putchar(line+' '); putchar(col+' '); } clr2end() {, putchar(esc); /* Clear to End of Screen */ fputs("J",stdout); } cur_home() {' putchar(esc); /* Set Cursor to 0,0 */ fputs("H",stdout); }ww