home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a014 / 1.ddi / CDBINC.EXE / KCCX.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-26  |  3.0 KB  |  112 lines
  1. #include <stdio.h>
  2. #include <dos.h>
  3. main(argc,argv)
  4. int argc;
  5. char *argv[];
  6. {
  7.    char meaning[20],pathname[50],flag;
  8.    FILE *fp,*fw;
  9.    if (strcmp(argv[2],"wy")!=0) return(0);
  10.    fw=fopen("kccx.txt","a");
  11.    fp=fopen("kccx.prg","w");
  12.  
  13. start:
  14.    meaning[0]='\0';
  15.    pathname[0]='\0';
  16.    printf("\033[1;33;44m")    ;
  17.  
  18.    clear_win(0,0,24,79,0x70);
  19.    clear_win(4,12,8,55,0)    ;
  20.    clear_win(3,10,7,53,0x10)    ;
  21.    color_puts("===== ╟δ ╩Σ ╚δ ╕╜ ╝╙ ─ú ┐Θ ╡─ ║¼ ╥Γ ├√ =====",0|226,4,10 )    ;
  22.    cursor(6,15);
  23.    scanf("%s",meaning);
  24.    clear_win(11,12,15,55,0)    ;
  25.    clear_win(10,10,14,53,0x10)    ;
  26.    color_puts("===== ╟δ ╩Σ ╚δ ╕╜ ╝╙ ─ú ┐Θ ╡─ ┬╖ ╛╢ ├√ =====",0|226,11,10 );
  27.    cursor(13,15);
  28.    scanf("%s",pathname);
  29.    cursor(17,20);
  30.    printf("╚╖╚╧╒²╚╖╖±?(Y/N)"); flag=getchb();
  31.    if (flag=='n'||flag=='N') goto start;
  32.    fprintf(fw,"#%s#,#%s#\n",meaning,pathname);
  33.    cursor(19,20);
  34.    printf("╩╟╖±╝╠╨°╕╜╝╙─ú┐Θ?(Y/N)"); flag=getchb();
  35.    if (flag=='y'||flag=='Y') goto start;
  36.    fclose(fw);
  37.  
  38.    system("copy c:\\cdbag4\\kccx.dbf *.* > oztom");
  39.    fprintf(fp,"set talk off\nset safe off\n");
  40.    fprintf(fp,"clear\nuse kccx exclusive\n");
  41.    fprintf(fp,"if eof()\nappe from kccx deli with #\nendif\n");
  42.    fprintf(fp,"count all to countc\n");
  43.    fprintf(fp,"do while .t.\nselc=-1\nclear\n");
  44.    fprintf(fp,"@ 3,20 say '╟δ ╩Σ ╚δ ─· ╦∙ ╨Φ ▓┘ ╫≈'\nrowc=5\ncolc=10\n");
  45.    fprintf(fp,"ctc=0\ngo top\ndo while .not.eof()\n");
  46.    fprintf(fp,"modc=mod(ctc,2)\ncolc=10+modc*30\n");
  47.    fprintf(fp,"@ rowc+ctc/2,colc say str(ctc+1,2)+'---'+meaning\nctc=ctc+1\nskip\n");
  48.    fprintf(fp,"enddo\n@ 20,20 say '╩Σ ╚δ ╩² ╫╓ ╝ⁿ(1---'+str(countc,2)+')' get selc\n");
  49.    fprintf(fp,"read\nif selc=0\nretu\nendif\nif selc<=countc\n");
  50.    fprintf(fp,"go selc\nprogam=pathname\n do &progam\n");
  51.    fprintf(fp,"use kccx exclusive\ngo top\nendif\nenddo\n");
  52.    fclose(fp);
  53. }
  54. cursor(int y, int x)
  55. {
  56.   _DH = (unsigned char)y    ;
  57.   _DL = (unsigned char)x    ;
  58.   _AH = (unsigned char)2    ;
  59.   _BH = (unsigned char)0    ;
  60.   geninterrupt(0x10)    ;
  61. }
  62.  
  63. color_puts(char *string, int  color, int row, int col)
  64. {
  65.   _SI = (unsigned int) string    ;
  66.   _DH = (unsigned char) row    ;
  67.   _DL = (unsigned char) col    ;
  68.   _CX = 1    ;
  69.   while(*(( char * ) _SI))
  70.    {
  71.      _AH = (unsigned char) 2    ;
  72.      _BH = (unsigned char) 0    ;
  73.      __int__(0x10)    ;
  74.      ++_DL    ;
  75.  
  76.      _AH = (unsigned char) 9    ;
  77.      _AL = *((char *)_SI)    ;
  78.      _SI++    ;
  79.      _BH = (unsigned char) 0    ;
  80.      _BL = (unsigned char) color    ;
  81.      __int__(0x10)    ;
  82.    }
  83. }
  84.  
  85.  
  86. clear_win(startrow,startcol,endrow,endcol,attribe)
  87. int startrow,startcol;
  88. int endrow,endcol;
  89. int attribe;
  90. {
  91.   _AH = (unsigned char) 6    ;
  92.   _AL = (unsigned char) 0    ;
  93.   _BH = (unsigned char) attribe    ;
  94.   _CH = (unsigned char) startrow    ;
  95.   _CL = (unsigned char) startcol    ;
  96.   _DH = (unsigned char) endrow    ;
  97.   _DL = (unsigned char) endcol    ;
  98.   geninterrupt(0x10)    ;
  99. }
  100.  
  101. getchb()
  102. {
  103.   union REGS regs;
  104.   int t,m;
  105.   regs.x.ax=0;
  106.   int86(0x16,®s,®s);
  107.   t=regs.x.ax & 0x00ff;
  108.   m=(regs.x.ax-t)/256;
  109.   if (t!=0) return(t);
  110.   return(m+200);
  111. }
  112.