ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

191 lines
15 KiB

  1. FINANCIAL RATIOS
  2. THIS PROGRAM WILL COMPUTE SOME COMMONLY USED FINANCIAL RATIOS
  3. USING INFORMATION FROM A FIRM'S BALANCE SHEET AND INCOME
  4. STATEMENT. THE PROGRAM IS MENU DRIVEN. DATA FOR A COMPANY
  5. MAY BE INPUT, COMPUTATIONS MAY TAKE PLACE, INPUT DATA MAY
  6. BE EDITED, AND THE DATA MAY EVEN BE STORED ON CASSETTE OR
  7. DISKETTE. THE PROGRAM MAY BE EASILY MODIFIED BY THOSE
  8. DESIRING TO COMPUTE OTHER RATIOS OR DESIRING TO SHOW MORE
  9. DETAIL IN THE BALANCE SHEET.
  10. PRESS ENTER TO BEGIN?
  11. ARE DISK DRIVES ATTACHED(Y/N)? Y
  12. MENU
  13. 0. QUIT
  14. 1. INPUT BALANCE SHEET AND INCOME DATA
  15. 2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT
  16. 3. EDIT INPUT DATA
  17. 4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS
  18. 5. STORE COMPANY INPUT DATA ONTO DISKETTE
  19. 6. READ COMPANY INPUT DATA FROM DISKETTE
  20. 7. STORE COMPANY INPUT DATA ONTO CASSETTE
  21. 8. READ COMPANY INPUT DATA FROM CASSETTE
  22. 9. CHANGE DATE
  23. INPUT YOUR CHOICE? 1
  24. ENTER THE FOLLOWING DATA
  25. SALES ? 98765
  26. COST OF GOODS SOLD ? 65432
  27. ADMINISTRATIVE & SELLING EXP. ? 1234
  28. GENERAL EXPENSES ? 2345
  29. DEPRECIATION ? 4567
  30. OTHER EXPENSES ? 52
  31. INTEREST EXPENSE ? 65
  32. INCOME TAXES ? 75
  33. DIVIDENDS ON PREFERRED STOCKS ? 87
  34. SHARES OUTSTANDING ? 1230
  35. CASH ? 87654
  36. MARKETABLE SECURITIES ? 76543
  37. NET ACCTS RECEIVABLE ? 90500
  38. INVENTORY ? 84350
  39. PREPAID EXPENSE ? 79234
  40. NET PLANT & EQUIP. ? 1567
  41. NET BUILDINGS ? 2648
  42. LAND(COST) ? 987
  43. INTANGIBLES ? 654
  44. ACCOUNTS PAYABLE ? 123
  45. NOTES PAYABLE ? 456
  46. ACCRUED EXPENSES ? 78
  47. LONG TERM DEBT(CURR. PORTION) ? 42
  48. LONG TERM DEBT(NON CURR) ? 31
  49. PREFERRED STOCK ? 15750
  50. RETAINED EARNINGS ? 11
  51. COMMON STOCK ? 1200
  52. MENU
  53. 0. QUIT
  54. 1. INPUT BALANCE SHEET AND INCOME DATA
  55. 2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT
  56. 3. EDIT INPUT DATA
  57. 4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS
  58. 5. STORE COMPANY INPUT DATA ONTO DISKETTE
  59. 6. READ COMPANY INPUT DATA FROM DISKETTE
  60. 7. STORE COMPANY INPUT DATA ONTO CASSETTE
  61. 8. READ COMPANY INPUT DATA FROM CASSETTE
  62. 9. CHANGE DATE
  63. INPUT YOUR CHOICE? 5
  64. PRESS ENTER WHEN DISKETTE READY?
  65. PRESENT DISK FILE NAME IS NEW NAME? FINRAT.DAT
  66. MENU
  67. 0. QUIT
  68. 1. INPUT BALANCE SHEET AND INCOME DATA
  69. 2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT
  70. 3. EDIT INPUT DATA
  71. 4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS
  72. 5. STORE COMPANY INPUT DATA ONTO DISKETTE
  73. 6. READ COMPANY INPUT DATA FROM DISKETTE
  74. 7. STORE COMPANY INPUT DATA ONTO CASSETTE
  75. 8. READ COMPANY INPUT DATA FROM CASSETTE
  76. 9. CHANGE DATE
  77. INPUT YOUR CHOICE? 6
  78. PRESS ENTER WHEN DISKETTE READY?
  79. ENTER NAME OF DISK FILE ? FINRAT.DAT
  80. MENU
  81. 0. QUIT
  82. 1. INPUT BALANCE SHEET AND INCOME DATA
  83. 2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT
  84. 3. EDIT INPUT DATA
  85. 4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS
  86. 5. STORE COMPANY INPUT DATA ONTO DISKETTE
  87. 6. READ COMPANY INPUT DATA FROM DISKETTE
  88. 7. STORE COMPANY INPUT DATA ONTO CASSETTE
  89. 8. READ COMPANY INPUT DATA FROM CASSETTE
  90. 9. CHANGE DATE
  91. INPUT YOUR CHOICE? 9
  92. DATE CHANGE
  93. PRESENT DATE FOR DATA IS NEW DATE ? 12/34/56
  94. MENU
  95. 0. QUIT
  96. 1. INPUT BALANCE SHEET AND INCOME DATA
  97. 2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT
  98. 3. EDIT INPUT DATA
  99. 4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS
  100. 5. STORE COMPANY INPUT DATA ONTO DISKETTE
  101. 6. READ COMPANY INPUT DATA FROM DISKETTE
  102. 7. STORE COMPANY INPUT DATA ONTO CASSETTE
  103. 8. READ COMPANY INPUT DATA FROM CASSETTE
  104. 9. CHANGE DATE
  105. INPUT YOUR CHOICE? 2
  106. IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y
  107. PRESS ENTER WHEN PRINTER READY?
  108. DATE IS 12/34/56
  109. 1 SALES 98765.00
  110. 2 COST OF GOODS SOLD 65432.00
  111. 3 ADMINISTRATIVE & SELLING EXP. 1234.00
  112. 4 GENERAL EXPENSES 2345.00
  113. 5 DEPRECIATION 4567.00
  114. 6 OTHER EXPENSES 52.00
  115. 7 INTEREST EXPENSE 65.00
  116. 8 INCOME TAXES 75.00
  117. 9 DIVIDENDS ON PREFERRED STOCKS 87.00
  118. 10 SHARES OUTSTANDING 1230.00
  119. 11 CASH 87654.00
  120. 12 MARKETABLE SECURITIES 76543.00
  121. 13 NET ACCTS RECEIVABLE 90500.00
  122. 14 INVENTORY 84350.00
  123. 15 PREPAID EXPENSE 79234.00
  124. 16 NET PLANT & EQUIP. 1567.00
  125. 17 NET BUILDINGS 2648.00
  126. 18 LAND(COST) 987.00
  127. 19 INTANGIBLES 654.00
  128. 20 ACCOUNTS PAYABLE 123.00
  129. 21 NOTES PAYABLE 456.00
  130. 22 ACCRUED EXPENSES 78.00
  131. 23 LONG TERM DEBT(CURR. PORTION) 42.00
  132. 24 LONG TERM DEBT(NON CURR) 31.00
  133. 25 PREFERRED STOCK 15750.00
  134. 26 RETAINED EARNINGS 11.00
  135. 27 COMMON STOCK 1200.00
  136. PRESS ENTER TO CONTINUE?
  137. MENU
  138. 0. QUIT
  139. 1. INPUT BALANCE SHEET AND INCOME DATA
  140. 2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT
  141. 3. EDIT INPUT DATA
  142. 4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS
  143. 5. STORE COMPANY INPUT DATA ONTO DISKETTE
  144. 6. READ COMPANY INPUT DATA FROM DISKETTE
  145. 7. STORE COMPANY INPUT DATA ONTO CASSETTE
  146. 8. READ COMPANY INPUT DATA FROM CASSETTE
  147. 9. CHANGE DATE
  148. INPUT YOUR CHOICE? 4
  149. IS LINE PRINTER OUTPUT DESIRED(Y/N)? Y
  150. 12/34/56
  151. EPS 20.25
  152. TURNOVER OF OPERATING ASSETS 0.23
  153. CURRENT RATIO 598.40
  154. ACID TEST RATIO 234.90
  155. RECEIVABLES TURNOVER 1.09
  156. INVENTORY TURNOVER 0.78
  157. GROSS PROFIT MARGIN 0.34
  158. WORKING CAPITAL TURNOVER 0.24
  159. NET PROFITS TO WORKING CAPITAL 0.06
  160. CURRENT DEBT TO NET WORTH 0.04
  161. WORKING CAPITAL TO TOTAL ASSETS 0.98
  162. SALES TO TOTAL ASSETS 0.23
  163. BOOK VALUE PER SHARE 0.98
  164. PRESS ENTER TO CONTINUE?
  165. MENU
  166. 0. QUIT
  167. 1. INPUT BALANCE SHEET AND INCOME DATA
  168. 2. PRINT OUT BALANCE SHEET AND INCOME DATA AS INPUT
  169. 3. EDIT INPUT DATA
  170. 4. COMPUTE AND PRINT OUT APPROPRIATE RATIOS
  171. 5. STORE COMPANY INPUT DATA ONTO DISKETTE
  172. 6. READ COMPANY INPUT DATA FROM DISKETTE
  173. 7. STORE COMPANY INPUT DATA ONTO CASSETTE
  174. 8. READ COMPANY INPUT DATA FROM CASSETTE
  175. 9. CHANGE DATE
  176. INPUT YOUR CHOICE? 0