---------------------        
|     |number|letter|        
---------------------        
|Joan |      |    a |        
---------------------        
|John |      |   bp |        
---------------------        
|Jane |      |    c |        
---------------------        
|Jerry|      |   dm |        
---------------------        
wherever letter$ .EQ. a do:  
  number$ = 4.0.             
wherever letter$ .EQ. bp  do:
  number$ = 3.66.            
wherever letter$ .EQ. c  do: 
  number$ = 2.0.             
elsewhere do:                
  number$ = 0.0.