Gecko [ goons4good.org ]

Name	Size	Permission	Date
5x5.elc	20.63 KB	-rw-r--r--	2023-06-07 04:11
animate.elc	4.37 KB	-rw-r--r--	2023-06-07 04:11
blackbox.elc	10.93 KB	-rw-r--r--	2023-06-07 04:11
bubbles.elc	43.68 KB	-rw-r--r--	2023-06-07 04:11
cookie1.elc	3.48 KB	-rw-r--r--	2023-06-07 04:11
decipher.elc	22.1 KB	-rw-r--r--	2023-06-07 04:11
dissociate.elc	1.96 KB	-rw-r--r--	2023-06-07 04:11
doctor.elc	49.27 KB	-rw-r--r--	2023-06-07 04:11
dunnet.elc	85.34 KB	-rw-r--r--	2023-06-07 04:11
fortune.elc	7.68 KB	-rw-r--r--	2023-06-07 04:11
gamegrid.elc	13.93 KB	-rw-r--r--	2023-06-07 04:11
gametree.elc	19.01 KB	-rw-r--r--	2023-06-07 04:11
gomoku.elc	28.9 KB	-rw-r--r--	2023-06-07 04:11
handwrite.elc	58.43 KB	-rw-r--r--	2023-06-07 04:11
hanoi.elc	9.37 KB	-rw-r--r--	2023-06-07 04:11
landmark.elc	39.89 KB	-rw-r--r--	2023-06-07 04:11
life.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
meese.elc	1.04 KB	-rw-r--r--	2023-06-07 04:11
morse.elc	4.22 KB	-rw-r--r--	2023-06-07 04:11
mpuz.elc	12.93 KB	-rw-r--r--	2023-06-07 04:11
pong.elc	9.94 KB	-rw-r--r--	2023-06-07 04:11
snake.elc	9.76 KB	-rw-r--r--	2023-06-07 04:11
solitaire.elc	13.38 KB	-rw-r--r--	2023-06-07 04:11
spook.elc	1.51 KB	-rw-r--r--	2023-06-07 04:11
studly.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
yow.elc	3.43 KB	-rw-r--r--	2023-06-07 04:11
zone.elc	14.97 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:11:39 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/morse.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#@27 Morse code character set.
(defvar morse-code '(("a" . ".-") ("b" . "-...") ("c" . "-.-.") ("d" . "-..") ("e" . ".") ("f" . "..-.") ("g" . "--.") ("h" . "....") ("i" . "..") ("j" . ".---") ("k" . "-.-") ("l" . ".-..") ("m" . "--") ("n" . "-.") ("o" . "---") ("p" . ".--.") ("q" . "--.-") ("r" . ".-.") ("s" . "...") ("t" . "-") ("u" . "..-") ("v" . "...-") ("w" . ".--") ("x" . "-..-") ("y" . "-.--") ("z" . "--..") ("=" . "-...-") ("?" . "..--..") ("/" . "-..-.") ("," . "--..--") ("." . ".-.-.-") (":" . "---...") ("'" . ".----.") ("-" . "-....-") ("(" . "-.--.-") (")" . "-.--.-") ("0" . "-----") ("1" . ".----") ("2" . "..---") ("3" . "...--") ("4" . "....-") ("5" . ".....") ("6" . "-....") ("7" . "--...") ("8" . "---..") ("9" . "----.") ("Ä" . ".-.-") ("Æ" . ".-.-") ("Á" . ".--.-") ("Å" . ".--.-") ("ß" . ".../...") ("É" . "..-..") ("Ñ" . "--.--") ("Ö" . "---.") ("Ø" . "---.") ("Ü" . "..--") ("@" . ".--.-.")) (#$ . 549))
#@203 NATO phonetic alphabet.
See ''International Code of Signals'' (INTERCO), United States
Edition, 1969 Edition (Revised 2003) available from National
Geospatial-Intelligence Agency at http://www.nga.mil/
(defvar nato-alphabet '(("a" . "Alfa") ("b" . "Bravo") ("c" . "Charlie") ("d" . "Delta") ("e" . "Echo") ("f" . "Foxtrot") ("g" . "Golf") ("h" . "Hotel") ("i" . "India") ("j" . "Juliett") ("k" . "Kilo") ("l" . "Lima") ("m" . "Mike") ("n" . "November") ("o" . "Oscar") ("p" . "Papa") ("q" . "Quebec") ("r" . "Romeo") ("s" . "Sierra") ("t" . "Tango") ("u" . "Uniform") ("v" . "Victor") ("w" . "Whiskey") ("x" . "Xray") ("y" . "Yankee") ("z" . "Zulu") ("0" . "Zero") ("1" . "One") ("2" . "Two") ("3" . "Three") ("4" . "Four") ("5" . "Five") ("6" . "Six") ("7" . "Seven") ("8" . "Eight") ("9" . "Niner") ("=" . "Equals") ("?" . "Query") ("/" . "Slash") ("," . "Comma") ("." . "Stop") (":" . "Colon") ("'" . "Apostrophe") ("-" . "Dash") ("(" . "Open") (")" . "Close") ("@" . "At")) (#$ . 1496))
#@51 Convert all text in a given region to morse code.
(defalias 'morse-region #[(beg end) "\250\203	�\306!\212\307\310\211\fb\210`W\205N�``T{\227\311\312!\203.�\313\225b\210\307\202�\314\n
\"\211\203F�\315\316!\210	A\261\210\317\202�\316u\210\307\202�,\207" [end morse str sep beg morse-code copy-marker "" nil looking-at "\\s-+" 0 assoc delete-char 1 "/"] 3 (#$ . 2493) "*r"])
#@60 Convert morse coded text in region to ordinary ASCII text.
(defalias 'unmorse-region #[(beg end) "\250\203	�\306!\212\307\211\211\fb\210`W\205d�\310\311!\204%�\312u\210\202�\313\224\313\225{\314
\"\211\204;�\313\225b\210\202�\315	@\316\230\203R�\n?\211\203N�\316\202T�\317\202T�	@\320\"\210\310\321!\203�\322\312!\210\202�,\207" [end morse paren str beg morse-code copy-marker nil looking-at "[-.]+" 1 0 rassoc replace-match "(" ")" t "/" delete-char] 3 (#$ . 2890) "*r"])
#@63 Convert all text in a given region to NATO phonetic alphabet.
(defalias 'nato-region #[(beg end) "\250\203	�\306!\212\307\310\211\fb\210`W\205N�``T{\227\311\312!\203.�\313\225b\210\307\202�\314\n
\"\211\203F�\315\316!\210	A\261\210\317\202�\316u\210\307\202�,\207" [end nato str sep beg nato-alphabet copy-marker "" nil looking-at "\\s-+" 0 assoc delete-char 1 "-"] 3 (#$ . 3384) "*r"])
#@66 Convert NATO phonetic alphabet in region to ordinary ASCII text.
(defalias 'denato-region #[(beg end) "\250\203	�\306!\212\307\211\211\fb\210`W\205f�\310\311!\204%�\312u\210\202�\313\224\313\225{\314\315!
\"\211\204=�\313\225b\210\202�\316	@\317\230\203T�\n?\211\203P�\317\202V�\320\202V�	@\321\"\210\310\322!\203�\323\312!\210\202�,\207" [end nato paren str beg nato-alphabet copy-marker nil looking-at "[a-z]+" 1 0 rassoc capitalize replace-match "(" ")" t "-" delete-char] 3 (#$ . 3794) "*r"])
(provide 'morse)