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

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

DO XHCZ
USE B:AC8&Z INDEX B:IBAC8&Z
STORE .T.TO JIUT1
DO WHILE JIUT1
CLEAR
FIND &SHA1
@ 1,20 SAY "************╛╔╤º╔·╫ó▓ß╡╟╝╟*************"
@ 3,26 SAY '╠ε╚δ"1"╬¬╫ó▓ß,╠ε╚δ"0"╬¬╬┤╫ó▓ß'
@ 4,28 SAY "╤º║┼:"
@ 4,34 SAY BIN
@ 4,43 SAY "╨╒├√:"
@ 4,49 SAY MING
@ 5,18 SAY STR(VAL(X),2)
@ 5,21 SAY "─Ω╔╧╤º╞┌:" GET YI RANG 0,1
@ 5,45 SAY STR(VAL(X),2)
@ 5,47 SAY "─Ω╧┬╤º╞┌:" GET ER RANG 0,1
@ 6,18 SAY STR(VAL(X)+1,2)
@ 6,21 SAY "─Ω╔╧╤º╞┌:" GET SAN RANG 0,1
@ 6,45 SAY STR(VAL(X)+1,2)
@ 6,47 SAY "─Ω╧┬╤º╞┌:" GET SI RANG 0,1
@ 7,18 SAY STR(VAL(X)+2,2)
@ 7,21 SAY "─Ω╔╧╤º╞┌:" GET WU RANG 0,1
@ 7,45 SAY STR(VAL(X)+2,2)
@ 7,47 SAY "─Ω╧┬╤º╞┌:" GET LIU RANG 0,1
@ 8,18 SAY STR(VAL(X)+3,2)
@ 8,21 SAY "─Ω╔╧╤º╞┌:" GET QI RANG 0,1
@ 8,45 SAY STR(VAL(X)+3,2)
@ 8,47 SAY "─Ω╧┬╤º╞┌:" GET BA RANG 0,1
@ 9,18 SAY STR(VAL(X)+4,2)
@ 9,21 SAY "─Ω╔╧╤º╞┌:" GET JIU RANG 0,1
@ 9,45 SAY STR(VAL(X)+4,2)
@ 9,47 SAY "─Ω╧┬╤º╞┌:" GET SHI RANG 0,1
READ
STORE " " TO YES1
@ 2,48 SAY "╩╟╖±╤º║┼ +1 ╝╠╨°╩Σ╚δ? (Y/N)" GET YES1
READ
IF UPPER(YES1)="Y"
SHA1=STR(VAL(SHA1)+1,7)
LOOP
ENDIF
ELSE
STORE .F. TO JIUT1
ENDDO
RETURN