an example

diff --git a/examples/sleep.f b/examples/sleep.f
new file mode 100755 (executable)
index 0000000..b639a1b
--- /dev/null
+++ b/examples/sleep.f
@@ -0,0 +1,22 @@
+#!/home/ralph/src/devuan/rrqforth/rrqforth
+
+SYSTEM DEFINITIONS
+
+: sleep ( seconds -- )
+  0 SWAP 0 0           # set up 2 cell pairs for 2 "struct timespec"
+  2 D[n] 0 D[n]        # Pointers to them ( *req *rem )
+  SYS_NANOSLEEP DROP   # ignore return value
+  2DROP 2DROP          # cleanup
+;
+
+: DOTS ( n -- ; sleep n seconds with a dot every second )
+  BEGIN S" ." TELL 1 sleep 1 - DUP 0 > IFAGAIN SP EMIT END DROP ;
+
+: DIEIF ( n -- ; die if n is 0 )
+  0= IF S" ** not a number **" TELL NL EMIT 1 EXIT THEN ;
+
+# Read a number
+" Sleep seconds: " TELL STDIN READ-WORD NUMBER DIEIF
+" sleeping " TELL DOTS " done" TELL NL EMIT
+
+0 EXIT