Mercurial > repo
annotate ply-3.8/example/BASIC/sales.bas @ 12264:5430316485e2 draft
<oerjan> t mkx bin/fnord//echo \'? No such file or directory\'
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Sun, 15 Dec 2019 21:57:09 +0000 |
parents | 343ff337a19b |
children |
rev | line source |
---|---|
7267 | 1 10 FOR I = 1 TO 3 |
2 20 READ P(I) | |
3 30 NEXT I | |
4 40 FOR I = 1 TO 3 | |
5 50 FOR J = 1 TO 5 | |
6 60 READ S(I,J) | |
7 70 NEXT J | |
8 80 NEXT I | |
9 90 FOR J = 1 TO 5 | |
10 100 LET S = 0 | |
11 110 FOR I = 1 TO 3 | |
12 120 LET S = S + P(I) * S(I,J) | |
13 130 NEXT I | |
14 140 PRINT "TOTAL SALES FOR SALESMAN"J, "$"S | |
15 150 NEXT J | |
16 200 DATA 1.25, 4.30, 2.50 | |
17 210 DATA 40, 20, 37, 29, 42 | |
18 220 DATA 10, 16, 3, 21, 8 | |
19 230 DATA 35, 47, 29, 16, 33 | |
20 300 END |