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

Text File | 1979-12-31 | 2.2 KB | 105 lines

clear
close database
use bj index bj1
set talk off
set device to screen
@ 1,1 say "▒╕╝■▒α║┼ ▒╕╝■├√│╞        ╡▒╟░┐Γ┤µ ╫ε╡═┐Γ┤µ ╢⌐╗⌡╡π      ▓ε╓╡   ╡Ñ╝█"
l=2
loca for b5-b8<=0
if eof()
clear
@ 4,15 say "╬▐╙ª╢⌐╗⌡╡─▒╕╝■ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait ' ' to w
retu
endif
do while .not. eof()
a=b8-b5
@ l,1 say " "+b1
@ l,10 say " "+b2
@ l,23 say " "+str(b5,8,2)
@ l,32 say " "+str(b7,8,2)
@ l,41 say " "+str(b8,8,2)
@ l,50 say " "+str(a,8,2)
@ l,60 say " "+str(b4,8,2)
l=l+1
if l=9
l=0
wait '                                                             ░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
clear
@ l,1 say "▒╕╝■▒α║┼ ▒╕╝■├√│╞        ╡▒╟░┐Γ┤µ ╫ε╡═┐Γ┤µ   ╢⌐╗⌡╡π   ▓ε╓╡ ì
  ╡Ñ╝█"
l=l+1
endif
cont
enddo
wait '            ┤≥╙í┬≡(y/n)   ' to w
if w<>'y'
close database
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
r=1
loca for b5-b8<=0
w=.t.
do while w
@ prow()+1,1 say "                  ╙ª ╢⌐ ╗⌡ ╡─ ▒╕ ╝■"
@ prow()+1,1 say "                 "
@ prow()+1,60 say "(╡┌"+str(r,3)+"╥│)"
@ prow()+1,1 say  ì
"========================================================================="
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕╝■├√│╞        |╡▒╟░┐Γ┤µ|╫ε╡═┐Γ┤µ|╢⌐╗⌡╡π ì
 |▓ε╓╡    |╡Ñ╝█   ì
 |"
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|--------|"
l=6
do while .not. eof()
c=b8-b5
@ prow()+1,1 say "|"+b1
@ prow(),11 say "|"+b2
@ prow(),28 say "|"+str(b5,8,2)
@ prow(),37 say "|"+str(b7,8,2)
@ prow(),46 say "|"+str(b8,8,2)
@ prow(),55 say "|"+str(c,8,2)
@ prow(),64 say "|"+str(b4,8,2)+"|"
l=l+1
cont
if .not. eof()
if l>=54
@ prow()+1,1 say ì
"=================================================================ì
========"
ejec
r=r+1
exit
else
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|-ì
-------|"
l=l+1
endif
else
w=.f.
@ prow()+1,1 say ì
"=================================================================ì
========"
endif
enddo
enddo w
set print on
? chr(13)
set print off
set device to screen
close database
a1=.t.
set cons on
return