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

Text File | 1979-12-31 | 1.5 KB | 83 lines

clear
set talk off
set device to screen
close database
sele 1
use bjh
sele 2
use ygz
a='     '
@ 4,10 say "╟δ╩Σ╚δ─Ω╖▌,╘┬╖▌" get a pict 'xx.xx'
read
sele 1
count to x for bjh18<>'f'
sele 2
loca for g1=a
repl g5 with x
loca for g1<=a
a1=.t.
do while a1
clear
@ 1,1 say "─Ω.╘┬    ╡▒╘┬╔Φ▒╕╩╡┐¬╠¿╩²   ╘┬╣╩╒╧┤╬╩²   ╣╩╒╧╞╡╢╚"
l=2
do while .not. eof()
@ l,1 say " "+g1
@ l,8 say " "+str(g5,5)
@ l,25 say " "+str(g2,5)
e=g2/g5
@ l,38 say " "+str(e,8,2)
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'
close database
a1=.t.
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set device to print
set cons off
? chr(27)+"IJ"
@ prow()+1,20 say "╘┬╔Φ▒╕╣╩╒╧╞╡╢╚"
@ prow()+1,1 say "                 "
@ prow()+1,1 say "======================================================"
@ prow()+1,1 say "|─Ω.╘┬     |╡▒╘┬╔Φ▒╕╩╡┐¬╠¿╩²|╘┬╣╩╒╧┤╬╩²|╣╩╒╧╞╡╢╚  ì
   |"
@ prow()+1,1 say ì
"|----------|----------------|----------|-------------|"
loca for g1<=a
do while .not. eof()
@ prow()+1,1 say "|"+g1
@ prow(),12 say "|"+str(g5,5)
@ prow(),29 say "|"+str(g2,5)
e=g2/g5
@ prow(),40 say "|"+str(e,8,2)+"     |"
cont
if .not. eof()
@ prow()+1,1 say "|----------|----------------|----------|-------------|"
else
@ prow()+1,1 say "======================================================"
endif
enddo
@ prow()+1,1 say "╣╩╒╧╞╡╢╚ú╜╘┬╣╩╒╧┤╬╩²ú»╓≈╥¬╔Φ▒╕╩╡┐¬╠¿╩²"
set print on
? chr(13)
set print off
set device to screen
set cons on
retu