initget
(initget [bits] [string]) 
-get°ü·ÃÇÔ¼ö¸¦ »ç¿ëÇÒ¶§ ÀԷ¿¡ ´ëÇÑ »óŸ¦ Á¦¾îÇÕ´Ï´Ù.
-ÀÌ ÇÔ¼ö´Â getstring °ú getvar ÇÔ¼ö¸¦ Á¦¾îÇÏÁö´Â ¾Ê½À´Ï´Ù.
-Ç×»ó nil À» ÀÀ´äÇÏÁö¸¸ bit¼ö¸¦ Á¶ÇÕÇÏ¿© ±â´ÉµéÀ» ½ÇÇà½Ãų ¼ö ÀÖ½À´Ï´Ù.
-[bits] °¡ »ý°½ÀÌ µÇ¸é 0À¸·Î °£ÁÖ
initget bit ³»  ¿ë
1 null ÀÔ·ÂÀ» Çã¿ë¾ÈÇÔ
2 0°ªÀ» Çã¿ë¾ÈÇÔ
4 À½¼ö°ªÀ» Çã¿ë¾ÈÇÔ
8 limcheck°¡ onÀÎ °æ¿ì¿¡´Â limits¸¦ üũÇÏÁö ¾ÈÀ½
16 2d point ´ë½Å 3d point ¸¦ ÀÀ´ä
32 rubber band ³ª box ¼±¿¡ Á¡¼±À» »ç¿ëÇÔ
0 ¾Æ¹«·± ¿µÇâÀÌ ¾øÀ½
 command : (initget (+ 1 2 4))
command : (setq money (getint "how much?")) 
money º¯¼ö¿¡ null °ú 0°ª°ú À½¼ö°ªÀ» ¹ÞÁö ¸øÇÕ´Ï´Ù.
[string] ¿¡´Â getÇÔ¼ö·Î ÀÔ·ÂÀ» ¹ÞÀ»¶§ ´ÜÃàÅ°ÀÇ ¾àÀÚ¸¦ ÁöÁ¤ÇÒ¼ö ÀÖ½À´Ï´Ù.
´ë¹®ÀÚ·Î ÁöÁ¤ÇÑ °ÍÀÌ ¾àÀÚ·Î ¼±Á¤µÇ¸ç ´Ù¸¥ ¾àÀÚ¿Í´Â °ø¹éÀ¸·Î ±¸ºÐÇÕ´Ï´Ù.
command : (initget 1 "Yes No")   
command : (setq st (getword "Yes or No<Y/N>"))

initget ÇÔ¼ö´Â ´ÙÀ½¿¡ ¿À´Â get°ü·Ã ÇÔ¼ö¿¡ Çѹø¸¸ ¿µÇâÀ» ÁÝ´Ï´Ù.

------------------------------------------------------

getword 
(getword ["prompt"]) 
initget¿¡¼­ ¹Ì¸® ±× ¾àÀÚ°ªÀÌ ¼³Á¤µÇ¾îÀÖ¾î¾ßÇÕ´Ï´Ù.
initget¿¡¼­ ÇÒ´çµÈ ´ÜÃàÅ°¸¦ ¹ÞÀ»¼ö ÀÖ°Ô ÀԷ¹®À» ½á³Ö´Â´Ù°í º¸½Ã¸éµË´Ï´Ù. 
command : (initget 1 "Yes No")   
command : (setq st (getword "Yes or No<Y/N>"))