home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / RGETS.ARC / RGETS.C
Encoding:
C/C++ Source or Header  |  2019-04-13  |  2.0 KB  |  122 lines
  1. #INCLUDE <STDIO.H>
  2. /*
  3.  CHANNEL 15. POINTER ROUTINES.
  4.  RGETS GET A STRING FROM REL FILE.
  5. */
  6. #DEFINE PEEK(X)   *((CHAR *)X)
  7. #DEFINE POKE(X,Y) *((CHAR *)X)=Y
  8.  
  9. MAIN()/* DRIVER */
  10. █
  11. UNSIGNED I, J, FIELDS;
  12. INT ERR;
  13. INT DEV;
  14. CHAR BUFF[255];
  15. CHAR HI;
  16. CHAR LO;
  17. INT FILE=5;
  18.  
  19. DEV=OPEN(9,8,15,"U9");
  20. /*OPEN COMMAND CHANNEL*/
  21.  IF(DEV==╬╒╠╠)
  22.   ABORT();
  23.  
  24. PRINTF("┼NTER NAME OF RELATIVE FILE >");
  25. GETS(BUFF);
  26. PRINTF("┼NTER NUMBER OF FIELDS PER RECORD >");
  27. SCANF("%D",&FIELDS);
  28.  
  29. DEV=OPEN(FILE,8,5,BUFF); 
  30. /* OPEN REL FILE */
  31.  IF(DEV==╬╒╠╠)
  32.   ABORT();
  33.  
  34. FOR(;;)
  35.   █
  36.    PRINTF("╥ECORD ╬UMBER TO READ. 0=EXIT >");
  37.    SCANF("%D",&I);
  38.    IF(I==0)
  39.     BREAK;
  40.    
  41.    ERR=POINT(9,I,1);
  42.    
  43.    IF(ERR)
  44.      PUTS("┼╥╥╧╥ - RECORD OUTSIDE RANGE.");
  45.  
  46.    ELSE
  47.      FOR(J=1; J<=FIELDS; J++)
  48.       █
  49.        ERR=RGETS(BUFF,255,5);
  50.        IF(ERR▀▀FERROR())
  51.         BREAK;
  52.        PUTS(BUFF);
  53.       ▌       
  54.  
  55.     PUTS("─ISK ERROR.");
  56.     
  57.   ▌
  58.  
  59.  ABORT();
  60. ▌
  61.  
  62.  
  63.   
  64. INT RGETS(STR, MAX ,FILE)
  65. /*
  66.    ╟ET STRING FROM REL FILE. ╥EADS PAST
  67.    ┼╧╞ UNLIKE FGETS GETC FGETC.
  68. */
  69. CHAR *STR;    /*STRING TO FILL*/
  70. UNSIGNED MAX; /*MAXIMUM CHARACTERS*/
  71. UNSIGNED FILE;/*FILE NUMBER*/
  72. █
  73.  CHAR A, Y;     /*6510*/
  74.  CHAR X = FILE; /*REGISTERS*/
  75.  UNSIGNED COUNT;
  76.  
  77.  SYS(0XFFC6, &A, &X, &Y);/* CHKIN */
  78.  
  79.   IF((PEEK(783)&1)==1) /*KERNAL ERROR*/
  80.    RETURN(1);          /*RETURN ON ERROR*/
  81.  
  82.  FOR(COUNT=0; COUNT<MAX; COUNT++)
  83.    █
  84.    SYS(0XFFE4, &A, &X, &Y);/* GETIN */
  85.    IF(A == '\N' ▀▀ A == '\0')
  86.     BREAK;
  87.    STR[COUNT] = A;
  88.    ▌
  89.    
  90.   STR[COUNT]='\0';
  91.  
  92.   SYS(0XF333); /* CLRCHN */
  93.  
  94.  RETURN(0);
  95. ▌
  96.  
  97.  
  98. INT POINT(FILE,REC,BYTE)
  99. /* POINT TO RECORD WITHIN FILE */
  100. INT FILE; /*FILE NUMBER*/
  101. UNSIGNED REC;  /*RECORD NUMBER*/
  102. CHAR BYTE;/*BYTE NUMBER WITHIN RECORD*/
  103. █
  104.  STATIC CHAR POINTER[]=█'P',101,0,0,0,'\0'▐ER N¿HI,LO;
  105.  INT ERROR;
  106.  
  107.    HI=REC/256;
  108.    LO=REC-(HI*256);
  109.  
  110.    POINTER[2]=LO;
  111.    POINTER[3]=HI;      
  112.    POINTER[4]=BYTE;
  113.  
  114.    FPUTS(POINTER,FILE);/*POINT TWICE*/  
  115.    ERROR=FERROR(); /*GET STATUS EACH TIME*/
  116.    FPUTS(POINTER,FILE);/*1541 INSURANCE*/
  117.    ERROR=FERROR();
  118.  
  119.  RETURN(ERROR);  
  120. ▌
  121.  
  122.