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

Text File | 1980-01-01 | 1.1 KB | 39 lines

set talk off
clear
@ 3,24 say '==================='
@ 4,24 say ' ╟δ─·╔╘║ε,╒²╘┌┤≥╙í'
@ 5,24 say '==================='
set device to print
set print on
@ 1,1 say '                 ▓·╞╖│╔▒╛╙Φ▓Γ▒φú¿╖╜░╕ú║  ú⌐'
@ 2,1 say '                 =========================='
@ 3,1 say ' '
@ 4,1 say '┤·▒φ▓·╞╖├√│╞,╣µ╕±:'
@ 5,1 say ' '
@ 6,1 say '    ╔Φ╝╞─Ω▓·┴┐:        ╝╞┴┐╡Ñ╘¬:       ╡Ñ╬╗:╘¬'
@ 7,1 say '================================================'
@ 8,1 say  '|          |        ╡Ñ    ╘¬    │╔    ▒╛       |'
@ 9,1 say  '| ╖╤╙├╥¬╦╪ |-----------------------------------|'
@ 10,1 say '|          |╝╞┴┐╡Ñ╬╗| ╡Ñ  ╝█ |╡Ñ╘¬║─┴┐|╡Ñ╘¬│╔▒╛|'
@ 11,1 say '|==========|========|========|========|========|'
use c:xfx3
l=12
do while .not.eof()
@ l,1 say '|'+ys+'|'+dw+'|'+dj+'|'+hl+'|'+cb+'|'
skip
l=l+1
if eof()
@ l,1 say '================================================'
else
@ l ,1 say '|----------|--------|--------|--------|--------|'
endif
l=l+1
enddo
@ l,1 say '  ╫ó: ╥╘╔╧▒Ω╙╨ú¬└╕─┐▓╗╠ε'
l=l+1
@ l,1 say ' '
set print off
set device to screen
return