home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / MMTJ.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.7 KB  |  69 lines
  1.         *****░┤╒■╓╬├µ─┐(MMTJ)*****
  2. CLEAR
  3. @ 3,20 SAY "0. ═╦│÷"
  4. @ 4,20 SAY "1. ░┤╕°│÷╡─╒■╓╬├µ─┐├√│╞═│╝╞"
  5. @ 5,20 SAY "2. ╥╗░π═│╝╞"
  6. STORE " " TO LLO
  7. @ 7,20 SAY "╟δ╤í│÷╥╘╔╧╣ª─▄╝ⁿ(0--2)" GET LLO
  8. READ
  9. CLEAR
  10. DO CASE
  11.    CASE LLO="0"
  12.    RETURN
  13.    CASE LLO="1"
  14.    STORE .T. TO DIT
  15.    STORE 0 TO ZSHU,SHU
  16.    DO WHILE DIT
  17.    CLEAR
  18.    USE B:AC2&Z
  19.    CLEAR
  20.    STORE "            " TO DIMING
  21.    @ 3,20 SAY "╟δ╕°│÷╦∙═│╝╞╒■╓╬├µ─┐├√│╞: " GET DIMING
  22.    READ
  23.    @ 5,20 SAY "╒²╘┌═│╝╞,╟δ╔╘╡╚║≥ !"
  24.    COUNT FOR B4=TRIM(DIMING) TO SHU
  25.    @ 7,20 SAY "&ZZ"+"╫¿╥╡:  "+"&DIMING"+"╚╦╩²:"+STR(SHU,4)
  26.    STORE " " TO YES1
  27.    @ 8,20 SAY "╝╠╨°═│╝╞┬≡ (Y/N) ?" GET YES1
  28.    READ
  29.      IF UPPER(YES1)="Y"
  30.         ZSHU=ZSHU+SHU
  31.         CLEAR
  32.         @ 2,20 SAY "&ZZ"+"╫¿╥╡: "+"&DIMING"+"╚╦╩²:"+STR(SHU,4)
  33.         @ 4,20 SAY "╡▒╟░└█╝╞: "+"&DIMING"+"╚╦╩²: "+STR(ZSHU,4)
  34.         WAIT "        ░┤╚╬╥Γ╝ⁿ╝╠╨° !"
  35.         LOOP
  36.      ENDIF
  37.      STORE .F. TO DIT
  38.    ENDDO
  39.    CASE LLO="2"
  40.         STORE 0 TO MGD1,MGD2,MGD3,MGD4
  41.         @ 3,20 SAY "╒²╘┌═│╝╞,╟δ╡╚║≥!"
  42.         USE B:AC2&Z
  43.         DO WHILE .NOT. EOF()
  44.            IF B4="╡│╘▒"
  45.               MGD1=MGD1+1
  46.            ELSE
  47.               IF B4="═┼╘▒"
  48.                  MGD2=MGD2+1
  49.               ELSE
  50.                  IF B4<>" ".AND.B4<>"╡│╘▒".AND.B4<>"═┼╘▒"
  51.                  MGD3=MGD3+1
  52.                  ELSE
  53.                  MGD4=MGD4+1
  54.                  ENDIF
  55.                ENDIF
  56.             ENDIF   
  57.         SKIP+1
  58.      ENDDO
  59.   CLEAR
  60.   @ 2,20 SAY "╡│╘▒ :"+STR(MGD1)+"╚╦"
  61.   @ 3,20 SAY "═┼╘▒ :"+STR(MGD2)+"╚╦"
  62.   @ 4,20 SAY "├±╓≈╚╦╩┐ :"+STR(MGD4)+"╚╦"
  63.   @ 5,20 SAY "╚║╓┌ :"+STR(MGD3)+"╚╦"
  64.   USE AC7
  65.   LOCATE FOR XIBIN="&Z"
  66.   REPL GD1 WITH MGD1,GD2 WITH MGD2,GD3 WITH MGD3,GD4 WITH MGD4
  67.   ENDCASE  
  68. RETURN  
  69.