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

Text File | 1980-01-01 | 807 b | 36 lines

        *****╨▌,╕┤,╫¬,═╦,╤º╡╟╝╟(ZT)*****
STORE .T. TO ZT
CLEAR
USE B:AC2&Z INDEX B:IBAC2&Z
@ 4,25 SAY "╟δ╔╘╡╚║≥."
FIND &SHA1
MMING=MING
MB1=B1
USE B:AC3&Z
APPEND BLANK
DO WHILE ZT
   CLEAR
   @ 1,28 SAY "****** ╨▌,╕┤,╫¬,═╦╤º╡╟╝╟ ******"
   @ 3,25 SAY "╤º║┼:"+SHA1
   @ 3,45 SAY "╨╒├√:"+MMING
   @ 3,58 SAY "╨╘▒≡:"+MB1
   @ 4,25 SAY "└α ▒≡:(╨▌,╕┤,╫¬,═╦)" GET C1
   @ 5,25 SAY "╘¡╥≥:" GET C2
   @ 6,25 SAY "╞≡╞²╩▒╝Σ:" GET C3
   READ
   STORE " " TO YES1
   @ 7,25 SAY "╩Σ╚δ╢╘╖± (Y/N) ? ═╦│÷ Q " GET YES1
   READ
   STORE C1 TO MC1
   IF UPPER(YES1)="N"
      LOOP
   ENDIF
   IF UPPER(YES1)="Y"
      REPL BIN WITH SHA1,MING WITH MMING,C4 WITH MB1
      USE B:AC2&Z INDEX B:IBAC2&Z
      FIND &SHA1
      REPL B18 WITH MC1
      STORE .F. TO ZT
    ENDIF
    RETURN
 ENDDO