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

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

        *****╣ñ╫≈╡Ñ╬╗▒Σ╢»╡╟╝╟(GZ)*****
CLEAR
STORE .T. TO GZT
USE B:AC2&Z INDEX B:IBAC2&Z
FIND &SHA1
MMING=MING
USE B:AC4&Z
APPEND BLANK
DO WHILE GZT
   @ 1,28 SAY "*****╣ñ╫≈▒Σ╢»╡╟╝╟******"
   @ 3,25 SAY "╤º║┼:"+SHA1
   @ 3,40 SAY "╨╒├√:"+MMING
   @ 4,25 SAY "▒Σ╢»─Ω,╘┬" GET D1
   @ 5,25 SAY "╡Ñ╬╗├√│╞╝░╡╪╓╖" GET D2
   @ 6,25 SAY "╓░╬±" GET D3
   READ
   STORE " " TO YES1
   @ 7,25 SAY "╩Σ╚δ╢╘╖±(Y/N) ? ═╦│÷ Q " GET YES1
   READ
   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 B16 WITH "╡Ñ╬╗▒Σ╢»"
      STORE .F. TO GZT
   ENDIF
   RETURN
ENDDO