;; simple_procedures.txt
;;
;; some simple procedures
;;
;; David Kauchak

to double-beep
        beep
        wait 10
        beep
end

to go-straight
        ab, on thisway
end

to go-backward
        ab, on thatway
end

to stop-motion
        ab, off
end

to turn-left
        a, off
        b, on thisway
end

to turn-right
        b, off
        a, on thisway
end