home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-2.LHA / modula / dice / dice.lha / dynamic / dynamic.lha / objsrc / dostest.c < prev    next >
Encoding:
Text File  |  1991-04-29  |  316 b   |  20 lines
  1.  
  2. /*
  3.  *  DOSTEST.C    HyperFunction
  4.  */
  5.  
  6. void
  7. hyper_DosTest()
  8. {
  9.     char buf[64];
  10.     int n;
  11.  
  12.     Write(Output(), "Give me a line! ", 16);
  13.     n = Read(Input(), buf, sizeof(buf)-1);
  14.     if (n > 0)
  15.     buf[n] = 0;
  16.     Write(Output(), "you said: ", 10);
  17.     Write(Output(), buf, strlen(buf));
  18.     Write(Output(), "\n", 1);
  19. }
  20.