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