cBUSINESS ANALYSIS
AND
CHARTING------------------
20
880
SS(2,I)=JS(9,I>/JS(7,I)*l0(2)
'Rat.ia
of
oper·a
ting
pr·ofit
to
tutal
liabilities
and
net
,..,cJrtt,
890
SS(3,I)=JS<10,I)/JS<8,I)*1f21(2)
'Ratio
of
or·din
ary
profit
tu
sales
900
SS<4,I)=JS(9,I)/JS(8,I)•100
'Ratio
of
opera
ting
profit
to
sales
910
SS(5,I)=JS(3,I)/JS(6,I)*100
'Ratio
of
fixed
assets
ta
net
worth
920
SS(6,I)=JS(1,I)/JS(5,I)•100
'Current
ratio
930
SS(7,I)=JS<6,I)/JS(7,I>•100
'Ratio
of
net
w
orth
to
total
liabilities
and
net
worth
940
SS(8,I>=JS<8,I)/JS(12,I>
'Sales
per
empl
oyee
950
S5(9,I>=JS(11,I>/JS(12,I>
'Value
added
pe
r
employee
960
SS<10,I)=JS(11,I)/JS<B,I>*100
'Value
added
ra
tio
970
S5(11,I)=JS(8,I)/JS(7,I)
'Turnover
ratio
of
total
liabilities
and
net
worth
980
SS(12,
I)=JS<B,
I>
/JS(4,
I>
'Turnover
ratio
of
tangible
fixed
assets
990
SSC13,I)=JSC8,I)/JSC2,I)
'Inventory'turri
over
period
1000
IF
F(2,I)=1
THEN FOR
J=l
TO
13:FL(FI<l,l),J,F
I
(2,
I)
)=SS<J,
I)
:NEXT J
1010
RETURN
1020
'==========
Calculate
X,Y
coordinates
1030
CX=ROUND(Cl*COS(90-C2)
,-3):CY=ROUND<~1*SIN(9(2)
-C2)
,-3):RETURN
1040
•----------
Set
variables
1050
RESTCJRE
1100:FOR
I=l
TO
12:READ
J~i(l):FOR
J=1
TO
5:JS(I,J)=f.21:NEXT
J,I
1060
FOR
!=1
TO
13:READ
S$(l):FOR
J=l
TO
5:5S(I,J)
=IZl:NEXT
J,I
1070
T$=="
-N·Business
analysis.-·":TS~;=="":FOR
I=1TO
40
:TS$=TS$+"-":NEXT
I
1080
U1$=="~~
l'.o.(":E$==CHF,$(27)
1090
RETURN
1100
'==========
Item,indicator
name
111121
DATA
Curr-ent
assets,Inventor-ies,Fi:<ed
assts,T
angible
fixed
assets,Current
liabilities,Equity
cap
ital,Total
liabilities
and
rH~l
wor-lh
1120
DATA
Sal.es,Operating
profits,Orc:linar-y
pr·ofi.ts
,Values
added,Employee
To Next Page
Loading...
