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

Text File | 1979-12-31 | 1.2 KB | 59 lines

clear
set talk off
set device to screen
close database
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
set device to print
set print on
? chr(27)+"IJ"
set print off
use bj
set index to bj2
p=1
a1=.t.
do while a1
@ prow()+1,30 say "▒╕╝■┼╠╗⌡╡Ñ"
@ prow()+1,1 say "            "
@ prow()+1,56 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"================================================================"
@ prow()+1,1 say "|▒╕╝■▒α║┼ |▒╕╝■├√│╞        ì
|╒╩├µ┐Γ┤µ|╒╩├µ╜≡╢ε|┤µ┤ó╬╗╓├|╙»┐≈╩²┴┐|"
@ prow()+1,1 say "|---------|----------------|--------|--------|--------|--------|"
l=6
do while .not. eof()
@ prow()+1,1 say "|"+b1
@ prow(),11 say "|"+b2
@ prow(),28 say "|"+str(b5,8,2)
a=b4*b5
@ prow(),37 say "|"+str(a,8,2)+"|"+b9+"|"+"        |"
skip
l=l+1
if .not. eof()
if l>=50
@ prow()+1,1 say ì
"================================================================"ì
p=p+1
ejec
exit
else
@ prow()+1,1 say ì
"|---------|----------------|--------|--------|--------|--------|"
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
retu