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

Text File | 1979-12-31 | 397 b | 26 lines

a1=.t.
do while a1
clear
@ 1,1 say "╔Φ▒╕╨═║┼    ╚≤╗¼╡π▒α║┼        ╚≤╗¼╡π▓┐╬╗        ╣µ╢¿╙├╙═    ì
  ╗╗╙═╓▄╞┌"
l=2
do while .not. eof()
@ l,1 say yh1+yh2+'        '+yh3+yh5+str(yh12,6)
cont
l=l+1
if l>=9 .and. .not. eof()
wait '░┤ú╥╝ⁿ╖╡╗╪ú¼░┤╞Σ╦ⁿ╝ⁿ╝╠╨°úí' to  pp
if pp='r'
retu
else
exit
endif
endif
enddo
if eof()
exit
endif
enddo a1
wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to qq
retu