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

Text File | 1979-12-31 | 1.9 KB | 94 lines

clear
set talk off
set device to screen
close database
use bj index bj1
? "▒╕╝■▒α║┼        ▒╕╝■├√│╞          ╡▒╟░┐Γ┤µ     ╫ε╡═┐Γ┤µ     ┐Γ┤µ╢╠╚▒┴┐"
l=2
loca for b5<=b7
if eof()
clear
@ 4,15 say "╬▐╢╠╚▒▒╕╝■ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait ' ' to w
retu
endif
do while .not. eof()
a=b5-b7
@ l,1 say " "+b1
@ l,14 say " "+b2
@ l,31 say " "+str(b5,8,2)
@ l,44 say " "+str(b7,8,2)
@ l,56 say " "+str(-a,8,2)
l=l+1
if l>=9
l=0
wait '                                                             ░┤╚╬╥Γ╝ⁿ╝╠╨°' to w
clear
@ l,1 say "▒╕╝■▒α║┼         ▒╕╝■├√│╞         ╡▒╟░┐Γ┤µ     ╫ε╡═┐Γ┤µ  ì
  ┐Γ┤µ╢╠╚▒┴┐"
l=l+1
endif
endif
cont
enddo
wait '     ┤≥╙í┬≡(y/n) 'to w
if w<>'y'
close database
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set device to print
set print on
? chr(27)+"IJ"
set print off
r=1
loca for b5-b7<=0
a1=.t.
do while a1
@ prow()+1,1 say "              ╢╠ ╚▒ ▒╕ ╝■ ╡Ñ            "
@ prow()+1,1 say "                 "
@ prow()+1,50 say "(╡┌"+str(r,2)+"╥│)"
@ prow()+1,1 say "========================================================="
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕╝■├√│╞        |╡▒╟░┐Γ┤µ|╫ε╡═┐Γ┤µ|┐Γ┤µ╢╠╚▒┴┐|"
@ prow()+1,1 say "|---------|----------------|--------|--------|----------|"
l=5
do while .not. eof()
c=b5-b7
@ 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(-c,10)+"|"
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
@ prow()+1,1 say ì
"========================================================="
a1=.f.
endif
enddo
enddo a1
set print on
? chr(13)
set print off
set device to screen
a1=.t.
set cons on
return