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

Text File | 1980-01-01 | 692 b | 32 lines

        *****╜▒│═╡╟╝╟(ZC)*****
CLEAR
STORE .T. TO ZCT
USE B:AC2&Z INDEX B:IBAC2&Z
FIND &SHA1
MMING=MING
USE B:AC5&Z
APPEND BLANK
DO WHILE ZCT
   @ 1,28 SAY "*****╜▒│═╡╟╝╟*****"
   @ 3,42 SAY "╨╒├√:"+MMING
   @ 3,25 SAY "╤º║┼:"+SHA1
   @ 4,25 SAY "╜▒╗≥│═:" GET E1
   @ 4,40 SAY "─Ω,╘┬,╚╒:" GET E2
   @ 5,25 SAY "╩┬╙╔:" GET E3
   READ
   STORE " " TO YES1
   @ 6,25 SAY "╩Σ╚δ╢╘╖±(Y/N) ? ═╦│÷ Q "GET YES1
   READ
   STORE E1 TO ME1
   IF UPPER(YES1)="N"
      LOOP
   ENDIF
   IF UPPER(YES1)="Y"
      REPL BIN WITH SHA1,MING WITH MMING
      USE B:AC2&Z INDEX B:IBAC2&Z
      FIND &SHA1
      REPL B17 WITH ME1
      STORE .F. TO ZCT
    ENDIF
    RETURN
ENDDO