From 005aa834772ecb16fce512c05821db862cef8b95 Mon Sep 17 00:00:00 2001
From: Darren Bane <darren.bane@gmail.com>
Date: Sun, 9 Aug 2020 00:09:30 +0100
Subject: Merge in changes from the Mac

---
 cbasic.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/cbasic.lisp b/cbasic.lisp
index 99220fb..ddbd900 100644
--- a/cbasic.lisp
+++ b/cbasic.lisp
@@ -16,4 +16,9 @@
 
 (defun main ()
    (catch 'end (lambda ()
-                  (format (standard-output) "BASIC version 0.1
+                  (format (standard-output) "BASIC version 0.1~%~%")
+                  (for ((st (create (class <state>))))
+                       (())
+                       (format (standard-output) "> ")
+                       (catch 'error (one-command st)))))
+   (format (standard-output) "See you later...~%"))
-- 
cgit 1.4.1-2-gfad0