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

Text File | 1980-01-01 | 306 b | 15 lines

        *****╜ß▒╧╥╡╡╟(JB)*****
CLEAR
DO XHCZ
CLEAR
USE B:AC2&Z INDEX B:IBAC2&Z
FIND &SHA1
@ 1,28 SAY "***** ╜ß,▒╧╥╡╡╟╝╟ *****"
@ 3,25 SAY "╤º║┼:"+SHA1
@ 3,42 SAY "╨╒├√:"+MING
@ 4,25 SAY "╜ß╥╡╗≥▒╧╥╡:" GET B13
@ 5,25 SAY "╜ß╥╡╗≥▒╧╥╡╚╒╞┌:" GET B14
@ 6,25 SAY "╡╟╝╟║┼:" GET B15
READ
RETURN