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

Text File | 1979-12-31 | 935 b | 50 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
read
wait '╩Σ╚δ╡─╩²╛▌ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥' to w
do case
case w='x'
loop
case w='r'
retu
case w='z'
wait '╗╣╩Σ╚δ┬≡ú¿ú┘ú»ú╬ú⌐' to qq
if qq<>'y'
clos data
retu
endif
enddo a1