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

Text File | 1979-12-31 | 1.7 KB | 83 lines

clear
close database
set talk off
set device to screen
use dx
loca for dx9<>'y'
if eof()
clear
@ 4,15 say "╬▐▓╗║╧╕±╡─╡τ╞°╧▀┬╖ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
wait '  '
use
retu
endif
a2=.t.
do while a2
clear
? "╧▀┬╖├√│╞      ╧▀┬╖╣µ╕±           ╨═║┼         ╞╠╔Φ╖╜╩╜      ╩╘╤Θ╡τ╤╣"
l=2
do while .not. eof() .and. l<=9
@ l,1 say " "+dx1
@ l,12 say " "+dx2
@ l,33 say " "+dx3
@ l,50 say " "+dx4
@ l,63 say " "+dx6
l=l+1
cont
if l>=9 .and. .not. eof()
wait '░┤╚╬╥Γ╝ⁿ╝╠╨°úí'
endif
enddo
if eof()
exit
endif
enddo a2
wait '┤≥╙í┬≡(y/n) ' to w
if w='y'
set device to print
set print on
goto top
clear
@ 1,1 say "                                  ─═╤╣╩╘╤Θ▓╗║╧╕±╡─╧▀┬╖"
@ 2,1 say "              "
@ 3,1 say ì
"=================================================================ì
====================================="
@ 4,1 say "|╧▀┬╖├√│╞  |╧▀┬╖╣µ╕±            |    ╧▀┬╖╨═║┼    ì
|╞╠╔Φ╖╜╩╜    |╩╘╤Θ╡τ╤╣|╩╘╤Θ╚╒╞┌|      ┤ª└φ╥Γ╝√      |"
@ 5,1 say ì
"|----------|--------------------|----------------|------------|--ì
------|--------|--------------------|"
goto top
loca for dx9='n'
do while .not. eof()
@ prow()+1,1 say "|"+dx1
@ prow(),12 say "|"+dx2
@ prow(),33 say "|"+dx3
@ prow(),50 say "|"+dx4
@ prow(),63 say "|"+dx6
q=dtoc(dx8)
j1=substr(q,7,2)
j2=substr(q,1,2)
j3=substr(q,4,2)
q=j1+'.'+j2+'.'+j3
@ prow(),72 say "|"+q
@ prow(),81 say "|"+dx10+"|"
cont
if .not. eof()
@ prow()+1,1 say ì
"|----------|--------------------|----------------|------------|--ì
------|--------|--------------------|"
else
@ prow()+1,1 say ì
"=================================================================ì
====================================="
endif
enddo
set print on
? chr(13)
set print off
set device to screen
a1=.t.
retu