Mercurial > repo
annotate ply-3.8/example/BASIC/sales.bas @ 11979:f04a3527bfa9 draft
<kspalaiologos> learn the bfasm The brainfuck assembler. Documentation and samples: https://raw.githubusercontent.com/KrzysztofSzewczyk/asmbf/master/doc/bfasm.doc
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Wed, 23 Oct 2019 17:51:27 +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 |