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

Text File | 1980-01-01 | 1.1 KB | 41 lines

        *****╝≥└·╡╟╝╟(TJL)*****
CLEAR
USE B:AC2&Z
SET INDEX TO B:IBAC2&Z
FIND &SHA1
STORE .T. TO TJLT1
DO WHILE TJLT1
  STORE " " TO YES1,YES2
  @ 0, 10 SAY "****╟δ╠ε╚δ╝≥└·▒φ(╠ε╚δ╣²│╠╙╨┤φ╬≤╩╣╙├<--╖╡╗╪╨▐╕─)*****"
  @ 2,8 SAY "╡╪,╩╨:" GET DI
  @ 2,25 SAY "╤º║┼:" GET SHA1
  @ 2,38 SAY "╨╒├√:"  GET MING
  @ 2,52 SAY "╨╘▒≡:" GET B1
  @ 2,60 SAY "─Ω┴Σ:" GET B2
  @ 2,68 SAY "╝«╣ß:" GET B3
  @ 3,8 SAY "╒■╓╬├µ─┐:" GET B4
  @ 3,26 SAY "╬─╗»│╠╢╚:" GET B5
  @ 3,40 SAY "├±╫σ:" GET B6
  @ 3,50 SAY "╡ú╚╬║╬╓╓╔τ╗ß╣ñ╫≈:" GET B7
  @ 4,8 SAY "╣ñ┴Σ:" GET B8
  @ 4,16 SAY "╧╓╚╬╓░╬±:" GET B9
  @ 4,36 SAY "░α╝╢:" GET XI
  @ 4,50 SAY "╤º╓╞:" GET NIAN
  @ 5,8 SAY "╨▌,╕┤╤º:" GET B18
  @ 5,21 SAY "╡Ñ╬╗▒Σ╢»╙δ╖±?" GET B16
  @ 5,43 SAY "╜▒,│═:" GET B17
  @ 6,8 SAY "╚╬╓░╡Ñ╬╗╡╪╓╖:" GET B10
  @ 7,8 SAY "╝╥═Ñ╡╪╓╖:" GET B11
  @ 8,8 SAY "╫ε║≤╤º└·╝░╦∙╘┌╤º╨ú: " GET B12
  READ
  @ 9,8 SAY "╩Σ╚δ╢╘╖± ? (Y/N)" GET YES1
  READ
    IF UPPER(YES1)="N"
       @ 9,1
       @ 9,5 SAY "╟δ╨▐╕├"
       LOOP
     ENDIF
  STORE .F. TO TJLT1
  @ 9,0
ENDDO
RETURN