;;Konstanten.
;Funktion um die Oktal-Zahlen aus der Headerdatei in scheme-integer
;zu konvertieren
(define make-oct-int
  (lambda (i)
    (string->number (string-append "#o"
                                   (number->string i)))))
;
;
;;Farben
;
(define color-black 0)
(define color-red 1)
(define color-green 2)
(define color-yellow 3)
(define color-blue 4)
(define color-magenta 5)
(define color-cyan 6)
(define color-white 7)
;
;
;;Sondertasten
;
(define key-code-yes (make-oct-int 0400))
(define key-min (make-oct-int 0401))
(define key-break (make-oct-int 0401))
(define key-sreset (make-oct-int 0530))
(define key-reset (make-oct-int 0531))
;
(define key-down (make-oct-int 0402))
(define key-up (make-oct-int 0403))
(define key-left (make-oct-int 0404))
(define key-right (make-oct-int 0405))
(define key-home (make-oct-int 0406))
(define key-backspace (make-oct-int 0407))
(define key-f0 (make-oct-int 0410))
;
(define key-f1 (+ (make-oct-int 0410) 1))
(define key-f2 (+ (make-oct-int 0410) 2))
(define key-f3 (+ (make-oct-int 0410) 3))
(define key-f4 (+ (make-oct-int 0410) 4))
(define key-f5 (+ (make-oct-int 0410) 5))
(define key-f6 (+ (make-oct-int 0410) 6))
(define key-f7 (+ (make-oct-int 0410) 7))
(define key-f8 (+ (make-oct-int 0410) 8))
(define key-f9 (+ (make-oct-int 0410) 9))
(define key-f10 (+ (make-oct-int 0410) 10))
(define key-f11 (+ (make-oct-int 0410) 11))
(define key-f12 (+ (make-oct-int 0410) 12))
;
(define key-dl (make-oct-int 0510))
(define key-il (make-oct-int 0511))
(define key-dc (make-oct-int 0512))
(define key-ic (make-oct-int 0513))
(define key-eic (make-oct-int 0514))
(define key-clear (make-oct-int 0515))
(define key-eos (make-oct-int 0516))
(define key-eol (make-oct-int 0517))
(define key-sf (make-oct-int 0520))
(define key-sr (make-oct-int 0521))
(define key-npage (make-oct-int 0522))
(define key-ppage (make-oct-int 0523))
(define key-stab (make-oct-int 0524))
(define key-ctab (make-oct-int 0525))
(define key-catab (make-oct-int 0526))
(define key-enter (make-oct-int 0527))
(define key-print (make-oct-int 0532))
(define key-ll (make-oct-int 0533))
(define key-a1 (make-oct-int 0534))
(define key-a3 (make-oct-int 0535))
(define key-b2 (make-oct-int 0536))
(define key-c1 (make-oct-int 0537))
(define key-c3 (make-oct-int 0540))
(define key-btab (make-oct-int 0541))
(define key-beg (make-oct-int 0542))
(define key-cancel (make-oct-int 0543))
(define key-close (make-oct-int 0544))
(define key-command (make-oct-int 0545))
(define key-copy (make-oct-int 0546))
(define key-create (make-oct-int 0547))
(define key-end (make-oct-int 0550))
(define key-exit (make-oct-int 0551))
(define key-find (make-oct-int 0552))
(define key-help (make-oct-int 0553))
(define key-mark (make-oct-int 0554))
(define key-message (make-oct-int 0555))
(define key-move (make-oct-int 0556))
(define key-next (make-oct-int 0557))
(define key-open (make-oct-int 0560))
(define key-options (make-oct-int 0561))
(define key-previous (make-oct-int 0562))
(define key-redo (make-oct-int 0563))
(define key-reference (make-oct-int 0564))
(define key-refresh (make-oct-int 0565))
(define key-replace (make-oct-int 0566))
(define key-restart (make-oct-int 0567))
(define key-resume (make-oct-int 0570))
(define key-save (make-oct-int 0571))
(define key-sbeg (make-oct-int 0572))
(define key-scancel (make-oct-int 0573))
(define key-scommand (make-oct-int 0574))
(define key-scopy (make-oct-int 0575))
(define key-screate (make-oct-int 0576))
(define key-sdc (make-oct-int 0577))
(define key-sdl (make-oct-int 0600))
(define key-select (make-oct-int 0601))
(define key-send (make-oct-int 0602))
(define key-seol (make-oct-int 0603))
(define key-sexit (make-oct-int 0604))
(define key-sfind (make-oct-int 0605))
(define key-shelp (make-oct-int 0606))
(define key-shome (make-oct-int 0607))
(define key-sic (make-oct-int 0610))
(define key-sleft (make-oct-int 0611))
(define key-smessage (make-oct-int 0612))
(define key-smove (make-oct-int 0613))
(define key-snext (make-oct-int 0614))
(define key-soptions (make-oct-int 0615))
(define key-sprevious (make-oct-int 0616))
(define key-sprint (make-oct-int 0617))
(define key-sredo (make-oct-int 0620))
(define key-sreplace (make-oct-int 0621))
(define key-sright (make-oct-int 0622))
(define key-srsume (make-oct-int 0623))
(define key-ssave (make-oct-int 0624))
(define key-ssuspend (make-oct-int 0625))
(define key-sundo (make-oct-int 0626))
(define key-suspend (make-oct-int 0627))
(define key-undo (make-oct-int 0630))
(define key-mouse (make-oct-int 0631))
(define key-resize (make-oct-int 0632))
(define key-event (make-oct-int 0633))