From 4007ea18f294aefb6128cbe82c5446cd8cb72c50 Mon Sep 17 00:00:00 2001
From: Louis Burda <quent.burda@gmail.com>
Date: Thu, 14 Mar 2024 21:30:16 +0100
Subject: Add solution

---
 chall/ply-2.2/example/BASIC/sales.bas | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 chall/ply-2.2/example/BASIC/sales.bas

(limited to 'chall/ply-2.2/example/BASIC/sales.bas')

diff --git a/chall/ply-2.2/example/BASIC/sales.bas b/chall/ply-2.2/example/BASIC/sales.bas
new file mode 100644
index 0000000..a39aefb
--- /dev/null
+++ b/chall/ply-2.2/example/BASIC/sales.bas
@@ -0,0 +1,20 @@
+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
-- 
cgit v1.2.3-71-gd317