Mercurial > repo
view ply-3.8/example/BASIC/sales.bas @ 12473:d5369f0dbe17 draft
<int-e> learn GregorR is a recovering absentee. He\'s known for his hack ego and hat tricks.
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Tue, 14 Feb 2023 05:42:31 +0000 |
parents | 343ff337a19b |
children |
line wrap: on
line source
10 FOR I = 1 TO 3 20 READ P(I) 30 NEXT I 40 FOR I = 1 TO 3 50 FOR J = 1 TO 5 60 READ S(I,J) 70 NEXT J 80 NEXT I 90 FOR J = 1 TO 5 100 LET S = 0 110 FOR I = 1 TO 3 120 LET S = S + P(I) * S(I,J) 130 NEXT I 140 PRINT "TOTAL SALES FOR SALESMAN"J, "$"S 150 NEXT J 200 DATA 1.25, 4.30, 2.50 210 DATA 40, 20, 37, 29, 42 220 DATA 10, 16, 3, 21, 8 230 DATA 35, 47, 29, 16, 33 300 END