1 #include <stdio.h>
2
3
4 /* read one integer from the open file */
intrd_(valptr)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 */
aryrd_(cntptr,aryptr)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 */
logrd_(ptr)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 */
initnd_()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 */
arywt_(cntptr,aryptr)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