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

Text File | 1980-01-01 | 2.5 KB | 129 lines

set talk off
clear
m=0
mc='                                '
@ 4,20 say '╝╕╬╗╫¿╝╥▓╬╝╙╞└╣└?' get m
read
clear
@ 4,05 say '╩Σ╚δ▒╗╞└╣└╔Φ▒╕╡─├√│╞╙δ╨═║┼' get mc
read
clear
use c:xzp3
dele all
pack
mm=1
appe blan
do while mm<=m
clear
@ 3,10 say '╛¡    ╝├:' get jj
@ 4,10 say '┐╔    ┐┐:' get kk
@ 5,10 say '╥╫    ╨▐:' get yx
@ 6,10 say '╜┌    ─▄:' get jn
@ 3,40 say '╗╖▒ú░▓╚½:' get hb
@ 4,40 say '═¿    ╙├:' get ty
@ 5,40 say '╩╩    ╙├:' get sy
@ 6,40 say '═Γ    ╣█:' get wg
read
ma=' '
@ 8,29 say '╒²╚╖┬≡?(y/n)' get ma
read
if ma='n'.or.ma='N'
loop
endif
mm=mm+1
s=mm-1
repl xn with ' ╖╓  ╓╡'+str(s,2)+' '
tot=jj+kk+yx+jn+hb+ty+sy+wg
t1=jj/tot*100
t2=kk/tot*100
t3=yx/tot*100
t4=jn/tot*100
t5=hb/tot*100
t7=ty/tot*100
t8=sy/tot*100
t9=wg/tot*100
appe blan
repl jj with t1,kk with t2,yx with t3,jn with t4,hb with t5,ty ì
with t7,sy with t8,wg with t9,xn with ' ░┘╖╓▒╚'+str(s,2)+' '
appe blan
enddo
mm=1
t1=0
t2=0
t3=0
t4=0
t5=0
t6=0
t7=0
t8=0
1
do while mm<=m
mm=mm+1
skip
t1=t1+jj
t2=t2+kk
t3=t3+yx
t4=t4+jn
t5=t5+hb
t6=t6+ty
t7=t7+sy
t8=t8+wg
skip
enddo
repl jj with t1,kk with t2,yx with t3,jn with t4,hb with t5,ty ì
with t6,sy with t7,wg with t8,xn with '╫█║╧░┘╖╓▒╚'
tot=t1+t2+t3+t4+t5+t6+t7+t8
t1=t1/tot*100
t2=t2/tot*100
t3=t3/tot*100
t4=t4/tot*100
t5=t5/tot*100
t6=t6/tot*100
t7=t7/tot*100
t8=t8/tot*100
appe blan
repl jj with t1,kk with t2,yx with t3,jn with t4,hb with t5,ty ì
with t6,sy with t7,wg with t8,xn with '╜ß┬█░┘╖╓▒╚'
clear
@ 3,24 say '==================='
@ 4,24 say ' ╟δ─·╔╘║ε,╒²╘┌┤≥╙í'
@ 5,24 say '==================='
set device to print
set print on
@ 1,5 say '                    ╫¿╝╥╞└╣└╖╓╬÷▒φ'
@ 2,5 say '                    =============='
@ 3,1 say ' '
@ 4,1 say '╔Φ▒╕├√│╞╙δ╨═║┼:'+mc
@ 5,1 say ì
'=====================================================================ì
='
@ 6,1 say '|  ╨╘  ─▄  | ╛¡╝├ | ┐╔┐┐ | ╥╫╨▐ | ╜┌─▄ |╗╖▒ú░▓╚½| ═¿╙├ ì
| ╩╩╙├ | ═Γ╣█ |'
@ 7,1 say ì
'|==========|======|======|======|======|========|======|======|==ì
====|'
k=8
use c:xzp3
do while .not.eof()
@ k,1 say ì
'|'+xn+'|'+str(jj,6,1)+'|'+str(kk,6,1)+'|'+str(yx,6,1)+'|'+str(jn,6,1)+'|'+str(hb,8,1)+'|'
@ k,50 say str(ty,6,1)+'|'+str(sy,6,1)+'|'+str(wg,6,1)+'|'
k=k+1
skip
if eof()
@ k,1 say ì
'======================================================================'
else
@ k,1 say ì
'|----------|------|------|------|------|--------|------|------|--ì
----|'
endif
k=k+1
enddo
@ k,1 say ' '
set print off
set devi to scre
set talk on
retu