blob: b8c5360c93a5a554584556795fcde84f432fd758 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
;;; stop.scm
;;; Sample robot provided by Jim Hall <jhall@freedos.org>
;;; 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)
|
