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

Text File | 1980-01-01 | 2.8 KB | 143 lines

clear
set talk off
set device to screen
close database
use bf
a='        '
b='        '
@ 4,10 say "╞≡╩╝╚╒╞┌" get a pict '99.99.99'
@ 5,10 say "╓╒╓╣╚╒╞┌" get b 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)
j1=substr(b,4,2)
j2=substr(b,7,2)
j3=substr(b,1,2)
b=j1+'/'+j2+'/'+j3
b=ctod(b)
loca for bf7>=a .and. bf7<=b
if eof()
clear
@ 4,10 say "┤╦╚╒╞┌─┌╬▐▒¿╖╧▒╕╝■"
@ 7,0 clear
wait '       ░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
retu
endif
a1=.t.
do while a1
clear
@ 1,0 say "▒╕╝■▒α║┼  ╬┤╜╗╗⌡┴┐  ╜≡╢ε      ╡Ñ╝█      ╩²┴┐  ┤µ╖┼╡╪╡π ì
   ▒¿╖╧╚╒╞┌  ╫▄╜≡╢ε"
l=2
do while .not. eof()
@ l,0 say " "+bf1
@ l,10 say " "+str(bf8,8,2)
@ l,19 say " "+str(bf9,8,2)
@ l,27 say " "+str(bf4,8,2)
@ l,37 say " "+str(bf5,8,2)
@ l,47 say " "+bf6
e=dtoc(bf7)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ l,56 say " "+e
e=bf4*bf5+bf9
@ l,66 say " "+str(e,8,2)
l=l+1
cont
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'
close database
a1=.t.
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
p=1
loca for bf7>=a .and. bf7<=b
a1=.t.
do while a1
@ prow()+1,30 say "╙ª▒¿╖╧╡─▒╕╝■"
@ prow()+1,1 say "              "
@ prow()+1,60 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
==========================================="
@ prow()+1,1 say "|▒╕╝■├√│╞ |▒╕╝■▒α║┼        |╨═║┼╣µ╕±        |╡Ñ╝█ ì
   |╩²┴┐    |┤µ┤ó╬╗╓├|╬┤╜╗╢⌐╗⌡|╜≡╢ε    |╫▄╜≡╢ε  |▒¿╖╧╚╒╞┌|"
@ prow()+1,1 say ì
"|---------|----------------|----------------|--------|--------|--ì
------|--------|--------|--------|--------|"
l=6
do while .not. eof()
@ prow()+1,1 say "|"+bf1
@ prow(),11 say "|"+bf2
@ prow(),28 say "|"+bf3
@ prow(),45 say "|"+str(bf4,8,2)
@ prow(),54 say "|"+str(bf5,8,2)
@ prow(),63 say "|"+bf6
@ prow(),72 say "|"+str(bf8,8,2)
@ prow(),81 say "|"+str(bf9,8,2)
d=bf4*bf5+bf9
@ prow(),90 say "|"+str(d,8,2)
e=dtoc(bf7)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ prow(),99 say "|"+e+"|"
l=l+1
cont
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
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
a1=.t.
close database
set cons on
retu