${(1. ன ⠡)       
&UDOPS(N,2,0)=0;   //1-뢠 . 㬬,              0-
&SUMVMEN(N,2,0)=0; //1-  ࠢ 㬬  室     0-
#DOP(C,10,0)=R_String(1111111111);  // 1- , 0-  (    )
&PRINT(N,2,0)=1;   //1-ᥣ  ᦠ ⮬;              0-ᯮ짮 ன 
&AVCOUNT(N,2,0)=1; //1-ᯮᮡ  । ᫥;            0-㣮 ᯮᮡ  । ᫥
&TYPORG(N,2,0)=0;  //⨯ ࣠樨: 1-ᥫ. ࣠, 2-࣠ , 3-ᥫ. ࣠ ,0-࣠
&NL(N,2,0)=0;      //1- 㬥 ⮢; 0-⪫ 㬥 ⮢
&FLIST(N,2,0)=1;   //1-   ॢ ; 0- 
&INVTYP(N,2,0)=0;  //1- ଠ   ; 0- ଠ (-㯯)
$}(1. ன ⠡)       
#=_(600_5_1,0,0);       
#=_(605_5_1,0,0);       
#=_(610_5_1,0,0);       
#=_(611_5_1,0,0);       
#=_(620_5_1,0,0);       
#=_(621_5_1,0,0);       
#=_(700_3_1,0,0);       
#=_(700_7_1,0,0);       
#=_(710_3_1,0,0);       
#=_(710_7_1,0,0);       
#=_(700_5_1,0,0);       
#=_(700_9_1,0,0);       
#=_(710_5_1,0,0);       
#=_(710_9_1,0,0);       
//       
#NOMP(N,3,0)=_(600_5); #FSS0700(N,14,2)=_(NOMP,0);       
#NOMP(N,3,0)=_(605_5); #FSS0740(N,14,2)=_(NOMP,0);       
#NOMP(N,3,0)=_(625_5); #FSS0730(N,14,2)=_(NOMP,0);       
#NOMP(N,3,0)=_(635_5); #FSS0720(N,14,2)=_(NOMP,0);       
$(_EQ(FSS0700))       
  #FSS0700=R_String();       
$_       
$(_EQ(FSS0740))       
  #FSS0740=R_String();       
$_       
$(_EQ(FSS0730))       
  #FSS0730=R_String();       
$_       
$(_EQ(FSS0720))       
  #FSS0720=R_String();       
$_       
#FSS0800(N,14,2)=R_String();       
#FSS0820(N,14,2)=R_String();       
#FSS0830(N,14,2)=R_String();       
#FSS0840(N,14,2)=R_String();       
//       
#FB010G3(N,14,2)=R_String();       
#FB010G4(N,14,2)=R_String();       
#FB010G5(N,14,2)=R_String();       
#FB010G6(N,14,2)=R_String();       
#FB010G7(N,14,2)=R_String();       
//       
#FB020G3(N,14,2)=R_String();       
#FB020G4(N,14,2)=R_String();       
#FB020G5(N,14,2)=R_String();       
#FB020G6(N,14,2)=R_String();       
#FB020G7(N,14,2)=R_String();       
//       
#DRASCH(C,10,0)=R_String(          );       
$BEG_SCRIPT       
  sprintf(DRASCH,"%-10.10s",datatek);       
$END_SCRIPT       
#=( ,室 ந  楫 . . 客,ᥣ  ਮ          (0700),FSS0700, 1 . . ⠫ (0720),FSS0720, 2 . . ⠫ (0730),FSS0730, 3 . . ⠫ (0730),FSS0740);       
$(_EQ(27-))
$
$_
#=( ,饭 ᯮ⥫ ࣠  ,ᥣ  ਮ          (0800),FSS0800, 1 . . ⠫ (0820),FSS0820, 2 . . ⠫ (0830),FSS0830, 3 . . ⠫ (0830),FSS0840);       
$(_EQ(27-))
$
$_
#=( ,祭 . .  䥤. ,  ਮ             ,FB010G3, ᫥ ⠫           ,FB010G4, 1 . . ⠫       ,FB010G5, 2 . . ⠫       ,FB010G6, 3 . . ⠫       ,FB010G7);       
$(_EQ(27-))
$
$_
#=( ,祭 客 ᮢ  ,  ਮ             ,FB020G3, ᫥ ⠫           ,FB020G4, 1 . . ⠫       ,FB020G5, 2 . . ⠫       ,FB020G6, 3 . . ⠫       ,FB020G7);       
$(_EQ(27-))
$
$_
#=( , ,  ⠢  , DRASCH);       
$(_EQ(27-))
$
$_
$BEG_SCRIPT       
  LoadScriptModule("avanspl");       
  MainFormFunc_DL(FB010G3, FB010G4, FB010G5, FB010G6, FB010G7,        
                  FB020G3, FB020G4, FB020G5, FB020G6, FB020G7,        
                  FSS0700, FSS0720, FSS0730, FSS0740, FSS0800,        
                  FSS0820, FSS0830, FSS0840,        
                  UDOPS, SUMVMEN, DOP, NL, PRINT, AVCOUNT, DRASCH, TYPORG,        
                  FLIST, INVTYP);       
  UnloadScriptModule("avanspl");       
$END_SCRIPT       
$