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

Text File | 1980-01-01 | 1.1 KB | 68 lines

@ 1,40 clear
set talk off
set device to screen
l=1
a1=.t.
use gg1
p=1
if k5='6'
loca for gzl13=k3 .and. gzl15=k5 .and. gzl1y=p102
else
loca for gzl13=k3 .and. gzl15=k5
endif
if eof()
@ 3,40 say "╟δ╜½╣ñ╫≈┴ε└·╩╖┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤╗╪│╡úí"
wait '  ' to w
a='f'
do while file('a:gg1.dbf')
a='t'
exit
enddo
if a<>'t'
@ 0,20 clear
@ 4,30 say "ú┴┼╠╔╧╬▐╣ñ╫≈┴ε▒╕╖▌┐Γú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '  '
retu
endif
use a:gg1.dbf
endif
if k5='6'
loca for gzl13=k3 .and. gzl15=k5 .and. gzl1y=p102
else
loca for gzl13=k3 .and. gzl15=k5
endif
if eof()
@ 3,38 clear
@ 3,38 say "┤╦╣╩╒╧╬¬╡┌╥╗┤╬╖ó╔·ú¼╬▐└·╩╖┐╔▓╬┐╝ú¼░┤╗╪│╡úí"
wait '  ' to w
retu
endif
p=2
endif
do while .not. eof()
p105=gzl11
cont
enddo
if p=1
use gg2
else
use a:gg2
endif
loca for gzl21=p105
l=2
@ 1,40 clear
@ 1,20 say "╣ñ╫≈─┌╚▌            ╝╞╗«╣ñ╩▒  ╩⌐╣ñ╚╦╩²  │╨╜╙╡Ñ╬╗    ╕║╘≡╚╦"
do while .not. eof()
@ l,20 say gzl23+str(gzl26,8,2)+"  "+str(gzl27,4)+"       "+gzl25+gzl28
cont
l=l+1
enddo
w='e'
set cons off
do while w<>'r'
@ l,40 clear
wait ' ' to w
enddo
set cons on
retu