//-----------------   ----------------- 
#(N,5,0)=_(1);        // ᫮ ࠡ ᥩ  ⠡ 
$(_EQ()) 
  $ 
$_ 
${(5. ⥫ ப ᯨ᪠) 
  $(__,1);  // 1 (0,1,...) - ⢮ ய᪮ ப 
  $(_,"-");      // ᨬ  મ: "-" ( .ᨬ) 
$}(5. ⥫ ப ᯨ᪠) 
${(6. ⥫ ⮫殢 ᯨ᪠) 
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ  
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..) 
$}(6. ⥫ ⮫殢 ᯨ᪠) 
${(7. ਧ  ) 
  $(_,"0"); // " " (஡) -   㫨, "0" -  
$}(7. ਧ  ) 
&(N,5,0)=0; 
&(N,5,0)=1;                                 // 稪 ࠭ 
#(N,3,0)=_();                      //  ࠭ 
#(N,8,0)=_(1); 
#(C,30,0)=_(); 
#(C,15,0)=_(PrintNumb); 
#(N,3,0)=(8); #(N,4,0)=(9); 
#(C,8,0)=_(); 
${(1.  ᯨ᪠) 
  &(N,1,0)=1;   // =1-   ᯨ᪠, =0-⪨.
//   ⨬ ਥ 室 ⥪    ᯨ᪠
  #(N,3,0)=_(CASHSUM);    //  ⮫  㬬  
  #(N,12,0)=_(,0);   // 㬬  
  $(_EQ(-1))

                                       @    .....................
  $_
  $()
  ࠧ: @     @
  $_
  $(_EQ(-1))
                                       .壠 .................
       ப  .............  .............. 19.. .
    $(_GT())
      #(C,160,0)=_();
      #(N,8,0)=_(,60);   // 颥 ᫮ ப
      &(N,8,0)=0;
      $
        #(N,60,0)=_();
        $(_EQ())                         // ᫨ ࢠ ப
  㬬 @...................................................
        $
  @.........................................................
        $_
        &=+1;
      $(_LT(-))
      #=_();
    $
  ...................................................................
  ...................................................................
    $_
    &(N,12,0)=_Long(); &(N,4,0)=(-)*100;
  ..........................................(@          @ )

                 ⥦  N @
  $_
  ௫  @ @ .
  $(_EQ(-1))
   饩  ⥦  믫祭  㡫....................
  .......................................................................
  ..................................................(.............)
   ஢ 㡫..................................................
  .......................................................................
  ..................................................(.............)
      .............            ஢ਫ 壠 ...............
          ᮢ थ N....    "..."........... 19.. .
  $_
$}(1.  ᯨ᪠) 
 
//${( ⠡).   . 
  #=_(,,)             //   
  #=_(__);                 //  㬬   
//$}( ⠡).   . 
$                                        //     ⠡ 
  //${(ப ) 
    #=_();                         // ਧ   
    $() 
      #=_(_,,)  //   ப 
    $_ 
  //$}(ப ) 
  &=+1; 
  #(N,5,0)=_();                   // 稪 ப   
  $(_GE(+6-)+_EQ(-)) 
    //${(⮣ ) 
      #=_(,_);            //  ⮣  . 
    //$}(⮣ ) 
    ${(3.  ) 
//   ⨬ ਥ 室 ⥪    
 
    $}(3.  ) 
    $(_LT(-)) 
      $_ 
      ${(2.  ) 
        $() 
  ࠧ: @     @ 
        $_ 
        &=+1; 
//   ⨬ ਥ 室 ⥪   
  ௫  @ @ .                                    @ 
      $}(2.  ) 
      //${( ⠡).   . 
        #=_(,,)             //   
        #=_(__);                 //  㬬 
      //$}( ⠡).   . 
    $_ 
  $_ 
$(_GT(-)) 
//${(⮣ ) 
  #=_(_) 
//$}(⮣ ) 
${(4.  ᯨ᪠) 
  &(N,1,0)=1;  // =1-   ᯨ᪠,  =0-⪮.
//   ⨬ ਥ 室 ⥪   ᯨ᪠
  $(_EQ(-1))
    $(_GT())
      #(C,160,0)=_();
      #(N,8,0)=_(,60);   // 颥 ᫮ ப
      &(N,8,0)=0;
      $
        #(N,60,0)=_();
  @
        &=+1;
      $(_LT(-))
      #=_();
    $
  ...................................................................
  ...................................................................
    $_

     ⠢.............

     ஢ਫ ............
  $_
$}(4.  ᯨ᪠) 
$LF 
