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

Text File | 1980-01-01 | 1.0 KB | 70 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,36 clear
@ 3,36 say "┤╦╨▐└φ╬¬╡┌╥╗┤╬╨▐└φú¼╬▐└·╩╖┐╔▓╬┐╝ú¼░┤╗╪│╡úí"
wait '  ' to w
retu
endif
p=2
endif
do while .not. eof()
p105=gzl11
cont
enddo
if p=1
use gg6
else
use a:gg6
endif
loca for gzl61=p105
l=2
@ 1,40 clear
@ 1,40 say "(╔╧┤╬╨▐└φ╩▒╡─)░▓╚½╫ó╥Γ╩┬╧ε"
do while .not. eof()
@ l,40 say gzl62
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