Booleans implemented.

[scheme.forth.jl.git] / term-colours.4th

diff --git a/term-colours.4th b/term-colours.4th
index 1d87c8e..5c08a00 100644 (file)
--- a/term-colours.4th
+++ b/term-colours.4th
@@ -14,6 +14,11 @@
     escape [char] 0 emit escape-end
 ;
 
+: clear-term
+    escape [char] 2 emit [char] J emit
+    escape [char] 0 emit [char] ; emit [char] 0 emit [char] f emit
+;
+
 : bold
     escape [char] 1 emit escape-end
 ;