0 'GPM.BA Unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 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? 4 A$=INKEY$:IFA$=""THEN4 5 ONVAL(A$)GOTO15,11,8:GOTO4 6 PRINT:PRINT"Another? (es or o)"; 7 A$=INKEY$:IFA$="Y"ORA$="y"THENRUNELSEIFA$="N"ORA$="n"THENMENUELSE7 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 10 PRINT"the gross profit margin is";:PRINTUSING"###.##";GP;:PRINT"%":GOTO6 11 CLS:PRINT"Enter the following data...":PRINT:INPUT"Cost";CO 12 INPUT"Gross profit margin (1-100%)";GP:IFGP<1ORGP>100THENRINT"*** Incorrect entry ***":GOTO12 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 16 INPUT"Gross profit margin (1-100%)";GP:IFGP<1ORGP>100THENPRINT"*** Incorrect entry ***":GOTO16 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