home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / games / volume2 / dungeon / part07 / cinit.c < prev    next >
C/C++ Source or Header  |  1987-09-01  |  940b  |  66 lines
  1. #include <stdio.h>
  2.  
  3.  
  4. /*    read one integer from the open file */
  5. intrd_(valptr)
  6.  
  7. int *valptr;
  8. {
  9.     scanf("%d",valptr);
  10.     while((getchar() != '\n'));
  11.     return;
  12. }
  13.  
  14. /*    read an array from the open file */
  15. aryrd_(cntptr,aryptr)
  16.  
  17. int *cntptr,*aryptr[];
  18. {
  19.     int i;
  20.  
  21.     for(i = *cntptr; i > 0;--i,++aryptr)
  22.         scanf("%d",aryptr);
  23.     while((getchar() != '\n'));
  24.     return;
  25. }
  26.  
  27. /* get a logical value */
  28. logrd_(ptr)
  29. int *ptr;
  30. {
  31. static char byte;
  32.  
  33.     *ptr = 0;
  34.     while((byte = getchar()) != '\n'){
  35.         if ((byte == 'T') || (byte == 't'))
  36.             *ptr = 1;
  37.     }
  38.     return;
  39. }
  40.  
  41.  
  42. /* wait for end of init flag */
  43. initnd_()
  44. {
  45.     static int chr;
  46.  
  47.     while ((chr = getchar()) != '?'){    /* wait for end flag */
  48.         if (chr == 'R')        /* check for restore flag */
  49.             rstrgm_();    /* call restore routine  */
  50.     }
  51.     return;
  52. }
  53.  
  54. /*    write an array to the open pipe */
  55. arywt_(cntptr,aryptr)
  56.  
  57. int *cntptr,*aryptr[];
  58. {
  59.     static int i;
  60.  
  61.     for(i = *cntptr; i > 0;--i,++aryptr)
  62.         printf("%d\n",*aryptr);
  63.     return;
  64. }
  65.  
  66.