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