sales.bas (375B)
110 FOR I = 1 TO 3 220 READ P(I) 330 NEXT I 440 FOR I = 1 TO 3 550 FOR J = 1 TO 5 660 READ S(I,J) 770 NEXT J 880 NEXT I 990 FOR J = 1 TO 5 10100 LET S = 0 11110 FOR I = 1 TO 3 12120 LET S = S + P(I) * S(I,J) 13130 NEXT I 14140 PRINT "TOTAL SALES FOR SALESMAN"J, "$"S 15150 NEXT J 16200 DATA 1.25, 4.30, 2.50 17210 DATA 40, 20, 37, 29, 42 18220 DATA 10, 16, 3, 21, 8 19230 DATA 35, 47, 29, 16, 33 20300 END