Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/╞▒╢ε2.PRG

Text File | 1989-01-06 | 2.3 KB | 162 lines

*╚╦├±▒╥╞▒╢ε│╠╨≥:╞▒╢ε2.PRG
clear
set talk off
use a:gz
go top
n=0
sy=0
wy=0
ey=0
yy=0
wj=0
ej=0
yj=0
wf=0
ef=0
yf=0
clear
@ 4,5 say '▓┐├┼:'
@ 4,12 say w1
@ 4,30 say 'N='
@ 6,4 say 'ʰԪ:'
@ 7,9 say '============'
@ 6,19 say '╒┼'
@ 6,22 say '╬Θ╘¬:'
@ 7,27 say '============'
@ 6,37 say '╒┼'
@ 6,40 say '╖í╘¬:'
@ 7,45 say '============'
@ 6,55 say '╒┼'
@ 6,58 say 'ҼԪ:'
@ 7,63 say '============'
@ 6,73 say '╒┼'
@ 10,22 say '╬Θ╜╟:'
@ 11,27 say '============'
@ 10,37 say '╒┼'
@ 10,40 say '╖í╜╟:'
@ 11,45 say '============'
@ 10,55 say '╒┼'
@ 10,58 say '╥╝╜╟:'
@ 11,63 say '============'
@ 10,73 say '╒┼'
@ 14,22 say '╬Θ╖╓:'
@ 15,27 say '============'
@ 14,37 say '╒┼'
@ 14,40 say '╖í╖╓:'
@ 15,45 say '============'
@ 14,55 say '╒┼'
@ 14,58 say '╥╝╖╓:'
@ 15,63 say '============'
@ 14,73 say '╒┼'
do while .not. eof()
n=n+1
store ╩╡╖ó╩² to sfs
pe=sfs/10
sy1=int(pe)
pea=pe-sy1
if pea<0
   sy2=sy1-1
endif
if pea>=0
   sy2=sy1
endif
sy=sy+sy2
peb=sfs-10*sy2+0.0001
if peb>=5
   wy1=1
endif
if peb<5
   wy1=0
endif
wy=wy+wy1
pec=peb-5*wy1
if pec>=4
   ey1=2
endif
if pec<4.and.pec>=2
   ey1=1
endif
if pec<2
   ey1=0
endif
ey=ey+ey1
ped=pec-2*ey1
if ped>=1
   yy1=1
endif
if ped<1
   yy1=0
endif
yy=yy+yy1
pee=ped-1*yy1
if pee>=0.5
   wj1=1
endif
if pee<0.5
   wj1=0
endif
wj=wj+wj1
pef=pee-0.5*wj1
if pef>=0.4
   ej1=2
endif
if pef<0.4.and.pef>=0.2
   ej1=1
endif
if pef<0.2
   ej1=0
endif
ej=ej+ej1
peg=pef-0.2*ej1
if peg>=0.1
   yj1=1
endif
if peg<0.1
   yj1=0
endif
yj=yj+yj1
peh=peg-0.1*yj1
if peh>=0.05
   wf1=1
endif
if peh<0.05
   wf1=0
endif
wf=wf+wf1
pei=peh-0.05*wf1
if pei>=0.04
   ef1=2
endif
if pei<0.04.and.pei>=0.02
   ef1=1
endif
if pei<0.02
   ef1=0
endif
ef=ef+ef1
pej=pei-0.02*ef1
yf1=int(pej*100)
yf=yf+yf1
@ 4,32 say n
@ 6,09 say sy
@ 6,27 say wy
@ 6,45 say ey
@ 6,63 say yy
@ 10,27 say wj
@ 10,45 say ej
@ 10,63 say yj
@ 14,27 say wf
@ 14,45 say ef
@ 14,63 say yf
skip
enddo
zje=10*sy+5*wy+2*ey+1*yy+0.5*wj+0.2*ej+0.1*yj+0.05*wf+0.02*ef+0.01*yf
@ 17,20 say '╩╡╖ó╜≡╢ε╫▄╩²:'
@ 17,33 say zje
@ 17,50 say '(Ԫ)'
use b:pes
replace ╘┬╖▌ with mo2,╩░╘¬ with sy,╬Θ╘¬ with wy,╖í╘¬ with ey,╥╝╘¬ with yy,╬Θ╜╟ with wj,╖í╜╟ with ej,╥╝╜╟ with yj,╬Θ╖╓ with wf,╖í╖╓ with ef,╥╝╖╓ with yf,╩╡╖ó╩² with zje for ▓┐├┼=w1
use
return