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

Text File | 1979-12-31 | 2.5 KB | 143 lines

clear
set talk off
set device to screen
close database
sele 1
use bs
set index to bs1
sele 2
use sb
set index to sb1
a='         '
@ 4,10 say "╟δ╩Σ╚δ▒╕╝■║┼" get a
read
clear
t=0
sele 1
@ 1,1 say "╔Φ▒╕▒α║┼  ╔Φ▒╕├√│╞        ╨═║┼            ì
╙╡╙╨┤╦▒╕╝■╡─╕÷╩²   ▒╕╝■└α▒≡"
seek a
l=2
do while s2=a .and. .not. eof()
b=s1
sele 2
loca for sb4=b
do while .not. eof()
@ l,1 say " "+sb1
@ l,11 say " "+sb3
@ l,27 say " "+sb4
sele 1
@ l,44 say " "+str(s3,8,2)
t=t+s3
set exac on
do case
case s4='g'
d='╣╪╝ⁿ╝■'
case s4='y'
d='╥╫╦≡╝■'
case s4='yg'
d='╥╫╦≡,╣╪╝ⁿ╝■'
otherwise
d='      '
endcase
@ l,60 say " "+d
l=l+1
sele 2
cont
if .not. eof()
if l>=8
l=2
wait '░┤ú╥╝ⁿ╖╡╗╪ú¼░┤╞Σ╦ⁿ╝ⁿ╝╠╨°úí' to w
if w='r' .or. w='R'
clos data
retu
endif
clear
@ 1,1 say "╔Φ▒╕▒α║┼  ╔Φ▒╕├√│╞         ╨═║┼            ì
┤╦▒╕╝■╡─╙╡╙╨┴┐  ▒╕╝■└α▒≡"
endif
endif
enddo
sele 1
skip
enddo
@ l,1 say "******╫▄╝■╩²╬¬:"+str(t,8,2)
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
close database
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
set cons off
t=0
set device to print
set print on
? chr(27)+"IJ"
set print off
sele 1
seek a
@ prow()+1,20 say " "+a+"▒╕╝■╫░╘┌╥╘╧┬╔Φ▒╕╔╧"
@ prow()+1,1 say "                    "
@ prow()+1,1 say ì
"=================================================================ì
======================"
@ prow()+1,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        |╨═║┼            |░▓╫░╡╪╡π ì
   |╙╡╙╨┤╦▒╕╝■╡─╕÷╩²| ▒╕╝■└α▒≡  |"
@ prow()+1,1 say ì
"|---------|----------------|----------------|------------|-------ì
---------|-----------|"
l=6
do while s2=a .and. .not. eof()
b=s1
sele 2
loca for sb4=b
do while .not. eof()
@ prow()+1,1 say "|"+sb1
@ prow(),11 say "|"+sb2
@ prow(),28 say "|"+sb4
@ prow(),45 say "|"+sb29
sele 1
@ prow(),58 say "|"+str(s3,8,2)
t=t+s3
set exac on
do case
case s4='g'
d='   ╣╪╝ⁿ╝■  '
case s4='y'
d='   ╥╫╦≡╝■  '
case s4='yg'
d='╥╫╦≡,╣╪╝ⁿ╝■'
otherwise
d='           '
endcase
@ prow(),75 say "|"+d+"|"
sele 2
cont
if .not. eof()
@ prow()+1,1 say "|---------|----------------|----------------|------------|-------ì
---------|-----------|"
endif
enddo
sele 1
skip
if eof() .or. s2<>a
@ prow()+1,1 say ì
"=================================================================ì
======================"
else
@ prow()+1,1 say ì
"|---------|----------------|----------------|------------|-------ì
---------|-----------|"
endif
enddo
@ prow()+1,1 say "******╫▄╝■╩²╬¬:"+str(t,8,2)
set print on
? chr(13)
set print off
set device to screen
a1=.t.
set cons on
retu