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

Text File | 1980-01-01 | 961 b | 91 lines

@ 1,40 clear
set talk off
set device to screen
l=1
p1=1
a1=.t.
use rs
goto top
do while a1
if p1=1
@ 0,40 say "╣ñ╫≈╓ñ║┼   ╨╒├√    ╝╝╩⌡╡╚╝╢  └═┴ª╦«╞╜"
endif
@ l,40 say " "+rs1+"    "+rs2+'     '+rs6+'      '+rs12
skip
l=l+1
if .not. eof()
if l<9
p1=2
loop
else
set console off
wait '   ' to w
set console on
p1=1
do case
case w='.'
@ 1,40 clear
l=1
loop
case w=','
a=recno()
skip -l-9
l=1
if a-l-9<=1
? chr(7)
endif
@ 1,40 clear
loop
case w='r'
@ 0,40 clear
otherwise
? chr(7)
skip -l
l=1
@ 1,40 clear
loop
endcase
endif
else
set console off
wait '  ' to w
set console on
p1=1
do case
case w='.'
? chr(7)
skip -l+1
l=1
@ 1,40 clear
loop
case w=','
a=recno()
if a>=9
skip -l-7
@ 1,40 clear
l=1
loop
else
goto top
? chr(7)
@ 1,40 clear
l=1
loop
endif
case w='r'
@ 0,40 clear
otherwise
skip -l+1
? chr(7)
l=1
@ 1,40 clear
loop
endcase
endif
exit
enddo a1