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

Text File | 1980-01-01 | 997 b | 92 lines

@ 0,30 clear
set talk off
set device to screen
sele 1
use bj index bj1
sele 2
use bs
l=2
loca for s1=p3
do while .not. eof()
@ 1,30 say "▒╕╝■▒α║┼  ▒╕╝■├√│╞        ╣µ╕±            ┐Γ┤µ╩²┴┐"
@ l,30 say " "+s2
b=s2
sele 1
seek b
@ l,40 say b2+b3+str(b5,8,2)
sele 2
cont
l=l+1
if .not. eof()
if l<9
loop
else
set console off
wait '   ' to w
set console on
do case
case w='.'
@ 0,30 clear
l=2
loop
case w=','
a=recno()
skip -l-8
l=2
@ 0,30 clear
if a-l-8<=1
? chr(7)
endif
@ 0,30 clear
loop
case w='r'
retu
otherwise
? chr(7)
skip -l
l=2
@ 0,30 clear
loop
endcase
endif
else
set console off
wait '  ' to w
set console on
do case
case w='.'
? chr(7)
skip -l+2
l=2
@ 0,30 clear
loop
case w=','
a=recno()
if a>=9
skip -l-7
@ 0,30 clear
l=2
loop
else
goto top
? chr(7)
@ 0,30 clear
l=2
loop
endif
case w='r'
exit
otherwise
skip -l+1
? chr(7)
l=2
@ 0,30 clear
loop
endcase
endif
enddo