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