home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / ratios.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  14 lines
  1. 0 'RATIOS.BA - Author Unknown
  2. 1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLEAR100:A$="*************************
  4. 3 CLS:PRINT"****BUSINESS RATIOS****":PRINT"(1) NET PROFIT ON SALES RATIO":PRINT"(2) RETURN ON INVESTMENT":PRINT"(3) CURRENT RATIO":PRINT"(4) END PROGRAM":PRINT"SELECT 1, 2, 3, or 4";
  5. 4 N$=INKEY$:IFN$=""THEN4
  6. 5 ONVAL(N$)GOSUB6,7,8,12:GOTO3
  7. 6 CLS:PRINT"***NET PROFIT ON SALES***":INPUT"NET PROFIT ";NP:INPUT"NET SALES  ";NS:PS=NP/NS:PRINTA$:PRINT:PRINT"NET PROFIT ON SALE";:PRINTUSING"###.###+";PS:GOSUB9:RETURN
  8. 7 CLS:PRINT"***RETURN ON INVESTMENT***":INPUT"NET PROFIT   ";NP:INPUT"TOTAL INVESTED CAPITAL  ";TC:RI=NP/TC:PRINTA$:PRINT:PRINT"RETURN ON INVESTMENT";:PRINTUSING"###.###+";RI:GOSUB9:RETURN
  9. 8 CLS:PRINT"***CURRENT ASSETS***":INPUT"CURRENT ASSETS   ";CA:INPUT"CURRENT LIABILITIES   ";CL:CR=CA/CL:PRINTA$:PRINT:PRINT"CURRENT RATIO";:PRINTUSING"###.###+";CR:GOSUB9:RETURN
  10. 9 PRINT:PRINT"PRESS <ENTER> TO RETURN TO MENU";
  11. 10 IFINKEY$=CHR$(13)THENRETURNELSE10
  12. 11 RETURN
  13. 12 MENU
  14.