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

Text File | 1980-01-01 | 1.6 KB | 86 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 0,10 say "*************************╚≤╗¼╣▄└φ***************************"
@ 1,10 say " ú░ú«═╦│÷                        ú▒ú«╜¿╚≤╗¼╡╡░╕"
@ 2,10 say " ú▓ú«░┤╗╗╙═╓▄╞┌▓Θ╤»╚≤╗¼╡▓░╕      ú│ú«╚≤╗¼╗╗╙═╖┤└í╩Σ╚δ"
@ 3,10 say " ú┤ú«░┤┐¬╢»╠¿╩▒╙ª╗╗╙═╡─▓┐╬╗      ú╡ú«░┤╨═║┼▓Θ╤»╚≤╗¼╡╡░╕"
@ 4,10 say " ú╢ú«╝╞╦π╚≤╗¼╙═╡──Ω╨Φ╟≤┴┐    ì
    ú╖ú«╧╘╩╛ú¼┤≥╙í╚≤╗¼╙═╡──Ω╨Φ╟≤┴┐"
@ 5,10 say " ú╕ú«▒α╧┬╥╗╜╫╢╬╡─╗╗╙═╝╞╗«    ì
    ú╣ú«╧╘╩╛ú¼┤≥╙í╧┬╥╗╜╫╢╬╗╗╙═╝╞╗«"
@ 6,10 say " ú┴ú«╧╘╩╛ú¼┤≥╙í╘┬╗╗╙═╝╞╗«     ì
   ú┬ú«╓┤╨╨╘┬╗╗╙═╝╞╗«╡─╨Φ╟≤┴┐"
@ 7,10 say " ú├ú«╨▐╕─╚≤╗¼╡╡░╕                ú─ú«╔╛│²╚≤╗¼╡╡░╕"
@ 8,10 say "************************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9,a,b,c,d):' to w
do case
case w='c'
do xg5
case w='d'
do sc5
case w='0'
retu
case w='1'
do yh5.prg
case w='2'
clear
y='   '
@ 4,20 say "╟δ╩Σ╚δ╫ε╢╠╡─╗╗╙╬╓▄╞┌" get y  pict '999'
read
y=val(y)
use yh
loca for yh12>=y
bb='b'
if eof()
@ 4,0 clear
wait '╬▐╗╗╙═╓▄╞┌┤≤╙┌'+str(y,3)+'╠∞╡─╚≤╗¼▓┐╬╗ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
dd=recno()
do yh3
case w='3'
do yh2.prg
case w='4'
do yh4.prg
a1=.t.
case w='5'
clear
y='                '
@ 4,20 say "╟δ╩Σ╚δ╔Φ▒╕╨═║┼" get y
read
bb='c'
use yh
loca for yh1=y
if eof()
@ 4,0 clear
wait '╬▐┤╦╨═║┼╔Φ▒╕╡─╚≤╗¼╡╡░╕ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
dd=recno()
do yh3
case w='6'
do yh6.prg
case w='7'
do yh7.prg
case w='8'
do yh9.prg
case w='9'
do yh8.prg
case w='a'
do yha.prg
case w='b'
do yhb.prg
endcase
enddo a1
retu