fpin             3034 src/simh/scp.c FILE *fpin;
fpin             3076 src/simh/scp.c if ((fpin = fopen (do_arg[0], "r")) == NULL) {          /* file failed to open? */
fpin             3078 src/simh/scp.c     if ((fpin = fopen (cbuf, "r")) == NULL) {           /* failed a second time? */
fpin             3099 src/simh/scp.c                     fclose(fpin);
fpin             3112 src/simh/scp.c     sim_gotofile = fpin;
fpin             3128 src/simh/scp.c         sim_do_ocptr[sim_do_depth] = cptr = read_line (cbuf, sizeof(cbuf), fpin);/* get cmd line */
fpin             3147 src/simh/scp.c     sim_gotofile = fpin;
fpin             3217 src/simh/scp.c if (fpin) //-V547
fpin             3218 src/simh/scp.c     fclose (fpin);                                      /* close file */