10 REM do not remove this line CLEAR SCREEN 0 COLOR 0, 15 CLS PRINT " COMMISSION CALCULATOR version 1.0" PRINT " (c) 1999 Matt Gilbert" INPUT " enter commission percentage"; pct PRINT DO UNTIL fin$ = "n" n = n + 1 PRINT INPUT "enter customer name or job description"; Job$(n) INPUT "enter sale amount"; gsl(n) INPUT "enter another commission y / n"; fin$ LOOP CLS PRINT " COMMISSION CALCULATOR version 1.0" PRINT " (c) 1999 Matt Gilbert" PRINT PRINT "you entered the following "; COLOR 16, 15 PRINT n; COLOR 0, 15 PRINT " sales at "; pct; " % commission" PRINT PRINT "No. Job Description Gross Sale Commission Amt" PRINT nf = n n = 0 FOR x = 1 TO nf n = n + 1 PRINT n; " "; USING " \ \ "; Job$(n); PRINT " "; USING "$####.##"; gsl(n); PRINT " "; USING "$####.##"; gsl(n) * (pct / 100) NEXT x PRINT REM next section calculates the totals nf = n n = 0 FOR x = 1 TO nf n = n + 1 ctl = ctl + gsl(n) NEXT x REM PRINT ctl PRINT PRINT "____________________________________________________________________" PRINT PRINT "TOTALS "; USING "$####.##"; ctl; PRINT " "; USING "$####.##"; ctl * (pct / 100) PRINT PRINT PRINT "Do you wish to print results y / n" DO UNTIL a$ <> "" a$ = INKEY$ IF a$ = "n" THEN GOTO 600 IF a$ = "y" THEN GOTO 500 LOOP STOP 500 REM do not remove this line REM THIS SECTION FOR PRINT OUT ****************************** LPRINT " COMMISSION CALCULATOR version 1.0" LPRINT " (c) 1999 Matt Gilbert" LPRINT LPRINT "you entered the following "; REM COLOR 16, 15 LPRINT n; REM COLOR 0, 15 LPRINT " sales at "; pct; " % commission" LPRINT LPRINT "No. Job Description Gross Sale Commission Amt" LPRINT nf = n n = 0 FOR x = 1 TO nf n = n + 1 LPRINT n; " "; USING " \ \ "; Job$(n); LPRINT " "; USING "$####.##"; gsl(n); LPRINT " "; USING "$####.##"; gsl(n) * (pct / 100) NEXT x PRINT REM next section calculates the totals ctl = 0 nf = n n = 0 FOR x = 1 TO nf n = n + 1 ctl = ctl + gsl(n) NEXT x REM PRINT ctl LPRINT LPRINT "____________________________________________________________________" LPRINT LPRINT "TOTALS "; USING "$####.##"; ctl; LPRINT " "; USING "$####.##"; ctl * (pct / 100) LPRINT LPRINT REM STOP 600 REM do not remove this line PRINT "Do you wish to calculate more sales? y / n" DO a$ = INKEY$ IF a$ = "y" THEN GOTO 10 IF a$ = "n" THEN GOTO 1000 LOOP UNTIL a$ <> "" 1000 REM THIS IS THE CLOSING CREDITS COLOR 3, 0 CLS PRINT "S A L E S C O M M I S S I O N C A L C U L A T O R V 1.00" PRINT "THIS PROGRAM COPYRIGHT 1999 by Matt Gilbert" PRINT "feel free to use this program as you see fit" PRINT "please let me know of any improvements you make" PRINT "if you find this program useful" PRINT "donations are graciously accepted" PRINT "comments,critique, and suggestions always welcome!" PRINT PRINT "Matt Gilbert" PRINT "5822 Cartagena" PRINT "Houston, TX 77035 U.S.A." PRINT PRINT COLOR 15, 0 PRINT "visit me on the web at" PRINT "www.mattgilbert.iscool.net" PRINT "email address telemarketer@juno.com" SLEEP 4 COLOR 14, 0 END