home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / CH6.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  823 b   |  40 lines
  1.          ******╜▒,│═╟Θ┐÷▓Θ╤»*****
  2. CLEAR
  3. STORE .T. TO CH6
  4. DO WHILE CH6
  5.    CLEAR
  6.    STORE "       " TO XH,MZ
  7.    @ 2,18 SAY "╟δ╕°│÷╤º║┼:" GET XH
  8.    @ 2,40 SAY "╗≥╕°│÷├√╫╓:" GET MZ
  9.    READ
  10.    IF MZ=" "
  11.    USE B:AC2&Z INDEX B:IBAC2&Z
  12.    FIND "&XH"
  13.    ELSE
  14.    USE B:AC2&Z INDEX B:IMAC2&Z
  15.    FIND "&MZ"
  16.    ENDIF
  17.    CLEAR
  18.    IF B17<>" "
  19.       MB17=B17
  20.       USE B:AC5&Z
  21.       LOCATE FOR BIN=XH.AND.E1=MB17.OR.MING=MZ.AND.E1=MB17
  22.       CLEAR
  23.       @ 2,20 SAY "╤º║┼ :"+BIN
  24.       @ 2,40 SAY "╨╒├√ :"+MING
  25.       @ 3,20 SAY "╜▒╗≥│═ : "+E1
  26.       @ 4,20 SAY "╜▒(│═)─Ω,╘┬:"+DTOC(E2)
  27.       @ 5,20 SAY "╜▒(│═)╘¡╙╔ :"+E3
  28.     ELSE
  29.     @ 3,20 SAY "╬▐┤╦╡╟╝╟"
  30.     ENDIF
  31.  STORE " " TO YES1
  32.  @ 6,20 SAY "╩╟╖±╝╠╨°▓Θ╤» (Y/N) ?" GET YES1
  33.  READ
  34.  IF UPPER(YES1)="Y"
  35.     LOOP
  36.  ENDIF
  37.  STORE .F. TO CH6
  38. ENDDO
  39. RETURN
  40.