home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a014 / 1.ddi / CDBINC.EXE / SJCD.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-13  |  1.9 KB  |  91 lines
  1. #include<dos.h>
  2. #include<conio.h>
  3. #include<stdio.h>
  4. #include<string.h>
  5. FILE *fp;
  6.  
  7. p(char *s)
  8.  {
  9.   fprintf(fp,s);
  10.   fprintf(fp,"\n");
  11.  }
  12.  
  13.  
  14. main()
  15.  {
  16.    genmain();
  17.    dbf_text();
  18.    text_dbf();
  19.    lookdir();
  20.  }
  21.  
  22.  genmain()
  23.  {
  24.   fp=fopen("sjcd.prg","w");
  25.   p("store 0 to selev");
  26.   p("set color to gr+/rb");
  27.   p("do while .T.");
  28.   p("clear");
  29.   p("@1,21 say \"⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖\"");
  30.   p("@2,21 say \"⌐º         ╟δ╤í╘±╥╘╧┬╣ª─▄           ⌐º\"");
  31.   p("@3,21 say \"⌐º                                  ⌐º\"");
  32.   p("@4,21 say \"⌐º    1. ╜½┐Γ╬─╝■╫¬╗╗╬¬╬─▒╛╬─╝■     ⌐º\"");
  33.   p("@5,21 say \"⌐º    2. ╜½╬─▒╛╬─╝■╫¬╗╗╬¬┐Γ╬─╝■     ⌐º\"");
  34.   p("@6,21 say \"⌐º    3. ▓Θ┐┤─┐┬╝╬─╝■               ⌐º\"");
  35.   p("@7,21 say \"⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐┐\"");
  36.   p("@8,21 say \"  íí╩Σ╚δ╥╗╕÷╩²╫╓ú¿1-2ú⌐╗≥░┤ 0 ╖╡╗╪íí\"");
  37.   p("wait \"                                       \" to selev");
  38.   p("if selev=\"0\"");
  39.   p("    return");
  40.   p("else");
  41.   p("  if selev=\"1\"");
  42.   p("    do dbftext");
  43.   p("  else");
  44.   p("    if selev=\"2\"");
  45.   p("       do textdbf");
  46.   p("      else");
  47.   p("       if selev=\"3\"");
  48.   p("         do lookdir");
  49.   p("       endif");
  50.   p("    endif");
  51.   p("  endif");
  52.   p("endif");
  53.   p("enddo");
  54.   fclose(fp);
  55. }
  56.  
  57. dbf_text()
  58. {
  59. fp=fopen("dbftext.prg","w");
  60. p("accept \"  ╟δ╩Σ╚δ╩²╛▌┐Γ├√: \" to src");
  61. p("accept \"╟δ╩Σ╚δ╬─▒╛╬─╝■├√: \" to dst");
  62. p("if len(src)>0 .AND. len(dst)>0 ");
  63. p("use &src");
  64. p("copy to &dst SDF");
  65. p("endif");
  66. p("return");
  67. fclose(fp);
  68. }
  69.  
  70. text_dbf()
  71. {
  72. fp=fopen("textdbf.prg","w");
  73. p("accept \"╟δ╩Σ╚δ╬─▒╛╬─╝■├√ \" to src");
  74. p("accept \"  ╟δ╩Σ╚δ╩²╛▌┐Γ├√ \" to dst");
  75. p("if len(src)>0 .AND. len(dst)>0 ");
  76. p("use &dst");
  77. p("append from &src SDF");
  78. p("endif");
  79. p("return");
  80. fclose(fp);
  81. }
  82.  
  83. lookdir()
  84.  {
  85.   fp=fopen("lookdir.prg","w");
  86.   p("accept \"╟δ╩Σ╚δ─┐┬╝╗≥╬─╝■├√: \" to pathfile");
  87.   p("!dir &pathfile /p");
  88.   p("wait");
  89.   p("return");
  90.   fclose(fp);
  91.  }