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

Text File | 1980-01-01 | 824 b | 37 lines

set talk off
clear
@ 3,24 say '==================='
@ 4,24 say ' ╟δ─·╔╘║ε,╒²╘┌┤≥╙í'
@ 5,24 say '==================='
set devi 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 '|╨≥║┼| ╨╘─▄╧ε─┐ |    ╞└╖╓▓╬┐╝╥≥╦╪      | ╞└╖╓ |'
m=9
use c:zp2
do while .not.eof()
if b='b'
@ m,1 say '|----|----------|----------------------|------|'
endif
m=m+1
@ m,1 say '|'+xh+'|'+xm+'|'+ys+'|'+pf+'|'
m=m+1
skip
enddo
@ m,1 say '==============================================='
@ m+1,1 say '╫ó:├┐╧ε╫ε╕▀╖╓ú▒ú░╖╓           ╞└╖╓╚╦:'
@ m+1,1 say ' '
set print off
set devi to screen
return