;**   Last revision: May 27, 1986 at 7:59
;**
;**  by: H.M. Van Tassell, a NON-copywrited public domain contribution!
;** 
;**    These next 6 sets of macros assign single or double line graphics,
;**    Double/Single, Single/Double, or, other graphics, or the regular
;**    number functions to the numeric key pad keys
;**

(macro slines
	(
      (assign_to_key "#18231" "no_s7")       ;** Assigned to NumbPad 7.
      (assign_to_key "#18488" "no_s8")	 		;** Assigned to NumbPad 8. 
		(assign_to_key "#18745" "no_s9")			;** Assigned to NumbPad 9. 
		(assign_to_key "#19252" "no_s4")	 		;** Assigned to NumbPad 4.
      (assign_to_key "#19509" "no_s5")       ;** Assigned to NumbPad 5.
		(assign_to_key "#19766" "no_s6")			;** Assigned to NumbPad 6. 
      (assign_to_key "#20273" "no_s1")       ;** Assigned to NumbPad 1.
		(assign_to_key "#20530" "no_s2")	 		;** Assigned to NumbPad 2. 
		(assign_to_key "#20787" "no_s3")			;** Assigned to NumbPad 3.
      (assign_to_key "#21040" "no_s0")       ;** Assigned to NumbPad 0.
      (assign_to_key "#21294" "no_sp")       ;** Assigned to NumbPad ..
		(message "ÚÂ¿  ÃÅ´  ÀÁÙ  ³Ä line graphics on keypad.")
    )
)
(macro no_s7 (_insert "Ú"))
(macro no_s8 (_insert "Â"))
(macro no_s9 (_insert "¿"))
(macro no_s4 (_insert "Ã"))
(macro no_s5 (_insert "Å"))
(macro no_s6 (_insert "´"))
(macro no_s1 (_insert "À"))
(macro no_s2 (_insert "Á"))
(macro no_s3 (_insert "Ù"))
(macro no_s0 (_insert "³"))
(macro no_sp (_insert "Ä"))

(macro dlines
	(
      (assign_to_key "#18231" "no_d7")       ;** Assigned to NumbPad 7.
      (assign_to_key "#18488" "no_d8") 		;** Assigned to NumbPad 8. 
		(assign_to_key "#18745" "no_d9")			;** Assigned to NumbPad 9. 
		(assign_to_key "#19252" "no_d4")	 		;** Assigned to NumbPad 4.
      (assign_to_key "#19509" "no_d5")       ;** Assigned to NumbPad 5.
		(assign_to_key "#19766" "no_d6")			;** Assigned to NumbPad 6. 
      (assign_to_key "#20273" "no_d1")       ;** Assigned to NumbPad 1.
		(assign_to_key "#20530" "no_d2")	 		;** Assigned to NumbPad 2. 
		(assign_to_key "#20787" "no_d3")			;** Assigned to NumbPad 3.
      (assign_to_key "#21040" "no_d0")       ;** Assigned to NumbPad 0.
      (assign_to_key "#21294" "no_dp")       ;** Assigned to NumbPad ..
		(message "ÉË»  ÌÎ¹  ÈÊ¼  ºÍ line graphics on keypad.")
   )                           
)
(macro no_d7 (_insert "É"))
(macro no_d8 (_insert "Ë"))
(macro no_d9 (_insert "»"))
(macro no_d4 (_insert "Ì"))
(macro no_d5 (_insert "Î"))
(macro no_d6 (_insert "¹"))
(macro no_d1 (_insert "È"))
(macro no_d2 (_insert "Ê"))
(macro no_d3 (_insert "¼"))
(macro no_d0 (_insert "º"))
(macro no_dp (_insert "Í"))

(macro graphics
	(
      (assign_to_key "#18231" "no_o7")       ;** Assigned to NumbPad 7.
      (assign_to_key "#18488" "no_o8") 		;** Assigned to NumbPad 8. 
		(assign_to_key "#18745" "no_o9")			;** Assigned to NumbPad 9. 
		(assign_to_key "#19252" "no_o4")	 		;** Assigned to NumbPad 4.
      (assign_to_key "#19509" "no_o5")       ;** Assigned to NumbPad 5.
		(assign_to_key "#19766" "no_o6")			;** Assigned to NumbPad 6. 
      (assign_to_key "#20273" "no_o1")       ;** Assigned to NumbPad 1.
		(assign_to_key "#20530" "no_o2")	 		;** Assigned to NumbPad 2. 
		(assign_to_key "#20787" "no_o3")			;** Assigned to NumbPad 3.
      (assign_to_key "#21040" "no_o0")       ;** Assigned to NumbPad 0.
      (assign_to_key "#21294" "no_op")       ;** Assigned to NumbPad ..
		(message "°±²  ÛÝÞÜß  --  ÄÙgraphics on keypad.")
   )                           
)
(macro no_o7 (_insert "°"))   
(macro no_o8 (_insert "±"))   
(macro no_o9 (_insert "²"))   
(macro no_o4 (_insert "Û"))   
(macro no_o5 (_insert "ÝÞ"))  
(macro no_o6 (_insert "Üß"))  
(macro no_o1 (_insert "-"))  
(macro no_o2 (_insert ""))         
(macro no_o3 (_insert "-"))  
(macro no_o0 (_insert ""))  
(macro no_op (_insert "ÄÙ"))

(macro dslines
	(
      (assign_to_key "#18231" "no_ds7")      ;** Assigned to NumbPad 7.
      (assign_to_key "#18488" "no_ds8") 		;** Assigned to NumbPad 8. 
		(assign_to_key "#18745" "no_ds9")		;** Assigned to NumbPad 9. 
		(assign_to_key "#19252" "no_ds4")		;** Assigned to NumbPad 4.
      (assign_to_key "#19509" "no_ds5")      ;** Assigned to NumbPad 5.
		(assign_to_key "#19766" "no_ds6")		;** Assigned to NumbPad 6. 
      (assign_to_key "#20273" "no_ds1")      ;** Assigned to NumbPad 1.
		(assign_to_key "#20530" "no_ds2")		;** Assigned to NumbPad 2. 
		(assign_to_key "#20787" "no_ds3")		;** Assigned to NumbPad 3.
      (assign_to_key "#21040" "no_ds0")      ;** Assigned to NumbPad 0.
      (assign_to_key "#21294" "no_dsp")      ;** Assigned to NumbPad ..
		(message "ÕÑ¸  ÆØµ  ÔÏ¾  ³Í  line graphics on keypad.")
   )                           
)
(macro no_ds7 (_insert "Õ"))
(macro no_ds8 (_insert "Ñ"))
(macro no_ds9 (_insert "¸"))
(macro no_ds4 (_insert "Æ")) 
(macro no_ds5 (_insert "Ø")) 
(macro no_ds6 (_insert "µ")) 
(macro no_ds1 (_insert "Ô")) 
(macro no_ds2 (_insert "Ï")) 
(macro no_ds3 (_insert "¾"))
(macro no_ds0 (_insert "³"))
(macro no_dsp (_insert "Í"))

(macro sdlines
	(
      (assign_to_key "#18231" "no_sd7")      ;** Assigned to NumbPad 7.
      (assign_to_key "#18488" "no_sd8") 		;** Assigned to NumbPad 8. 
		(assign_to_key "#18745" "no_sd9")		;** Assigned to NumbPad 9. 
		(assign_to_key "#19252" "no_sd4")		;** Assigned to NumbPad 4.
      (assign_to_key "#19509" "no_sd5")      ;** Assigned to NumbPad 5.
		(assign_to_key "#19766" "no_sd6")		;** Assigned to NumbPad 6. 
      (assign_to_key "#20273" "no_sd1")      ;** Assigned to NumbPad 1.
		(assign_to_key "#20530" "no_sd2")		;** Assigned to NumbPad 2. 
		(assign_to_key "#20787" "no_sd3")		;** Assigned to NumbPad 3.
      (assign_to_key "#21040" "no_sd0")      ;** Assigned to NumbPad 0.
      (assign_to_key "#21294" "no_sdp")      ;** Assigned to NumbPad ..
		(message "ÖÒ·  Ç×¶  ÓÐ½  ºÄ  line graphics on keypad.")
   )                           
)
(macro no_sd7 (_insert "Ö"))
(macro no_sd8 (_insert "Ò"))		  
(macro no_sd9 (_insert "·"))		  
(macro no_sd4 (_insert "Ç"))		  
(macro no_sd5 (_insert "×"))		  
(macro no_sd6 (_insert "¶"))		  
(macro no_sd1 (_insert "Ó"))
(macro no_sd2 (_insert "Ð"))
(macro no_sd3 (_insert "½"))
(macro no_sd0 (_insert "º"))
(macro no_sdp (_insert "Ä"))

(macro numbers
	(
      (assign_to_key "#18231" "self_insert")   ;** Assigned to NumbPad 7.
      (assign_to_key "#18488" "self_insert")	  ;** Assigned to NumbPad 8. 
		(assign_to_key "#18745" "self_insert")	  ;** Assigned to NumbPad 9. 
		(assign_to_key "#19252" "self_insert")	  ;** Assigned to NumbPad 4.
      (assign_to_key "#19509" "self_insert")   ;** Assigned to NumbPad 5.
		(assign_to_key "#19766" "self_insert")	  ;** Assigned to NumbPad 6. 
      (assign_to_key "#20273" "self_insert")   ;** Assigned to NumbPad 1.
		(assign_to_key "#20530" "self_insert")	  ;** Assigned to NumbPad 2. 
		(assign_to_key "#20787" "self_insert")	  ;** Assigned to NumbPad 3.
      (assign_to_key "#21040" "self_insert")   ;** Assigned to NumbPad 0.
      (assign_to_key "#21294" "self_insert")   ;** Assigned to NumbPad ..
		(message "Numbers 0-9 on keypad.")
    )
)

;**
;** either insert either before cursor or overwrite 
;**
(macro _insert
   (
      (string char)
      (get_parm 0 char)
      (if (inq_mode)
         (insert char)
      ;else
         (
            (delete_char)
            (insert char)
         )
      )
   )
)

                                                        
