Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0020/sales1.dem
There are 2 other files named sales1.dem in the archive. Click here to see a list.
100' NAME--SALES1
110'
120' DESCRIPTION--COMPUTES TOTAL SALES FOR EACH OF FIVE
130' SALESMAN. THIS PROBLEM IS DISCUSSED IN THE 'BASIC' MANUAL.
140'
150' SOURCE--UNKNOWN
160'
170' INSTRUCTIONS--TYPE "RUN".
180'
190'
200' * * * * * MAIN PROGRAM * * * * * * * * * * *
210'
220 FOR I = 1 TO 3
230 READ P(I)
240 NEXT I
250 FOR I = 1 TO 3
260 FOR J = 1 TO 5
270 READ S(I,J)
280 NEXT J
290 NEXT I
300 FOR J = 1 TO 5
310 LET S = 0
320 FOR I = 1 TO 3
330 LET S = S + P(I) * S(I,J)
340 NEXT I
350 PRINT "TOTAL SALES FOR SALESMAN "J, "$" S
360 NEXT J
370 DATA 1.25, 4.30, 2.50
380 DATA 40, 20, 37, 29, 42
390 DATA 10, 16, 3, 21, 8
400 DATA 35, 47, 29, 16, 33
410 END