FORTRAN   RUN                                                      F70SAMPL
$NO MULTIPLY DIVIDE                                                     F71SAMPL
$OBJECT MACHINE SIZE # 15999                                                    
$REAL SIZE # 20                                                                 
C     RONALD MAK, MAY 10, 1969     ---MR. SERAPHIN                              
C     PERSONALITY MATCHING                                                      
      WRITE %3,1)                                                               
    1 FORMAT %52X,28H))) PERSONALITY MATCHING )))/////)                         
      DIMENSION I%27,6), Q%27), Y%7)                                            
      READ %1,2) %Y%J),J#1,5)                                                   
    2 FORMAT %5A9)                                                              
      DO 3 II#1,27                                                              
    3 READ %1,4) %I%II,K),K#1,5),Q%II)                                          
    4 FORMAT %1X,5I1,A15)                                                       
      DO 10 LL#1,5                                                              
      L#6-LL                                                                    
      WRITE %3,5) Y%LL)                                                         
    5 FORMAT %///57X,A15,8H MATCHES//)                                          
    6 DO 10 M#1,27                                                              
      IF %I%M,1).EQ.3) GO TO 10                                                 
      NN#M&1                                                                    
      DO 8 N#NN,27                                                              
      IF %I%N,1).EQ.3) GO TO 8                                                  
      J#0                                                                       
      IF %I%M,1).EQ.I%N,1)) J#J&1                                               
      IF %I%M,2).EQ.I%N,2)) J#J&1                                               
      IF %I%M,3).EQ.I%N,3)) J#J&1                                               
      IF %I%M,4).EQ.I%N,4)) J#J&1                                               
      IF %I%M,5).EQ.I%N,5)) J#J&1                                               
      IF %J.NE.L) GO TO 8                                                       
      WRITE %3,7) Q%N)                                                          
    7 FORMAT %58X,A15)                                                          
      I%N,1)#3                                                                  
      KL#1                                                                      
    8 CONTINUE                                                                  
      IF %KL) 12,10,12                                                          
   12 WRITE %3,9) Q%M)                                                          
    9 FORMAT %58X,A15/)                                                         
      I%M,1)#3                                                                  
      KL#0                                                                      
   10 CONTINUE                                                                  
      WRITE %3,11)                                                              
   11 FORMAT %/////10X,32HFIVE BASIC PERSONALITY QUESTIONS/)                    
      STOP                                                                      
      END                                                                       
     LOADER    RUN                                                      F87SAMPL
$EXECUTION                                                                      
  PERFECTEXCELLENTVERY GOOD     GOOD     FAIR                                   
111111GARLAND J                                                                 
112111VINCENT C                                                                 
111211GALE D                                                                    
111211HERNANDEZ M                                                               
111211SIMPSON E                                                                 
122112MANY P                                                                    
111112TOTTEN R                                                                  
111221COOLEY C                                                                  
121222ANDERSON J                                                                
121111FRITZ S                                                                   
121111SERAPHIN N                                                                
121111ASHFORD R                                                                 
111111MCCLAIN S                                                                 
111111TEMPLE D                                                                  
121221SMALL L                                                                   
111111CHILTON B                                                                 
121111GREGORY S                                                                 
111212FRIEL G                                                                   
121222RODRIGUEZ S                                                               
121111PETERSON V                                                                
111211ROFKAHRL                                                                  
111211NELSON J                                                                  
111111MANNING S                                                                 
121112ALVAREZ D                                                                 
121211BLACK L                                                                   
121211HENDRICKSON P                                                             
111111BANDUCCI R                                                                
122112RHODES C                                                                  
   DO YOU MIND LONG HAIR ON BOYS                                                
   DO YOU THINK PEOPLE ARE HUMAN TOWARDS YOU                                    
     DO YOUR FRIENDS NEED YOU                                                   
     DO YOU GET ENOUGH LOVE AND KINDNESS                                        
   DO YOU THINK YOUR PARENTS ARE NEEDED IN YOUR LIFE NOW