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 A4,I3,B1,T9,A9=0 9080PRINT"ENTER BASE ANNUAL SALARY, % COMMISSION, MONTHLY QUOTA"; 9090 INPUT B,R,Q 9100 PRINT 9110 B1=B/12 9120 IF R<1 THEN 9140 9130 R=R/100 9140 PRINT "ENTER EXPECTED NUMBER OF NEW ACOUNTS 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 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 9340PRINT"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 A4=N*X+A4*(1+P) 9460 I1=(A4-Q)*R 9470 IF I1>0 THEN 9490 9480 I1=0 9490 I3=I3+I1 9500 T1=B1+I1 9510 T9=T9+T1 9520 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