diff options
| -rw-r--r-- | cbasic.lisp | 7 |
1 files changed, 6 insertions, 1 deletions
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...~%")) |