From 6a30c4db8bbd6d54c308a385b9e1675f44858f66 Mon Sep 17 00:00:00 2001
From: Sandy Brownlee <sbr@cs.stir.ac.uk>
Date: Tue, 27 Sep 2022 21:41:24 +0100
Subject: [PATCH] Updated examples

---
 programs/bardemo.tri        |  8 ++++++--
 programs/while-longloop.tri | 22 ++++++++++++++++++++++
 2 files changed, 28 insertions(+), 2 deletions(-)
 create mode 100644 programs/while-longloop.tri

diff --git a/programs/bardemo.tri b/programs/bardemo.tri
index 4e792cc..f730f74 100644
--- a/programs/bardemo.tri
+++ b/programs/bardemo.tri
@@ -9,7 +9,11 @@ in
         b := 2;
         
         putint(a);
+	puteol();
         putint(b);
+        puteol();
         putint(|a);
-        putint(|b)
-    end
\ No newline at end of file
+        puteol();
+        putint(|b);
+        puteol()
+    end
diff --git a/programs/while-longloop.tri b/programs/while-longloop.tri
new file mode 100644
index 0000000..75b1088
--- /dev/null
+++ b/programs/while-longloop.tri
@@ -0,0 +1,22 @@
+let
+  var a : Integer;
+  var b : Integer;
+  var c : Integer
+in
+begin
+  put('1');
+  puteol();
+  a := 0;
+  while a < 5000 do
+  begin
+    b := 0;
+    while b < 3000 do
+    begin
+      c := c + a;
+      c := c / (1 + b);
+      b := b + 1;
+    end;
+    a := a + 1;
+  end;
+  putint(c);
+end