Liren Large Software Subsidy 5/05.iso/a/a014/1.ddi/CDBINC.EXE/SUB3.C

C/C++ Source or Header | 1991-09-18 | 4.1 KB | 155 lines

#include <stdio.h>
#define pr(x) fprintf(fp,x)
main(argc,argv)
int argc;
char *argv[];
{ FILE *fp;
  if(argc<2)
    return;
  fp=fopen("app.prg","w");
  pr("set talk off\n");
  pr("set safety off\n");
  pr("do while .T.\n");
  pr("name='  '\nflag=0\ncopath=' '\n");
  pr("clear\nset color to W+/B\n");
  pr("@0,0 say '┤╙╞Σ╦ⁿ┐Γ╠⌡╝■╠φ╝╙'\n");
  pr("@2,26 say '╟δ╤í╘±╨Φ▓┘╫≈─┐▒Ω┐Γ'\n");
  pr("@3,26 say '~~~~~~~~~~~~~~~~~~'\n");
  pr("do dbfmenu with name, flag, copath\n");
  pr("if name='0'\n");
  pr("return\n");
  pr("endif\n");
  pr("kk=space(20)\n");
  pr("clear\nset color to W+/B\n");
  pr("@12,20 say ' ╟δ╩Σ╚δ╘┤▓┘╫≈┐Γ┬╖╛╢├√'\n");
  pr("@13,20 say '╗≥░┤╗╪│╡╝ⁿ╜ß╩°' get kk pict '!!!!!!!!!!!!!!!!!!!!'\n");
  pr("set color to W+/B\nread\n");
  pr("kk=trim(kk)\n");
  pr("if len(kk)=0\n");
  pr("exit\n");
  pr("endif\n");
  pr("if at('DBF',kk)=0\n");
  pr("kk=trim(kk)+'.DBF'\n");
  pr("endif\n");
  pr("if .not. file(kk)\n");
  pr("@17,20 say '┤╦╬─╝■▓╗┤µ╘┌,░┤╚╬╥Γ╝ⁿ╜ß╩°'\n");
  pr("i=0\n");
  pr("do while i=0\n");
  pr("i=inkey()\n");
  pr("enddo\n");
  pr("exit\n");
  pr("endif\n");
  pr("c=' '\n");
  pr("@23,0 say '─·╥¬╢╘╘┤▓┘╫≈┐Γ╠ß╠⌡╝■┬≡? (Y/N) ' get c pict '!'\n");
  pr("read\n");
  pr("if c='N'\n");
  pr("select 1\n");
  pr("if flag=0\n")    ;
  fprintf(fp,"name='%s'+'\\'+name\n",argv[1]);
  pr("use &name exclusive\n");
  pr("else\n")    ;
  pr("name=copath+name\n")    ;
  pr("use &name\n")    ;
  pr("endif\n")    ;
  pr("append from &kk\n");
  pr("use\n");
  pr("@23,0 clear\n");
  pr("loop\n");
  pr("endif\n");
  pr("clear\nset color to W+/B\n");
  pr("@0,0 say '╠⌡ ╝■ ╫╓ ╢╬ ╚τ ╧┬: ' \n");
  pr("set color to W+/B\n");
  pr("select 2\n");
  pr("use &kk exclusive\n");
  pr("copy to dbfstru stru exte\n");
  pr("cs=.T.\n");
  pr("cb=0\ncondition=''\n");
  fprintf(fp,"sele 1\nss='s'+name\n")    ;
  fprintf(fp,"if flag=0\nuse %s\\&name exclusive\ncopy to &ss stru exte\n",argv[1]);
  pr("else\nname=copath+name\nuse &name\nendif\n")    ;
  pr("sele 3\nuse &ss\n");
  pr("select 10\n");
  pr("use dbfstru exclusive\n");
  pr("go top\n");
  pr("do while cs\ngo top\n@3,0 clea to 24,79\n");
  pr("c=0\nrow=5\ncol=5\n");
  pr("do while .not. eof()\n");
  pr("fn=FIELD_NAME\n");
  pr("select 3\n");
  pr("locate for FIELD_NAME=fn\n");
  pr("if .NOT. eof()\n");
  pr("c=c+1\n");
  pr("@row,col say str(c,2,0)\n");
  pr("@row,col+2 say '.'\n");
  pr("@row,col+3 say fn\n");
  pr("if col=65\n");
  pr("col=5\n");
  pr("row=row+1\n");
  pr("else\n");
  pr("col=col+20\n");
  pr("endif\n");
  pr("endif\n");
  pr("select 10\n");
  pr("skip\n");
  pr("enddo\n");
  pr("ff='  '\n");
  pr("rr=.T.\n");
  pr("do while rr\nset color to W+/B\n");
  pr("@23,0 say '╟δ╩Σ╚δ╠⌡╝■╫╓╢╬║┼' get ff\n");
  pr("read\nset color to W+/B\n");
  pr("ff=val(ff)\n");
  pr("if ff<c .OR. ff=c\n");
  pr("rr=.F.\n");
  pr("else\n");
  pr("ff='  '\n");
  pr("endif\n");
  pr("enddo\n");
  pr("aa=1\n");
  pr("select 10\n");
  pr("go top\n");
  pr("do while aa<=ff  .AND. .NOT. eof()\n");
  pr("if eof()\n");
  pr("@24,40 say '╩Σ╚δ┤φ!!'\n");
  pr("exit\n");
  pr("endif\n");
  pr("fn=FIELD_NAME\n");
  pr("select 3\n");
  pr("go top\n");
  pr("locate for FIELD_NAME=fn\n");
  pr("if .NOT. eof()\n");
  pr("aa=aa+1\n");
  pr("endif\n");
  pr("select 10\n");
  pr("skip\n");
  pr("enddo\n");
  pr("ff=recno()-1\n");
  pr("do rcon with ff,cb,condition,cs\n");
  pr("enddo\n");
  pr("select 2\n");
  pr("use\n");
  pr("select 3\n");
  pr("use\n");
  fprintf(fp,"select 10\nuse %sndx exclusive\n",argv[1]);
  pr("select 1\n");
  pr("if flag=0\n")    ;
  fprintf(fp,"dname=name\nname='%s'+'\\'+name\n",argv[1]);
  fprintf(fp,"use &name exclusive\n");
  fprintf(fp,"else\ndname=name\nname=copath+name\n")    ;
  pr("use &name\nendif\n")    ;
  pr("append from &kk for &condition\n");
  fprintf(fp,"sele 10\ngo top\n");
  fprintf(fp,"loca for trim(┐Γ├√)=dname\n");
  fprintf(fp,"do while .not.eof()\nnf=trim(╦≈╥²╬─╝■)\n");
  fprintf(fp,"select 1\n");
  fprintf(fp,"use &name inde %s&nf exclusive\nreinde\nuse\nsele 10\ncontinue\nenddo\n",argv[1]);
  pr("use\n");
  pr("enddo\n");
  pr("return\n");
  fclose(fp);
}