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

Text File | 1979-12-31 | 6.0 KB | 274 lines

set talk off
x0='                       '
x1=0
x2=0
x3='      '
clear
x01=0
@ 2,20 say '╖╜  ░╕  ╨≥  ║┼:' get x01
@ 3,20 say '┤·▒φ▓·╞╖├√│╞,╣µ╕±:' get x0
@ 4,20 say '╔Φ ▒╕ ╫▄ ═╢ ╫╩:' get x1
@ 5,20 say '╔Φ ╝╞ ─Ω ▓· ┴┐:' get x2
@ 6,20 say '╝╞  ┴┐  ╡Ñ  ╘¬:' get x3
x4='      '
@ 7,20 say '╡Ñ          ╬╗:' get x4
read
use c:xfx4
repl all ys with '          ',dw with '        ',dj with 0,hl with 0
m=1
1
do while m<=4
clear
@ 2,10 say '╘¡▓─┴╧'+str(m,2)
@ 2,20 say '├√    │╞:' get ys
@ 4,20 say '╝╞┴┐╡Ñ╬╗:' get dw
@ 5,20 say '╡Ñ    ╝█:' get dj
@ 6,20 say '╡Ñ╘¬║─┴┐:' get hl
read
ma=' '
@ 8,20 say '╒²╚╖┬≡(y/n)?' get ma
read
if ma='n'.or.ma='N'
loop
endif
m=m+1
repl  cb with dj*hl
repl bd with x2*cb
skip
enddo
1
sum next 4 cb,bd to a,b
skip
repl cb with a,bd with b,ys with '╘¡▓─┴╧║╧╝╞'
m=1
6
do while m<=3
clear
@ 2,10 say '╚╝  ┴╧'+str(m,2)
@ 2,20 say '├√    │╞:' get ys
@ 4,20 say '╝╞┴┐╡Ñ╬╗:' get dw
@ 5,20 say '╡Ñ    ╝█:' get dj
@ 6,20 say '╡Ñ╘¬║─┴┐:' get hl
read
ma=' '
@ 8,20 say '╒²╚╖┬≡(y/n)?' get ma
read
if ma='n'.or.ma='N'
loop
endif
m=m+1
repl cb with dj*hl
repl bd with x2*cb
skip
enddo
6
sum next 3 cb,bd to a,b
skip
repl cb with a,bd with b,ys with '╚╝┴╧║╧╝╞'
m=1
use c:xfx4
10
do while m<=3
clear
@ 2,10 say '╢»  ┴ª'+str(m,2)
@ 2,20 say '├√    │╞:' get ys
@ 4,20 say '╝╞┴┐╡Ñ╬╗:' get dw
@ 5,20 say '╡Ñ    ╝█:' get dj
@ 6,20 say '╡Ñ╘¬║─┴┐:' get hl
read
ma= ' '
@ 8,20 say '╒²╚╖┬≡(y/n)?' get ma
read
if ma='n'.or.ma='N'
loop
endif
m=m+1
repl cb with dj*hl
repl bd with x2*cb
skip
enddo
10
sum next 3 cb,bd to a,b
skip
repl cb with a,bd with b,ys with '╢»┴ª║╧╝╞'
skip
clear
@ 2,10 say '╣ñ  ╫╩'
@ 2,20 say '├√    │╞:' get ys
@ 4,20 say '╝╞┴┐╡Ñ╬╗:' get dw
@ 5,20 say '╡Ñ    ╝█:' get dj
@ 6,20 say '╡Ñ╘¬║─┴┐:' get hl
read
ma=' '
@ 8,20 say '╒²╚╖┬≡(y/n)?' get ma
read
if ma='n'.or.ma='N'
loop
endif
repl cb with dj*hl
repl gd with x2*cb,ys with '╣ñ    ╫╩'
z1=0.00
z2=0.00
z3=0.00
z4=0.00
z5=0.00
ma='n'
do while ma='n'
clear
@ 2,20 say '╔Φ▒╕╒█╛╔╖╤╒█╛╔┬╩ú¿úÑú⌐:' get z1
@ 3,20 say '┤≤╨▐└φ╗∙╜≡╗∙╜≡┬╩ú¿úÑú⌐:'get z2
@ 4,20 say '─Ω╨▐└φ╖╤╨▐└φ╖╤╙├┬╩ú¿úÑú⌐:' get z3
@ 5,20 say '╞Σ╦ⁿ╓º│÷ú¿úÑú⌐:' get z4
@ 6,20 say '╞≤╥╡╣▄└φ╖╤ú¿úÑú⌐:' get z5
read
@ 8,24 say '╒²╚╖┬≡(y/n)?' get ma
read
enddo
clear
@ 3,24 say '==================='
@ 4,24 say ' ╟δ─·╔╘║ε,╒²╘┌╝╞╦π'
@ 5,24 say '==================='
1
repl next 13 hj with bd
14
repl hj with gd
15
repl gd with z1*x1/100
16
repl gd with z2*x1/100
17
repl gd with z3*x1/100
15
repl next 3 hj with gd
1
sum next 13 hj to a
14
sum next 4 hj to b
stor a/2+b to a
18
repl hj with a
19
repl gd with z4*a/100
20
repl gd with z5*a/100
19
repl next 2 hj with gd
18
sum next 3 hj to c
21
repl hj with c
1
sum next 13 bd,gd to a,b
14
sum next 7 bd,gd to a1,b1
stor a/2+a1 to a
stor b/2+b1 to b
21
repl bd with a,gd with b,hj with c
1
repl next 20 bfs with hj/c*100
clear
@ 3,24 say '==================='
@ 4,24 say ' ╟δ─·╔╘║ε,╒²╘┌┤≥╙í'
@ 5,24 say '==================='
set devi to print
set print on
@ 1,1 say '                            ▓·╞╖│╔▒╛╙Φ▓Γ▒φú¿╖╜░╕:'+str(x01,2)+'ú⌐'
@ 2,1 say '                            ========================='
@ 3,1 say '  '
@ 4,1 say '┤·▒φ▓·╞╖├√│╞,╣µ╕±:'+x0
@ 5,1 say  ' '
@ 6,1 say '╔Φ▒╕╫▄═╢╫╩:'+str(x1,8)+'  ╔Φ╝╞─Ω▓·┴┐:'+str(x2,8)+'╝╞┴┐╡Ñ╘¬:'+x3+
  ' ╡Ñ╬╗:'+x4
@ 7,1 say ì
'====================================================================ì
================='
@ 8,1 say '|          |           ╡Ñ   ╘¬    │╔    ▒╛     |       ì
  |         |         |      |'
@ 9,1 say '| ╖╤╙├╥¬╦╪ ì
|-----------------------------------|▒Σ╢»│╔▒╛ |╣╠╢¿│╔▒╛ | ║╧  ╝╞  | ╒╝úÑ |'
@ 10,1 say '|          |╝╞┴┐╡Ñ╬╗| ╡Ñ  ╝█ |╡Ñ╘¬║─┴┐|╡Ñ╘¬│╔▒╛|       ì
  |         |         |      |'
@ 11,1 say ì
'|==========|========|========|========|========|=========|=========ì
|=========|======|'
m=12
1
to=1
p='|'
do while to<=14
@ m,1 say ì
p+ys+p+dw+p+str(dj,8,2)+p+str(hl,8,2)+p+str(cb,8)+p+str(bd,9)+ì
p+str(gd,9)+p+str(hj,9)+p+str(bfs,6,2)+p
skip
m=m+1
if to=14
@ m,1 say ì
'|==============================================|=========|=========|
=========|======|'
else
@ m,1 say ì
'|----------|--------|--------|--------|--------|---------|---------ì
|---------|------|'
endif
m=m+1
to=to+1
enddo
@ m,1 say '|   ╔Φ▒╕╒█╛╔╖╤╒█╛╔┬╩:'+str(z1,4,1)+'úÑ'+'              ì
      |'+str(bd,9)+p+str(gd,9)+p+str(hj,9)+p+str(bfs,6,2)+p
m=m+1
@ m,1 say ì
'|----------------------------------------------|---------|---------ì
|---------|------|'
m=m+1
skip
@ m,1 say '|   ┤≤╨▐└φ╗∙╜≡╗∙╜≡┬╩:'+str(z2,4,1)+'úÑ'+'              ì
      |'+str(bd,9)+p+str(gd,9)+p+str(hj,9)+p+str(bfs,6,2)+p
m=m+1
@ m,1 say ì
'|----------------------------------------------|---------|---------ì
|---------|------|'
m=m+1
skip
@ m,1 say '|   ─Ω╨▐└φ╖╤╨▐└φ╖╤╙├┬╩:'+str(z3,4,1)+'úÑ'+'            ì
      |'+str(bd,9)+p+str(gd,9)+p+str(hj,9)+p+str(bfs,6,2)+p
m=m+1
@ m,1 say ì
'|----------------------------------------------|---------|---------ì
|---------|------|'
m=m+1
skip
@ m,1 say '|   ╨í            ╝╞:      '+'              ì
      |'+str(bd,9)+p+str(gd,9)+p+str(hj,9)+p+str(bfs,6,2)+p
m=m+1
@ m,1 say ì
'|----------------------------------------------|---------|---------ì
|---------|------|'
m=m+1
skip
@ m,1 say '|   ╞Σ  ╦ⁿ  ╓º  │÷:'+str(z4,4,1)+'úÑ'+'                ì
      |'+str(bd,9)+p+str(gd,9)+p+str(hj,9)+p+str(bfs,6,2)+p
m=m+1
@ m,1 say ì
'|----------------------------------------------|---------|---------ì
|---------|------|'
m=m+1
skip
@ m,1 say '|   ╞≤╥╡╣▄└φ╖╤:'+str(z5,4,1)+'úÑ'+'                    ì
      |'+str(bd,9)+p+str(gd,9)+p+str(hj,9)+p+str(bfs,6,2)+p
m=m+1
skip
@ m,1 say ì
'|----------------------------------------------|---------|---------ì
|---------|------|'
m=m+1
@ m,1 say '|   ║╧            ╝╞:      '+'              ì
      |'+str(bd,9)+p+str(gd,9)+p+str(hj,9)+p+str(bfs,6,2)+p
m=m+1
@ m,1 say ì
'====================================================================================='
m=m+1
@ m,1 say  ' '
set print off
set devi to scre