home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / RXTJ.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.8 KB  |  69 lines
  1.         *****╚δ╤º╟░╬─╗»│╠╢╚(RXTJ)*****
  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 B5=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 MGE1,MGE2,MGE3,MGE4
  41.         USE B:AC2&Z
  42.         @ 3,20 SAY "╒²╘┌═│╝╞,╟δ╡╚║≥!"
  43.         DO WHILE .NOT. EOF()
  44.            IF B5="│⌡╓╨"
  45.            MGE1=MGE1+1
  46.            ELSE
  47.               IF B5="╕▀╓╨".OR.B5="╓╨╫¿"
  48.                  MGE2=MGE2+1
  49.               ELSE
  50.                  IF B5="┤≤╫¿"
  51.                     MGE3=MGE3+1
  52.                  ELSE
  53.                     MGE4=MGE4+1
  54.                  ENDIF
  55.               ENDIF
  56.            ENDIF
  57.   SKIP+1
  58.   ENDDO
  59. @ 2,20 SAY "┤≤╫¿ :"+STR(MGE3)+"╚╦"
  60. @ 3,20 SAY "╕▀╓╨ :"+STR(MGE2)+"╚╦"
  61. @ 4,20 SAY "│⌡╓╨ :"+STR(MGE1)+"╚╦"
  62. @ 5,20 SAY "╞Σ╦ⁿ :"+STR(MGE4)+"╚╦"
  63. USE AC7
  64. LOCATE FOR XIBIN="&Z"
  65. REPL GE1 WITH MGE1,GE2 WITH MGE2,GE3 WITH MGE3,GE4 WITH MGE4
  66. WAIT " ░┤╚╬╥╗╝ⁿ╝╠╨°!"    
  67. ENDCASE
  68. RETURN  
  69.