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

Text File | 1980-01-01 | 2.1 KB | 96 lines

set device to screen
pp='q'
qq='q'
do yhd
if pp='y'
retu
endif
if qq<>'y'
retu
endif
clear
@ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
goto dd
set device to print
set print on
set cons off
? chr(27)+"II"
set print off
p=1
a2=.t.
do while a2
if bb='b'
@ prow()+1,40 say "╗╗╙═╓▄╞┌┤≤╙┌╡╚╙┌"+str(y,4)+"╠∞╡─╔Φ▒╕╚≤╗¼╡╡░╕"
else
@ prow()+1,50 say '╔Φ▒╕╚≤╗¼╡╡░╕'
endif
@ prow()+1,1 say "           "
@ prow()+1,110 say "╡┌"+str(p,2)+"╥│"
@ prow()+1,1 say ì
"=================================================================ì
=========================================================ì
==============="
@ prow()+1,1 say "|╔Φ▒╕╨═║┼        |╚≤╗¼╡π▒α║┼|╚≤╗¼╡π▓┐╬╗              |╚≤╗¼╖╜╩╜    ì
    |ì
╣µ╢¿╙├╙═(╧─)|╣µ╢¿╙├╙═(╢¼)|┤·╙├╙═(╧─)|┤·╙├╙═(╢¼)|╗╗╙═╓▄╞┌  |╗╗╙═┴┐|"
@ prow()+1,1 say ì
"|----------------|----------|------------------------|-----------ì
-----|----------ì
--|------------|----------|----------|----------|----ì
--|"
l=6
do while .not. eof()
@ prow()+1,1 say "|"+yh1+"|"+yh2
@ prow(),29 say "|"+yh3
@ prow(),54 say "|"+yh4
@ prow(),71 say "|"+yh5
@ prow(),84 say "|"+yh6
@ prow(),97 say "|"+yh7
@ prow(),108 say "|"+yh8
@ prow(),119 say "|"+str(yh12,3)
@ prow(),130 say "|"+str(yh13,6,2)+"|"
cont
l=l+1
if .not. eof()
if l<=50
@ prow()+1,1 say ì
"|----------------|----------|------------------------|----------------|----------ì
--|------------|----------|----------|----------|----ì
--|"
l=l+1
else
@ prow()+1,1 say ì
"=================================================================ì
======================================================================ì
==="
ejec
@ prow()+1,1 say "                              "
@ prow()+1,1 say "                             "
p=p+1
exit
endif
else
@ prow()+1,1 say ì
"=================================================================ì
=========================================================ì
==============="
a2=.f.
endif
enddo
enddo a2
set print on
? chr(13)
set print off
set device to screen
set cons on
a1=.t.
retu