2 CLS:PRINTTAB(12)"**** MENU ****":PRINT:PRINTTAB(10)"1 - Cost":PRINTTAB(10)"2 - Selling price":PRINTTAB(10)"3 - Gross profit margin":PRINT:PRINT"What item would you like to know about?
8 CLS:PRINT"Enter the following data...":PRINT:INPUT"Cost";CO:INPUT"Selling price";SP:GP=(SP-CO)/SP*100:CLS:PRINT"With a cost of ";:PRINTUSING"$$######.##";CO:PRINT"and a selling price of ";:PRINTUSING"$$######.##";SP
13 SP=CO/(1-GP/100):CLS:PRINT"With a cost of ";:PRINTUSING"$$######.##";CO:PRINT"and a GPM of"GP"%":PRINT"your selling price is";:PRINTUSING"$$######.##";SP:GOTO6
15 CLS:PRINT"Enter the following data...":PRINT:INPUT"Selling price";SP
17 CO=SP-(SP*GP/100):CLS:PRINT"With a GPM of "GP"%":PRINT"and a selling price of ";:PRINTUSING"$$######.##";SP:PRINT"your cost is ";:PRINTUSING"$$######.##";CO:GOTO6