home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / CH2.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.3 KB  |  70 lines
  1.          ******╤º╔·│╔╝¿▓Θ╤»(CH2)*****
  2. CLEAR
  3. STORE .T. TO CH2
  4. DO WHILE CH2
  5. CLEAR
  6. STORE " " TO XZ
  7. STORE "  " TO BAN
  8. STORE "       " TO XH,MZ
  9. @ 2,18 SAY "╟δ╕°│÷╤º║┼: "GET XH
  10. @ 2,40 SAY "╗≥╕°│÷├√╫╓: "GET MZ
  11. @ 3,18 SAY "╟δ╕°│÷╤º╓╞▒α║┼: (╚²─Ω╫¿┐╞--Z, ╚²─Ω▒╛┐╞--B, ì
  12. ╬σ─Ω▒╛┐╞--W)" GET XZ
  13. @ 4,18 SAY "╟δ╕°│÷░▀▒≡┤·║┼:" GET BAN
  14. READ
  15.   IF XH<>"       "
  16.      SELECT B
  17.      USE B:AC6&Z INDEX B:IBAC6&Z
  18.      FIND "&XH"
  19.    ELSE
  20.      SELECT B
  21.      USE B:AC6&Z INDEX B:IMAC6&Z
  22.      FIND "&MZ"
  23.    ENDIF     
  24. MMING=MING
  25. MBIN=BIN
  26. X=SUBSTR(BIN,1,2)
  27. KM6="K"+Z+X+XZ+BAN+".DBF"
  28. IF .NOT. FILE("B:&KM6")
  29.    WAIT "╩Σ╚δ┤φ,╒╥▓╗╡╜╬─╝■,░┤╚╬╥╗╝ⁿ═╦│⌡"
  30.    CLEAR
  31.    RETURN 
  32. ENDIF
  33. SELECT A
  34. USE B:&KM6
  35. GO 2
  36.   STORE .T. TO CH1
  37.   DO WHILE CH1
  38.   CLEAR
  39.   MKH=KH
  40.   @ 1,15 SAY "&MBIN "+ "     "+"&MMING"
  41.   @ 2,15 SAY "╡┌"+STR(XQ,2)+"╤º╞┌"
  42.   @ 2,28 SAY "┐╞─┐▒α║┼: " +MKH
  43.   @ 3,15 SAY KM
  44.   SELECT B
  45.   @ 4,15 SAY "┐╝▓Θ│╔╝¿: "+A&MKH
  46.   @ 5,15 SAY "┐╝╩╘│╔╝¿: "+B&MKH
  47.   @ 6,15 SAY "╫▄╞└: "+ C&MKH
  48.   SELECT A
  49.   STORE " " TO YES
  50.   @ 7,15 SAY "╝╠╨°▓Θ╤»╧┬╥╗├┼┐╬│╠ Y, ▓Θ╤»╞Σ╦ⁿ╤º║┼ N, ═╦│÷ Q" GET YES
  51.   READ
  52.   IF UPPER(YES)="Y"
  53.      CLEAR
  54.      SKIP+1 
  55.      IF EOF()
  56.         RETURN
  57.      ENDIF
  58.     LOOP
  59.   ENDIF
  60.   IF UPPER(YES)="N"
  61.      STORE .F. TO CH1 
  62.      CLEAR
  63.      EXIT
  64.   ENDIF 
  65.  IF UPPER(YES)="Q"
  66.     CLEAR
  67.     STORE .F. TO CH2,CH1
  68.   ENDDO
  69. ENDDO
  70. RETURN