${(1. ன ⠡)
#DOP(C,10,0)=R_String(1111111);  // 1- , 0-  (    )
&PRINT(N,2,0)=1;   // 1-ᥣ  ᦠ ⮬; 0-ᯮ짮 ன 
&TYPORG(N,2,0)=0;  // ⨯ ࣠樨: 1-ᥫ. ࣠, 0-࣠
&NL(N,2,0)=0;      // 1- 㬥 ⮢; 0-⪫ 㬥 ⮢
&FLIST(N,2,0)=1;   // 1-   ॢ ; 0- 
&ORG(N,2,0)=0;     // ࣠: 0-ᨩ᪠ ࣠,
                   //              1-ᮡ ࠧ ࣠樨,
                   //              2-࠭ ࣠,
                   //              3-䨧᪮ ;
&ADR(N,2,0)=0;     // 0-䠪.  ।   ॣ樨 ᮢ,
                   // 1-;
&EXCEL(N,2,0)=0;   // 0-筠 ; 1-  Excel
&Panel(N,2,0)=1;   // 뢮  ଠ: 1 - ,0 - 
&IMNS(N,2,0)=1;    // 0-, 1-
$}(1. ன ⠡)
&S0105(N,14,2)=0; #S0104(N,14,2)=0;
&S0125(N,14,2)=0; #S0124(N,14,2)=0;
&S0135(N,14,2)=0; #S0134(N,14,2)=0;
&S0145(N,14,2)=0; #S0144(N,14,2)=0;
#REGIM(N,2,0)=_(12,9,66,15,  ᮢ ⥦  , ⮣    , 뢠);
$(_EQ(REGIM-27))
  $BEG_SCRIPT
    var CurFile=CreateObject("CurPrnFile");
    CurFile.SetFlagBrowse(0);
  $END_SCRIPT
  $
$
  $(_EQ(REGIM))
    #NOMP(N,3,0)=_(0300); #S0104=_(NOMP,0);
    #NOMP(N,3,0)=_(0320); #S0124=_(NOMP,0);
    #NOMP(N,3,0)=_(0330); #S0134=_(NOMP,0);
    #NOMP(N,3,0)=_(0340); #S0144=_(NOMP,0);
//
    #NOMP(N,3,0)=_(0400); #S0105=_(NOMP,0);
    #NOMP(N,3,0)=_(0420); #S0125=_(NOMP,0);
    #NOMP(N,3,0)=_(0430); #S0135=_(NOMP,0);
    #NOMP(N,3,0)=_(0440); #S0145=_(NOMP,0);
  $
    #FF1(N,3,0)=_(FFIRST,0);
    $(_EQ(FF1))
      #NOMP(N,3,0)=_(0300); #S0104=_(NOMP,0);
      #NOMP(N,3,0)=_(0320); #S0124=_(NOMP,0);
      #NOMP(N,3,0)=_(0330); #S0134=_(NOMP,0);
      #NOMP(N,3,0)=_(0340); #S0144=_(NOMP,0);
//
      #NOMP(N,3,0)=_(0400); #S0105=_(NOMP,0);
      #NOMP(N,3,0)=_(0420); #S0125=_(NOMP,0);
      #NOMP(N,3,0)=_(0430); #S0135=_(NOMP,0);
      #NOMP(N,3,0)=_(0440); #S0145=_(NOMP,0);
//
      #=_(S104,0,S0104);
      #=_(S124,0,S0124);
      #=_(S134,0,S0134);
      #=_(S144,0,S0144);
//
      #=_(S105,0,S0105);
      #=_(S125,0,S0125);
      #=_(S135,0,S0135);
      #=_(S145,0,S0145);
    $_
    #S0104=_(S104,0);
    #S0124=_(S124,0);
    #S0134=_(S134,0);
    #S0144=_(S144,0);
//
    #S0105=_(S105,0);
    #S0125=_(S125,0);
    #S0135=_(S135,0);
    #S0145=_(S145,0);
  $_
$_
$(_NE(Panel))
   #EXCEL=_(15,9,65,15,ଠ :,,१ Excel,।  䠩);
   $(_EQ(EXCEL-27))
     $BEG_SCRIPT
       var CurFile=CreateObject("CurPrnFile");
       CurFile.SetFlagBrowse(0);
     $END_SCRIPT
     $
   $_
$_
//
//
$(_EQ(S0104))
  #S0104=R_String();
$_
$(_EQ(S0124))
  #S0124=R_String();
$_
$(_EQ(S0134))
  #S0134=R_String();
$_
$(_EQ(S0144))
  #S0144=R_String();
$_
//
#=( ,祭 ᮢ ⥦ (客 ),ᥣ  ਮ          ,S0104, 1 . . ⠫ ,S0124, 2 . . ⠫ ,S0134, 3 . . ⠫ ,S0144);
$(_EQ(27-))
$BEG_SCRIPT
  var CurFile=CreateObject("CurPrnFile");
  CurFile.SetFlagBrowse(0);
$END_SCRIPT
$
$_
//
//
$(_EQ(S0105))
  #S0105=R_String();
$_
$(_EQ(S0125))
  #S0125=R_String();
$_
$(_EQ(S0135))
  #S0135=R_String();
$_
$(_EQ(S0145))
  #S0145=R_String();
$_
//
#=( ,祭 ᮢ ⥦ (⥫쭠 ),ᥣ  ਮ          ,S0105, 1 . . ⠫ ,S0125, 2 . . ⠫ ,S0135, 3 . . ⠫ ,S0145);
$(_EQ(27-))
$BEG_SCRIPT
  var CurFile=CreateObject("CurPrnFile");
  CurFile.SetFlagBrowse(0);
$END_SCRIPT
$
$_
//
#DRASCH(C,10,0)=R_String();
$BEG_SCRIPT
  sprintf(DRASCH,"%-10.10s",datatek);
$END_SCRIPT
#=( , ,  ⠢  , DRASCH);
$(_EQ(27-))
$BEG_SCRIPT
  var CurFile=CreateObject("CurPrnFile");
  CurFile.SetFlagBrowse(0);
$END_SCRIPT
$
$_
#=_(S104,0,S0104);
#=_(S124,0,S0124);
#=_(S134,0,S0134);
#=_(S144,0,S0144);
//
#=_(S105,0,S0105);
#=_(S125,0,S0125);
#=_(S135,0,S0135);
#=_(S145,0,S0145);
//
#=_(FFIRST,0,1);
$BEG_SCRIPT
  char PathStr[255];
  sprintf(PathStr,"a:\\                                                     ");
  char VarFOtch[10];
  sprintf(VarFOtch,"001");
  int FlgTrans=-1;
  int NomFile=1;
  if (EXCEL==2)
  {
    int cr=PanelEsnFile(PathStr, VarFOtch, FlgTrans, NomFile);
    if (cr==27) 
    {
      var CurFile=CreateObject("CurPrnFile");
      CurFile.SetFlagBrowse(0);
      return;
    }
    FlgTrans=0;
  }
  FreeSpaceString(PathStr,3,"");

  int np = 22;
  var param[np];

  param[0]  = static_cast_to_string(DOP);
  param[1]  = atoi(PRINT);
  param[2]  = atoi(TYPORG);
  param[3]  = atoi(NL);
  param[4]  = atoi(FLIST);
  param[5]  = static_cast_to_string(DRASCH);
  param[6]  = atof(S0104);
  param[7]  = atof(S0124);
  param[8]  = atof(S0134);
  param[9]  = atof(S0144);
  param[10] = atof(S0105);
  param[11] = atof(S0125);
  param[12] = atof(S0135);
  param[13] = atof(S0145);
  param[14] = atoi(ORG);
  param[15] = atoi(ADR);
  param[16] = atoi(EXCEL);
  param[17] = atoi(IMNS);
  param[18] = static_cast_to_string(PathStr);
  param[19] = atoi(FlgTrans);
  param[20] = atoi(NomFile);
  param[21] = static_cast_to_string(VarFOtch);

  UnloadScriptModule("dmodules");
  LoadScriptModule("dmodules");
  UnloadDynamicModules();
  UnloadScriptModule("dmodules");

  LoadScriptModule("avanspf");
    AvansPF_par(param,np);

//  AvansPF_DL(DOP, PRINT, TYPORG, NL, FLIST, DRASCH,
//             S0104, S0124, S0134, S0144,
//             S0105, S0125, S0135, S0145, ORG, ADR, EXCEL,
//             IMNS, PathStr, FlgTrans, NomFile, VarFOtch);

  UnloadScriptModule("avanspf");

$END_SCRIPT
$