Financial Ratios

Gallery

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