From 546a15ff450efcd08b1a22ebd5af7237de93c4a2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <acwervo@gmail.com>
Date: Sun, 13 Nov 2022 14:23:08 -0500
Subject: Add hello name program, CPS clock, & Michael

---
 virtual-programs/CPS-clock.folk  | 14 +++++++++++++-
 virtual-programs/hello-name.folk | 12 ++++++++++++
 2 files changed, 25 insertions(+), 1 deletion(-)
 create mode 100644 virtual-programs/hello-name.folk

(limited to 'virtual-programs')

diff --git a/virtual-programs/CPS-clock.folk b/virtual-programs/CPS-clock.folk
index 0221fa40..ba455a18 100644
--- a/virtual-programs/CPS-clock.folk
+++ b/virtual-programs/CPS-clock.folk
@@ -2,4 +2,16 @@ Wish $this is outlined blue
 Wish $this has filename "CPS-clock.folk"
 #Wish $this is labelled "CPS clock"
 
-Wish $this is labelled [exec sh -c "TZ=America/New_York date"]
+## Hmmmmm, how to do this in Tcl? Use `tcl
+
+When $::nodename has step count /c/ {
+	Wish $this is labelled [string trim "
+[exec sh -c "TZ=America/New_York date"]
+step count: $c
+step time: $::stepTime
+	"]
+}
+
+
+# Wish $this is outlined red
+# Claim firstname is "something"
diff --git a/virtual-programs/hello-name.folk b/virtual-programs/hello-name.folk
new file mode 100644
index 00000000..bef035e2
--- /dev/null
+++ b/virtual-programs/hello-name.folk
@@ -0,0 +1,12 @@
+Wish $this has filename "hello-name.folk"
+Wish $this is outlined blue
+
+When someone claims /firstName/ is /text/ {
+  Wish $this is outlined blue
+  Wish $this is labelled "
+
+
+
+
+Hi $text!"
+}
\ No newline at end of file
-- 
cgit v1.2.3