Liren Large Software Subsidy 6/06.iso/b/b034/xy.img/S4/XHJI.PRG

Text File | 1980-01-01 | 624 b | 27 lines

STORE .T. TO XHZT
STORE 0 TO ZSHU,SHU
DO WHILE XHZT
DO XZC
USE B:AC3&Z
CLEAR
STORE "    " TO LEI
@ 3,12 SAY "╟δ╕°│÷╦∙═│╝╞└α╨═(╨▌╤º,╕┤╤º,╫¬╤º,═╦╤º)_:" GET LEI
READ
@ 5,20 SAY "╒²╘┌═│╝╞,╟δ╔╘╡╚║≥ !"
COUNT FOR C1=TRIM(LEI) TO SHU
@ 7,20 SAY "&ZZ"+"╫¿╥╡: "+"&LEI"+"╚╦╩²: "+STR(SHU,4)
STORE " " TO YES1
@ 8,20 SAY "╝╠╨°═│╝╞┬≡(Y/N)?"GET YES1
READ
      IF UPPER(YES1)="Y"
      ZSHU=ZSHU+SHU
      CLEAR
      @ 2,20 SAY "&ZZ"+"╫¿╥╡: "+"&LEI"+"╚╦╩²:"+STR(SHU,4)
      @ 4,20 SAY "╡▒╟░└█╝╞╚╦╩²: "+STR(ZSHU,4)
      WAIT "            ░┤╚╬╥Γ╝ⁿ╝╠╨° !"
      LOOP
      ENDIF
STORE .F. TO XHZT
ENDDO
RETURN