9000  REM *****SALES*****BUSINESS PROGRAM
9010  REM SALES**********VERSION #1 (7/31/69)*****SALES COMMISSION PLANS*
9020  REM
9030  PRINT "*  SALES COMMISSION PLANNING  *"
9040  PRINT 
9050  PRINT 
9060  LET A4=I3=B1=T9=A9=0
9070  DIM Q$[7]
9080  PRINT "ENTER THE BASE ANNUAL SALARY, COMMISSION %, & MONTHLY QUOTA";
9090  INPUT B,R,Q
9100  PRINT 
9110  LET B1=B/12
9120  IF R<1 THEN 9140
9130  LET R=R/100
9140  PRINT "ENTER EXPECTED NUMBER OF NEW ACCOUNTS PER MONTH";
9150  INPUT N
9160  PRINT 
9170  PRINT "ENTER EXPECTED INITIAL REVENUE & RATE OF GROWTH";
9180  INPUT X,P
9190  PRINT 
9200  IF P<1 THEN 9220
9210  LET P=P/100
9220  PRINT "WHAT IS THE BEGINNING MONTH OF THE ANALYSIS [1-12]";
9230  INPUT W1
9240  PRINT 
9250  PRINT "DO YOU WANT AN [ANNUAL] OR [MONTHLY] PRINTOUT";
9260  INPUT Q$
9270  PRINT 
9280  PRINT 
9290  PRINT 
9300  PRINT "**********************************************************************"
9310  PRINT 
9320  PRINT "BASE SALARY   = $";B
9330  PRINT "MONTHLY QUOTA =";Q
9340  PRINT "BASED ON";N;"NEW ACCOUNTS PER MONTH WITH AN INITIAL REVENUE"
9350  PRINT "OF $";X;"AND AN AVERAGE GROWTH OF";P*100;"% PER MONTH,YOU CAN EXPECT:"
9360  PRINT 
9370  PRINT "                    --------------------------"
9380  PRINT 
9390  IF Q$="ANNUAL" THEN 9440
9400  PRINT TAB(46);"MONTHLY";TAB(59);"TOTAL"
9410  PRINT "MO NO. BASE $";TAB(20);"INCENTIVE $";TAB(33);"TOTAL $";
9420  PRINT TAB(46);"BILLING";TAB(59);"BILLING"
9430  PRINT 
9440  FOR Z=W1 TO 12
9450  LET A4=N*X+A4*(1+P)
9460  LET I1=(A4-Q)*R
9470  IF I1>0 THEN 9490
9480  LET I1=0
9490  LET I3=I3+I1
9500  LET T1=B1+I1
9510  LET T9=T9+T1
9520  LET A9=A9+A4
9530  IF Q$="ANNUAL" THEN 9550
9540  PRINT Z;TAB(7);B1;TAB(20);I1;TAB(33);T1;TAB(46);A4;TAB(59);A9
9550  NEXT Z
9560  PRINT 
9570  PRINT 
9580  PRINT 
9590  PRINT "YEARLY TOTALS:"
9600  PRINT TAB(15);"BASE";TAB(28);"INCENTIVE";TAB(41);"TOTAL"
9610  PRINT "PAYROLL =";TAB(15);B;TAB(28);I3;TAB(41);T9
9620  PRINT 
9630  PRINT 
9640  PRINT "MONTHLY REVENUE AT END OF CALENDAR YEAR IS $";A4
9650  PRINT 
9660  PRINT 
9670  PRINT "TOTAL BILLINGS $";A9
9680  PRINT 
9690  PRINT 
9700  PRINT "TOTAL PAYROLL AS A PERCENT OF SALES: ";(T9/A9)*100
9710  PRINT 
9720  PRINT "***********************************************************************"
9999  END 
