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

Text File | 1979-12-31 | 752 b | 45 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
if qq='1'
use bj index bj1
ee='         '
@ 4,20 say "╟δ╩Σ╚δ▒╕╝■▒α║┼" get ee
read
endif
if qq='2'
use bj index bj2
ee='        '
@ 4,20 say "╟δ╩Σ╚δ▒╕╝■╡─┤µ┤ó╬╗╓├" get ee
read
endif
seek ee
if eof()
@ 4,0 clear
wait '              ╬▐┤╦▒╕╝■ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
clear
@ 2,10 say "▒╕╝■▒α║┼" get b1
@ 2,50 say "▒╕╝■├√│╞" get b2
@ 3,10 say "╣µ╕±═╝║┼" get b3
@ 3,50 say "╡Ñ    ╝█" get b4
@ 4,10 say "╩²    ┴┐" get b5
@ 4,50 say "╫ε╕▀┐Γ┤µ" get b6
@ 5,10 say "╫ε╡═┐Γ┤µ" get b7
@ 5,50 say "╢⌐ ╗⌡ ╡π" get b8
@ 6,10 say "┤µ┤ó╬╗╓├" get b9
wait '   ╗╣▓Θ╤»┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w='y'
loop
endif
exit
enddo
clos data
retu