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

Text File | 1979-12-31 | 2.3 KB | 132 lines

clear
set talk off
set device to screen
close database
a='        '
@ 4,10 say "╟δ╩Σ╚δ╜±╠∞╡─╚╒╞┌" get a pict '99.99.99'
read
j1=substr(a,4,2)
j2=substr(a,7,2)
j3=substr(a,1,2)
a=j1+'/'+j2+'/'+j3
a=ctod(a)
use yb
loca for a-yb6>=yb5
d=recno()
if eof()
clear
@ 4,15 say "╗╣├╗╙╨╡╜╨ú▒φ╓▄╞┌╡─▒φ"
@ 8,20 clear
wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
retu
endif
a1=.t.
do while a1
clear
@ 1,0 say "╥╟▒φ├√│╞           ╨═║┼           │÷│º║┼     ╛½╢╚╡╚╝╢   ì
╔╧┤╬╨ú▒φ╚╒╞┌  ╨ú▒φ╓▄╞┌"
l=2
goto d
do while .not. eof()
@ l,0 say " "+yb1
@ l,14 say " "+yb2
@ l,32 say " "+yb3
@ l,47 say " "+yb4
b=dtoc(yb6)
j1=substr(b,7,2)
j2=substr(b,1,2)
j3=substr(b,4,2)
b=j1+'.'+j2+'.'+j3
@ l,57 say " "+b
@ l,70 say " "+str(yb5,4)
l=l+1
cont
if .not. eof()
if l>=9
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
d=recno()
goto bott
skip
a1=.t.
endif
else
a1=.f.
endif
enddo
enddo a1
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
a1=.t.
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
loca for a-yb6>=yb5
d=recno()
p=1
a1=.t.
do while a1
@ 1,40 say "╡╜╨ú▒φ╓▄╞┌╡─╥╟▒φ"
@ 2,1 say "                        "
@ 3,70 say "╡┌"+str(p,2)+"╥│"
@ 4,1 say ì
"=================================================================ì
===================="
@ 5,1 say "|╥╟▒φ├√│╞    |╥╟▒φ╨═║┼        |│÷│º║┼   ì
|╛½╢╚╡╚╝╢|╩┬╙├┤╦▒φ╡─╔Φ▒╕║┼|╨ú▒φ╓▄╞┌|╣²╞┌╠∞╩²|"
@ 6,1 say ì
"|------------|----------------|---------|--------|----------------|--ì
------|--------|"
l=7
goto d
do while .not. eof()
@ prow()+1,1 say "|"+yb1
@ prow(),14 say "|"+yb2
@ prow(),31 say "|"+yb3
@ prow(),41 say "|"+yb4
@ prow(),50 say "|"+yb8
@ prow(),67 say "|"+str(yb5,4)
c=(a-yb6)-yb5
@ prow(),76 say "|"+str(c,4)+"    |"
cont
l=l+1
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
===================="
d=recno()
p=p+1
goto bott
skip
ejec
a1=.t.
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
a1=.t.
set cons on
retu