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

Text File | 1980-01-01 | 639 b | 28 lines

STORE .T. TO DIT
STORE 0 TO ZSHU,SHU
DO WHILE DIT
CLEAR
DO XZC
USE B:AC2&Z
CLEAR
STORE "            " TO DIMING
@ 3,20 SAY "╟δ╕°│÷╦∙═│╝╞╡╪╟°├√:" GET DIMING
READ
@ 5,20 SAY "╒²╘┌═│╝╞,╟δ╔╘╡╚║≥ !"
COUNT FOR DI=TRIM(DIMING) TO SHU
@ 7,20 SAY "&ZZ"+"╫¿╥╡:  "+"&DIMING"+"╡╪╟°╚╦╩²:"+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"+"╫¿╥╡: "+"&DIMING"+"╡╪╟°╚╦╩²:"+STR(SHU,4)
    @ 4,20 SAY "╡▒╟░└█╝╟"+"&DIMING"+"╡╪╟°╚╦╩²: "+STR(ZSHU,4)
    WAIT "        ░┤╚╬╥Γ╝ⁿ╝╠╨° !"
    LOOP
    ENDIF
STORE .F. TO DIT
ENDDO
RETURN