home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / CH5.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  783 b   |  40 lines
  1.         *****╣ñ╫≈╡Ñ╬╗▒Σ╢»(CH5)*****
  2. CLEAR
  3. STORE .T. TO CGZ
  4. DO WHILE CGZ
  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 B16<>" "
  19.     MB16=B16
  20.     USE B:AC4&Z
  21.     LOCATE FOR BIN=XH.OR.MING=MZ
  22.     CLEAR
  23.     @ 2,20 SAY "╤º║┼:"+BIN
  24.     @ 2,40 SAY "╨╒├√:"+MING
  25.     @ 3,20 SAY "▒Σ╢»─Ω,╘┬:"+DTOC(D1)
  26.     @ 4,20 SAY "╡Ñ╬╗├√│╞╝░╡╪╓╖ "+D2
  27.     @ 5,20 SAY "╓░╬±:"+D3
  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.  ELSE
  37.     STORE .F. TO CGZ
  38.  ENDDO
  39. RETURN
  40.