;**   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)
         )
      )
   )
)

                                                        
                                                   
.