0 'RATIOS.BA - Author Unknown 1 'Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLEAR100:A$="************************* 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"; 4 N$=INKEY$:IFN$=""THEN4 5 ONVAL(N$)GOSUB6,7,8,12:GOTO3 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 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 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 9 PRINT:PRINT"PRESS TO RETURN TO MENU"; 10 IFINKEY$=CHR$(13)THENRETURNELSE10 11 RETURN 12 MENU