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

Text File | 1979-12-31 | 2.7 KB | 186 lines

clear
set talk off
set device to screen
close database
sele 1
use cr
sele 2
use bj index bj1
e='    '
d='        '
@ 4,10 say "╟δ╩Σ╚δ╜±╠∞╡─╚╒╞┌" get d pict '99.99.99'
@ 5,10 say "╤í╘±╡─╓▄╫¬╞┌" get e pict '9999'
read
e=val(e)
j1=substr(d,4,2)
j2=substr(d,7,2)
j3=substr(d,1,2)
d=j1+'/'+j2+'/'+j3
d=ctod(d)
goto top
a1=.t.
do while a1
clear
@ 1,1 say "▒╕╝■▒α║┼  ▒╕╝■├√│╞           ╤í╘±╡─╓▄╫¬╞┌      ì
╩╡╝╩╡─╓▄╫¬╞┌  ì
    │¼│÷╠∞╩²"
l=2
do while .not. eof()
a=b1
sele 1
loca for l1=a .and. l10='c'
p=0
t=0
do while .not. eof()
b=l2
t=t+1
cont
if .not. eof()
c=b
endif
if t=1 .and. eof()
sele 2
c=b14
sele 1
endif
p=1
enddo
if p=0
b=d
sele 2
c=b14
sele 1
endif
if b-c>=e
sele 2
@ l,1 say " "+b1
@ l,11 say " "+b2
@ l,28 say " "+str(e,4)
f=b-c
@ l,50 say " "+str(f,8)
f=f-e
@ l,65 say " "+str(f,8)
l=l+1
endif
sele 2
skip
if .not. eof()
if l>=8
wait       '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
exit
endif
else
a1=.f.
endif
enddo
enddo a1
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
a1=.t.
close database
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
sele 2
goto top
p=1
a1=.t.
do while a1
@ prow()+1,40 say "╓▄╫¬╞┌│ñ╡─▒╕╝■"
@ prow()+1,1 say "                     "
@ prow()+1,72 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
================"
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕╝■├√│╞        |╡Ñ╝█    |╩²┴┐    ì
|╤í╘±╡─╓▄╫¬╞┌|╩╡╝╩╡─╓▄╫¬╞┌|│¼│÷╠∞╩²|"
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|------------|------ì
------|--------|"
l=6
do while .not. eof()
a=b1
sele 1
loca for l1=a .and. l10='c'
if eof()
b=d
sele 2
c=b14
sele 1
endif
t=0
do while .not. eof()
t=t+1
b=l2
cont
if t=1 .and. eof()
sele 2
c=b14
sele 1
endif
if .not. eof()
c=b
endif
enddo
sele 2
t1=1
if b-c>=e
@ prow()+1,1 say "|"+b1
@ prow(),11 say "|"+b2
@ prow(),28 say "|"+str(b4,8,2)
t1=2
@ prow(),37 say "|"+str(b5,8,2)
@ prow(),46 say "|"+str(e,4)
f=b-c
@ prow(),59 say "|"+str(f,4)
f=f-e
@ prow(),72 say "|"+str(f,4)+"    |"
l=l+1
sele 2
skip
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
==============="
p=p+1
ejec
exit
else
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|------------|------ì
------|--------|"
l=l+1
endif
else
@ prow()+1,1 say ì
"=================================================================ì
================"
a1=.f.
endif
endif
if t1=1
sele 2
skip
endif
if eof()
a1=.f.
endif
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
a1=.t.
close database
set cons on
retu