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

Text File | 1980-01-01 | 1.4 KB | 58 lines

             *****╨┬╔·╫ó▓ß(XIN)*****
DO XHCZ
CLEAR
STORE .T. TO T2
DO WHILE T2
   USE B:AC2&Z
   STORE " " TO YES1,YES2
   STORE "        " TO MMING
   APPE BLAN
   @ 0, 10 SAY "****╟δ╠ε╚δ╝≥└·▒φ(╠ε╚δ╣²│╠╙╨┤φ╬≤╩╣╙├<--╖╡╗╪╨▐╕─)*****"
   @ 2,8 SAY "╡╪,╩╨:" GET DI
   @ 2,24 SAY "╤º║┼:"+SHA1
   @ 2,36 SAY "░α▒≡:" GET XI
   @ 2,49 SAY "╨╒├√:" GET MMING
   @ 2,62 SAY "╨╘▒≡:" GET B1
   @ 3,8 SAY "─Ω┴Σ:" GET B2
   @ 3,16 SAY "╝«╣ß:" GET B3
   @ 3,36 SAY "╤º╓╞:" GET NIAN
   @ 3,46 SAY "╒■╓╬├µ─┐:" GET B4
   @ 4,8 SAY "╬─╗»│╠╢╚:" GET B5
   @ 4,22 SAY "├±╫σ:" GET B6
   @ 5,8 SAY "╡ú╚╬║╬╓╓╔τ╗ß╣ñ╫≈" GET B7
   @ 6,8 SAY "╣ñ┴Σ:" GET B8
   @ 6,16 SAY "╧╓╚╬╓░╬±:" GET B9
   @ 7,8 SAY "╚╬╓░╡Ñ╬╗╡╪╓╖:" GET B10
   @ 8,8 SAY "╝╥═Ñ╡╪╓╖:" GET B11
   @ 9,8 SAY "╫ε║≤╤º└·╝░╦∙╘┌╤º╨ú: " GET B12
   READ
   @ 1,30 SAY "╩Σ╚δ╢╘╖± ? Q═╦│÷. (Y/N/Q)" GET YES1
   READ
   IF UPPER(YES1)="N"
      @ 9,1
      @ 9,8 SAY "╟δ╨▐╕├"
      LOOP
   ENDIF
   IF UPPER(YES1)="Q"
   RETURN
   ENDIF
   @ 9,0
   REPL BIN WITH SHA1,MING WITH MMING
   USE B:AC8&Z
   APPEND BLANK
   REPL BIN WITH SHA1,YI WITH 1,MING WITH MMING
   @ 9,8 SAY "╝╠╨°╩Σ╚δ╖±? ╤º║┼+1(Y),╩Σ╚δ╤º║┼(X),╜ß╩°(N)" GET YES2
   READ
   IF UPPER(YES2)="N"
      RETURN
   ENDIF
   IF UPPER(YES2)="Y"
      SHAA=VAL(SHA1)+1
      SHA1=STR(SHAA,7)
      LOOP
    ELSE
      STOR .F. TO T2
    ENDIF
  ENDDO
RETURN