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

Text File | 1979-12-31 | 892 b | 47 lines

set talk off
set device to screen
clear
use sb3
set index to sb4
a1=.t.
do while a1
@ 4,0 clear
a='         '
@ 4,20 say "╟δ╩Σ╚δ╔Φ▒α║┼" get a
read
seek a
if eof()
@ 4,0 clear
wait '                 ╬▐┤╦╔Φ▒╕ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
clos data
retu
endif
clear
@ 1,1 say "╔Φ▒╕▒α║┼" get sb1
@ 1,40 say "╓≈╥¬▓─╓╩" get sb37
@ 2,1 say "░▓╫░╠¿╩²" get sb38
@ 2,40 say "▒╕╙├╠¿╩²" get sb39
@ 3,1 say "╜Θ    ╓╩" get sb40
@ 3,40 say "╬┬    ╢╚" get sb41
@ 4,1 say "╤╣    ┴ª" get sb42
@ 4,40 say "╓≈╗·╨═║┼" get sb43
@ 5,1 say "╝⌡╦┘╗·╨═║┼" get sb44
@ 5,40 say "╝⌡╦┘╗·╦┘▒╚" get sb45
@ 6,1 say "┤½╢»╫░╓├╨╬╩╜" get sb46
@ 6,40 say "╔Φ╝╞╩┘├ⁿ" get sb47
@ 7,1 say "╔·▓·─▄┴ª" get sb48
wait '╒µ╥¬╔╛│²┤╦╝╟┬╝┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w='y'
dele
pack
endif
wait '╗╣╔╛│²┬≡ú¿ú┘ú»ú╬ú⌐' to qq
if qq<>'y'
clos data
retu
endif
enddo a1