FUNC DefMacro(x,y,z,cKeyName,nKeyPlay) 
  
 LOCAL   wide,sx,ps 
 DEFAULT cKeyName TO "ту-же кнопку" 
  
  wide:=MAXCOL()-2 
  IF EMPTY(macro_buf[2]) // начинаем запись ? 
   SayString(0,0,PADC("Запись макро-команды, для заверш. нажмите "+cKeyName+".",wide),c_blink) 
   macro_buf:={""    ,;                 // 1.здесь храним макрос, обнуляем 
               "work",;                 // 2.состояние макроса, запись, работа... 
               TRAPANYKEY("MacroRec"),; // 3.old обработч.всех кнопок (мало-ли...) 
               nKeyPlay,;               // 4.кнопка воспр.макро - для предупрежд. 
               FALSE}                   // 5.состояние поллинга 
  ELSE 
                                        // удаляем из буфера завершающ. Ctrl+F10 
   macro_buf[1] := LEFT(macro_buf[1],LEN(macro_buf[1])-2) 
   macro_buf[2] := ""                   // выкл. признак записи макро 
   TRAPANYKEY(macro_buf[3])             // восст.перехватчик кнопок (если был) 
                                        // выводим мессагу на экран 
   sx:="Макро-команда "+IIF(LEN(macro_buf[1]) > 0,"записана.","ОТМЕНЕНА.") 
   SayString(0,0,PADC(sx,wide),c_blink) 
   INKEY(1.5)                           // чуть-чуть ждем. 
   ShowMainHeader()                     // восстанавливаем верхн.часть экрана 
  ENDI 
 RETURN 
  
  
 * ------------- * 
 FUNC MacroIsRec()           // запись макро выполняется ? 
 RETURN !EMPTY(macro_buf[2]) // только когда не-пустой 2й элемент 
  
 * ------------- * 
 FUNC MacroClean()           // очищаем буфер при смене юзера 
  macro_buf := {"",""} 
 RETURN 
  
 * ------------------- * 
 FUNC MacroRec(nKeyCode) 
  
  IF (nKeyCode != macro_buf[4])      // запрещена кнопка воспр.макро 
   macro_buf[1] += I2BIN(nKeyCode)   // сохраняем кнопку в расширенном виде 
   SayString(0,0,STR(LEN(macro_buf[1])/2,6),c_blink) 
   KEYSEND(I2BIN(nKeyCode),TRUE) 
  ELSE 
   SayString(0,0," err!") 
  ENDI 
 RETURN 
 #endif 
  
 * ------------ * 
 FUNC PlayMacro() 
  IF EMPTY(macro_buf[2])        // не во время записи ? 
   KEYSEND(macro_buf[1],TRUE) 
  ENDI 
 RETURN 
  
  
 

 
 В начале программы достаточно поставить MacroNew("setup") 
  
 FUNC MacroNew( cCmd )  
  
 STATIC nBuf := {},; 
        msg1 := "Начало записи макро, Ctrl+F10 для завершения.",; 
        rec_on := FALSE 
 LOCAL nKey  
  
  IF (cCmd == "setup")              // define keys 
  
   SETKEY(K_CTRL_F10, {|| MacroNew("rec") })  
   SETKEY(254,        {|| MacroNew("get") })  
   SETKEY(K_F10,      {|| MacroNew("play") })  
  
  ELSEIF (cCmd == "rec") // start records  
  
   IF !rec_on 
    nBuf := { } 
    rec_on := TRUE 
    HB_KeyPut(254)  
    SayString(0,0,PADC(msg1,MAXCOL()+1),c_blink) 
   ELSE 
    SayString(0,0,PADC(" Macro recorded ",MAXCOL()+1),c_blink) 
    INKEY(1)                             // чуть-чуть ждем. 
    rec_on := FALSE 
    ShowMainHeader()                     // восстанавливаем верхн.часть экрана 
   ENDIF 
  
  ELSEIF (cCmd == "get") // records a symbol 
  
   DO WHILE ( nKey := INKEY(0) ) # K_CTRL_F10 // -9 конец записи тут произойдет автоматом 
    AADD(nBuf,nKey)  
    SayString(0,0,PADC(NTRIM(LEN(nBuf))+" <"+NTRIM(nKey)+"> "+msg1,MAXCOL()+1),c_blink) 
    HB_KeyPut({nKey,254}) 
    RETURN  
   ENDDO  
  
    SayString(0,0,PADC(" Macro recorded ",MAXCOL()+1),c_blink) 
    INKEY(1)                             // чуть-чуть ждем. 
    rec_on := FALSE 
    ShowMainHeader()                     // восстанавливаем верхн.часть экрана 
  
  ELSEIF (cCmd == "play")               // play macro 
   IF !rec_on 
    HB_KeyPut(nBuf) 
   ENDI 
  
  ELSEIF (cCmd == "check")              // record on ? 
   RETURN rec_on 
  
  ENDIF  
  
 RETURN