(*      ᨬ,  ⮣ , ஥ 
      ᠭ  䠩 䨣樨 AUTOMAT.INI ⠪  
      㤥 믮 .
       , 饭  믮 ணࠬ ⮬᪮
      ࠡ 樮 ⥬,   稭 祭, -
      樨 ࠡ  ன (뢠 16 INT, 㭪樨 1  8 -
       21), 㭪樨 १᪠ ⥬ (뢠 18  19), 㭪-
      樨 襭 ணࠬ (뢠 20, 㭪樨 31  4C 뢠-
       21)  㭪樨 ࠡ  ᪠, ⠫  䠩
*)

      (* 饭 㭪樨, 襩  ⠡
         뢠 ( ROM BIOS) *)
      
      if i := #128; then

      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $1, Regs );
      End;

      
      if i := #129; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $2, Regs );
      End;

      
      if i := #130; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $3, Regs );
      End;

      
      if i := #131; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $4, Regs );
      End;

      
      if i := #132; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $5, Regs );
      End;

      
      if i := #133; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $6, Regs );
      End;


      
      if i := #134; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $7, Regs );
      End;

      
      if i := #135; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $8, Regs );
      End;

      
      if i := #136; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $9, Regs );
      End;

      
      if i := #137; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $0A, Regs );
      End;

      
      if i := #138; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $0B, Regs );
      End;

      
      if i := #139; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $0C, Regs );
      End;

      
      if i := #140; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.BX := $3;
        Regs.BX := $99;
        Intr( $0D, Regs );
      End;

      
      if i := #141; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $0E, Regs );
      End;

      
      if i := #142; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $0F, Regs );
      End;

      
      if i := #143; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $10, Regs );
      End;

      
      if i := #144; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $11, Regs );
      End;

      
      if i := #145; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $12, Regs );
      End;

      
      if i := #146; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $13, Regs );
      End;

      
      if i := #147; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $14, Regs );
      End;

      
      if i := #148; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $15, Regs );
      End;

      
      if i := #149; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $17, Regs );
      End;

      
      if i := #150; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $1A, Regs );
      End;

      
      if i := #151; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $1B, Regs );
      End;

      
      if i := #152; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $1C, Regs );
      End;

      
      if i := #153; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $1D, Regs );
      End;

      
      if i := #154; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $1E, Regs );
      End;

      
      if i := #155; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $1F, Regs );
      End;

       (*   饭 㭪樨, 襩  ⠡
           뢠 ( MS-DOS) *)

      
      if i := #156; then
      Begin
        Regs.AX := $2;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      if i := #157; then
      Begin
        Regs.AX := $3;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;


      if i := #158; then
      Begin
        Regs.AX := $4;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #159; then
      Begin
        Regs.AX := $5;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #160; then
      Begin
        Regs.AX := $6;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #161; then
      Begin
        Regs.AX := $7;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      (*  뢮 ப (㭪 9-, 21- ࢠ)
           *)
      
      if i := #162; then WriteLn('Programma automatic device execute OK !');


      (*  騥, 饭 㭪樨, 襩  ⠡
          뢠 ( MS-DOS)   *)

      
      if i := #163; then
      Begin
        Regs.AX := $0B;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #164; then
      Begin
        Regs.AX := $0C;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #165; then
      Begin
        Regs.AX := $0D;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #166; then
      Begin
        Regs.AX := $19;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #167; then
      Begin
        Regs.AX := $1A;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #168; then
      Begin
        Regs.AX := $1B;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #169; then
      Begin
        Regs.AX := $1C;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #170; then
      Begin
        Regs.AX := $1D;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #171; then
      Begin
        Regs.AX := $1E;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #172; then
      Begin
        Regs.AX := $1F;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #173; then
      Begin
        Regs.AX := $20;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #174; then
      Begin
        Regs.AX := $21;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #175; then
      Begin
        Regs.AX := $22;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #176; then
      Begin
        Regs.AX := $23;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #177; then
      Begin
        Regs.AX := $24;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;


      if i := #178; then
      Begin
        Regs.AX := $25;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #179; then
      Begin
        Regs.AX := $26;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #180; then
      Begin
        Regs.AX := $27;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #181; then
      Begin
        Regs.AX := $28;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #182; then
      Begin
        Regs.AX := $29;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #183; then
      Begin
        Regs.AX := $2A;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #184; then
      Begin
        Regs.AX := $2B;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #185; then
      Begin
        Regs.AX := $2C;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #186; then
      Begin
        Regs.AX := $2D;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #187; then
      Begin
        Regs.AX := $2E;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;


      if i := #188; then
      Begin
        Regs.AX := $2F;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #189; then
      Begin
        Regs.AX := $30;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #190; then
      Begin
        Regs.AX := $33;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #191; then
      Begin
        Regs.AX := $34;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #192; then
      Begin
        Regs.AX := $35;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #193; then
      Begin
        Regs.AX := $48;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #194; then
      Begin
        Regs.AX := $49;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #195; then
      Begin
        Regs.AX := $4A;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
     End;

      
      if i := #196; then
      Begin
        Regs.AX := $50;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #197; then
      Begin
        Regs.AX := $51;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;


      
      if i := #198; then
      Begin
        Regs.AX := $52;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #199; then
      Begin
        Regs.AX := $53;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #200; then
      Begin
        Regs.AX := $54;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #201; then
      Begin
        Regs.AX := $60;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #202; then
      Begin
        Regs.AX := $61;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #203; then
      Begin
        Regs.AX := $62;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #204; then
      Begin
        Regs.AX := $63;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #205; then
      Begin
        Regs.AX := $64;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #206; then
      Begin
        Regs.AX := $65;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #207; then
      Begin
        Regs.AX := $66;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;


      if i := #208; then
      Begin
        Regs.AX := $67;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #209; then
      Begin
        Regs.AX := $67;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #210; then
      Begin
        Regs.AX := $69;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #211; then
      Begin
        Regs.AX := $6A;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #212; then
      Begin
        Regs.AX := $6B;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      
      if i := #213; then
      Begin
        Regs.AX := $6C;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;


      if i := #214; then
      Begin
        Regs.AX := $6D;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      if i := #215; then
      Begin
        Regs.AX := $6E;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      if i := #216; then
      Begin
        Regs.AX := $6F;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;

      if i := #217; then
      Begin
        Regs.AX := $70;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $21, Regs );
      End;



    (* Aapae pepa, ᮫⭮ ⥭  ᪮ ᪠ 
      稥 ⠫ 㭪樨,  ⨯   ணࠬ
      ࠩ ୮ ஡ *)
      if i := #218; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $70, Regs );
      End;

      if i := #219; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $71, Regs );
      End;

      if i := #220; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $72, Regs );
      End;

      if i := #221; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $73, Regs );
      End;

      if i := #222; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $74, Regs );
      End;

      if i := #223; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $75, Regs );
      End;

      if i := #224; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $76, Regs );
      End;

      if i := #225; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $22, Regs );
      End;

      if i := #226; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $24, Regs );
      End;

      if i := #227; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $25, Regs );
      End;

      if i := #228; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $28, Regs );
      End;

      if i := #229; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $2F, Regs );
      End;

      if i := #230; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $60, Regs );
      End;

      if i := #231; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $67, Regs );
      End;

      if i := #232; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $30, Regs );
      End;

      if i := #233; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $31, Regs );
      End;

      if i := #234; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $32, Regs );
      End;

      if i := #235; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $33, Regs );
      End;

      if i := #236; then
      Begin
        Regs.AX := $1;
        Regs.BX := $1;
        Regs.CX := $3;
        Regs.DX := $99;
        Intr( $35, Regs );
      End;




    WriteLn(#13, #10);
    WriteLn('Ŀ');
    WriteLn('            PROGRAMMA AUTOMATIC MODE, EXECUTE SYSTEM FUNCTION DEVICE         ');
    WriteLn('                                                                             ');
    WriteLn('  (R) Autor Denis Shilovsky, Russia, Moscow Region, 2002 - 2014 Yore, Inc    ');
    WriteLn('                       http://WWW.Deni-Shilovski.Narod.RU                    ');
    WriteLn('                        EMail: deni-shilovski@Yandex.RU                      ');
    WriteLn('                         Tel: +7-903-518-99-74                               ');
    WriteLn('');
    WriteLn(#13, #10);

