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

Text File | 1980-01-01 | 1.1 KB | 38 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:xfx1
l=12
do while .not.eof()
@ l,1 say '|'+xm+'|'+wb+'|'+zr+'|'+r+'|'+hj+'|'+bfs+'|'
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