FUNCTION FC 10    : VOID
TITLE =
VERSION           : 0.1


VAR_INPUT
  Sorteer_DB     : BLOCK_DB ;	
  DB_lengte      : WORD ;	
END_VAR
VAR_TEMP
  kladvariabele  : WORD ;	
  teller         : WORD ;	
  klaar          : BOOL ;
END_VAR
BEGIN
NETWORK
TITLE =

      AUF   #Sorteer_DB; 
M002: LAR1  P#DBX 0.0; 
      SET   ; 
      S     #klaar; 
      L     #DB_lengte; 
      L     1; 
      -I    ; 
Lus:  T     #teller;        
      L     W [AR1,P#0.0];  
      L     W [AR1,P#2.0]; 
      <=I   ; 
      SPB    M003; 
      L     W [AR1,P#0.0]; 
      T     #kladvariabele; 
      L     W [AR1,P#2.0]; 
      T     W [AR1,P#0.0]; 
      L     #kladvariabele; 
      T     W [AR1,P#2.0]; 
      SET   ; 
      R     #klaar; 
M003: TAR1  ; 
      L     16; 
      +D    ; 
      LAR1  ; 
      L     #teller; 
      LOOP  Lus; 
      UN    #klaar; 
      SPB    M002; 
      BE    ; 


END_FUNCTION