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

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

clear
set talk off
set device to screen
a='  '
c='  '
b='        '
@ 4,10 say '╟δ╩Σ╚δ╞≡╩╝─Ω╖▌:' get a pict '99'
@ 5,10 say "╓╒╓╣─Ω╖▌:" get c pict '99'
read
qq=a
tt=c
clear
use bfs
a='01'+'/'+'01'+'/'+a
c='12'+'/'+'31'+'/'+c
a=ctod(a)
c=ctod(c)
loca for bfs12>=a .and. bfs12<=c
if eof()
clear
@ 4,25 say "┤╦╚╒╞┌╝Σ╬▐▒¿╖╧╔Φ▒╕"
@ 7,1 clear
wait '                         ░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
retu
endif
a1=.t.
do while a1
clear
@ 1,1 say "╔Φ▒╕▒α║┼  ╔Φ▒╕├√│╞        ╥╤╩╣╙├─Ω╧▐       ╘¡╓╡      ì
╛╗▓╨╓╡    ▒¿╖╧╚Ñ╧≥"
l=2
do while .not. eof()
@ l,1 say " "+bfs1
@ l,11 say " "+bfs2
@ l,28 say " "+str(bfs11,2)
@ l,38 say " "+str(bfs7,10,2)
@ l,50 say " "+str(bfs13,10,2)
@ l,62 say " "+bfs14
cont
l=l+1
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.
retu
endif
set device to print
set cons off
set print on
? chr(27)+"IJ"
set print off
set cons on
loca for bfs12>=a .and. bfs12<=c
@ 1,50 say qq+"---"+tt+"─Ω▒¿╖╧╔Φ▒╕├≈╧╕"
@ 3,1 say "            "
@ 4,1 say ì
"=================================================================ì
==============================================================ì
=="
@ 5,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        |╨═║┼            |╓╪┴┐  ì
|╥╤╩╣╙├─Ω╧▐|▒¿╖╧╚╒╞┌|╘¡╓╡      |╛╗╓╡      |╥╤╠ß╒█╛╔  |╛╗▓╨╓╡    ì
|▒¿╖╧╚Ñ╧≥    |"
@ 6,1 say ì
"|---------|----------------|----------------|------|----------|--ì
------|----------|----------|----------|----------|----------ì
--|"
l=7
do while .not. eof()
@ l,1 say "|"+bfs1
@ l,11 say "|"+bfs2
@ l,28 say "|"+bfs3
@ l,45 say "|"+str(bfs5,6,2)
@ l,52 say "|"+str(bfs11,2)
e=dtoc(bfs12)
j1=substr(e,7,2)
j2=substr(e,1,2)
j3=substr(e,4,2)
e=j1+'.'+j2+'.'+j3
@ l,63 say "|"+e
@ l,72 say "|"+str(bfs7,10,2)
@ l,83 say "|"+str(bfs9,10,2)
@ l,94 say "|"+str(bfs8,10,2)
@ l,105 say "|"+str(bfs13,10,2)
@ l,116 say "|"+bfs14+"|"
cont
l=l+1
if .not. eof()
@ l,1 say ì
"|---------|----------------|----------------|------|----------|--ì
------|----------|----------|----------|----------|-----------ì
-|"
l=l+1
else
@ l,1 say ì
"=================================================================ì
==============================================================ì
=="
endif
enddo
set print on
? chr(13)
set print off
set device to screen
a1=.t.
retu