From bfcdd79f336c6fb51c5ae3163ee978952d21ada2 Mon Sep 17 00:00:00 2001
From: alfred-mk <alfredmwaik@gmail.com>
Date: Tue, 19 Nov 2024 16:04:46 +0300
Subject: [PATCH] view single statement

---
 services/registration/transactions.vis   |  4 ++++
 services/registration/view_statement     |  1 +
 services/registration/view_statement.vis | 10 ++++++++++
 3 files changed, 15 insertions(+)
 create mode 100644 services/registration/view_statement
 create mode 100644 services/registration/view_statement.vis

diff --git a/services/registration/transactions.vis b/services/registration/transactions.vis
index 2317ff0..33ccc89 100644
--- a/services/registration/transactions.vis
+++ b/services/registration/transactions.vis
@@ -5,7 +5,11 @@ MOUT quit 99
 MNEXT next 11
 MPREV prev 22
 HALT
+LOAD view_statement 0
+RELOAD view_statement
+CATCH . flag_incorrect_statement 1
 INCMP _ 0
 INCMP quit 99
 INCMP > 11
 INCMP < 22
+INCMP view_statement *
diff --git a/services/registration/view_statement b/services/registration/view_statement
new file mode 100644
index 0000000..1285cf9
--- /dev/null
+++ b/services/registration/view_statement
@@ -0,0 +1 @@
+{{.view_statement}}
\ No newline at end of file
diff --git a/services/registration/view_statement.vis b/services/registration/view_statement.vis
new file mode 100644
index 0000000..4dde523
--- /dev/null
+++ b/services/registration/view_statement.vis
@@ -0,0 +1,10 @@
+MAP view_statement
+MOUT back 0
+MOUT quit 9
+MNEXT next 11
+MPREV prev 22
+HALT
+INCMP _ 0
+INCMP quit 9
+INCMP > 11
+INCMP < 22