home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a055 / 2.ddi / ANY_COND.PRG < prev    next >
Encoding:
Text File  |  1994-05-10  |  7.1 KB  |  193 lines
  1. ********************************************************************************
  2. ▒▒╛⌐╟σ╗¬╒²╖╜╚φ╝■┐¬╖ó╣½╦╛▓·╞╖▒¿╝█╡Ñ(1994.3)
  3. ╧·╩█╡╪╓╖: 100080 ▒▒╛⌐╓╨╣╪┤σ╗▌╗¬┤≤╧├507╩╥.
  4. ╡τ╗░:A(╓▒▓ª)2557034  B(╖╓╗·)2545522-507 ┴¬╧╡╚╦:└⌡╛ⁿ
  5. ********************************************************************************
  6.  
  7.     ▓·╞╖├√│╞                  ┼·╖ó       ┴π╩█      ╚φ╝■└α╨═
  8. --------------------------------------------------------------------------------
  9. 1. DBSTAR 2.0 ╗∙┤í░µ(╡Ñ╗·)╩²╛▌┐Γ╫╘╢»╔·│╔╚φ╝■      600.00     680.00     ╩²╛▌┐Γ
  10. 2. DBSTAR 2.0 ▒Ω╫╝░µ(═°┬τ)╩²╛▌┐Γ╫╘╢»╔·│╔╚φ╝■     1680.00    1880.00    ╩²╛▌┐Γ
  11. 3. DBSTAR 2.0 ╫¿╥╡░µ(Foxpro)╩²╛▌┐Γ╫╘╢»╔·│╔╚φ╝■   2480.00    2880.00    ╩²╛▌┐Γ
  12. 4. DBSTAR 2.0 for Windows ╩²╛▌┐Γ╫╘╢»╔·│╔╚φ╝■     4200.00    4800.00    ╩²╛▌┐Γ
  13. 5. FoxGraph for Windows ╓╨╬─░µ ╩²╛▌┐Γ═╝╨╬╚φ╝■      880.00     980.00    ╩²╛▌┐Γ
  14. 6. Foxpro 2.5 ║║╫╓╟²╢»╜╙┐┌                 1000.00    1200.00    ╩²╛▌┐Γ
  15.  
  16. 7. ╓╒╜ß╒▀╝╙├▄╚φ╝■ Terminator 2.0 ▒Ω╫╝░µ          1280.00    1500.00    ╣ñ╛▀
  17. 8. ╓╒╜ß╒▀╝╙├▄╚φ╝■ Terminator 2.0 ╫¿╥╡░µ          5000.00    6000.00    ╣ñ╛▀
  18.  
  19. 9. ╣·╩╦═°┬τ╓╨╬─╧╡═│(JQK╔²╝╢░µ)                   680.00     800.00    ╓╨╬─
  20. 10. ╟╢╚δ╩╜╓╨╬─╧╡═│PCE V100 for TC/BC++           2480.00    2800.00    ╓╨╬─
  21. 11. ╟╢╚δ╩╜╓╨╬─╧╡═│PCE V100 for MS C/C++,PASCAL   2480.00    2800.00    ╓╨╬─
  22. 12. ╟╢╚δ╩╜╓╨╬─╧╡═│PCE V100 for ASM               2480.00    2800.00    ╓╨╬─
  23. 13. Easyshell 1.0 ╝╥╙├╡τ─╘╓╨╬─╜τ├µ                100.00     150.00    ╓╨╬─
  24. 14. CSDK╓╨╬─═╝╨╬╜τ├µ┐¬╖ó║»╩²┐Γ(╚╬╥Γ║║╫╓╧╡═│)      480.00     600.00    ╓╨╬─
  25. 15. ╨┬╞┤╥⌠┐∞╦┘╩Σ╚δ╖¿(╩╩╙├╙┌╕≈└α║║╫╓╧╡═│)          180.00     200.00     ╓╨╬─
  26.  
  27. 16. AutoCAD 12 ╚½║║╗»▓╦╡Ñ╝░╩╕┴┐║║╫╓▒Ω╫ó╚φ╝■       720.00     800.00    CAD└α
  28. 17. │¼╝╢╩╥─┌╫░Φ½CAD╧╡═│                         28000.00   30000.00    CAD└α
  29. [shared-]
  30.     version=2
  31. SELE 1
  32. USE _DBFPARA EXCL
  33. GO TOP
  34. IF EOF()
  35.    SET COLOR TO W+/W
  36.    @ 1, 0 CLEAR TO 24, 79
  37.    SET COLOR TO N/N
  38.    @  9,25 CLEAR TO 11,61
  39.    SET COLOR TO W+/B
  40.    @  8,23 CLEAR TO 10,59
  41.    @  9,25 SAY '▒╛╧╡═││⌡┤╬╘╦╨╨╜½╫≈╘ñ┤ª└φ,╟δ╔╘║≥...'
  42.    USE
  43.    SET EXCL ON
  44.    USE PWDDATA EXCL
  45.    IF FILE('PWDDATA.TXT')
  46.       APPE FROM PWDDATA DELI WITH #
  47.    ENDIF
  48.    USE _DBFPARA EXCL
  49.    IF FILE('_DBFPARA.TXT')
  50.       APPE FROM _DBFPARA DELI WITH #
  51.    ENDIF
  52.    GO TOP
  53.    DO WHILE .NOT.EOF()
  54.       FILENAME=DBF_NAME
  55.       SHARE_PATH=PATH_SHARE
  56.       SHARE_FLAG=FLAG_SHARE
  57.       IF SHARE_FLAG='Y'
  58.          DBFPATH=TRIM(SHARE_PATH)+'\'
  59.          DBFNAME=TRIM(SHARE_PATH)+'\'+TRIM(FILENAME)
  60.          DBFIDX=TRIM(SHARE_PATH)+'\_IDXDBF'
  61.       ELSE
  62.          DBFPATH=''
  63.          DBFNAME=TRIM(FILENAME)
  64.          DBFIDX='_IDXDBF'
  65.       ENDIF
  66.       IF FILE(TRIM(DBFNAME)+'.DBF')
  67.          SELE 3
  68.          USE &DBFNAME EXCL
  69.          COPY TO OZTOM DELI WITH #
  70.          USE
  71.          RUN DEL &DBFNAME..DBF
  72.          RUN DEL &DBFNAME..CDX > NUL
  73.       ENDIF
  74.       SELE -2
  75.       USE DBF_STRU EXCL
  76.       ZAP
  77.       IF FILE(TRIM(FILENAME)+'.TXT')
  78.          APPE FROM &FILENAME DELI WITH #
  79.          CREAT &DBFNAME FROM DBF_STRU
  80.          IF FILE('OZTOM.TXT')
  81.             USE &DBFNAME EXCL
  82.             APPE FROM OZTOM DELI WITH #
  83.             RUN DEL OZTOM.TXT
  84.          ENDIF
  85.          USE &DBFNAME EXCL
  86.          SELE -1
  87.          IDXPATH=DBFPATH+'_IDXDBF.DBF'
  88.          IDXTXT =DBFPATH+'_DBFIDX.TXT'
  89.          IF .NOT.FILE(IDXPATH)
  90.             RUN COPY _IDXDBF.DBF &IDXPATH > OZTOM
  91.          ENDIF
  92.          USE &IDXPATH EXCL
  93.          ZAP
  94.          IF FILE(IDXTXT)
  95.             APPE FROM &IDXTXT DELI WITH #
  96.          ENDIF
  97.          GO TOP
  98.          LOCA FOR TRIM(DBF_NAME)=TRIM(FILENAME)
  99.          DO WHILE .NOT.EOF()
  100.             IDX_EXPR=TRIM(EXPR_IDX)
  101.             IDX_NAME=TRIM(FNAME_IDX)
  102.             IDXTXT =DBFPATH+IDX_NAME
  103.             SELE 2
  104.             INDE ON &IDX_EXPR TAG &IDXTXT
  105.             SELE 3
  106.             CONTINUE
  107.          ENDDO
  108.          USE
  109.          SELE 2
  110.          USE
  111.       ENDIF
  112.       SELE 1
  113.       SKIP
  114.    ENDDO
  115.    USE
  116. ENDIF
  117. CLOSE ALL
  118. SET EXCL OFF
  119. RETURN
  120. PARA ERR_NUM
  121. DO CASE
  122.    CASE ERR_NUM=3
  123.         SET COLOR TO W+/R
  124.         @ 24, 0 SAY SPACE(79)
  125.         @ 24, 0 SAY '    ╩²╛▌┐Γ╒²▒╗╞Σ╦ⁿ╙├╗º╩╣╙├,┤╦┤╬▓┘╫≈╩º░▄... '
  126.         ?? CHR(7)
  127.         TEMP_CTC=1500
  128.         DO WHILE TEMP_CTC>0
  129.            TEMP_CTC=TEMP_CTC-1
  130.         ENDDO
  131.         CLOSE ALL
  132.         RETURN MASTER
  133.    CASE ERR_NUM=108
  134.         SET COLOR TO W+/R
  135.         @ 24, 0 SAY SPACE(79)
  136.         @ 24, 0 SAY '    ╩²╛▌┐Γ╒²▒╗╞Σ╦ⁿ╙├╗º╩╣╙├,┤╦┤╬▓┘╫≈╩º░▄... '
  137.         ?? CHR(7)
  138.         TEMP_CTC=1500
  139.         DO WHILE TEMP_CTC>0
  140.            TEMP_CTC=TEMP_CTC-1
  141.         ENDDO
  142.         CLOSE ALL
  143.         RETURN MASTER
  144.    CASE ERR_NUM=56
  145.         SET COLOR TO W+/R
  146.         @ 24, 0 SAY SPACE(79)
  147.         @ 24, 0 SAY '    ┤┼┼╠╥╤┬·,┤╦┤╬▓┘╫≈╩º░▄... '
  148.         ?? CHR(7)
  149.         TEMP_CTC=1500
  150.         DO WHILE TEMP_CTC>0
  151.            TEMP_CTC=TEMP_CTC-1
  152.         ENDDO
  153.         CLOSE ALL
  154.         RETURN MASTER
  155.    CASE ERR_NUM=109
  156.         SET COLOR TO W+/R
  157.         @ 24, 0 SAY SPACE(79)
  158.         @ 24, 0 SAY 'SMENU
  159.               SET COLOR TO &BKSCRCOL
  160.               CLEA
  161.               SET EXCL OFF
  162.               USE MENU EXCL
  163.               SET ORDER TO MENU_NDX
  164.               GO CURRENTREC
  165.               MENU_CTC1=1
  166.               SET COLOR TO W+/R
  167.               @ 24,0 SAY ' └√ ╙├ ╣Γ ▒Ω ╝ⁿ ╥╞ ╢» ╣Γ ┤°ú¼Return╝ⁿ ╤í ╘±ú¼Esc═╦ │÷                           '
  168.               DO WHILE MENU_CTC1<=LEN(MENUPATH)
  169.                  SUBPROC=SUBSTR(MENUPATH,1,MENU_CTC1)
  170.                  DO DS&SUBPROC
  171.                  MENU_CTC1=MENU_CTC1+1
  172.               ENDDO
  173.               LOOP
  174.            ENDIF
  175.            MENUPATH=MENUPATH+CHR(MENU_CTC+64)
  176.            GO TOP
  177.            SEEK MENUPATH
  178.            DO DS&MENUPATH
  179.            MENU_CTC=1
  180.            LOOP
  181.       CASE BUFF_CHAR=27
  182.            IF LEN(MENUPATH)=1
  183.               SET COLOR TO W+/B
  184.               CLEA
  185.               USE
  186.               CLOSE ALL
  187.               RETURN
  188.            ENDIF
  189.            SET COLOR TO &BKSCRCOL
  190.            @ 1,0 CLEAR TO 23,79
  191.            MENU_CTC=1
  192.            DO WHILE MENU_CTC<LEN(MENUPATH)-1
  193.               SUBPROC=SUBSTR(MENUPA