PROGRAM FILE 25: MULTIPLY, DIVIDE, AND INVOLUTE                                 
    ANSI STANDARD 7.2, 7.4                                                      
                                                                                
THIS PROGRAM TESTS THE GROSS SEMANTIC CHARACTERISTICS OF                        
THE MULTIPLY, DIVIDE, AND INVOLUTION OPERATORS FOR THE                          
CONSTRUCTION OF NUMERIC EXPRESSIONS.                                            
                                                                                
EXPRESSIONS USING ONLY ONE OPERATOR AND CONSTANTS AND                           
SIMPLE VARIABLES ARE EVALUATED, AND THE RESULTS TESTED                          
AGAINST THE CORRECT VALUE. CONSTANTS ARE EXPRESSED IN                           
NR1, NR2, AND NR3 FORM. THE VALUES OF THE OPERANDS AND                          
RESULTS ARE RESTRICTED TO INTEGERS AND SIMPLE FRACTIONS                         
TO AVOID ACCURACY PROBLEMS (ACCURACY IS ADDRESSED IN                            
LATER TESTS).                                                                   
                                                                                
                                                                                
SECTION 25.1: MULTIPLY                                                          
                                                                                
               BEGIN TEST                                                       
                                                                                
CASE #         SHOULD BE      ACTUAL         OUTCOME                            
                                                                                
1               21             21            TEST PASSES                        
2               70             70            TEST PASSES                        
3               138            138           TEST PASSES                        
4              -111           -111           TEST PASSES                        
5              -30            -30            TEST PASSES                        
6               132            132           TEST PASSES                        
7               0              0             TEST PASSES                        
8               9              9             TEST PASSES                        
9               16             16            TEST PASSES                        
                                                                                
*** TEST PASSED ***                                                             
                                                                                
                END TEST                                                        
                                                                                
                                                                                
SECTION 25.2: DIVIDE                                                            
                                                                                
               BEGIN TEST                                                       
                                                                                
CASE #         SHOULD BE      ACTUAL         OUTCOME                            
                                                                                
1               4              4             TEST PASSES                        
2               2              2             TEST PASSES                        
3               0              0             TEST PASSES                        
4               7              7             TEST PASSES                        
5              -49            -49            TEST PASSES                        
6              -1             -1             TEST PASSES                        
7               37             37            TEST PASSES                        
8               0              0             TEST PASSES                        
9               3.5            3.5           TEST PASSES                        
10              5.2            5.2           TEST PASSES                        
                                                                                
*** TEST PASSED ***                                                             
                                                                                
                END TEST                                                        
                                                                                
                                                                                
SECTION 25.3: INVOLUTION                                                        
                                                                                
               BEGIN TEST                                                       
                                                                                
CASE #         SHOULD BE      ACTUAL         OUTCOME                            
                                                                                
1               9              9             TEST PASSES                        
2               64             64            TEST PASSES                        
3               1              1             TEST PASSES                        
4               81             81            TEST PASSES                        
5              -8             -8             TEST PASSES                        
6               9              9             TEST PASSES                        
Y               0              0             TEST PASSES                        
8               1              1             TEST PASSES                        
9               1              1             TEST PASSES                        
10              4              4             TEST PASSES                        
11              .25            .25           TEST PASSES                        
12              .25            .25           TEST PASSES                        
13             -.125          -.125          TEST PASSES                        
14              1              1             TEST PASSES                        
15              1              1             TEST PASSES                        
16              8              8             TEST PASSES                        
17              2.5            2.5           TEST PASSES                        
18              .6             .6            TEST PASSES                        
19             -8             -8             TEST PASSES                        
20             -.125          -.125          TEST PASSES                        
                                                                                
*** TEST PASSED ***                                                             
                                                                                
                END TEST                                                        
                                                                                
                                                                                
END PROGRAM 25                                                                  
                                                                                
Program interrupted at line 6020                                                
