From e6e7222d5a730368ed4e84c2e0f55427460e5230 Mon Sep 17 00:00:00 2001
From: Bradley Smith
Date: Mon, 21 Jan 2008 00:16:45 +0000
Subject: Imported GNU robots from CVS.

Signed-off-by: Bradley Smith <brad@brad-smith.co.uk>---
 scheme/stop.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 scheme/stop.scm

(limited to 'scheme/stop.scm')

diff --git a/scheme/stop.scm b/scheme/stop.scm
new file mode 100644
index 0000000..511988b
--- /dev/null
+++ b/scheme/stop.scm
@@ -0,0 +1,16 @@
+;;; stop.scm
+;;; Sample robot provided by Jim Hall <jhall1@isd.net>
+;;; THIS ROBOT IS NOT REALLY INTENDED FOR PUBLIC CONSUMPTION!
+;;; Tests my new `stop' and `quit' primitives for GNU Robots
+
+;;; Define a function to make a beep
+(define (beep) (display "\a"))
+
+;;; The program starts here:
+
+(beep)
+(sleep 1)
+
+;;; Test my new `stop' and `quit' primitives:
+;(stop)
+(quit)
-- 
cgit v1.1