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

Text File | 1980-01-01 | 1015 b | 68 lines

clear
set device to screen
close database
use yb
a2=.t.
do while a2
clear
a='         '
@ 4,10 say "╟δ╩Σ╚δ╥╟▒φ▒α║┼" get a
read
loca for yb11=a
if eof()
@ 4,0 clear
wait '                  ╬▐┤╦╥╟▒φú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
k1=yb1
k2=yb2
k3=yb3
k4=yb4
k5=yb5
k6=yb8
k7=yb10
k9=yb11
a1=.t.
do while a1
clear
@ 1,1 say "╥╟▒φ▒α║┼" get k9
@ 2,1 say "╥╟▒φ├√│╞" get k1
@ 3,1 say "╥╟▒φ╨═║┼" get k2
@ 4,1 say "│÷│º║┼" get k3
@ 5,1 say "╛½╢╚╡╚╝╢" get k4
@ 6,1 say "╨ú▒φ╓▄╞┌" get k5
@ 7,1 say "╩╣╙├┤╦▒φ╡─╔Φ▒╕▒α║┼" get k6
read
a3=.t.
do while a3
@ 8,1 say "╩╣╙├╡Ñ╬╗▒α║┼" get k7
read
if k7='h'
use dw
do hel1.prg
loop
endif
exit
enddo a3
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w<>'y'
a1=.t.
else
exit
endif
enddo a1
use yb
repl yb1 with k1,yb2 with k2,yb3 with k3,yb4 with k4,yb5 with ì
k5,yb8 with k6,yb10 with k7,yb11 with k9
wait '             ╗╣╨▐╕─┬≡ú¿ú┘ú»ú╬ú⌐' to qq
if qq<>'y'
clos data
retu
endif
enddo a2