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

Text File | 1979-12-31 | 1.7 KB | 137 lines

clear
set talk off
close database
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set device to print
sele 1
use dw
sele 2
use ls
goto bott
q=recno()
goto top
q1=q
ppp=q
p1=q
p2=q
p3=q
q=q*9
q=int(q/2)
set cons off
set print on
? chr(27)+"IJ"
set print off
@ prow()+1,q say "╔Φ▒╕╖╓└α,╖╓╗º═│╝╞▒φ(╡Ñ╬╗:╠¿)"
@ prow()+1,q say "~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
@ prow()+1,1 say "                                "
@ prow()+1,1 say "============="
q2=14
do while q1<>0
q1=q1-1
if q1<>0
@ prow(),q2 say "========="
else
@ prow(),q2 say "=========="
endif
q2=q2+9
enddo
@ prow()+1,1 say "|╡Ñ╬╗ú▄└α▒≡  "
goto top
p=14
do while .not. eof()
skip
if eof()
skip -1
@ prow(),p say "|"+ls2+"|"
else
skip-1
@ prow(),p say "|"+ls2
endif
skip
p=p+9
enddo
@ prow()+1,1 say "|============"
p=14
do while p3<>0
p3=p3-1
if p3<>0
@ prow(),p say "|========"
else
@ prow(),p say "|========|"
endif
p=p+9
enddo
sele 3
use tj
sele 1
do while .not. eof()
skip
h=1
if eof()
h=0
endif
skip -1
a=dw1
b=dw2
@ prow()+1,1 say "|"+b
sele 2
goto top
p=14
do while .not. eof()
skip
y=2
if eof()
y=1
endif
skip -1
a1=ls1
b2=ls2
sele 3
loca for tj1=a .and. tj2=a1
if y<>1
@ prow(),p say "|"+str(tj3,5)
else
@ prow(),p say "|"+str(tj3,5)+"   |"
endif
sele 2
skip
p=p+9
enddo
if h<>0
@ prow()+1,1 say "|------------"
p=14
p1=ppp
do while p1<>0
p1=p1-1
if p1<>0
@ prow(),p say "|--------"
else
@ prow(),p say "|--------|"
endif
p=p+9
enddo
else
@ prow()+1,1 say "============="
p=14
do while p2<>0
p2=p2-1
if p2<>0
@ prow(),p say "========="
else
@ prow(),p say "=========="
endif
p=p+9
enddo
endif
sele 1
skip
enddo
set print on
? chr(13)
set print off
set device to screen
a1=.t.
set cons on
retu