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

Text File | 1979-12-31 | 3.2 KB | 194 lines

clear
set talk off
set device to screen
close database
sele 1
use cr
sele 2
use gh index gh1
sele 3
use dw index dw1
sele 4
use bj index bj1
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)
sele 1
loca for l2>=a .and. l2<=b
if eof()
wait '┤╦╚╒╞┌╝Σ╬▐│÷╚δ┐Γ╗ε╢»,░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
retu
endif
a2=.t.
do while a2
clear
@ 1,1 say "▒╕╝■▒α║┼  ▒╕╝■├√│╞        ╡Ñ╝█    ╩²┴┐    ╡Ñ╬╗├√│╞     ì
          ╚╒╞┌    └α▒≡"
l=2
do while .not. eof()
@ l,1 say " "+l1
c=l1
sele 4
seek c
@ l,10 say " "+b2
sele 1
@ l,24 say " "+str(l4,8,2)
@ l,31 say " "+str(l3,8,3)
e=l6
if l10='r'
sele 2
seek e
@ l,41 say " "+gh2
else
sele 3
seek e
@ l,41 say " "+dw2
endif
sele 1
e=dtoc(l2)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ l,64 say " "+e
do case
case l10='r'
d='╜°┐Γ'
case l10='h'
d='╗╪╩╒'
case l10='c'
d='│÷┐Γ'
otherwise
d='    '
endcase
@ l,74 say " "+d
l=l+1
cont
if .not. eof()
if l>=8
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
exit
endif
else
a2=.f.
endif
enddo
enddo a2
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
clos data
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
p=1
sele 1
loca for l2>=a .and. l2<=b
a1=.t.
do while a1
@ prow()+1,50 say "│÷╚δ┐Γ┴≈╦«╒╩"
@ prow()+1,10 say "                                           "
@ prow()+1,80 say "╡┌:"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
======================================="
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕╝■├√│╞        |╡Ñ╝█    |╩²┴┐    ì
|╣⌐╗⌡╡Ñ╬╗├√│╞                  |╣ñ╫≈┴ε║┼    |╚╒╞┌    |└α▒≡|"
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|-------------------ì
-----------|--ì
----------|--------|----|"
l=7
do while .not. eof()
@ prow()+1,1 say "|"+l1
d=l1
sele 4
seek d
@ prow(),11 say "|"+b2
sele 1
@ prow(),28 say "|"+str(l4,8,2)
@ prow(),37 say "|"+str(l3,8,2)
e=l6
if l10='r'
sele 2
seek e
@ prow(),46 say "|"+gh2
else
sele 3
seek e
@ prow(),46 say "|"+dw2
endif
sele 1
@ prow(),77 say "|"+str(l7,12)
do case
case l10='r'
d='╜°┐Γ'
case l10='h'
d='╗╪╩╒'
case  l10='c'
d='│÷┐Γ'
otherwise
d='    '
endcase
f=dtoc(l2)
j1=substr(f,7,2)
j2=substr(f,1,2)
j3=substr(f,4,2)
f=j1+'.'+j2+'.'+j3
@ prow(),90 say "|"+f
@ prow(),99 say "|"+d+"|"
cont
l=l+1
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"=================================================================ì
======================================"
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
a1=.t.
close database
set cons on
retu