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

Text File | 1980-01-01 | 395 b | 25 lines

a1=.t.
do while a1
clear
@ 1,1 say "╧▀┬╖▒α║┼  ╧▀┬╖├√│╞   ╣µ╕±            ╩╘╤Θ╡τ╤╣  ╩╘╤Θ╓▄╞┌     ░▓╫░╡╪╡π "
l=2
do while .not. eof()
@ l,1 say dx7+dx1+dx2+dx6+"     "+str(dx5,4)+"  "+dx12
l=l+1
skip
if l>9 .and. .not. eof()
wait '░┤ú╥╝ⁿ╖╡╗╪ú¼╞Σ╦ⁿ╝ⁿ╝╠╨°úí' to ww
if ww='r'
retu
else
exit
endif
endif
enddo
if eof()
exit
endif
enddo
wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to pp
retu