From bb888c228e7e1722380440a0e1131c20822674d7 Mon Sep 17 00:00:00 2001
From: antranigv <antranig@cert.am>
Date: Fri, 2 Jun 2017 17:05:18 +0400
Subject: [PATCH] intro to WHILE loop

---
 while/Makefile  | 10 ++++++++++
 while/While.Mod | 17 +++++++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 while/Makefile
 create mode 100644 while/While.Mod

diff --git a/while/Makefile b/while/Makefile
new file mode 100644
index 0000000..e8b76e5
--- /dev/null
+++ b/while/Makefile
@@ -0,0 +1,10 @@
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -m While.Mod
+
+clean:
+	rm *.c
+	rm *.h
+	rm *.o
+	rm *.sym
diff --git a/while/While.Mod b/while/While.Mod
new file mode 100644
index 0000000..6f4b324
--- /dev/null
+++ b/while/While.Mod
@@ -0,0 +1,17 @@
+MODULE while;
+
+IMPORT Out;
+
+
+VAR
+	i : INTEGER;
+
+
+BEGIN
+	i := 0;
+	Out.String("WHILE loop started"); Out.Ln;
+	WHILE i < 10 DO
+		i := i + 1;
+		Out.Int(i, 0); Out.Ln;
+	END;
+END while.