diff options
| author | Bradley Smith | 2008-01-21 00:16:45 +0000 |
|---|---|---|
| committer | Bradley Smith | 2008-01-21 00:16:45 +0000 |
| commit | e6e7222d5a730368ed4e84c2e0f55427460e5230 (patch) | |
| tree | e608410401099ccebe7ffa21de9336d78c78efc9 /scheme/stop.scm | |
| download | gnurobots-e6e7222d5a730368ed4e84c2e0f55427460e5230.tar.gz | |
Imported GNU robots from CVS.
Signed-off-by: Bradley Smith <brad@brad-smith.co.uk>
Diffstat (limited to 'scheme/stop.scm')
| -rw-r--r-- | scheme/stop.scm | 16 |
1 files changed, 16 insertions, 0 deletions
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) |