
(global-set-key "" (quote amiga-iconify))

(setq amiga-map (make-keymap))

(global-set-key "" amiga-map)

(load "amiga-mouse")

(load "amiga-menu")

(define-key amiga-map "A" (quote previous-line))

(define-key amiga-map "B" (quote next-line))

(define-key amiga-map "D" (quote backward-char))

(define-key amiga-map "C" (quote forward-char))

(define-key amiga-map "?~" (quote info))

(define-key amiga-map "T" (quote scroll-down))

(define-key amiga-map "S" (quote scroll-up))

(define-key amiga-map " @" (quote forward-word))

(define-key amiga-map " A" (quote backward-word))

(define-key amiga-map "Б" (quote beginning-of-buffer))

(define-key amiga-map "В" (quote end-of-buffer))

(define-key amiga-map "Д" (quote beginning-of-line))

(define-key amiga-map "Г" (quote end-of-line))

(define-key amiga-map " А" (quote forward-sexp))

(define-key amiga-map " Б" (quote backward-sexp))

(define-key amiga-map "Ф" (quote scroll-down-1))

(define-key amiga-map "У" (quote scroll-up-1))

(define-key amiga-map "K" (quote do-nothing))

(defun do-nothing nil (interactive) (byte-code "А‡" [nil] 1))

(defun scroll-down-1 nil "\
Move up one line on screen" (interactive) (byte-code "А€БВ!‡" [nil scroll-down 1] 2))

(defun scroll-up-1 nil "\
Move down one line on screen" (interactive) (byte-code "А€БВ!‡" [nil scroll-up 1] 2))

(setq amiga-arexx-processing nil)

(setq amiga-arexx-errors nil)

(defvar amiga-arexx-failat 5 "\
Return level from which arexx commands returns cause errors")

(defun amiga-arexx-process nil (interactive) (byte-code "В€?… Б‰€ВГДЏ€В‰‡" [amiga-arexx-processing t nil (byte-code "ДЕ ‰…( <ѓ 	B‰‚$ ЖДЗИЙЏ€К
\"*€‚ )‡" [arexxcmd amiga-arexx-errors rc result nil amiga-arexx-get-event 0 err (byte-code "Г	!@ДЕ!!‰)‡" [expr arexxcmd result read-from-string prin1-to-string eval] 5) ((error (byte-code "Г‰€Д
!‰‡" [rc result err 20 prin1-to-string] 3))) amiga-arexx-reply] 5) ((error (byte-code "А‡" [nil] 1)))] 3))

(defun amiga-arexx-wait-command (id) "\
Waits for a pending ARexx commands to complete.
Also processes any pending ARexx requests during this interval." (byte-code "Б €В!… Г €Б €‚ ‡" [id amiga-arexx-process amiga-arexx-check-command amiga-arexx-wait] 6))

(defconst amiga-arexx-error-messages ["No cause" "Program not found" "Execution galted" "Insufficient memory" "Invalid character" "Unmatched quote" "Unterminated comment" "Clause too long" "Invalid token" "Symbol or string too long" "Invalid message packet" "Command string error" "Error return from function" "Host environment not found" "Requested library not found" "Function not found" "Function did not return value" "Wrong number of arguments" "Invalid argument to function" "Invalid PROCEDURE" "Unexpected THEN or WHEN" "Unexpected ELSE or OTHERWISE" "Unexpected BREAK, LEAVE or ITERATE" "Invalid statement in SELECT" "Missing or multiple THEN" "Missing OTHERWISE" "Missing or unexpected END" "Symbol mismatch" "Invalid DO syntax" "Incomplete IF or SELECT" "Label not found" "Symbol expected" "Symbol or string expected" "Invalid keyword" "Required keyword missing" "Extraneous characters" "Keyword conflict" "Invalid template" "Invalid TRACE request" "Unitialized variable" "Invalid variable name" "Invalid expression" "Unbalanced parentheses" "Nesting limit exceeded" "Invalid expression result" "Expression required" "Boolean value not 0 or 1" "Arithmetic conversion error" "Invalid operand"] "\
The arexx error messages, sorted by number")

(defun amiga-arexx-do-command (str as-file) "\
Sends ARexx command str (like amiga-arexx-send-command) but waits
for all pending commands to complete (including this one)." (interactive "sARexx command: 
P") (byte-code "К€Л	
\"М!€Н\"…M A@О\"‰€Y…L AA@	GWѓ= 	H‚C ПКР#СТ#*)))‡" [id str as-file err amiga-arexx-errors severity amiga-arexx-failat error-code error-message amiga-arexx-error-messages nil amiga-arexx-send-command amiga-arexx-wait-command assq delq format "Unknown error %d" error "Arexx command failed, level %d, cause %s"] 9))

(define-key amiga-map "X" (quote amiga-arexx-process))

(setq amiga-arexx-initialized t)

(defun amiga-wb-process nil "\
Process all pending workbench events, ie load all files requested" (interactive) (byte-code "Б€ББВГЏ)‡" [file nil (byte-code "ВБ!‰… ГДЕЏ€‚  ‡" [file t amiga-get-wb-event nil (byte-code "Б!‡" [file find-file] 2) ((error (byte-code "А‡" [nil] 1)))] 5) ((error (byte-code "А‡" [nil] 1)))] 3))

(define-key amiga-map "W" (quote amiga-wb-process))

(setq amiga-wb-initialized t)

(setq completion-ignore-case t)

(setq version-control (quote never))