Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - 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