home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / ZWTJ.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.7 KB  |  71 lines
  1.         *****╓░╬±═│╝╞(ZWTJ)*****
  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 LLO="0"
  11.    RETURN
  12.    CASE LLO="1"  
  13.    STORE .T. TO DIT
  14.    STORE 0 TO ZSHU,SHU
  15.    DO WHILE DIT
  16.    CLEAR
  17.    DO XZC
  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 B9=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 MGC1,MGC2,MGC3,MGC4
  41.           USE B:AC2&Z
  42.           @ 5,20 SAY "╒²╘┌═│╝╞,╟δ╡╚║≥!"
  43.           DO WHILE .NOT. EOF()
  44.              IF B9="╨ú│ñ"
  45.              MGC1=MGC1+1
  46.              ELSE
  47.                IF B9="╜╠╩ª"
  48.                   MGC2=MGC2+1
  49.                   ELSE
  50.                   IF B9="╕╔▓┐"
  51.                      MGC3=MGC3+1
  52.                      ELSE
  53.                      MGC4=MGC4+1
  54.                   ENDIF
  55.                ENDIF
  56.          ENDIF
  57.      SKIP+1
  58.      ENDDO
  59. CLEAR
  60. @ 2,20 SAY "╨ú│ñ :"+STR(MGC1)+"╚╦"
  61. @ 3,20 SAY "╜╠╩ª :"+STR(MGC2)+"╚╦"
  62. @ 4,20 SAY "╕╔▓┐ :"+STR(MGC3)+"╚╦"
  63. @ 5,20 SAY "╞Σ╦ⁿ :"+STR(MGC4)+"╚╦"
  64. USE AC7
  65. LOCATE FOR XIBIN="&Z"
  66. REPL GC1 WITH MGC1,GC2 WITH MGC2,GC3 WITH MGC3,GC4 WITH MGC4
  67. WAIT "          ░┤╚╬╥╗╝ⁿ╝╠╨°!"
  68. ENDCASE
  69. RETURN   
  70.  
  71.