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

Text File | 1979-12-31 | 2.9 KB | 125 lines

set talk off
a0=0
a1=0.00
a2=0.00
a3=0
a4=0.00
a5=0.00
a61=0.00
a6=0.00
a7='      '
clear
@ 2,20 say '╖╜    ░╕    ╨≥    ║┼:' get a0
@ 3,20 say '╣╠    ╢¿    │╔    ▒╛:' get a6
@ 4,20 say '▒Σ    ╢»    │╔    ▒╛:' get a61
@ 5,20 say '┤· ▒φ ▓· ╞╖ ─Ω ▓· ┴┐:' get a1
@ 6,20 say '┤·▒φ▓·╞╖╝╞╗«╧·╩█╡Ñ╝█:' get a2
read
clear
@ 2,20 say '╝╞╗«╗╣┤√─Ω╧▐:' get a3
@ 3,20 say '─Ω ╧ó ┬╩ú¿úÑú⌐:' get a4
@ 4,20 say '╧·╩█╦░┬╩ú¿úÑú⌐:' get a5
@ 5,20 say '╝╞  ┴┐  ╡Ñ  ╘¬:' get a7
sds=0.00
qjs=0.00
@ 6,20 say '╦∙╡├╦░╒╝└√╚≤╡─░┘╖╓╩²:' get sds
@ 7,20 say '╡≈╜┌╦░╒╝└√╚≤╡─░┘╖╓╩²:' get qjs
read
clear
year=0
@ 4,20 say '╜¿╔Φ╣▓╨Φ─Ω╩²:' get year
read
ye=1
use c:xfx6
dele all
pack
appe blan
do while ye<=year
clear
repl n with ye
@ 3,20 say '╜¿╔Φ─Ω╖▌:' get n
@ 4,20 say '┤∩╡╜╔Φ╝╞─▄┴ª:' get nl
read
ma=' '
@ 6,20 say '╒²╚╖┬≡(y/n)?' get ma
read
if ma='n'.or.ma='N'
loop
endif
appe blan
ye=ye+1
enddo
go bott
dele
pack
repl all sr with a1*a2*nl/100
repl all sj with sr*a5/100
repl all cb with a61*nl/100+a6
repl all lr with sr-sj-cb
*
1
n=0
do while n<=a3
kk=a6/a3+(a6-n*a6/a3)*a4/100
repl jh with kk
n=n+1
skip
enddo
1
*
repl all sd with lr*sds/100
repl all qj with lr*qjs/100
repl all sh with lr-jh-sd-qj
repl all sl with lr/sr*100
repl all scl with lr/cb*100
clear
@ 3,24 say '=================='
@ 4,24 say '╟δ─·╔╘║ε,╒²╘┌┤≥╙í'
@ 5,24 say '=================='
set print on
set  devi to print
@ 1,14 say '                      └√╚≤╙Φ▓Γ▒φú¿╖╜░╕:'+str(a0,2)+'ú⌐'
@ 2,14 say '                      ====================='
@ 3,1 say ' '
@ 4,1 say '┤·▒φ▓·╞╖─Ω▓·┴┐:'+str(a1,10)+'      ╡Ñ╘¬:'+a7
@ 5,1 say '┤·▒φ▓·╞╖╝╞╗«╧·╩█╡Ñ╝█:'+str(a2,8)
@ 6,1 say '╝╞╗«╗╣┤√─Ω╧▐:'+str(a3,3)
@ 7,1 say '─Ω╧ó┬╩:'+str(a4,5,2)
@ 8,1 say '╧·╩█╦░┬╩:'+str(a5,5,2)
@ 9,1 say ì
'=================================================================ì
======================================================'
@ 10,1 say '|╜¿╔Φ┐¬|┤∩╡╜╔Φ╝╞|         |         |         |         | ì
 ╝⌡  ╗╣ |  ╜╗  ─╔ |  ╜╗  ─╔ |         | ╧·╩█╩╒╚δ | ╧·╩█│╔▒╛ |'
@ 11,1 say '|╩╝─Ω╖▌| ─▄┴ªúÑ ì
|╧·╩█╩╒╚δ |╧·╩█╦░╜≡ |╧·╩█│╔▒╛ |╧·╩█└√╚≤ |═╢╫╩▒╛╧ó | ╦∙ ╡├ ╦░| ╡≈ ╜┌ ╦░ì
|╦░║≤└√╚≤ |  └√╚≤┬╩  |  └√╚≤┬╩  |'
@ 12,1 say ì
'|======|========|=========|=========|=========|=========|=========|====ì
=====|=========|=========|==========|==========|'
p='|'
m=13
1
do while .not.eof()
@ m,1 say ì
p+str(n,6)+p+str(nl,8,2)+p+str(sr,9)+p+str(sj,9)+p+str(cb,9)ì
+p+str(lr,9)+p+str(jh,9)+p+str(sd,9)+p+str(qj,9)+p+str(sh,9)ì
+p+str(sl,10,2)+p+str(scl,10,2)+p
m=m+1
skip
if eof()
@ m,1 say ì
'=================================================================ì
======================================================'
else
@ m,1 say ì
'|------|--------|---------|---------|---------|---------|---------|---ì
------|---------|---------|----------|----------|'
endif
m=m+1
enddo
@ m,1 say ' '
set print off
set devi to scre
retu