Figure 05 Using miscellaneous BIFs

    		
    　
  

  
 
    　
    　
    　
  

  
 
    　
    
      

    


    		
    　
  

  
 
    　
    
      
C                   Eval      %Occur( MyStructure ) = 5
    

    		
     
      

        
A

      

    		
  

  
 
    　
    　
  

  
 
    　
    
      




    		
    　
  

  
 
    　
    
      
C                   Eval      OccurNbr = %Occur( MyStructure )
    

    		
     
      

        
B

      

    		
  

  
 
    　
    　
  

  
 
    　
    
      




    		
    　
  

  
 
    　
    
      
C                   Eval      String2 = %Xlate( Lower : Upper : String )
    

    		
     
      

        
C

      

    		
  

  
 
    　
    　
  

  
 
    　
    
      




    		
    　
  

  
 
    　
    
      
C                   Eval      String2 = %Xlate( Lower : Upper : String : 11 )
    

    		
     
      

        
D

      

    		
  

  
 
    　
    　
  

  
 
    　
    
      




    		
    　
  

  
 
    　
    
      
C                   Eval      SomeNbr = %SqRt( SomeNbr2 )
    

    		
     
      

        
E

      

    		
  

  
 
    　
    　
  

  
 
    　
    
      




    		
    　
  

  
 
    　
    
      
C                   Eval      SomePtr = %Alloc( SomeLength )
    

    		
     
      

        
F

      

    		
  

  
 
    　
    　
  

  
 
    　
    
      




    		
    　
  

  
 
    　
    
      
C                   Eval      SomePtr = %ReAlloc( NewLength )
    

    		
     
      

        
G

      

    		
  

  
 
    　
    　
  

  
 
    　
    
      




    		
    　
  

  
 
    　
    
      
C                   If        %ShtDn
 * Exit program due to shutdown request
C                   EndIf
    

    		
     
      

        
H

      

    		
  

  
 
    　
    　
  

  
 
    　
    
      




    		
    　
  

  
 
    　
    
      
C                   Eval      SomeFld = SomeMethod( %This )
    

    		
     
      

        
I