home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / gpm.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  16 lines
  1. 0 'GPM.BA Unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 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. 4 A$=INKEY$:IFA$=""THEN4
  5. 5 ONVAL(A$)GOTO15,11,8:GOTO4
  6. 6 PRINT:PRINT"Another?  (<Y>es or <N>o)";
  7. 7 A$=INKEY$:IFA$="Y"ORA$="y"THENRUNELSEIFA$="N"ORA$="n"THENMENUELSE7
  8. 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
  9. 10 PRINT"the gross profit margin is";:PRINTUSING"###.##";GP;:PRINT"%":GOTO6
  10. 11 CLS:PRINT"Enter the following data...":PRINT:INPUT"Cost";CO
  11. 12 INPUT"Gross profit margin (1-100%)";GP:IFGP<1ORGP>100THENRINT"*** Incorrect entry ***":GOTO12
  12. 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
  13. 15 CLS:PRINT"Enter the following data...":PRINT:INPUT"Selling price";SP
  14. 16 INPUT"Gross profit margin (1-100%)";GP:IFGP<1ORGP>100THENPRINT"*** Incorrect entry ***":GOTO16
  15. 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
  16.