/* acf4:comp.sys.dec / lane@elwood.enet.dec.com /  2:06 pm  Nov 16, 1990 */
#include iodef
#include stdio
#include ssdef
#include descrip

main()
  {
  char buffer[80],*p1 = &buffer;
  int status_block[2],status,channel,p2 = 1;
  $DESCRIPTOR (terminal,"SYS$COMMAND");

  status = sys$assign (&terminal,&channel,0,0);
  if (status != SS$_NORMAL)
    exit (status);

  printf("\nInput: ");
  status = sys$qiow (1,channel,IO$_READVBLK,&status_block,0,0,p1,p2,0,0,0,0);
  if (status != SS$_NORMAL)
    exit (status);

  buffer[1] = '\0';
  printf ("\nChar is %s\n",p1);
  exit (1);
  }
/* ---------- */