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

Text File | 1979-12-31 | 1.1 KB | 60 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 " ú╕ú«╜¿┴ó╣⌐╗⌡╡Ñ╬╗┤·║┼┐Γ          ú╣ú«▒¿╖╧▒╕╝■╡─┤ª└φ"
@ 7,10 say "**************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9):' to w
do case
case w='0'
retu
case w='9'
do cl
case w='1'
do rk.prg
case w='2'
do ck.prg
case w='3'
do hs.prg
case w='4'
do xr.prg
case w='5'
do bs1.prg
case w='6'
do bs2.prg
case w='7'
do bs3.prg
case w='8'
use gh
set index to gh1
a1=.t.
do while a1
clear
a='  '
b='                    '
clear
@ 4,20 say "╣⌐╗⌡╡Ñ╬╗┤·║┼" get a
@ 5,20 say "╣⌐╗⌡╡Ñ╬╗├√│╞" get b
read
appe blank
repl gh1 with a,gh2 with b
wait '╗╣╩Σ╚δ┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w<>'y'
use
exit
endif
enddo
endcase
enddo a1
a1=.t.
retu