home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / CH3.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.1 KB  |  36 lines
  1.         *****╫ó▓ß▓Θ╤»(CH3)*****
  2. CLEAR
  3. STORE .T. TO CH3
  4. DO WHILE CH3
  5.    CLEAR
  6.    STORE "       " TO XH,MZ
  7.    @ 2,18 SAY "╟δ╕°│÷╤º║┼:" GET XH
  8.    @ 2,40 SAY "╗≥╕°│÷├√╫╓:" GET MZ
  9.    READ 
  10.    IF XH<>" "
  11.       USE B:AC8&Z INDEX B:IBAC8&Z
  12.       FIND "&XH"
  13.    ELSE
  14.       USE B:AC8&Z INDEX B:IMAC8&Z
  15.       FIND "&MZ"
  16.    ENDIF
  17.    CLEAR
  18.    MBIN=SUBSTR(BIN,1,2)
  19.    MSHANG="─Ω╔╧╤º╞┌ :"
  20.    MXIA="─Ω╧┬╤º╞┌ :"
  21.    @ 0,28 SAY MING+"╫ó▓ß╟Θ┐÷╥╗└└"
  22.    @ 1,28 SAY '"1" ╬¬╥╤╫ó▓ß,"0"╬¬╔╨╬┤╫ó▓ß '
  23.    @ 2,20 SAY MBIN+MSHANG+STR(YI,1)+"                "+MBIN+MXIA+STR(ER,1)
  24.    @ 3,12 SAY STR(VAL(MBIN)+1)+MSHANG+STR(SAN,1)+"        "+STR(VAL(MBIN)+1)+MXIA+STR(SI,1)       
  25.    @ 4,12 SAY STR(VAL(MBIN)+2)+MSHANG+STR(WU,1)+"        "+STR(VAL(MBIN)+2)+MXIA+STR(LIU,1)
  26.    @ 5,12 SAY STR(VAL(MBIN)+3)+MSHANG+STR(QI,1)+"        "+STR(VAL(MBIN)+3)+MXIA+STR(BA,1)
  27.    @ 6,12 SAY STR(VAL(MBIN)+4)+MSHANG+STR(JIU,1)+"        "+STR(VAL(MBIN)+4)+MXIA+STR(SHI,1)
  28.    STORE " " TO YES1
  29.    @ 8,20 SAY "╩╟╖±╝╠╨°▓Θ╤» (Y/N) ?" GET YES1
  30.    READ
  31.    IF UPPER(YES1)="Y"
  32.       LOOP
  33.    ENDIF
  34.    STORE .F. TO CH3
  35.  ENDDO
  36. RETURN