Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/JJ1.PRG

Text File | 1980-01-01 | 1.7 KB | 104 lines

CLEAR
SET DEVICE TO SCREEN
SET TALK OFF
CLOS DATA
USE SB INDEX SB1
YE=1
a1=.t.
do while a1
clear
A='  '
DO CASE
CASE P=1
B="╚½│º"
CASE P=2
CLEAR
@ 4,20 SAY "╟δ╩Σ╚δ╡Ñ╬╗║┼" get a
read
if a='h'
use dw index dw1
do hel1
loop
exit
endif
use dw index dw1
seek a
b=trim(dw2)
use sb index sb1
loca for sb28=a
case p=3
clear
@ 4,20 SAY "╟δ╩Σ╚δ╔Φ▒╕└α▒≡║┼" get a
read
if a='h'
use ls index lssy
do helb
loop
exit
endif
exit
enddo
use ls index lssy
seek a
b=trim(ls2)
use sb index sb1
loca for sb24=a
endcase
L=1
SET DEVICE TO PRINT
SET PRINT ON
? CHR(27)+"IJ"
SET PRINT OFF
A1=.T.
DO WHILE A1
CLEAR
@ prow()+1,35 say b+"╔Φ▒╕╒█╛╔├≈╧╕"
@ prow()+1,1 say "      "
@ prow()+1,70 say "╡┌"+str(ye,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
=========="
@ prow()+1,1 SAY "|╔Φ▒╕▒α║┼ |    ╔Φ▒╕├√│╞    |   ╘¡╓╡   |    ╛╗╓╡  | ì
  ╥╤╠ß╒█╛╔|╡▒─Ω╥╤╠ß╒█╛╔|"
@ prow()+1,1 SAY ì
"|---------|----------------|----------|----------|-----------|----ì
--------|"
DO WHILE .NOT. EOF()
@ pROW()+1,1 SAY "|"+sb1+'|'+sb3+"|"+STR(SB15,10,2)+'|'+STR(SB17,10,2)+'| ì
'+STR(SB18,10,2)+'|'+STR(SB49,8,2)+"    |"
L=L+1
if p=1
skip
ELSE
CONT
ENDIF
IF .NOT. EOF()
IF L>=9
@ PROW()+1,1 SAY ì
"=================================================================ì
=========="
EJEC
@ PROW()+1,1 SAY "      "
L=1
YE=YE+1
EXIT
ENDIF
@ PROW()+1,1 SAY "|---------|----------------|----------|--------- ì
|-----------|------------|"
ENDIF
ENDDO
IF EOF()
@ PROW()+1,1 SAY ì
"=================================================================ì
=========="
EXIT
ENDIF
ENDDO A1
set print on
? CHR(13)
SET PRINT OFF
SET DEVICE TO SCREEN
CLOS DATA
RETU