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

Text File | 1979-12-31 | 497 b | 37 lines

clear
set talk off
set device to screen
xx=0
a1=.t.
do while a1
clear
@ 1,1 say "╔Φ▒╕▒α║┼ ╔Φ▒╕├√│╞      ╔Φ▒╕╨═║┼            ╔Φ▒╕╣µ╕±  ì
          ╓╞╘∞│º"
l=2
do while .not. eof()
@ l,1 say sb1+sb3+sb4+sb5+sb8
xx=xx+1
cont
l=l+1
if l>=9 .and. .not. eof()
wait '░┤ú╥╝ⁿ╖╡╗╪ú¼░┤╞Σ╦ⁿ╝ⁿ╝╠╨°úí' to qq
if qq='r'
retu
else
exit
endif
endif
endif
enddo
if eof()
exit
endif
enddo a1
@ l,1 say "╫▄╣▓╙╨"+BT+'╔Φ▒╕'+str(xx,6)+"╠¿"
wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to w
retu
endif