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

Text File | 1980-01-01 | 724 b | 45 lines

clear
set talk off
set inte on
set device to screen
close database
use dq
a1=.t.
do while a1
clear
a='          '
@ 4,10 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼ú║" get a
read
loca for a=dq1
if eof()
clear
@ 4,0 clear
wait '                  ╬▐┤╦╔Φ▒╕ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
clear
@ 1,10 say "╔Φ▒╕▒α║┼" get dq1
@ 2,10 say "╝∞╨▐╓▄╞┌ 1" get dq2
@ 3,10 say "╝∞╨▐╓▄╞┌ 2" get dq3
@ 4,10 say "╝∞╨▐╓▄╞┌ 3" get dq4
@ 5,10 say "╩╘╤Θ╓▄╞┌ 1" get dq5
@ 6,10 say "╩╘╤Θ╓▄╞┌ 2" get dq6
@ 7,10 say "╩╘╤Θ╓▄╞┌ 3" get dq7
@ 8,10 say "╩╣╙├╡Ñ╬╗┤·║┼" get dq9
wait '╒µ╥¬╔╛│²┤╦╝╟┬╝┬≡ú¿ú┘ú»ú╬ú⌐' to qq
if qq='y'
dele
pack
endif
wait '╗╣╔╛│²┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w='y'
loop
endif
exit
enddo a1
clos data
retu