Source Code
1 REM FINANCIAL RATIO
2 PRINT TAB (10);"FINANCIAL RATIOS"
3 PRINT
10 PRINT "ENTER DATE"
11 INPUT A$
12 PRINT A$
20 PRINT "ENTER SALES"
21 INPUT B
22 PRINT B
30 PRINT "ENTER COST OF GOODS SOLD"
31 INPUT C
32 PRINT C
40 PRINT "ENTER NET INCOME"
41 INPUT D
42 PRINT D
50 PRINT "ENTER CASH"
51 INPUT E
52 PRINT E
60 PRINT "ENTER AR(CURRENT Y/E)"
61 INPUT F
62 PRINT F
70 PRINT "ENTER AR(PRIOR Y/E)"
71 INPUT G
72 PRINT G
80 PRINT "ENTER INVENTORY(CURRENT Y/E)"
81 INPUT H
82 PRINT H
90 PRINT "ENTER INVENTORY(PRIOR Y/E)"
91 INPUT I
92 PRINT I
100 PRINT "ENTER OTHER CURRENT ASSETS"
101 INPUT J
102 PRINT J
110 PRINT "ENTER VALUE,LAND/BLDGS/EQUIP"
111 INPUT K
112 PRINT K
120 PRINT "ENTER ACCUMULATED DEPRECIATION"
121 INPUT L
122 PRINT L
130 PRINT "ENTER OTHER ASSETS"
131 INPUT M
132 PRINT M
140 PRINT "ENTER TOTAL ASSETS(PRIOR Y/E)"
141 INPUT N
142 PRINT N
150 PRINT "ENTER CURRENT LIABILITIES"
151 INPUT O
152 PRINT O
160 PRINT "ENTER LONG TERM DEBT"
161 INPUT P
162 PRINT P
170 PRINT "ENTER OTHER LIABILITIES"
171 INPUT Q
172 PRINT Q
180 PRINT "ENTER PREFERRED STOCK"
181 INPUT R
182 PRINT R
190 PRINT "ENTER COMMON STOCK"
191 INPUT S
192 PRINT S
200 PRINT "ENTER RETAINED EARNINGS"
201 INPUT T
202 PRINT T
210 PRINT "ENTER STKHLDRS EQUITY(PRIOR Y/E)"
211 INPUT U
212 PRINT U
220 PRINT "ENTER MARKET VALUE COMMON STOCK"
221 INPUT V
222 PRINT V
230 PRINT "ENTER SHARES OF COMMON OUTSTANDING"
231 INPUT W
232 PRINT W
240 PRINT "ENTER PREFERRED STOCK DIVIDENDS"
241 INPUT X
242 PRINT X
250 REM CALCULATE ANSWERS
260 LET A1=E+F+H+J-O
270 LET B1=INT (((E+F+H+J)/O)*100+.5)/100
280 LET C1=INT (((E+F)/O)*100+.5)/100
290 LET D1=INT (B/((F+G)/2)*10+.5)/10
300 LET E1=INT (F/(B/300))
310 LET F1=INT (C/((H+I)/2)*10+.5)/10
320 LET G1=INT (H/(C/300))
330 LET H1=INT ((B-C)/B*1000+.5)/10
340 LET I1=INT (D/((E+F+H+J+K-L+M+N)/2)*1000+.5)/10
350 LET J1=INT (D/((R+S+T+U)/2)*1000+.5)/10
360 LET K1=INT ((R+S+T)/(O+P+Q)*100+.5)/100
370 LET L1=INT ((K-L)/P*100+.5)/100
380 LET M1=INT ((R+S+T)/(K-L)*100+.5)/100
390 LET N1=INT (L/K*100+.5)
400 LET O1=INT ((S+T)/W*100+.5)/100
410 LET P1=INT ((D-X)/W*100+.5)/100
420 LET Q1=INT ((V/P1)*10+.5)/10
500 REM PRINT ALL ANSWERS
510 PRINT
520 PRINT
600 PRINT TAB (25);A$
610 PRINT
620 PRINT TAB (1);"WORKING CAPITAL";TAB (25);A1
630 PRINT TAB (1);"CURRENT RATIO";TAB (25);B1
640 PRINT TAB (1);"ACID TEST";TAB (25);C1
645 PRINT
650 PRINT TAB (1);"A/R TURN";TAB (25);D1
660 PRINT TAB (1);"AVG.DAYS SLS IN A/R(Y/E)";TAB (25);E1
670 PRINT TAB (1);"INV TURN";TAB (25);F1
675 PRINT
680 PRINT TAB (1);"NR DAYS SLS IN INV(Y/E)";TAB (25);G1
690 PRINT TAB (1);"GROSS PROFIT RATE";TAB (25);H1
700 PRINT TAB (1);"NET PROFIT:AVG ASSETS";TAB (25);I1
705 PRINT
710 PRINT TAB (1);"NET PROFIT:NET WORTH";TAB (25);J1
720 PRINT TAB (1);"NET WORTH:LIAB";TAB (25);K1
730 PRINT TAB (1);"FIXED ASSETS:L.T.D.";TAB (25);L1
735 PRINT
740 PRINT TAB (1);"NET WORTH:FIXED ASSETS";TAB (25);M1
750 PRINT TAB (1);"FIXED ASSETS DEPRCIATED";TAB (25);N1
760 PRINT TAB (1);"BOOK VALUE";TAB (25);O1
765 PRINT
770 PRINT TAB (1);"EARNINGS PER SHARE";TAB (25);P1
780 PRINT TAB (1);"P/E RATIO";TAB (25);Q1
785 PRINT
800 STOP
810 SAVE "1011%8"
820 RUN
