Advertisement
cBUSINESS ANALYSIS AND C H A R T I N G - - - - - - - - - - - - - - - - - -
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
Advertisement
