$MACRO Init;
  UnAssign_All_Keys;

{Default settings}
  MACRO_TO_KEY(<F1>       ,'MAINHELP'        ,Edit      ); {Главный экран помощи     }
  MACRO_TO_KEY(<CtrlG>    ,'MAINHELP'        ,Edit      ); {Главный экран помощи     }
  MACRO_TO_KEY(<F2>       ,'MEMENUS'         ,Edit      ); {Главное меню ФОТОН       }
  MACRO_TO_KEY(<Btn0>     ,'MEMENUS'         ,Edit      ); {Главное меню ФОТОН       }
  MACRO_TO_KEY(<F3>       ,'SAVEFILE'        ,Edit      ); {Сохранить файл           }
  MACRO_TO_KEY(<CtrlF3>   ,'SAVEBLCK'        ,Edit      ); {Сохранить блок в файле   }
  MACRO_TO_KEY(<ShftF3>   ,'LOADFILE'        ,Edit      ); {Читать файл              }
  MACRO_TO_KEY(<F6>       ,'SEARCH'          ,Edit      ); {Поиск в файле            }
  MACRO_TO_KEY(<ShftF6>   ,'S_REPL'          ,Edit      ); {Поиск и замена в файле   }
  MACRO_TO_KEY(<CtrlF6>   ,'REPSRCH'         ,EDIT      ); {Повторить поиск/замену   }
  MACRO_TO_KEY(<F7>       ,'MARKBLCK'        ,Edit      ); {Отметить блок-строку     }
  MACRO_TO_KEY(<ShftF7>   ,'MCOLBLCK'        ,Edit      ); {Отметить блок-колонку    }
  MACRO_TO_KEY(<AltF7>    ,'MSTRBLCK'        ,EDIT      ); {Отметить блок-поток      }
  MACRO_TO_KEY(<Btn1>     ,'MSTRBLCK'        ,EDIT      ); {Отметить блок-поток      }
  MACRO_TO_KEY(<CtrlF9>   ,'BLOCKOFF'        ,Edit      ); {Отменить маркировку блока}
  MACRO_TO_KEY(<AltU>     ,'UNDBLK'          ,Edit      ); {Сдвиг блока влево        }
  MACRO_TO_KEY(<AltI>     ,'INDBLK'          ,Edit      ); {Сдвиг блока вправо       }
  CMD_TO_KEY(  <F9>       ,COPY_BLOCK        ,Edit      ); {Копировать блок          }
  CMD_TO_KEY(  <F10>      ,MOVE_BLOCK        ,Edit      ); {Переместить блок         }
  CMD_TO_KEY(  <CtrlF10>  ,DELETE_BLOCK      ,Edit      ); {Удалить блок             }
  MACRO_TO_KEY(<ShftF9>   ,'COPYBL'          ,Edit      ); {Копировать блок из окна  }
  MACRO_TO_KEY(<ShftF10>  ,'MOVEBL'          ,Edit      ); {Переместить блок из окна }
  MACRO_TO_KEY(<F8>       ,'RUNMAC'          ,Edit      ); {Выполнить макро          }
  MACRO_TO_KEY(<CtrlF8>   ,'COMPILE'         ,Edit      ); {Откомпилировать программу}
  MACRO_TO_KEY(<CtrlF2>   ,'CMPERROR'        ,Edit      ); {Найти ошибку компиляции  }
  MACRO_TO_KEY(<AltE>     ,'CMPERROR'        ,Edit      ); {Найти ошибку компиляции  }
  MACRO_TO_KEY(<AltF9>    ,'TEMPLATE'        ,Edit      ); {Расширить шаблон         }
  MACRO_TO_KEY(<AltT>     ,'TEMPLATE'        ,Edit      ); {Расширить шаблон         }
  MACRO_TO_KEY(<AltF6>    ,'MATCH'           ,Edit      ); {Скобки для компилятора   }
  MACRO_TO_KEY(<AltM>     ,'MATCH'           ,Edit      ); {Скобки для компилятора   }
  MACRO_TO_KEY(<ShftF1>   ,'NEXTWIN'         ,Edit      ); {Переход на следующее окно}
  MACRO_TO_KEY(<Btn2>     ,'NEXTWIN'         ,Edit      ); {Переход на следующее окно}
  MACRO_TO_KEY(<CtrlF1>   ,'LASTWIN'         ,Edit      ); {Переход на последнее окно}
  MACRO_TO_KEY(<AltF1>    ,'SWITWIN'         ,EDIT      ); {Переход на окно по списку}
  CMD_TO_KEY(  <CtrlF5>   ,ZOOM              ,Edit      ); {Развернуть окно в экран  }
  MACRO_TO_KEY(<INS>      ,'INSTGL'          ,EDIT      ); {Вставка/замена           }
  CMD_TO_KEY(  <DEL>      ,DEL_CHAR          ,Edit      ); {Удалить символ           }
  MACRO_TO_KEY(<AltD>     ,'DELEOL'          ,Edit      ); {Удалить до конца строки  }
  MACRO_TO_KEY(<ShftDEL>  ,'DELWORD'         ,Edit      ); {Удалить слово справа     }
  CMD_TO_KEY(  <BS>       ,BACK_SPACE        ,Edit      ); {Удалить символ слева     }
  MACRO_TO_KEY(<CtrlBS>   ,'BSWORD'          ,Edit      ); {Удалить слово слева      }
  CMD_TO_KEY(  <ShftF8>   ,DEL_LINE          ,Edit      ); {Удалить строку           }
  CMD_TO_KEY(  <TAB>      ,TAB_RIGHT         ,Edit      ); {Табуляция вправо         }
  CMD_TO_KEY(  <ShftTAB>  ,TAB_LEFT          ,Edit      ); {Табуляция влево          }
  CMD_TO_KEY(  <F4>       ,INDENT            ,Edit      ); {Скачок курсора вправо    }
  CMD_TO_KEY(  <ShftF4>   ,UNDENT            ,Edit      ); {Скачок курсора влево     }
  CMD_TO_KEY(  <F5>       ,MARK_POS          ,Edit      ); {Отметить позицию курсора }
  CMD_TO_KEY(  <ShftF5>   ,GOTO_MARK         ,Edit      ); {Переход на позицию       }
  MACRO_TO_KEY(<AltF5>    ,'ASCII'           ,EDIT      ); {Таблица ASCII            }
  MACRO_TO_KEY(<AltA>     ,'ASCII'           ,EDIT      ); {Таблица ASCII            }
  MACRO_TO_KEY(<AltF4>    ,'CONDENSE'        ,Edit      ); {Сжатый формат вывода     }
  MACRO_TO_KEY(<ENTER>    ,'CR'              ,Edit      ); {Возврат каретки "Enter"  }
  CMD_TO_KEY(  <LF>       ,LEFT              ,Edit      ); {Курсор влево             }
  CMD_TO_KEY(  <RT>       ,RIGHT             ,Edit      ); {Курсор вправо            }
  CMD_TO_KEY(  <MsRT>     ,RIGHT             ,Edit      ); {Курсор вправо            }
  CMD_TO_KEY(  <UP>       ,UP                ,Edit      ); {Курсор вверх             }
  CMD_TO_KEY(  <MsUP>     ,UP                ,Edit      ); {Курсор вверх             }
  CMD_TO_KEY(  <DN>       ,DOWN              ,Edit      ); {Курсор вниз              }
  CMD_TO_KEY(  <MsDN>     ,DOWN              ,Edit      ); {Курсор вниз              }
  MACRO_TO_KEY(<HOME>     ,'HOME'            ,Edit      ); {Курсор в начало строки   }
  MACRO_TO_KEY(<MsLF>     ,'MLEFT'           ,EDIT      ); {Курсор влево (мышь)      }
  CMD_TO_KEY(  <END>      ,EOL               ,Edit      ); {Курсор в конец строки    }
  CMD_TO_KEY(  <PgUp>     ,PAGE_UP           ,Edit      ); {Страница назад           }
  CMD_TO_KEY(  <PgDn>     ,PAGE_DOWN         ,Edit      ); {Страница вперед          }
  CMD_TO_KEY(  <CtrlHome> ,TOF               ,Edit      ); {Переход на начало файла  }
  CMD_TO_KEY(  <CtrlEnd>  ,EOF               ,Edit      ); {Переход на конец файла   }
  CMD_TO_KEY(  <CtrlPgDn> ,NEXT_PAGE_BREAK   ,Edit      ); {На следующий маркер стр. }
  CMD_TO_KEY(  <CtrlPgUp> ,LAST_PAGE_BREAK   ,Edit      ); {На последний маркер стр. }
  CMD_TO_KEY(  <CtrlLF>   ,WORD_LEFT         ,Edit      ); {Курсор на слово влево    }
  CMD_TO_KEY(  <CtrlRT>   ,WORD_RIGHT        ,Edit      ); {Курсор на слово вправо   }
  MACRO_TO_KEY(<CtrlT>    ,'TOPWIN'          ,Edit      ); {Переход на начало окна   }
  MACRO_TO_KEY(<CtrlB>    ,'BOTWIN'          ,Edit      ); {Переход на конец окна    }
  MACRO_TO_KEY(<CtrlU>    ,'SCROLLUP'        ,Edit      ); {Просмотр окна назад      }
  MACRO_TO_KEY(<CtrlD>    ,'SCROLLDN'        ,Edit      ); {Просмотр окна вперед     }
  MACRO_TO_KEY(<AltF8>    ,'GOTOLINE'        ,Edit      ); {Курсор на строку номер N%}
  CMD_TO_KEY(  <CtrlF4>   ,ENTER_DOS_SHELL   ,Edit      ); {Имитатор ДОС             }
  MACRO_TO_KEY(<AltF3>    ,'SHELLDOS'        ,Edit      ); {Выполнить ДОС из ФОТОН   }
  CMD_TO_KEY(  <CtrlF7>   ,UNDO              ,Edit      ); {Отменить операцию        }
  CMD_TO_KEY(  <CtrlENTER>,UNDO              ,Edit      ); {Отменить операцию        }
  CMD_TO_KEY(  <AltF2>    ,CALCULATOR        ,Edit      ); {Запустить калькулятор    }
  MACRO_TO_KEY(<AltR>     ,'REFORMAT'        ,EDIT      ); {Форматировать параграф   }
  CMD_TO_KEY(  <AltF10>   ,KEY_RECORD        ,Edit      ); {Запомнить ключ (ФОТОН)   }
  CMD_TO_KEY(  <AltF10>   ,KEY_RECORD        ,DOS_SHELL ); {Запомнить ключ (Имитатор)}
  MACRO_TO_KEY(<AltC>     ,'FCMD'            ,Edit      ); {Установить коды формата  }
  MACRO_TO_KEY(<F9>       ,'DOSLOAD'         ,DOS_SHELL ); {Читать файл из Имитатора }
  MACRO_TO_KEY(<ShftF9>   ,'MARKLOAD'        ,DOS_SHELL ); {Читать отмеченный файл   }
  MACRO_TO_KEY(<AltJ>     ,'JUSTIFY'         ,EDIT      ); {Выравнить параграф справа}
  MACRO_TO_KEY(<ShftF2>   ,'DATETIME'        ,Edit      ); {Вставить дату и время    }
  MACRO_TO_KEY(<AltL>     ,'LINEDRAW'        ,Edit      ); {Рисовать линию           }
  MACRO_TO_KEY(<AltX>     ,'EXIT'            ,Edit      ); {Конец работы ФОТОН       }
  MACRO_TO_KEY(<AltK>     ,'KEYCODE'         ,EDIT      ); {Вывести коды ключей      }

  Set_Global_Int('Default_Insert_Mode',1);
  Set_Global_Str('SWITCHES','IP');
  Insert_Mode := Global_Int('Default_Insert_Mode');
  Explosions := 1;
  Backups := 1;
  Page_Str := '';
  Truncate_Spaces := 1;
  AutoSave := 90;
  Ctrl_Help := 0;
  Tab_Expand := 8;
  Mouse_H_Sense := 15;
  Mouse_V_Sense := 15;
  Word_Delimits := ' 	|0 ()"'',#$@!%^&*{}[]?/||;:.';
  Default_Format := '                                                                                            ';
  Ins_Cursor := 0;
  Ovr_Cursor := 2;
  Set_Global_Str('PRINTER_TYPE', 'Epson');
  Set_Global_Str('PRINTER_TYPES1', 'IBM(PR)Okidata(PR)C.itoh(PR)Epson(PR)Toshiba(PR)NEC(PR)HP LASERII(PR)COMMODOR(PR)');
  Set_Global_Str('PRINTER_TYPES2', '');
  Set_Global_Str('PRINTER_TYPES3', '');
  Set_Global_Str('PC_IBM', '/10=/12=:/17=/L6=A/L8=0/DR=I1/NL=I3F/DR=#1/UB=-/UE=-|0/EB=G/EE=H/IB=%G/IE=%H/DB=W1/DE=W0');
  Set_Global_Str('PC_Okidata', '/10=/12=/17=/L6=6/L8=8/DR=0/NL=1F/DR=0/UB=C/UE=D/EB=T/EE=I/IB=/IE=/DB=/DE=');
  Set_Global_Str('PC_C.itoh', '/10=N/12=E/17=Q/L6=A/L8=B/DR=/NL=F/DR=/UB=X/UE=Y/EB=!/EE="/IB=/IE=/DB=/DE=');
  Set_Global_Str('PC_Epson', '/10=P/12=M/17=/L6=2/L8=0/DR=/NL=F/DR=/UB=-/UE=-|0/EB=E/EE=F/IB=4/IE=5/DB=/DE=');
  Set_Global_Str('PC_Toshiba', '/10=E12/12=E10/17=E07/L6=L08/L8=L06/DR=*0/NL=*2F/DR=*0/UB=I/UE=J/EB=Q/EE=R/IB=/IE=/DB=!/DE="');
  Set_Global_Str('PC_NEC', '/10=P/12=M/17=/L6=2/L8=0/DR=x|0/NL=xF/DR=x|0/UB=-/UE=-|0/EB=E/EE=F/IB=4/IE=5/DB=W/DE=W|0');
  Set_Global_Str('PC_HP LASERII', '/10=(s10H/12=(s12H/17=(s16.6H/L6=&l6D/L8=&l8D/DR=/NL=/FD=/UB=/UE=/EB=(s3B/EE=(s0B/IB=(s1S/IE=(s0S/DB=(s8.1H(0U/DE=(8U(s12H');
  Set_Global_Str('PC_COMMODOR', '/10=/12=/17=/L6=/L8=/DR=/NL=/FD=/UB=/UE=/EB=/EE=/IB=/IE=/DB=/DE=');
  Set_Global_Int('RESTORE',1);
  Set_Global_Int('BIG_COMPILE',1);


  FLABEL('ДатВрм',12,Edit      );
  FLABEL('МаркФл',19,DOS_SHELL );
  FLABEL('ЧтФайл',9,DOS_SHELL );
  FLABEL('ЗпКлюч',40,DOS_SHELL );
  FLABEL('ЗпКлюч',40,Edit      );
  FLABEL('ВыпКлк',32,Edit      );
  FLABEL('Отмена',27,Edit      );
  FLABEL('ВыпДОС',33,Edit      );
  FLABEL('ИмтДОС',24,Edit      );
  FLABEL('НаСтрN',38,Edit      );
  FLABEL('Сжатие',34,Edit      );
  FLABEL('ASCIIТ',35,EDIT      );
  FLABEL('КурсПз',15,Edit      );
  FLABEL('МаркПз',5,Edit      );
  FLABEL('КурсВл',14,Edit      );
  FLABEL('КурсВп',4,Edit      );
  FLABEL('УдлСтр',18,Edit      );
  FLABEL('РзвОкн',25,Edit      );
  FLABEL('ВбрОкн',31,EDIT      );
  FLABEL('ПслОкн',21,Edit      );
  FLABEL('СлдОкн',11,Edit      );
  FLABEL('Скобки',36,Edit      );
  FLABEL('Шаблон',39,Edit      );
  FLABEL('СлдОшб',22,Edit      );
  FLABEL('КомпПр',28,Edit      );
  FLABEL('ВыпМак',8,Edit      );
  FLABEL('ПерОкн',20,Edit      );
  FLABEL('КопОкн',19,Edit      );
  FLABEL('УдлБлк',30,Edit      );
  FLABEL('ПерБлк',10,Edit      );
  FLABEL('КопБлк',9,Edit      );
  FLABEL('ВыкБлк',29,Edit      );
  FLABEL('МркБлП',37,EDIT      );
  FLABEL('МркБлК',17,Edit      );
  FLABEL('МркБлС',7,Edit      );
  FLABEL('ПоискП',26,EDIT      );
  FLABEL('ПоискЗ',16,Edit      );
  FLABEL('Поиск ',6,Edit      );
  FLABEL('ЧтФайл',13,Edit      );
  FLABEL('ЗпБлок',23,Edit      );
  FLABEL('ЗпФайл',3,Edit      );
  FLABEL('ГлМеню',2,Edit      );
  FLABEL('Помощь',1,Edit      );

{Filename extension specific}
  Set_Global_Str('Extensions','.C(IN).PAS(IN).BAS(IN).ASM(IN).DOC(IN).SRC(IN).H(IN)');
  Set_Global_Str('Compiler1','NONE(IN)MICROSOFT(IN)TURBO PASCAL 4.0(IN)TURBO C 1.0(IN)LATTICE C 3.0(IN)FOTON_EDIT(IN)MS PASCAL 3.3(IN)LOGITECH MODULA-2 3.0(IN)');
  Set_Global_Str('Compiler2','');
  Set_Global_Str('Compiler3','');
  Set_Global_Str('Language1','NONE(IN)C(IN)ASM(IN)BASIC(IN)FOTON_EDIT(IN)MODULA_2(IN)PASCAL(IN)');
  Set_Global_Str('Language2','');
  Set_Global_Str('Language3','');
  Set_Global_Str('.C','LS=C(IN) COMP=TURBO C 1.0(IN) IND=S(IN) TS=4(IN) RM=128(IN) SA=1(IN) LC=1(IN) CP=1(IN)');
  Set_Global_Str('.C_Comp','MAKE <FILE>  ');
  Set_Global_Str('.PAS','LS=PASCAL(IN) COMP=TURBO PASCAL 4.0(IN) IND=S(IN) TS=4(IN) RM=128(IN)');
  Set_Global_Str('.PAS_Comp','TPC <FILE> /Q');
  Set_Global_Str('.BAS','IND=O(IN) LS=BASIC(IN) COMP=MICROSOFT(IN) LC=1(IN)');
  Set_Global_Str('.ASM','COMP=MICROSOFT(IN) RM=132(IN) TS=8(IN) IND=A(IN) LS=ASM(IN)');
  Set_Global_Str('.ASM_Comp','masm <file>;');
  Set_Global_Str('.DOC','IND=O(IN) WW=1(IN) RM=72(IN) DOC=1(IN)');
  Set_Global_Str('.SRC','TS=2(IN) RM=128(IN) LS=FOTON_EDIT(IN) COMP=FOTON_EDIT(IN) IND=S(IN)');
  Set_Global_Str('.SRC_Comp','FTMAC -P<FT_PATH> <FILE>');
  Set_Global_Str('.H','LS=C(IN) COMP=TURBO C 1.0(IN) IND=S(IN) TS=2(IN) RM=128(IN) SA=1(IN) LC=1(IN) CP=1(IN)');
  Set_Global_Str('.H_Comp','MAKE -fG2.MAK');

END_MACRO;
