Adding web serial.

2024-08-05 10:24:03 -07:00
parent de39be5392
commit 8ab745ab9c
2 changed files with 89 additions and 0 deletions
--- a/web/utils.fs
+++ b/web/utils.fs
@ -72,4 +72,12 @@ web definitions
 ' yielding 10 10 task yielding-task
 yielding-task start-task

+: serial
+  begin
+    pause
+    begin serial-key-raw dup 0< 0= while emit repeat drop
+    begin key? while key >r rp@ 1 serial-type rdrop repeat
+  again
+;
+
 forth definitions