home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / LFI.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  4.4 KB  |  194 lines
  1.         **** ╤º╔·│╔╝¿╡╟╝╟ (LFI) ****
  2. CLEAR
  3. MKH= "  "
  4. MKM="                    "
  5. STORE .T. TO T1
  6. DO WHILE T1
  7. STORE " " TO YES,XZ,DJ
  8. STORE "  " TO X,BAN
  9. @ 1,20 SAY "*****╤º╔·│╔╝¿╡╟╝╟*****"
  10. @ 2,22 SAY "╟δ╠ε╨┤╧┬╩÷╧ε─┐:"
  11. @ 3,22 SAY "─Ω╝╢:(└² 83,84,85,86)" GET X
  12. @ 4,22 SAY "╟δ╕°│÷╤º╓╞▒α║┼: (╚²─Ω╫¿┐╞ Z, ╚²─Ω▒╛┐╞ B, ╬σ─Ω▒╛┐╞ W)" GET XZ
  13. @ 5,22 SAY "╟δ╕°│÷░α▒≡┤·║┼:" GET BAN
  14. @ 6,22 SAY "1. ╜°╨╨┐╞─┐╡╟╝╟  2.▓╗╜°╨╨┐╞─┐╡╟╝╟ " GET DJ
  15. @ 7,18 SAY "╥╘╔╧╩Σ╚δ╒²╚╖┬≡ ? (Y/N)" GET YES
  16. READ
  17.   IF UPPER(YES)<>"Y"
  18.     LOOP
  19.   ENDIF 
  20.   KM6="K"+Z+X+XZ+BAN+".DBF"
  21.   AC6="AC6"+"&Z"
  22.     IF DJ="1"  
  23.        IF .NOT.FILE("B:&KM6")
  24.            USE ZKM6
  25.            COPY TO B:&KM6 STRU
  26.            SELECT A
  27.            USE B:&KM6            
  28.            RD=0   
  29.         ELSE
  30.            SELECT A
  31.            USE B:&KM6                  
  32.            GO BOTTOM
  33.            RD=RECNO()             
  34.         ENDIF
  35.        STORE .T. TO T2
  36.        DO WHILE T2 
  37.        MXQ=0
  38.        MKM=SPACE(20)
  39.        STORE " " TO YES1,YES2  
  40.        CLEAR
  41.        @ 2,22 SAY "╤º╞┌:(1,2,3,4,5,6,7,8,9,10)" GET MXQ PICTURE ì
  42. "99"
  43.        @ 3,22 SAY "┐╞─┐▒α║┼ :    "+STR(RD+1,2)
  44.        @ 4,22 SAY "┐╞─┐├√(▓╗┴⌠┐╒╕±)" GET MKM PICTURE "XXXXXXXXXXXX ì
  45. XXXXXXXX"
  46.        @ 5,22 SAY "╔╧╩÷╠ε╨┤╒²╚╖┬≡ (Y/N) ?" GET YES1
  47.        READ
  48.          IF UPPER(YES1)<>"Y"
  49.             CLEAR
  50.             LOOP
  51.          ENDIF
  52.        APPEND BLANK    
  53.       IF RD<10
  54.          JRD=1
  55.       ELSE
  56.          JRD=2
  57.       ENDIF           
  58.       REPL KH WITH STR(RD+1,JRD),XQ WITH MXQ,KM WITH MKM  
  59.        @ 6,20 SAY "╝╠╨°╡╟╝╟╧┬╥╗┐╞─┐┬≡ (Y/N)?" GET YES2
  60.        READ
  61.          IF UPPER(YES2)="Y"
  62.             SKIP+1
  63.             RD=RD+1
  64.             LOOP         
  65.          ENDIF
  66.        STORE .F. TO T2  
  67.        ENDDO 
  68.    ENDIF   
  69.    STORE .F. TO T1
  70.    ENDDO T1 
  71.    CLEAR
  72.    MKM=SPACE(20)
  73.    YES=" "
  74.    SELECT A
  75.    USE B:&KM6 
  76.    @ 0,20 SAY "╥╘╧┬╩╟╕≈┐╞│╔╝¿╡╟╝╟"
  77.    @ 2,20 SAY "╨Φ╥¬▓Θ┐┤┐╬│╠▒α║┼╙δ┐╬│╠├√┬≡ (Y/N)?" GET YES
  78.    READ
  79.    IF UPPER(YES)="Y"
  80.       DISP OFF NEXT 100 FIELD KH,KM
  81.       1
  82.    ENDIF
  83.    @ 4,22 SAY "╟δ╕°│÷╨Φ╥¬╡╟╝╟╡─┐╬─┐▒α║┼" GET MKH
  84.    @ 5,22 SAY "╗≥╕°│÷┐╬─┐├√│╞" GET MKM
  85.    READ
  86.    LOCATE FOR KH=MKH .OR.KM=MKM
  87.    RD=RECNO()
  88.  STORE .T. TO T3
  89. DO XHCZ    
  90. SELECT B
  91. USE B:AC6&Z INDEX B:IBAC6&Z
  92. FIND &SHA1
  93. DO WHILE T3
  94. YES4=" "
  95. MBIN=BIN
  96. MMING=MING
  97. SELECT A
  98. GOTO  RD
  99. DO WHILE .NOT. EOF()
  100.    STORE "   " TO MFEN,MFEN1,MFEN2
  101.    YES3=" "
  102.    CLEAR
  103.    @ 1,10 SAY "╤º║┼: &MBIN   ╨╒├√: &MMING "
  104.    @ 2,10 SAY "╡┌ "+STR(XQ,2)+" ╤º╞┌"
  105.    @ 3,10 SAY KM
  106.    @ 4,10 SAY "┐╬│╠▒α║┼ :"+KH
  107.    @ 5,10 SAY "│╔╝¿╡╟╝╟:(╚▒┐╝▒Ω╬¬ :QK ) "
  108.    @ 6,10 SAY "┐╝▓Θ│╔╝¿: (╚⌠╬σ╝╢╝╞╖╓:╙┼╨π--5,┴╝║├--4,╓╨╡╚--3,╝░╕±--2,▓╗╝░╕±--1" GET MFEN1
  109.    @ 7,10 SAY "┐╝╩╘│╔╝¿:" GET MFEN2
  110.    @ 8,10 SAY "╫▄╞└│╔╝¿: (╚⌠╬σ╝╢╝╞╖╓:╙┼╨π--5,┴╝║├--4,╓╨╡╚--3,╝░╕±--2,▓╗╝░╕±--1" GET MFEN
  111.    @ 9,10 SAY "╥╘╔╧╩Σ╚δ╒²╚╖┬≡ ?(Y/N)" GET YES3
  112.    READ
  113.    IF UPPER(YES3)<>"Y"
  114.       CLEAR
  115.       LOOP
  116.     ENDIF
  117.   IF MFEN1="5".OR.MFEN1="4".OR.MFEN1="3".OR.MFEN1="2".OR.MFEN1="1".OR.MFEN1="QK"    
  118.     IF MFEN1="5"
  119.        MFEN1="╙┼╨π"
  120.     ENDIF   
  121.     IF MFEN1="4"
  122.        MFEN1="┴╝║├"
  123.     ENDIF
  124.     IF MFEN1="3"
  125.        MFEN1="╓╨╡╚"
  126.     ENDIF
  127.     IF MFEN1="2"
  128.        MFEN1="╝░╕±"
  129.     ENDIF
  130.     IF MFEN1="1"
  131.        MFEN1="ªí╕±"
  132.     ENDIF
  133.   ELSE
  134.     MFEN1=" "+MFEN1+" "
  135.   ENDIF 
  136.     IF MFEN1="QK"
  137.        MFEN1="╚▒┐╝"
  138.      ENDIF
  139.  IF MFEN="5".OR.MFEN="4".OR.MFEN="3".OR.MFEN="2".OR.MFEN="1".OR.MFEN="QK"  
  140.      IF MFEN="5"
  141.        MFEN="╙┼╨π"
  142.     ENDIF   
  143.     IF MFEN="4"
  144.        MFEN="┴╝║├"
  145.     ENDIF
  146.     IF MFEN="3"
  147.        MFEN="╓╨╡╚"
  148.     ENDIF
  149.     IF MFEN="2"
  150.        MFEN="╝░╕±"
  151.     ENDIF
  152.     IF MFEN="1"
  153.        MFEN="ªí╕±"
  154.     ENDIF 
  155.      IF MFEN="QK"
  156.        MFEN="╚▒┐╝"
  157.     ENDIF          
  158.    ELSE
  159.      MFEN=" "+MFEN+" "
  160.     ENDIF
  161.     MFEN2=" "+MFEN2+" " 
  162.     IF KH<"10"
  163.         MKH=SUBSTR(KH,1,1)
  164.       ELSE 
  165.         MKH=SUBSTR(KH,1,2)
  166.       ENDIF 
  167.       SELECT B
  168.     REPL A&MKH WITH SUBSTR(MFEN1,1,4),B&MKH WITH SUBSTR(MFEN2,1,4),C&MKH WITH SUBSTR(MFEN,1,4) 
  169.     SELECT A
  170.     SKIP+1
  171.     ENDDO
  172.   CLEAR
  173.   SELECT B
  174.   @ 2,10 SAY "&MMING ╤º╘▒│╔╝¿╡╟╝╟╜ß╩°"
  175.   @ 4,10 SAY "╝╠╨°╡╟╝╟┬≡?╟δ╤í╘± (╤º║┼+1(Y),╞Σ╦ⁿ╤º║┼(N),═╦│÷(Q)) "ì
  176. GET YES4
  177.   READ
  178.   IF UPPER(YES4)="Y"
  179.      SKIP+1
  180.      LOOP
  181.   ENDIF
  182.   IF UPPER(YES4)="N"
  183.      STORE .F. TO T3,T2
  184.      CLEAR
  185.      LOOP
  186.   ENDIF
  187.   IF UPPER(YES4)="Q"
  188.      CLOSE DATABASES
  189.      RETURN
  190.   ENDIF   
  191.   CLOSE DATABASES
  192.   ENDDO T3
  193.   ENDDO T1
  194. RETURN