home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / CASSM.SFX / openfile.c < prev   
Encoding:
C/C++ Source or Header  |  1992-11-27  |  787 b   |  39 lines
  1. /* HOME-BREW FILE EXTENSIONS         */
  2. /* AUTHOR:   ═ARK ╥. ╥INFRET         */
  3. /* DATE:     04/19/84                */
  4. /* FILENAME: OPENFILE.C              */
  5.  
  6. #INCLUDE <STDIO.H>
  7. #INCLUDE <STRINGS.H>
  8.  
  9. OPENFILE(NAME,HOW)
  10. CHAR *NAME,HOW;
  11.  
  12. █
  13.   CHAR *XNAME;
  14.   CHAR C;
  15.   UNSIGNED DVC;
  16.  
  17.   XNAME = NAME; /* COPY POINTER */
  18.   DVC = 8;  /* DEFAULT IS DEVICE 8 */
  19.   IF ((C=*XNAME) == '#') █
  20.     XNAME++;
  21.     IF (((C=*XNAME) == '8') ▀▀ ((C=*XNAME) == '9')) █
  22.       XNAME++;
  23.       DVC = (8 + (C - '8'));
  24.       IF (*XNAME==':') XNAME++;
  25.       ELSE █
  26.         PRINTF("MISSING ':' IN DEVICE SPECIFICATION\N%S\N",XNAME);
  27.         RETURN ╬╒╠╠;
  28.         ▌
  29.       ▌
  30.     ELSE █
  31.       PRINTF("ILLEGAL DEVICE NUMBER:\N%S\N",XNAME);
  32.       RETURN ╬╒╠╠;
  33.       ▌
  34.     ▌
  35.  
  36.   DEVICE(DVC);
  37.   RETURN (FOPEN(XNAME,HOW));
  38. ▌
  39.