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

Text File | 1979-12-31 | 2.2 KB | 109 lines

clear
set talk off
set device to screen
close database
sele 2
use sb
set index to sb1
sele 1
use zj
a='         '
@ 4,20 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
read
loca for zj1=a
a1=.t.
do while a1
clear
@ 1,0 say "╔Φ▒╕▒α║┼  ╝α▓Γ╡π║┼  ╝α▓Γ╡π▓┐╬╗     ▓╬╩²├√│╞   ╫ε╕▀╓╡    ╫ε╡═╓╡   ì
  ╝α▓Γ╓▄╞┌"
l=2
do while .not. eof()
@ l,1 say " "+zj1
@ l,11 say " "+zj2
@ l,20 say " "+zj3
@ l,34 say " "+zj8+'   '+str(zj10,6,2)+'     '+str(zj13,6,2)
@ l,68 say "  "+str(zj4,3)
l=l+1
cont
if l>=9 .and. .not. eof()
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°úí"
exit
endif
enddo
if eof()
exit
endif
enddo
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
close database
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
set cons off
? chr(27)+"IJ"
set print off
set cons on
sele 2
seek a
bb=sb3
sele 1
p=1
d=1
a1=.t.
loca for zj1=a
do while a1
@ 1,35 say "       "+bb+"╔Φ▒╕╫┤╠¼╝α▓Γ╡╡░╕"
@ 2,1 say "             "
@ 3,105 say "╡┌ "+str(p,2)+"╥│"
@ 4,1 say "=================================================================ì
=================================================="
@ 5,1 say "|╔Φ▒╕▒α║┼ ì
|╝α▓Γ╡π║┼|╝α▓Γ╡π╬╗╓├  ì
|▓Γ┴┐▓╬╩²├√│╞|╫ε╕▀╓╡|╫ε╡═╓╡|╝α▓Γ╓▄╞┌|       ╝α▓Γ─┌╚▌╝≥╩÷     ì
      |╓╕╡╝╦╡├≈╩Θ┤·║┼|"
@ 6,1 say ì
"|---------|--------|------------|------------|------|------|--------|------------------------------|--------------|"
l=7
do while .not. eof()
@ prow()+1,1 say "|"+zj1
@ prow(),11 say "|"+zj2
@ prow(),20 say "|"+zj3
@ prow(),33 say "|  "+zj8+"  ì
|"+str(zj10,6,2)+"|"+str(zj13,6,2)+"|"+str(zj4,3)+"     |"+zj7+"|"+zj14+"        |"
l=l+1
cont
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"==================================================================ì
==================================================="
eject
p=p+1
exit
else
@ prow()+1,1 say ì
"|---------|--------|------------|------------|------|------|--------|------------------------------|--------------|"
l=l+1
endif
else
@ prow()+1,1 say ì
"=================================================================ì
=================================================="
a1=.f.
endif
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
set cons on
a1=.t.
retu