home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / SUPRCSEQ.ARC / SUPRCSEQ.C
Encoding:
C/C++ Source or Header  |  2019-04-13  |  3.0 KB  |  169 lines
  1. /* SUPERC-SEQ.C
  2.  * PROGRAM TO CONVERT ╙UPER ├
  3.  * FILES TO/FROM ╙┼╤ FILES
  4.  * CONVERTING FILETYPES
  5.  * AND CONTROL CODES
  6.  *
  7.  * ┴DAM ╚ERST
  8.  * ╘╚┼ ╘╥┴╬╙┴├╘╧╥ ═AR 87:╓OL 7,#05
  9.  */
  10.  
  11. #DEFINE ╨╧╫┼╥ /* UNCOMMENT FOR ├ ╨OWER ├ */
  12. #IFDEF ╨╧╫┼╥
  13. #INCLUDE "STDIO.H"
  14. #DEFINE ├╠╥ '\223'
  15. #ELSE
  16. #INCLUDE "H:STDIO.H"
  17. #ENDIF
  18.  
  19. CHAR INNAME[25];
  20. CHAR OUTNAME[25];
  21.  
  22. #IFDEF ╨╧╫┼╥
  23. ╞╔╠┼ INCHAN;
  24. ╞╔╠┼ OUTCHAN;
  25. #ELSE
  26. FILE INCHAN;
  27. FILE OUTCHAN;
  28. #ENDIF
  29.  
  30. MAIN()
  31. █
  32.  INT MENU();
  33.  
  34.  INT CHOICE;
  35.  INT STATUS = 0;
  36.  CHAR INBUFF[255];
  37.  CHAR OUTBUFF[255];
  38.  
  39.  WHILE((CHOICE = MENU()) != '0')
  40.  █
  41.   CHOICE = (CHOICE == '1') ? 1 : 2;
  42.   PUTCHAR(├╠╥);
  43. #IFDEF ╨╧╫┼╥
  44.   GETCHAR();
  45. #ENDIF
  46.   NAMEFILE("╙OURCE ",INNAME);
  47.   NAMEFILE("─ESTINATION ",OUTNAME);
  48.   MODNAMES(CHOICE);
  49. #IFDEF ╨╧╫┼╥
  50.   INCHAN = FOPEN(INNAME,"R");
  51.   OUTCHAN = FOPEN(OUTNAME,"W");
  52. #ELSE
  53.   INCHAN = OPEN(8,2,INNAME);
  54.   OUTCHAN = OPEN(8,3,OUTNAME);
  55. #ENDIF
  56. STATUS = 0;
  57.   WHILE(!STATUS) /* READ A LINE AND CONVERT IT */
  58.   █
  59.    FGETS(INBUFF,254,INCHAN);
  60. #IFDEF ╨╧╫┼╥
  61.    STATUS = FEOF(INCHAN);
  62. #ELSE
  63.    STATUS = ┼╧╞;
  64. #ENDIF
  65.    CONVERT(CHOICE,INBUFF,OUTBUFF);
  66.    FPUTS(OUTBUFF,OUTCHAN);
  67.    PRINTF("\N%S",OUTBUFF);
  68.   ▌
  69.   CLOSE(INCHAN);
  70.   CLOSE(OUTCHAN);
  71.  ▌
  72. ▌
  73.  
  74. MODNAMES(CHOICE)  /* MODIFY FILENAME FOR */
  75. INT CHOICE;       /* READ/WRITE USR/SEQ */
  76. █
  77.  SWITCH(CHOICE)
  78.  █
  79.   CASE 1:
  80.    STRCAT(INNAME,",U,R");
  81.    STRCAT(OUTNAME,",S,W");
  82.    BREAK;
  83.   CASE 2:
  84.    STRCAT(INNAME,",S,R");
  85.    STRCAT(OUTNAME,",U,W");
  86.    BREAK;
  87.  ▌
  88. ▌
  89.  
  90. NAMEFILE(FILETYPE,NAME)  /* INPUT FILENAME */
  91. CHAR *FILETYPE;
  92. CHAR *NAME;    /* PASS POINTER TO FILENAME */
  93. █
  94.  PRINTF("\N%SFILE NAME: ",FILETYPE);
  95.  GETS(NAME,16);
  96.  /* ╙UPER ├ GETS() FIX */
  97.  IF(*(NAME + (STRLEN(NAME) - 1)) == '\N')
  98.   *(NAME + (STRLEN(NAME) - 1)) = '\0';
  99. ▌
  100.  
  101. MENU()
  102. █
  103.  INT CHOICE;
  104.  DO
  105.  █
  106.   PRINTF("%C\N",├╠╥);
  107.   PRINTF(" 1. ╙UPER ├ TO ╙EQUENTIAL\N");
  108.   PRINTF(" 2. ╙EQUENTIAL TO ╙UPER ├\N\N") P╔╠|0. ┼╪╔╘ ");
  109.   CHOICE = GETCHAR();
  110.  ▌ WHILE((CHOICE != '0') && (CHOICE != '1') && (CHOICE != '2'));
  111.  RETURN CHOICE;
  112. ▌
  113.  
  114. CONVERT(CHOICE,INBUFF,OUTBUFF)
  115. INT CHOICE;
  116. CHAR INBUFF[];
  117. CHAR OUTBUFF[];
  118. █
  119.  STATIC INT LINENUM = 0;
  120.  INT INNDEX = 0;
  121.  INT OUTNDEX = 0;
  122.  
  123.  IF(LINENUM == 0)
  124.   SWITCH(CHOICE)
  125.   █
  126.    CASE 1:
  127.     INNDEX += 3;
  128.     LINENUM = 1;
  129.     COPYBUFF(INBUFF,OUTBUFF,INNDEX,OUTNDEX);
  130.     BREAK;
  131.    CASE 2:
  132.     OUTBUFF[0] = 133;
  133.     OUTBUFF[1] = 129;
  134.     OUTBUFF[2] = 5;
  135.     OUTNDEX += 3;
  136.     LINENUM = 1;
  137.     COPYBUFF(INBUFF,OUTBUFF,INNDEX,OUTNDEX);
  138.     BREAK;
  139.   ▌
  140.  ELSE
  141.   SWITCH(CHOICE)
  142.   █
  143.    CASE 1:
  144.     INNDEX++;
  145.     COPYBUFF(INBUFF,OUTBUFF,INNDEX,OUTNDEX);
  146.     BREAK;
  147.    CASE 2:
  148.     OUTBUFF[0] = 5;
  149.     OUTNDEX++;
  150.     COPYBUFF(INBUFF,OUTBUFF,INNDEX,OUTNDEX);
  151.     BREAK;
  152.   ▌
  153. ▌
  154.  
  155. COPYBUFF(INBUFF,OUTBUFF,INNDEX,OUTNDEX)
  156. CHAR INBUFF[];
  157. CHAR OUTBUFF[];
  158. INT INNDEX;
  159. INT OUTNDEX;
  160. █
  161.  DO
  162.  █
  163.   OUTBUFF[OUTNDEX] = INBUFF[INNDEX];
  164.   INNDEX++;
  165.   OUTNDEX++;
  166.  ▌ WHILE(INNDEX <= STRLEN(INBUFF));
  167. ▌
  168.  
  169.