FORTRAN   RUN                                                      F70SAMPL
$NO MULTIPLY DIVIDE                                                     F71SAMPL
$OBJECT MACHINE SIZE # 15999                                                    
C     RONALD MAK, MARCH 8, 1969           ---MR. SERAPHIN                       
C     TEN MAGIC SQUARES                                                         
      WRITE %3,1)                                                               
    1 FORMAT %111H TEN MAGIC SQUARES, WHERE THE FOUR NUMBERS OF EACH COR        
     1NER, ROW, COLUMN, DIAGONAL, AND THE CENTER TOTAL THE SAME//)              
      DIMENSION M%4,4)                                                          
      DO 7 I#1,10                                                               
      READ %1,2) N,%%M%J,K),K#1,4),J#1,4)                                       
    2 FORMAT %I3,6X,16I1)                                                       
      DO 3 IR#1,4                                                               
      DO 3 IC#1,4                                                               
      N#N&1                                                                     
      IF %M%IR,IC).EQ.0) M%IR,IC)#N                                             
    3 CONTINUE                                                                  
      N#N&1                                                                     
      DO 4 IR#1,4                                                               
      DO 4 IC#1,4                                                               
      N#N-1                                                                     
      IF %M%IR,IC).EQ.1) M%IR,IC)#N                                             
    4 CONTINUE                                                                  
      WRITE %3,5) %%M%IR,IC),IC#1,4),IR#1,4)                                    
    5 FORMAT %50X,4I4)                                                          
      L#0                                                                       
      DO 6 IC#1,4                                                               
    6 L#L&M%1,IC)                                                               
    7 WRITE %3,8) L                                                             
    8 FORMAT %70X,8HSUMS ARE,I7/)                                               
      STOP                                                                      
      END                                                                       
     LOADER    RUN                                                      F87SAMPL
$EXECUTION                                                                      
  0      1001011001101001                                                       
101      1001011001101001                                                       
777      1001011001101001                                                       
 51      1001011001101001                                                       
 39      1001011001101001                                                       
 25      1001011001101001                                                       
  7      1001011001101001                                                       
803      1001011001101001                                                       
 15      1001011001101001                                                       
982      1001011001101001