Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
10 DIM Q(1,7),A(40,7),B(7,1),C(40,1),D(40,1),N(4,1),L(1,4),E(40,7)
20 DIM F(40,1),G(40,1),J(40,1),H(4,7)
30 MAT H=ZER
40 MAT READ B,A
50 MAT C=A*B
60 REM C IS TOTAL WEEKLY HOURS
70 FOR I=1 TO 40
80 IF C(I,1)>40 THEN 110
90 LET D(I,1)=2*C(I,1)
100 GOTO 130
110 LET Z=C(I,1)-40
120 LET D(I,1)=3*Z+80
130 NEXT I
140 REM SALERY EACH WEEK
150 MAT READ E
160 MAT F=E*B
170 REM TOTAL SALES
180 FOR I=1 TO 40
190 IF F(I,1)>1000 THEN 220
200 LET G(I,1)=0
210 GOTO 230
220 LET G(I,1)=(F(I,1)-1000)*.05
230 NEXT I
240 REM TOTAL COMMISION
250 MAT J=G+D
260 FOR I=1 TO 40 STEP 4
270 FOR S=1 TO 7
280 LET H(1,S)=E(I,S)+H(1,S)
290 NEXT S
300 NEXT I
310 FOR I=2 TO 40 STEP 4
320 FOR S=1 TO 7
330 LET H(2,S)=H(2,S)+E(I,S)
340 NEXT S
350 NEXT I
360 FOR I=3 TO 40 STEP 4
370 FOR S=1 TO 7
380 LET H(3,S)=H(3,S)+E(I,S)
390 NEXT S
400 NEXT I
410 FOR I=4 TO 40 STEP 4
420 FOR S=1 TO 7
430 LET H(4,S)=H(4,S)+E(I,S)
440 NEXT S
450 NEXT I
460 MAT N=H*B
470 MAT READ L
480 MAT Q=L*H
490 MAT Q=(1/4)*Q
500 FOR P=1 TO 4
510 LET X=P-1
520 PRINT " "," ","WEEK NUMBER ";P
530 PRINT
540 PRINT "SALESMAN","TIME","SALARY","COMMISION","TOTAL"
550 FOR O=1 TO 10
560 PRINT O,C(O+X,1),"$";D(O+X,1),"$";G(O+X,1),"$";J(O+X,1)
570 LET X=X+3
580 NEXT O
590 NEXT P
600 FOR P=1 TO 4
610 PRINT " "," ","WEEK NUMBER ";P
620 PRINT "DAY","TOTAL SALES FOR THE DAY"
630 FOR O=1 TO 7
640 PRINT O,H(P,O);" DOLLARS"
650 NEXT O
660 NEXT P
670 PRINT "WEEK NUMBER","TOTAL SALES FOR THE WEEK"
680 FOR P=1 TO 4
690 PRINT P,N(P,1);"DOLLARS"
700 NEXT P
710 PRINT " "," ","AVERAGE DAILY SALES FOR THE 4 WEEKS"
720 FOR P=1 TO 7
730 PRINT "DAY ";P;" AVERAGED ";Q(1,P);" DOLLARS"
740 NEXT P
750 DATA 1,1,1,1,1,1,1
760 DATA 3,7,7,8,7,9,4,1,7,7,7,9,7,3
770 DATA 4,9,7,7,7,7,0,0,7,7,7,7,7,4
780 DATA 2,9,7,7,7,7,2,3,7,7,7,7,9,2
790 DATA 1,8,7,10,7,8,2,4,7,7,7,7,7,0
800 DATA 4,7,7,7,7,7,4,0,7,7,7,7,7,1
810 DATA 0,10,7,7,7,7,0,0,8,7,7,7,7,4
820 DATA 0,7,7,8,7,9,0,1,7,7,7,8,7,1
830 DATA 3,7,10,7,8,7,0,3,7,7,10,7,7,0
840 DATA 3,10,7,7,7,7,4,1,7,7,7,10,7,0
850 DATA 1,7,7,7,7,7,0,1,7,7,7,10,9,3
860 DATA 2,10,7,7,7,7,1,4,7,7,7,8,7,2
870 DATA 3,7,7,8,7,7,0,4,7,7,7,10,10,1
880 DATA 3,7,7,10,10,7,0,4,7,7,10,7,7,3
890 DATA 4,10,7,7,10,7,4,1,7,9,7,10,10,1
900 DATA 4,7,7,7,8,7,0,0,7,7,9,10,7,2
910 DATA 2,7,7,7,7,7,2,3,9,7,7,8,10,4
920 DATA 0,9,7,7,7,9,2,2,7,7,7,7,7,2
930 DATA 2,10,7,7,9,7,3,2,7,7,7,7,8,2
940 DATA 1,7,7,9,7,7,3,0,7,7,7,7,7,3
950 DATA 4,10,7,7,10,8,1,4,7,7,7,7,7,4
960 DATA 63,112,133,120,238,171,76,21,231,133,196,234,147,57
970 DATA 108,297,154,154,140,161,0,0,203,133,210,182,105,100
980 DATA 44,297,168,154,112,224,70,102,105,182,224,154,189,34
990 DATA 17,232,119,300,245,136,50,100,168,203,189,175,210,0
1000 DATA 108,238,238,112,182,224,76,0,196,161,196,203,238,29
1010 DATA 0,190,189,238,175,196,0,0,144,126,175,175,175,132
1020 DATA 0,119,196,272,147,153,0,24,196,196,224,200,112,31
1030 DATA 51,147,300,210,232,231,0,78,196,168,190,154,133,0
1040 DATA 66,210,161,231,126,182,92,16,231,126,147,280,182,0
1050 DATA 21,224,147,112,161,210,0,27,224,168,203,150,261,51
1060 DATA 52,240,112,224,105,105,18,124,133,224,105,120,140,32
1070 DATA 93,210,147,248,189,105,0,72,189,105,224,210,330,32
1080 DATA 78,154,189,270,300,154,0,96,182,182,300,175,119,105
1090 DATA 96,320,175,224,160,196,132,18,210,144,161,170,270,18
1100 DATA 68,231,210,112,152,175,0,0,217,126,207,330,238,68
1110 DATA 36,105,224,245,210,175,54,69,171,161,154,176,300,136
1120 DATA 0,306,168,119,140,180,48,36,210,175,231,119,196,62
1130 DATA 64,180,126,126,216,168,72,62,231,105,182,224,152,30
1140 DATA 28,161,189,252,224,189,54,0,147,182,105,112,112,66
1150 DATA 80,180,154,133,170,168,20,76,189,203,231,168,231,88
1160 DATA 1,1,1,1
1170 END
READY