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

Text File | 1980-01-01 | 1.2 KB | 69 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 1,10 say "**********************▒╕╝■║╧═¼╣▄└φ**********************"
@ 2,10 say "  ú░ú«═╦│÷                     ú▒ú«╢⌐╗⌡╡Ñ╡─╩Σ╚δ"
@ 3,10 say "  ú▓ú«░┤╢⌐╗⌡╚╒╞┌▓Θ╤»           ú│ú«░┤╢⌐╗⌡╡Ñ║┼▓Θ╤»"
@ 4,10 say "  ú┤ú«┤▀╗⌡═¿╓¬╡Ñ               ì
ú╡ú«╙ª═╦╗⌡╗≥┤ª└φ╡─▒╕╝■"
@ 5,10 say "  ú╢ú«═╦╗⌡╗≥┤ª└φ║≤║╧═¼╡─╨▐╕─"
@ 6,10 say "*******************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6):' to w
do case
case w='0'
retu
case w='1'
do bh1.prg
case w='2'
do bh3.prg
case w='3'
do bh2.prg
case w='4'
do bh4.prg
case w='5'
do bh5.prg
case w='6'
use bh
c='   '
clear
@ 4,10 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get c pict '999'
read
c=val(c)
do while c<>0
clear
a='            '
b='         '
d='        '
a1=.t.
do while a1
clear
@ 4,10 say "╟δ╩Σ╚δ║╧═¼║┼" get a
@ 5,10 say "▒╕╝■║┼" get b
@ 6,10 say "═╦╗⌡╗≥┤ª└φ╩²┴┐" get d pict '#####.##'
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
if w<>'y'
loop
endif
d=val(d)
loca for h1=a .and. h2=b
repl h7 with h7-d,h17 with 'n'
if h7<=0 .and. .not. eof()
dele
pack
endif
exit
enddo a1
c=c-1
enddo
endcase
a1=.t.
enddo a1
retu