Anforderungen  |   Konzepte  |   Entwurf  |   Entwicklung  |   Qualitätssicherung  |   Lebenszyklus  |   Steuerung
 
 
 
 

products/Sources/formale Sprachen/Cobol/Test-Suite/CLBRY/     Datei vom 28.6.2008 mit Größe 115 kB image not shown  

Quelle  k7sea

  Sprache: Cobol 		 

000100 COPY-TEST-1.                                                     
000200     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
000300     MOVE     "COPY-TEST-1  " TO PAR-NAME.                        
000400     PERFORM  PASS.                                               
000500     MOVE     SPACE TO COMPUTED-A.                                
000600     MOVE     SPACE TO CORRECT-A.                                 
000700     MOVE     SPACE TO RE-MARK.                                   
000800     PERFORM  PRINT-DETAIL.                                       
000900 COPY-TEST-2.                                                     
001000     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
001100     MOVE     "COPY-TEST-2  " TO PAR-NAME.                        
001200     PERFORM  PASS.                                               
001300     MOVE     SPACE TO COMPUTED-A.                                
001400     MOVE     SPACE TO CORRECT-A.                                 
001500     MOVE     SPACE TO RE-MARK.                                   
001600     PERFORM  PRINT-DETAIL.                                       
001700 COPY-TEST-3.                                                     
001800     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
001900     MOVE     "COPY-TEST-3  " TO PAR-NAME.                        
002000     PERFORM  PASS.                                               
002100     MOVE     SPACE TO COMPUTED-A.                                
002200     MOVE     SPACE TO CORRECT-A.                                 
002300     MOVE     SPACE TO RE-MARK.                                   
002400     PERFORM  PRINT-DETAIL.                                       
002500 COPY-TEST-4.                                                     
002600     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
002700     MOVE     "COPY-TEST-4  " TO PAR-NAME.                        
002800     PERFORM  PASS.                                               
002900     MOVE     SPACE TO COMPUTED-A.                                
003000     MOVE     SPACE TO CORRECT-A.                                 
003100     MOVE     SPACE TO RE-MARK.                                   
003200     PERFORM  PRINT-DETAIL.                                       
003300 COPY-TEST-5.                                                     
003400     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
003500     MOVE     "COPY-TEST-5  " TO PAR-NAME.                        
003600     PERFORM  PASS.                                               
003700     MOVE     SPACE TO COMPUTED-A.                                
003800     MOVE     SPACE TO CORRECT-A.                                 
003900     MOVE     SPACE TO RE-MARK.                                   
004000     PERFORM  PRINT-DETAIL.                                       
004100 COPY-TEST-6.                                                     
004200     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
004300     MOVE     "COPY-TEST-6  " TO PAR-NAME.                        
004400     PERFORM  PASS.                                               
004500     MOVE     SPACE TO COMPUTED-A.                                
004600     MOVE     SPACE TO CORRECT-A.                                 
004700     MOVE     SPACE TO RE-MARK.                                   
004800     PERFORM  PRINT-DETAIL.                                       
004900 COPY-TEST-7.                                                     
005000     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
005100     MOVE     "COPY-TEST-7  " TO PAR-NAME.                        
005200     PERFORM  PASS.                                               
005300     MOVE     SPACE TO COMPUTED-A.                                
005400     MOVE     SPACE TO CORRECT-A.                                 
005500     MOVE     SPACE TO RE-MARK.                                   
005600     PERFORM  PRINT-DETAIL.                                       
005700 COPY-TEST-8.                                                     
005800     MOVE     "COPY-TEST-8  " TO PAR-NAME.                        
005900     PERFORM  PASS.                                               
006000     MOVE     SPACE TO COMPUTED-A.                                
006100     MOVE     SPACE TO CORRECT-A.                                 
006200     MOVE     SPACE TO RE-MARK.                                   
006300     PERFORM  PRINT-DETAIL.                                       
006400 COPY-TEST-9.                                                     
006500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
006600     MOVE     "COPY-TEST-9  " TO PAR-NAME.                        
006700     PERFORM  PASS.                                               
006800     MOVE     SPACE TO COMPUTED-A.                                
006900     MOVE     SPACE TO CORRECT-A.                                 
007000     MOVE     SPACE TO RE-MARK.                                   
007100     PERFORM  PRINT-DETAIL.                                       
007200 COPY-TEST-10.                                                    
007300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
007400     MOVE     "COPY-TEST-10 " TO PAR-NAME.                        
007500     PERFORM  PASS.                                               
007600     MOVE     SPACE TO COMPUTED-A.                                
007700     MOVE     SPACE TO CORRECT-A.                                 
007800     MOVE     SPACE TO RE-MARK.                                   
007900     PERFORM  PRINT-DETAIL.                                       
008000 COPY-TEST-11.                                                    
008100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
008200     MOVE     "COPY-TEST-11 " TO PAR-NAME.                        
008300     PERFORM  PASS.                                               
008400     MOVE     SPACE TO COMPUTED-A.                                
008500     MOVE     SPACE TO CORRECT-A.                                 
008600     MOVE     SPACE TO RE-MARK.                                   
008700     PERFORM  PRINT-DETAIL.                                       
008800 COPY-TEST-12.                                                    
008900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
009000     MOVE     "COPY-TEST-12 " TO PAR-NAME.                        
009100     PERFORM  PASS.                                               
009200     MOVE     SPACE TO COMPUTED-A.                                
009300     MOVE     SPACE TO CORRECT-A.                                 
009400     MOVE     SPACE TO RE-MARK.                                   
009500     PERFORM  PRINT-DETAIL.                                       
009600 COPY-TEST-13.                                                    
009700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
009800     MOVE     "COPY-TEST-13 " TO PAR-NAME.                        
009900     PERFORM  PASS.                                               
010000     MOVE     SPACE TO COMPUTED-A.                                
010100     MOVE     SPACE TO CORRECT-A.                                 
010200     MOVE     SPACE TO RE-MARK.                                   
010300     PERFORM  PRINT-DETAIL.                                       
010400 COPY-TEST-14.                                                    
010500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
010600     MOVE     "COPY-TEST-14 " TO PAR-NAME.                        
010700     PERFORM  PASS.                                               
010800     MOVE     SPACE TO COMPUTED-A.                                
010900     MOVE     SPACE TO CORRECT-A.                                 
011000     MOVE     SPACE TO RE-MARK.                                   
011100     PERFORM  PRINT-DETAIL.                                       
011200 COPY-TEST-15.                                                    
011300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
011400     MOVE     "COPY-TEST-15 " TO PAR-NAME.                        
011500     PERFORM  PASS.                                               
011600     MOVE     SPACE TO COMPUTED-A.                                
011700     MOVE     SPACE TO CORRECT-A.                                 
011800     MOVE     SPACE TO RE-MARK.                                   
011900     PERFORM  PRINT-DETAIL.                                       
012000 COPY-TEST-16.                                                    
012100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
012200     MOVE     "COPY-TEST-16 " TO PAR-NAME.                        
012300     PERFORM  PASS.                                               
012400     MOVE     SPACE TO COMPUTED-A.                                
012500     MOVE     SPACE TO CORRECT-A.                                 
012600     MOVE     SPACE TO RE-MARK.                                   
012700     PERFORM  PRINT-DETAIL.                                       
012800 COPY-TEST-17.                                                    
012900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
013000     MOVE     "COPY-TEST-17 " TO PAR-NAME.                        
013100     PERFORM  PASS.                                               
013200     MOVE     SPACE TO COMPUTED-A.                                
013300     MOVE     SPACE TO CORRECT-A.                                 
013400     MOVE     SPACE TO RE-MARK.                                   
013500     PERFORM  PRINT-DETAIL.                                       
013600 COPY-TEST-18.                                                    
013700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
013800     MOVE     "COPY-TEST-18 " TO PAR-NAME.                        
013900     PERFORM  PASS.                                               
014000     MOVE     SPACE TO COMPUTED-A.                                
014100     MOVE     SPACE TO CORRECT-A.                                 
014200     MOVE     SPACE TO RE-MARK.                                   
014300     PERFORM  PRINT-DETAIL.                                       
014400 COPY-TEST-19.                                                    
014500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
014600     MOVE     "COPY-TEST-19 " TO PAR-NAME.                        
014700     PERFORM  PASS.                                               
014800     MOVE     SPACE TO COMPUTED-A.                                
014900     MOVE     SPACE TO CORRECT-A.                                 
015000     MOVE     SPACE TO RE-MARK.                                   
015100     PERFORM  PRINT-DETAIL.                                       
015200 COPY-TEST-20.                                                    
015300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
015400     MOVE     "COPY-TEST-20 " TO PAR-NAME.                        
015500     PERFORM  PASS.                                               
015600     MOVE     SPACE TO COMPUTED-A.                                
015700     MOVE     SPACE TO CORRECT-A.                                 
015800     MOVE     SPACE TO RE-MARK.                                   
015900     PERFORM  PRINT-DETAIL.                                       
016000 COPY-TEST-21.                                                    
016100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
016200     MOVE     "COPY-TEST-21 " TO PAR-NAME.                        
016300     PERFORM  PASS.                                               
016400     MOVE     SPACE TO COMPUTED-A.                                
016500     MOVE     SPACE TO CORRECT-A.                                 
016600     MOVE     SPACE TO RE-MARK.                                   
016700     PERFORM  PRINT-DETAIL.                                       
016800 COPY-TEST-2I.                                                    
016900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
017000     MOVE     "COPY-TEST-22 " TO PAR-NAME.                        
017100     PERFORM  PASS.                                               
017200     MOVE     SPACE TO COMPUTED-A.                                
017300     MOVE     SPACE TO CORRECT-A.                                 
017400     MOVE     SPACE TO RE-MARK.                                   
017500     PERFORM  PRINT-DETAIL.                                       
017600 COPY-TEST-23.                                                    
017700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
017800     MOVE     "COPY-TEST-23 " TO PAR-NAME.                        
017900     PERFORM  PASS.                                               
018000     MOVE     SPACE TO COMPUTED-A.                                
018100     MOVE     SPACE TO CORRECT-A.                                 
018200     MOVE     SPACE TO RE-MARK.                                   
018300     PERFORM  PRINT-DETAIL.                                       
018400 COPY-TEST-24.                                                    
018500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
018600     MOVE     "COPY-TEST-24 " TO PAR-NAME.                        
018700     PERFORM  PASS.                                               
018800     MOVE     SPACE TO COMPUTED-A.                                
018900     MOVE     SPACE TO CORRECT-A.                                 
019000     MOVE     SPACE TO RE-MARK.                                   
019100     PERFORM  PRINT-DETAIL.                                       
019200 COPY-TEST-25.                                                    
019300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
019400     MOVE     "COPY-TEST-25 " TO PAR-NAME.                        
019500     PERFORM  PASS.                                               
019600     MOVE     SPACE TO COMPUTED-A.                                
019700     MOVE     SPACE TO CORRECT-A.                                 
019800     MOVE     SPACE TO RE-MARK.                                   
019900     PERFORM  PRINT-DETAIL.                                       
020000 COPY-TEST-26.                                                    
020100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
020200     MOVE     "COPY-TEST-26 " TO PAR-NAME.                        
020300     PERFORM  PASS.                                               
020400     MOVE     SPACE TO COMPUTED-A.                                
020500     MOVE     SPACE TO CORRECT-A.                                 
020600     MOVE     SPACE TO RE-MARK.                                   
020700     PERFORM  PRINT-DETAIL.                                       
020800 COPY-TEST-27.                                                    
020900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
021000     MOVE     "COPY-TEST-27 " TO PAR-NAME.                        
021100     PERFORM  PASS.                                               
021200     MOVE     SPACE TO COMPUTED-A.                                
021300     MOVE     SPACE TO CORRECT-A.                                 
021400     MOVE     SPACE TO RE-MARK.                                   
021500     PERFORM  PRINT-DETAIL.                                       
021600 COPY-TEST-28.                                                    
021700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
021800     MOVE     "COPY-TEST-28 " TO PAR-NAME.                        
021900     PERFORM  PASS.                                               
022000     MOVE     SPACE TO COMPUTED-A.                                
022100     MOVE     SPACE TO CORRECT-A.                                 
022200     MOVE     SPACE TO RE-MARK.                                   
022300     PERFORM  PRINT-DETAIL.                                       
022400 COPY-TEST-29.                                                    
022500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
022600     MOVE     "COPY-TEST-29 " TO PAR-NAME.                        
022700     PERFORM  PASS.                                               
022800     MOVE     SPACE TO COMPUTED-A.                                
022900     MOVE     SPACE TO CORRECT-A.                                 
023000     MOVE     SPACE TO RE-MARK.                                   
023100     PERFORM  PRINT-DETAIL.                                       
023200 COPY-TEST-30.                                                    
023300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
023400     MOVE     "COPY-TEST-30 " TO PAR-NAME.                        
023500     PERFORM  PASS.                                               
023600     MOVE     SPACE TO COMPUTED-A.                                
023700     MOVE     SPACE TO CORRECT-A.                                 
023800     MOVE     SPACE TO RE-MARK.                                   
023900     PERFORM  PRINT-DETAIL.                                       
024000 COPY-TEST-31.                                                    
024100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
024200     MOVE     "COPY-TEST-31 " TO PAR-NAME.                        
024300     PERFORM  PASS.                                               
024400     MOVE     SPACE TO COMPUTED-A.                                
024500     MOVE     SPACE TO CORRECT-A.                                 
024600     MOVE     SPACE TO RE-MARK.                                   
024700     PERFORM  PRINT-DETAIL.                                       
024800 COPY-TEST-32.                                                    
024900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
025000     MOVE     "COPY-TEST-32 " TO PAR-NAME.                        
025100     PERFORM  PASS.                                               
025200     MOVE     SPACE TO COMPUTED-A.                                
025300     MOVE     SPACE TO CORRECT-A.                                 
025400     MOVE     SPACE TO RE-MARK.                                   
025500     PERFORM  PRINT-DETAIL.                                       
025600 COPY-TEST-33.                                                    
025700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
025800     MOVE     "COPY-TEST-33 " TO PAR-NAME.                        
025900     PERFORM  PASS.                                               
026000     MOVE     SPACE TO COMPUTED-A.                                
026100     MOVE     SPACE TO CORRECT-A.                                 
026200     MOVE     SPACE TO RE-MARK.                                   
026300     PERFORM  PRINT-DETAIL.                                       
026400 COPY-TEST-34.                                                    
026500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
026600     MOVE     "COPY-TEST-34 " TO PAR-NAME.                        
026700     PERFORM  PASS.                                               
026800     MOVE     SPACE TO COMPUTED-A.                                
026900     MOVE     SPACE TO CORRECT-A.                                 
027000     MOVE     SPACE TO RE-MARK.                                   
027100     PERFORM  PRINT-DETAIL.                                       
027200 COPY-TEST-35.                                                    
027300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
027400     MOVE     "COPY-TEST-35 " TO PAR-NAME.                        
027500     PERFORM  PASS.                                               
027600     MOVE     SPACE TO COMPUTED-A.                                
027700     MOVE     SPACE TO CORRECT-A.                                 
027800     MOVE     SPACE TO RE-MARK.                                   
027900     PERFORM  PRINT-DETAIL.                                       
028000 COPY-TEST-36.                                                    
028100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
028200     MOVE     "COPY-TEST-36 " TO PAR-NAME.                        
028300     PERFORM  PASS.                                               
028400     MOVE     SPACE TO COMPUTED-A.                                
028500     MOVE     SPACE TO CORRECT-A.                                 
028600     MOVE     SPACE TO RE-MARK.                                   
028700     PERFORM  PRINT-DETAIL.                                       
028800 COPY-TEST-37.                                                    
028900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
029000     MOVE     "COPY-TEST-37 " TO PAR-NAME.                        
029100     PERFORM  PASS.                                               
029200     MOVE     SPACE TO COMPUTED-A.                                
029300     MOVE     SPACE TO CORRECT-A.                                 
029400     MOVE     SPACE TO RE-MARK.                                   
029500     PERFORM  PRINT-DETAIL.                                       
029600 COPY-TEST-38.                                                    
029700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
029800     MOVE     "COPY-TEST-38 " TO PAR-NAME.                        
029900     PERFORM  PASS.                                               
030000     MOVE     SPACE TO COMPUTED-A.                                
030100     MOVE     SPACE TO CORRECT-A.                                 
030200     MOVE     SPACE TO RE-MARK.                                   
030300     PERFORM  PRINT-DETAIL.                                       
030400 COPY-TEST-39.                                                    
030500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
030600     MOVE     "COPY-TEST-39 " TO PAR-NAME.                        
030700     PERFORM  PASS.                                               
030800     MOVE     SPACE TO COMPUTED-A.                                
030900     MOVE     SPACE TO CORRECT-A.                                 
031000     MOVE     SPACE TO RE-MARK.                                   
031100     PERFORM  PRINT-DETAIL.                                       
031200 COPY-TEST-40.                                                    
031300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
031400     MOVE     "COPY-TEST-40 " TO PAR-NAME.                        
031500     PERFORM  PASS.                                               
031600     MOVE     SPACE TO COMPUTED-A.                                
031700     MOVE     SPACE TO CORRECT-A.                                 
031800     MOVE     SPACE TO RE-MARK.                                   
031900     PERFORM  PRINT-DETAIL.                                       
032000 COPY-TEST-41.                                                    
032100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
032200     MOVE     "COPY-TEST-41 " TO PAR-NAME.                        
032300     PERFORM  PASS.                                               
032400     MOVE     SPACE TO COMPUTED-A.                                
032500     MOVE     SPACE TO CORRECT-A.                                 
032600     MOVE     SPACE TO RE-MARK.                                   
032700     PERFORM  PRINT-DETAIL.                                       
032800 COPY-TEST-42.                                                    
032900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
033000     MOVE     "COPY-TEST-42 " TO PAR-NAME.                        
033100     PERFORM  PASS.                                               
033200     MOVE     SPACE TO COMPUTED-A.                                
033300     MOVE     SPACE TO CORRECT-A.                                 
033400     MOVE     SPACE TO RE-MARK.                                   
033500     PERFORM  PRINT-DETAIL.                                       
033600 COPY-TEST-43.                                                    
033700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
033800     MOVE     "COPY-TEST-43 " TO PAR-NAME.                        
033900     PERFORM  PASS.                                               
034000     MOVE     SPACE TO COMPUTED-A.                                
034100     MOVE     SPACE TO CORRECT-A.                                 
034200     MOVE     SPACE TO RE-MARK.                                   
034300     PERFORM  PRINT-DETAIL.                                       
034400 COPY-TEST-44.                                                    
034500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
034600     MOVE     "COPY-TEST-44 " TO PAR-NAME.                        
034700     PERFORM  PASS.                                               
034800     MOVE     SPACE TO COMPUTED-A.                                
034900     MOVE     SPACE TO CORRECT-A.                                 
035000     MOVE     SPACE TO RE-MARK.                                   
035100     PERFORM  PRINT-DETAIL.                                       
035200 COPY-TEST-45.                                                    
035300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
035400     MOVE     "COPY-TEST-45 " TO PAR-NAME.                        
035500     PERFORM  PASS.                                               
035600     MOVE     SPACE TO COMPUTED-A.                                
035700     MOVE     SPACE TO CORRECT-A.                                 
035800     MOVE     SPACE TO RE-MARK.                                   
035900     PERFORM  PRINT-DETAIL.                                       
036000 COPY-TEST-46.                                                    
036100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
036200     MOVE     "COPY-TEST-46 " TO PAR-NAME.                        
036300     PERFORM  PASS.                                               
036400     MOVE     SPACE TO COMPUTED-A.                                
036500     MOVE     SPACE TO CORRECT-A.                                 
036600     MOVE     SPACE TO RE-MARK.                                   
036700     PERFORM  PRINT-DETAIL.                                       
036800 COPY-TEST-47.                                                    
036900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
037000     MOVE     "COPY-TEST-47 " TO PAR-NAME.                        
037100     PERFORM  PASS.                                               
037200     MOVE     SPACE TO COMPUTED-A.                                
037300     MOVE     SPACE TO CORRECT-A.                                 
037400     MOVE     SPACE TO RE-MARK.                                   
037500     PERFORM  PRINT-DETAIL.                                       
037600 COPY-TEST-48.                                                    
037700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
037800     MOVE     "COPY-TEST-48 " TO PAR-NAME.                        
037900     PERFORM  PASS.                                               
038000     MOVE     SPACE TO COMPUTED-A.                                
038100     MOVE     SPACE TO CORRECT-A.                                 
038200     MOVE     SPACE TO RE-MARK.                                   
038300     PERFORM  PRINT-DETAIL.                                       
038400 COPY-TEST-49.                                                    
038500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
038600     MOVE     "COPY-TEST-49 " TO PAR-NAME.                        
038700     PERFORM  PASS.                                               
038800     MOVE     SPACE TO COMPUTED-A.                                
038900     MOVE     SPACE TO CORRECT-A.                                 
039000     MOVE     SPACE TO RE-MARK.                                   
039100     PERFORM  PRINT-DETAIL.                                       
039200 COPY-TEST-50.                                                    
039300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
039400     MOVE     "COPY-TEST-50 " TO PAR-NAME.                        
039500     PERFORM  PASS.                                               
039600     MOVE     SPACE TO COMPUTED-A.                                
039700     MOVE     SPACE TO CORRECT-A.                                 
039800     MOVE     SPACE TO RE-MARK.                                   
039900     PERFORM  PRINT-DETAIL.                                       
040000 COPY-TEST-51.                                                    
040100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
040200     MOVE     "COPY-TEST-51 " TO PAR-NAME.                        
040300     PERFORM  PASS.                                               
040400     MOVE     SPACE TO COMPUTED-A.                                
040500     MOVE     SPACE TO CORRECT-A.                                 
040600     MOVE     SPACE TO RE-MARK.                                   
040700     PERFORM  PRINT-DETAIL.                                       
040800 COPY-TEST-52.                                                    
040900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
041000     MOVE     "COPY-TEST-52 " TO PAR-NAME.                        
041100     PERFORM  PASS.                                               
041200     MOVE     SPACE TO COMPUTED-A.                                
041300     MOVE     SPACE TO CORRECT-A.                                 
041400     MOVE     SPACE TO RE-MARK.                                   
041500     PERFORM  PRINT-DETAIL.                                       
041600 COPY-TEST-53.                                                    
041700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
041800     MOVE     "COPY-TEST-53 " TO PAR-NAME.                        
041900     PERFORM  PASS.                                               
042000     MOVE     SPACE TO COMPUTED-A.                                
042100     MOVE     SPACE TO CORRECT-A.                                 
042200     MOVE     SPACE TO RE-MARK.                                   
042300     PERFORM  PRINT-DETAIL.                                       
042400 COPY-TEST-54.                                                    
042500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
042600     MOVE     "COPY-TEST-54 " TO PAR-NAME.                        
042700     PERFORM  PASS.                                               
042800     MOVE     SPACE TO COMPUTED-A.                                
042900     MOVE     SPACE TO CORRECT-A.                                 
043000     MOVE     SPACE TO RE-MARK.                                   
043100     PERFORM  PRINT-DETAIL.                                       
043200 COPY-TEST-55.                                                    
043300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
043400     MOVE     "COPY-TEST-55 " TO PAR-NAME.                        
043500     PERFORM  PASS.                                               
043600     MOVE     SPACE TO COMPUTED-A.                                
043700     MOVE     SPACE TO CORRECT-A.                                 
043800     MOVE     SPACE TO RE-MARK.                                   
043900     PERFORM  PRINT-DETAIL.                                       
044000 COPY-TEST-56.                                                    
044100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
044200     MOVE     "COPY-TEST-56 " TO PAR-NAME.                        
044300     PERFORM  PASS.                                               
044400     MOVE     SPACE TO COMPUTED-A.                                
044500     MOVE     SPACE TO CORRECT-A.                                 
044600     MOVE     SPACE TO RE-MARK.                                   
044700     PERFORM  PRINT-DETAIL.                                       
044800 COPY-TEST-57.                                                    
044900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
045000     MOVE     "COPY-TEST-57 " TO PAR-NAME.                        
045100     PERFORM  PASS.                                               
045200     MOVE     SPACE TO COMPUTED-A.                                
045300     MOVE     SPACE TO CORRECT-A.                                 
045400     MOVE     SPACE TO RE-MARK.                                   
045500     PERFORM  PRINT-DETAIL.                                       
045600 COPY-TEST-58.                                                    
045700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
045800     MOVE     "COPY-TEST-58 " TO PAR-NAME.                        
045900     PERFORM  PASS.                                               
046000     MOVE     SPACE TO COMPUTED-A.                                
046100     MOVE     SPACE TO CORRECT-A.                                 
046200     MOVE     SPACE TO RE-MARK.                                   
046300     PERFORM  PRINT-DETAIL.                                       
046400 COPY-TEST-59.                                                    
046500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
046600     MOVE     "COPY-TEST-59 " TO PAR-NAME.                        
046700     PERFORM  PASS.                                               
046800     MOVE     SPACE TO COMPUTED-A.                                
046900     MOVE     SPACE TO CORRECT-A.                                 
047000     MOVE     SPACE TO RE-MARK.                                   
047100     PERFORM  PRINT-DETAIL.                                       
047200 COPY-TEST-60.                                                    
047300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
047400     MOVE     "COPY-TEST-60 " TO PAR-NAME.                        
047500     PERFORM  PASS.                                               
047600     MOVE     SPACE TO COMPUTED-A.                                
047700     MOVE     SPACE TO CORRECT-A.                                 
047800     MOVE     SPACE TO RE-MARK.                                   
047900     PERFORM  PRINT-DETAIL.                                       
048000 COPY-TEST-61.                                                    
048100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
048200     MOVE     "COPY-TEST-61 " TO PAR-NAME.                        
048300     PERFORM  PASS.                                               
048400     MOVE     SPACE TO COMPUTED-A.                                
048500     MOVE     SPACE TO CORRECT-A.                                 
048600     MOVE     SPACE TO RE-MARK.                                   
048700     PERFORM  PRINT-DETAIL.                                       
048800 COPY-TEST-62.                                                    
048900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
049000     MOVE     "COPY-TEST-62 " TO PAR-NAME.                        
049100     PERFORM  PASS.                                               
049200     MOVE     SPACE TO COMPUTED-A.                                
049300     MOVE     SPACE TO CORRECT-A.                                 
049400     MOVE     SPACE TO RE-MARK.                                   
049500     PERFORM  PRINT-DETAIL.                                       
049600 COPY-TEST-63.                                                    
049700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
049800     MOVE     "COPY-TEST-63 " TO PAR-NAME.                        
049900     PERFORM  PASS.                                               
050000     MOVE     SPACE TO COMPUTED-A.                                
050100     MOVE     SPACE TO CORRECT-A.                                 
050200     MOVE     SPACE TO RE-MARK.                                   
050300     PERFORM  PRINT-DETAIL.                                       
050400 COPY-TEST-64.                                                    
050500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
050600     MOVE     "COPY-TEST-64 " TO PAR-NAME.                        
050700     PERFORM  PASS.                                               
050800     MOVE     SPACE TO COMPUTED-A.                                
050900     MOVE     SPACE TO CORRECT-A.                                 
051000     MOVE     SPACE TO RE-MARK.                                   
051100     PERFORM  PRINT-DETAIL.                                       
051200 COPY-TEST-65.                                                    
051300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
051400     MOVE     "COPY-TEST-65 " TO PAR-NAME.                        
051500     PERFORM  PASS.                                               
051600     MOVE     SPACE TO COMPUTED-A.                                
051700     MOVE     SPACE TO CORRECT-A.                                 
051800     MOVE     SPACE TO RE-MARK.                                   
051900     PERFORM  PRINT-DETAIL.                                       
052000 COPY-TEST-66.                                                    
052100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
052200     MOVE     "COPY-TEST-66 " TO PAR-NAME.                        
052300     PERFORM  PASS.                                               
052400     MOVE     SPACE TO COMPUTED-A.                                
052500     MOVE     SPACE TO CORRECT-A.                                 
052600     MOVE     SPACE TO RE-MARK.                                   
052700     PERFORM  PRINT-DETAIL.                                       
052800 COPY-TEST-67.                                                    
052900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
053000     MOVE     "COPY-TEST-67 " TO PAR-NAME.                        
053100     PERFORM  PASS.                                               
053200     MOVE     SPACE TO COMPUTED-A.                                
053300     MOVE     SPACE TO CORRECT-A.                                 
053400     MOVE     SPACE TO RE-MARK.                                   
053500     PERFORM  PRINT-DETAIL.                                       
053600 COPY-TEST-68.                                                    
053700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
053800     MOVE     "COPY-TEST-68 " TO PAR-NAME.                        
053900     PERFORM  PASS.                                               
054000     MOVE     SPACE TO COMPUTED-A.                                
054100     MOVE     SPACE TO CORRECT-A.                                 
054200     MOVE     SPACE TO RE-MARK.                                   
054300     PERFORM  PRINT-DETAIL.                                       
054400 COPY-TEST-69.                                                    
054500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
054600     MOVE     "COPY-TEST-69 " TO PAR-NAME.                        
054700     PERFORM  PASS.                                               
054800     MOVE     SPACE TO COMPUTED-A.                                
054900     MOVE     SPACE TO CORRECT-A.                                 
055000     MOVE     SPACE TO RE-MARK.                                   
055100     PERFORM  PRINT-DETAIL.                                       
055200 COPY-TEST-70.                                                    
055300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
055400     MOVE     "COPY-TEST-70 " TO PAR-NAME.                        
055500     PERFORM  PASS.                                               
055600     MOVE     SPACE TO COMPUTED-A.                                
055700     MOVE     SPACE TO CORRECT-A.                                 
055800     MOVE     SPACE TO RE-MARK.                                   
055900     PERFORM  PRINT-DETAIL.                                       
056000 COPY-TEST-71.                                                    
056100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
056200     MOVE     "COPY-TEST-71 " TO PAR-NAME.                        
056300     PERFORM  PASS.                                               
056400     MOVE     SPACE TO COMPUTED-A.                                
056500     MOVE     SPACE TO CORRECT-A.                                 
056600     MOVE     SPACE TO RE-MARK.                                   
056700     PERFORM  PRINT-DETAIL.                                       
056800 COPY-TEST-72.                                                    
056900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
057000     MOVE     "COPY-TEST-72 " TO PAR-NAME.                        
057100     PERFORM  PASS.                                               
057200     MOVE     SPACE TO COMPUTED-A.                                
057300     MOVE     SPACE TO CORRECT-A.                                 
057400     MOVE     SPACE TO RE-MARK.                                   
057500     PERFORM  PRINT-DETAIL.                                       
057600 COPY-TEST-73.                                                    
057700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
057800     MOVE     "COPY-TEST-73 " TO PAR-NAME.                        
057900     PERFORM  PASS.                                               
058000     MOVE     SPACE TO COMPUTED-A.                                
058100     MOVE     SPACE TO CORRECT-A.                                 
058200     MOVE     SPACE TO RE-MARK.                                   
058300     PERFORM  PRINT-DETAIL.                                       
058400 COPY-TEST-74.                                                    
058500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
058600     MOVE     "COPY-TEST-74 " TO PAR-NAME.                        
058700     PERFORM  PASS.                                               
058800     MOVE     SPACE TO COMPUTED-A.                                
058900     MOVE     SPACE TO CORRECT-A.                                 
059000     MOVE     SPACE TO RE-MARK.                                   
059100     PERFORM  PRINT-DETAIL.                                       
059200 COPY-TEST-75.                                                    
059300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
059400     MOVE     "COPY-TEST-75 " TO PAR-NAME.                        
059500     PERFORM  PASS.                                               
059600     MOVE     SPACE TO COMPUTED-A.                                
059700     MOVE     SPACE TO CORRECT-A.                                 
059800     MOVE     SPACE TO RE-MARK.                                   
059900     PERFORM  PRINT-DETAIL.                                       
060000 COPY-TEST-76.                                                    
060100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
060200     MOVE     "COPY-TEST-76 " TO PAR-NAME.                        
060300     PERFORM  PASS.                                               
060400     MOVE     SPACE TO COMPUTED-A.                                
060500     MOVE     SPACE TO CORRECT-A.                                 
060600     MOVE     SPACE TO RE-MARK.                                   
060700     PERFORM  PRINT-DETAIL.                                       
060800 COPY-TEST-77.                                                    
060900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
061000     MOVE     "COPY-TEST-77 " TO PAR-NAME.                        
061100     PERFORM  PASS.                                               
061200     MOVE     SPACE TO COMPUTED-A.                                
061300     MOVE     SPACE TO CORRECT-A.                                 
061400     MOVE     SPACE TO RE-MARK.                                   
061500     PERFORM  PRINT-DETAIL.                                       
061600 COPY-TEST-78.                                                    
061700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
061800     MOVE     "COPY-TEST-78 " TO PAR-NAME.                        
061900     MOVE     SPACE TO COMPUTED-A.                                
062000     MOVE     SPACE TO CORRECT-A.                                 
062100     PERFORM  PASS.                                               
062200     MOVE     SPACE TO RE-MARK.                                   
062300     PERFORM  PRINT-DETAIL.                                       
062400 COPY-TEST-79.                                                    
062500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
062600     MOVE     "COPY-TEST-79 " TO PAR-NAME.                        
062700     PERFORM  PASS.                                               
062800     MOVE     SPACE TO COMPUTED-A.                                
062900     MOVE     SPACE TO CORRECT-A.                                 
063000     MOVE     SPACE TO RE-MARK.                                   
063100     PERFORM  PRINT-DETAIL.                                       
063200 COPY-TEST-80.                                                    
063300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
063400     MOVE     "COPY-TEST-80 " TO PAR-NAME.                        
063500     PERFORM  PASS.                                               
063600     MOVE     SPACE TO COMPUTED-A.                                
063700     MOVE     SPACE TO CORRECT-A.                                 
063800     MOVE     SPACE TO RE-MARK.                                   
063900     PERFORM  PRINT-DETAIL.                                       
064000 COPY-TEST-81.                                                    
064100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
064200     MOVE     "COPY-TEST-81 " TO PAR-NAME.                        
064300     PERFORM  PASS.                                               
064400     MOVE     SPACE TO COMPUTED-A.                                
064500     MOVE     SPACE TO CORRECT-A.                                 
064600     MOVE     SPACE TO RE-MARK.                                   
064700     PERFORM  PRINT-DETAIL.                                       
064800 COPY-TEST-82.                                                    
064900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
065000     MOVE     "COPY-TEST-82 " TO PAR-NAME.                        
065100     PERFORM  PASS.                                               
065200     MOVE     SPACE TO COMPUTED-A.                                
065300     MOVE     SPACE TO CORRECT-A.                                 
065400     MOVE     SPACE TO RE-MARK.                                   
065500     PERFORM  PRINT-DETAIL.                                       
065600 COPY-TEST-83.                                                    
065700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
065800     MOVE     "COPY-TEST-83 " TO PAR-NAME.                        
065900     PERFORM  PASS.                                               
066000     MOVE     SPACE TO COMPUTED-A.                                
066100     MOVE     SPACE TO CORRECT-A.                                 
066200     MOVE     SPACE TO RE-MARK.                                   
066300     PERFORM  PRINT-DETAIL.                                       
066400 COPY-TEST-84.                                                    
066500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
066600     MOVE     "COPY-TEST-84 " TO PAR-NAME.                        
066700     PERFORM  PASS.                                               
066800     MOVE     SPACE TO COMPUTED-A.                                
066900     MOVE     SPACE TO CORRECT-A.                                 
067000     MOVE     SPACE TO RE-MARK.                                   
067100     PERFORM  PRINT-DETAIL.                                       
067200 COPY-TEST-85.                                                    
067300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
067400     MOVE     "COPY-TEST-85 " TO PAR-NAME.                        
067500     PERFORM  PASS.                                               
067600     MOVE     SPACE TO COMPUTED-A.                                
067700     MOVE     SPACE TO CORRECT-A.                                 
067800     MOVE     SPACE TO RE-MARK.                                   
067900     PERFORM  PRINT-DETAIL.                                       
068000 COPY-TEST-86.                                                    
068100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
068200     MOVE     "COPY-TEST-86 " TO PAR-NAME.                        
068300     PERFORM  PASS.                                               
068400     MOVE     SPACE TO COMPUTED-A.                                
068500     MOVE     SPACE TO CORRECT-A.                                 
068600     MOVE     SPACE TO RE-MARK.                                   
068700     PERFORM  PRINT-DETAIL.                                       
068800 COPY-TEST-87.                                                    
068900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
069000     MOVE     "COPY-TEST-87 " TO PAR-NAME.                        
069100     PERFORM  PASS.                                               
069200     MOVE     SPACE TO COMPUTED-A.                                
069300     MOVE     SPACE TO CORRECT-A.                                 
069400     MOVE     SPACE TO RE-MARK.                                   
069500     PERFORM  PRINT-DETAIL.                                       
069600 COPY-TEST-88.                                                    
069700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
069800     MOVE     "COPY-TEST-88 " TO PAR-NAME.                        
069900     PERFORM  PASS.                                               
070000     MOVE     SPACE TO COMPUTED-A.                                
070100     MOVE     SPACE TO CORRECT-A.                                 
070200     MOVE     SPACE TO RE-MARK.                                   
070300     PERFORM  PRINT-DETAIL.                                       
070400 COPY-TEST-89.                                                    
070500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
070600     MOVE     "COPY-TEST-89 " TO PAR-NAME.                        
070700     PERFORM  PASS.                                               
070800     MOVE     SPACE TO COMPUTED-A.                                
070900     MOVE     SPACE TO CORRECT-A.                                 
071000     MOVE     SPACE TO RE-MARK.                                   
071100     PERFORM  PRINT-DETAIL.                                       
071200 COPY-TEST-90.                                                    
071300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
071400     MOVE     "COPY-TEST-90 " TO PAR-NAME.                        
071500     PERFORM  PASS.                                               
071600     MOVE     SPACE TO COMPUTED-A.                                
071700     MOVE     SPACE TO CORRECT-A.                                 
071800     MOVE     SPACE TO RE-MARK.                                   
071900     PERFORM  PRINT-DETAIL.                                       
072000 COPY-TEST-91.                                                    
072100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
072200     MOVE     "COPY-TEST-91 " TO PAR-NAME.                        
072300     PERFORM  PASS.                                               
072400     MOVE     SPACE TO COMPUTED-A.                                
072500     MOVE     SPACE TO CORRECT-A.                                 
072600     MOVE     SPACE TO RE-MARK.                                   
072700     PERFORM  PRINT-DETAIL.                                       
072800 COPY-TEST-92.                                                    
072900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
073000     MOVE     "COPY-TEST-92 " TO PAR-NAME.                        
073100     PERFORM  PASS.                                               
073200     MOVE     SPACE TO COMPUTED-A.                                
073300     MOVE     SPACE TO CORRECT-A.                                 
073400     MOVE     SPACE TO RE-MARK.                                   
073500     PERFORM  PRINT-DETAIL.                                       
073600 COPY-TEST-93.                                                    
073700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
073800     MOVE     "COPY-TEST-93 " TO PAR-NAME.                        
073900     PERFORM  PASS.                                               
074000     MOVE     SPACE TO COMPUTED-A.                                
074100     MOVE     SPACE TO CORRECT-A.                                 
074200     MOVE     SPACE TO RE-MARK.                                   
074300     PERFORM  PRINT-DETAIL.                                       
074400 COPY-TEST-94.                                                    
074500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
074600     MOVE     "COPY-TEST-94 " TO PAR-NAME.                        
074700     PERFORM  PASS.                                               
074800     MOVE     SPACE TO COMPUTED-A.                                
074900     MOVE     SPACE TO CORRECT-A.                                 
075000     MOVE     SPACE TO RE-MARK.                                   
075100     PERFORM  PRINT-DETAIL.                                       
075200 COPY-TEST-95.                                                    
075300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
075400     MOVE     "COPY-TEST-95 " TO PAR-NAME.                        
075500     PERFORM  PASS.                                               
075600     MOVE     SPACE TO COMPUTED-A.                                
075700     MOVE     SPACE TO CORRECT-A.                                 
075800     MOVE     SPACE TO RE-MARK.                                   
075900     PERFORM  PRINT-DETAIL.                                       
076000 COPY-TEST-96.                                                    
076100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
076200     MOVE     "COPY-TEST-96 " TO PAR-NAME.                        
076300     PERFORM  PASS.                                               
076400     MOVE     SPACE TO COMPUTED-A.                                
076500     MOVE     SPACE TO CORRECT-A.                                 
076600     MOVE     SPACE TO RE-MARK.                                   
076700     PERFORM  PRINT-DETAIL.                                       
076800 COPY-TEST-97.                                                    
076900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
077000     MOVE     "COPY-TEST-97 " TO PAR-NAME.                        
077100     PERFORM  PASS.                                               
077200     MOVE     SPACE TO COMPUTED-A.                                
077300     MOVE     SPACE TO CORRECT-A.                                 
077400     MOVE     SPACE TO RE-MARK.                                   
077500     PERFORM  PRINT-DETAIL.                                       
077600 COPY-TEST-98.                                                    
077700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
077800     MOVE     "COPY-TEST-98 " TO PAR-NAME.                        
077900     PERFORM  PASS.                                               
078000     MOVE     SPACE TO COMPUTED-A.                                
078100     MOVE     SPACE TO CORRECT-A.                                 
078200     MOVE     SPACE TO RE-MARK.                                   
078300     PERFORM  PRINT-DETAIL.                                       
078400 COPY-TEST-99.                                                    
078500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
078600     MOVE     "COPY-TEST-99 " TO PAR-NAME.                        
078700     PERFORM  PASS.                                               
078800     MOVE     SPACE TO COMPUTED-A.                                
078900     MOVE     SPACE TO CORRECT-A.                                 
079000     MOVE     SPACE TO RE-MARK.                                   
079100     PERFORM  PRINT-DETAIL.                                       
079200 COPY-TEST-100.                                                   
079300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
079400     MOVE     "COPY-TEST-100" TO PAR-NAME.                        
079500     PERFORM  PASS.                                               
079600     MOVE     SPACE TO COMPUTED-A.                                
079700     MOVE     SPACE TO CORRECT-A.                                 
079800     MOVE     SPACE TO RE-MARK.                                   
079900     PERFORM  PRINT-DETAIL.                                       
080000 COPY-TEST-101.                                                   
080100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
080200     MOVE     "COPY-TEST-101" TO PAR-NAME.                        
080300     PERFORM  PASS.                                               
080400     MOVE     SPACE TO COMPUTED-A.                                
080500     MOVE     SPACE TO CORRECT-A.                                 
080600     MOVE     SPACE TO RE-MARK.                                   
080700     PERFORM  PRINT-DETAIL.                                       
080800 COPY-TEST-102.                                                   
080900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
081000     MOVE     "COPY-TEST-102" TO PAR-NAME.                        
081100     PERFORM  PASS.                                               
081200     MOVE     SPACE TO COMPUTED-A.                                
081300     MOVE     SPACE TO CORRECT-A.                                 
081400     MOVE     SPACE TO RE-MARK.                                   
081500     PERFORM  PRINT-DETAIL.                                       
081600 COPY-TEST-103.                                                   
081700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
081800     MOVE     "COPY-TEST-103" TO PAR-NAME.                        
081900     PERFORM  PASS.                                               
082000     MOVE     SPACE TO COMPUTED-A.                                
082100     MOVE     SPACE TO CORRECT-A.                                 
082200     MOVE     SPACE TO RE-MARK.                                   
082300     PERFORM  PRINT-DETAIL.                                       
082400 COPY-TEST-104.                                                   
082500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
082600     MOVE     "COPY-TEST-104" TO PAR-NAME.                        
082700     PERFORM  PASS.                                               
082800     MOVE     SPACE TO COMPUTED-A.                                
082900     MOVE     SPACE TO CORRECT-A.                                 
083000     MOVE     SPACE TO RE-MARK.                                   
083100     PERFORM  PRINT-DETAIL.                                       
083200 COPY-TEST-105.                                                   
083300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
083400     MOVE     "COPY-TEST-105" TO PAR-NAME.                        
083500     PERFORM  PASS.                                               
083600     MOVE     SPACE TO COMPUTED-A.                                
083700     MOVE     SPACE TO CORRECT-A.                                 
083800     MOVE     SPACE TO RE-MARK.                                   
083900     PERFORM  PRINT-DETAIL.                                       
084000 COPY-TEST-106.                                                   
084100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
084200     MOVE     "COPY-TEST-106" TO PAR-NAME.                        
084300     PERFORM  PASS.                                               
084400     MOVE     SPACE TO COMPUTED-A.                                
084500     MOVE     SPACE TO CORRECT-A.                                 
084600     MOVE     SPACE TO RE-MARK.                                   
084700     PERFORM  PRINT-DETAIL.                                       
084800 COPY-TEST-107.                                                   
084900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
085000     MOVE     "COPY-TEST-107" TO PAR-NAME.                        
085100     PERFORM  PASS.                                               
085200     MOVE     SPACE TO COMPUTED-A.                                
085300     MOVE     SPACE TO CORRECT-A.                                 
085400     MOVE     SPACE TO RE-MARK.                                   
085500     PERFORM  PRINT-DETAIL.                                       
085600 COPY-TEST-108.                                                   
085700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
085800     MOVE     "COPY-TEST-108" TO PAR-NAME.                        
085900     PERFORM  PASS.                                               
086000     MOVE     SPACE TO COMPUTED-A.                                
086100     MOVE     SPACE TO CORRECT-A.                                 
086200     MOVE     SPACE TO RE-MARK.                                   
086300     PERFORM  PRINT-DETAIL.                                       
086400 COPY-TEST-109.                                                   
086500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
086600     MOVE     "COPY-TEST-109" TO PAR-NAME.                        
086700     PERFORM  PASS.                                               
086800     MOVE     SPACE TO COMPUTED-A.                                
086900     MOVE     SPACE TO CORRECT-A.                                 
087000     MOVE     SPACE TO RE-MARK.                                   
087100     PERFORM  PRINT-DETAIL.                                       
087200 COPY-TEST-110.                                                   
087300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
087400     MOVE     "COPY-TEST-110" TO PAR-NAME.                        
087500     PERFORM  PASS.                                               
087600     MOVE     SPACE TO COMPUTED-A.                                
087700     MOVE     SPACE TO CORRECT-A.                                 
087800     MOVE     SPACE TO RE-MARK.                                   
087900     PERFORM  PRINT-DETAIL.                                       
088000 COPY-TEST-111.                                                   
088100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
088200     MOVE     "COPY-TEST-111" TO PAR-NAME.                        
088300     PERFORM  PASS.                                               
088400     MOVE     SPACE TO COMPUTED-A.                                
088500     MOVE     SPACE TO CORRECT-A.                                 
088600     MOVE     SPACE TO RE-MARK.                                   
088700     PERFORM  PRINT-DETAIL.                                       
088800 COPY-TEST-112.                                                   
088900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
089000     MOVE     "COPY-TEST-112" TO PAR-NAME.                        
089100     PERFORM  PASS.                                               
089200     MOVE     SPACE TO COMPUTED-A.                                
089300     MOVE     SPACE TO CORRECT-A.                                 
089400     MOVE     SPACE TO RE-MARK.                                   
089500     PERFORM  PRINT-DETAIL.                                       
089600 COPY-TEST-113.                                                   
089700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
089800     MOVE     "COPY-TEST-113" TO PAR-NAME.                        
089900     PERFORM  PASS.                                               
090000     MOVE     SPACE TO COMPUTED-A.                                
090100     MOVE     SPACE TO CORRECT-A.                                 
090200     MOVE     SPACE TO RE-MARK.                                   
090300     PERFORM  PRINT-DETAIL.                                       
090400 COPY-TEST-114.                                                   
090500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
090600     MOVE     "COPY-TEST-114" TO PAR-NAME.                        
090700     PERFORM  PASS.                                               
090800     MOVE     SPACE TO COMPUTED-A.                                
090900     MOVE     SPACE TO CORRECT-A.                                 
091000     MOVE     SPACE TO RE-MARK.                                   
091100     PERFORM  PRINT-DETAIL.                                       
091200 COPY-TEST-115.                                                   
091300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
091400     MOVE     "COPY-TEST-115" TO PAR-NAME.                        
091500     PERFORM  PASS.                                               
091600     MOVE     SPACE TO COMPUTED-A.                                
091700     MOVE     SPACE TO CORRECT-A.                                 
091800     MOVE     SPACE TO RE-MARK.                                   
091900     PERFORM  PRINT-DETAIL.                                       
092000 COPY-TEST-116.                                                   
092100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
092200     MOVE     "COPY-TEST-116" TO PAR-NAME.                        
092300     PERFORM  PASS.                                               
092400     MOVE     SPACE TO COMPUTED-A.                                
092500     MOVE     SPACE TO CORRECT-A.                                 
092600     MOVE     SPACE TO RE-MARK.                                   
092700     PERFORM  PRINT-DETAIL.                                       
092800 COPY-TEST-117.                                                   
092900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
093000     MOVE     "COPY-TEST-117" TO PAR-NAME.                        
093100     PERFORM  PASS.                                               
093200     MOVE     SPACE TO COMPUTED-A.                                
093300     MOVE     SPACE TO CORRECT-A.                                 
093400     MOVE     SPACE TO RE-MARK.                                   
093500     PERFORM  PRINT-DETAIL.                                       
093600 COPY-TEST-118.                                                   
093700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
093800     MOVE     "COPY-TEST-118" TO PAR-NAME.                        
093900     PERFORM  PASS.                                               
094000     MOVE     SPACE TO COMPUTED-A.                                
094100     MOVE     SPACE TO CORRECT-A.                                 
094200     MOVE     SPACE TO RE-MARK.                                   
094300     PERFORM  PRINT-DETAIL.                                       
094400 COPY-TEST-119.                                                   
094500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
094600     MOVE     "COPY-TEST-119" TO PAR-NAME.                        
094700     PERFORM  PASS.                                               
094800     MOVE     SPACE TO COMPUTED-A.                                
094900     MOVE     SPACE TO CORRECT-A.                                 
095000     MOVE     SPACE TO RE-MARK.                                   
095100     PERFORM  PRINT-DETAIL.                                       
095200 COPY-TEST-120.                                                   
095300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
095400     MOVE     "COPY-TEST-120" TO PAR-NAME.                        
095500     PERFORM  PASS.                                               
095600     MOVE     SPACE TO COMPUTED-A.                                
095700     MOVE     SPACE TO CORRECT-A.                                 
095800     MOVE     SPACE TO RE-MARK.                                   
095900     PERFORM  PRINT-DETAIL.                                       
096000 COPY-TEST-121.                                                   
096100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
096200     MOVE     "COPY-TEST-121" TO PAR-NAME.                        
096300     PERFORM  PASS.                                               
096400     MOVE     SPACE TO COMPUTED-A.                                
096500     MOVE     SPACE TO CORRECT-A.                                 
096600     MOVE     SPACE TO RE-MARK.                                   
096700     PERFORM  PRINT-DETAIL.                                       
096800 COPY-TEST-122.                                                   
096900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
097000     MOVE     "COPY-TEST-122" TO PAR-NAME.                        
097100     PERFORM  PASS.                                               
097200     MOVE     SPACE TO COMPUTED-A.                                
097300     MOVE     SPACE TO CORRECT-A.                                 
097400     MOVE     SPACE TO RE-MARK.                                   
097500     PERFORM  PRINT-DETAIL.                                       
097600 COPY-TEST-123.                                                   
097700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
097800     MOVE     "COPY-TEST-123" TO PAR-NAME.                        
097900     PERFORM  PASS.                                               
098000     MOVE     SPACE TO COMPUTED-A.                                
098100     MOVE     SPACE TO CORRECT-A.                                 
098200     MOVE     SPACE TO RE-MARK.                                   
098300     PERFORM  PRINT-DETAIL.                                       
098400 COPY-TEST-124.                                                   
098500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
098600     MOVE     "COPY-TEST-124" TO PAR-NAME.                        
098700     PERFORM  PASS.                                               
098800     MOVE     SPACE TO COMPUTED-A.                                
098900     MOVE     SPACE TO CORRECT-A.                                 
099000     MOVE     SPACE TO RE-MARK.                                   
099100     PERFORM  PRINT-DETAIL.                                       
099200 COPY-TEST-125.                                                   
099300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
099400     MOVE     "COPY-TEST-125" TO PAR-NAME.                        
099500     PERFORM  PASS.                                               
099600     MOVE     SPACE TO COMPUTED-A.                                
099700     MOVE     SPACE TO CORRECT-A.                                 
099800     MOVE     SPACE TO RE-MARK.                                   
099900     PERFORM  PRINT-DETAIL.                                       
100000 COPY-TEST-126.                                                   
100100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
100200     MOVE     "COPY-TEST-126" TO PAR-NAME.                        
100300     PERFORM  PASS.                                               
100400     MOVE     SPACE TO COMPUTED-A.                                
100500     MOVE     SPACE TO CORRECT-A.                                 
100600     MOVE     SPACE TO RE-MARK.                                   
100700     PERFORM  PRINT-DETAIL.                                       
100800 COPY-TEST-127.                                                   
100900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
101000     MOVE     "COPY-TEST-127" TO PAR-NAME.                        
101100     PERFORM  PASS.                                               
101200     MOVE     SPACE TO COMPUTED-A.                                
101300     MOVE     SPACE TO CORRECT-A.                                 
101400     MOVE     SPACE TO RE-MARK.                                   
101500     PERFORM  PRINT-DETAIL.                                       
101600 COPY-TEST-128.                                                   
101700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
101800     MOVE     "COPY-TEST-128" TO PAR-NAME.                        
101900     PERFORM  PASS.                                               
102000     MOVE     SPACE TO COMPUTED-A.                                
102100     MOVE     SPACE TO CORRECT-A.                                 
102200     MOVE     SPACE TO RE-MARK.                                   
102300     PERFORM  PRINT-DETAIL.                                       
102400 COPY-TEST-129.                                                   
102500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
102600     MOVE     "COPY-TEST-129" TO PAR-NAME.                        
102700     PERFORM  PASS.                                               
102800     MOVE     SPACE TO COMPUTED-A.                                
102900     MOVE     SPACE TO CORRECT-A.                                 
103000     MOVE     SPACE TO RE-MARK.                                   
103100     PERFORM  PRINT-DETAIL.                                       
103200 COPY-TEST-130.                                                   
103300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
103400     MOVE     "COPY-TEST-130" TO PAR-NAME.                        
103500     PERFORM  PASS.                                               
103600     MOVE     SPACE TO COMPUTED-A.                                
103700     MOVE     SPACE TO CORRECT-A.                                 
103800     MOVE     SPACE TO RE-MARK.                                   
103900     PERFORM  PRINT-DETAIL.                                       
104000 COPY-TEST-131.                                                   
104100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
104200     MOVE     "COPY-TEST-131" TO PAR-NAME.                        
104300     PERFORM  PASS.                                               
104400     MOVE     SPACE TO COMPUTED-A.                                
104500     MOVE     SPACE TO CORRECT-A.                                 
104600     MOVE     SPACE TO RE-MARK.                                   
104700     PERFORM  PRINT-DETAIL.                                       
104800 COPY-TEST-132.                                                   
104900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
105000     MOVE     "COPY-TEST-132" TO PAR-NAME.                        
105100     PERFORM  PASS.                                               
105200     MOVE     SPACE TO COMPUTED-A.                                
105300     MOVE     SPACE TO CORRECT-A.                                 
105400     MOVE     SPACE TO RE-MARK.                                   
105500     PERFORM  PRINT-DETAIL.                                       
105600 COPY-TEST-133.                                                   
105700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
105800     MOVE     "COPY-TEST-133" TO PAR-NAME.                        
105900     PERFORM  PASS.                                               
106000     MOVE     SPACE TO COMPUTED-A.                                
106100     MOVE     SPACE TO CORRECT-A.                                 
106200     MOVE     SPACE TO RE-MARK.                                   
106300     PERFORM  PRINT-DETAIL.                                       
106400 COPY-TEST-134.                                                   
106500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
106600     MOVE     "COPY-TEST-134" TO PAR-NAME.                        
106700     PERFORM  PASS.                                               
106800     MOVE     SPACE TO COMPUTED-A.                                
106900     MOVE     SPACE TO CORRECT-A.                                 
107000     MOVE     SPACE TO RE-MARK.                                   
107100     PERFORM  PRINT-DETAIL.                                       
107200 COPY-TEST-135.                                                   
107300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
107400     MOVE     "COPY-TEST-135" TO PAR-NAME.                        
107500     PERFORM  PASS.                                               
107600     MOVE     SPACE TO COMPUTED-A.                                
107700     MOVE     SPACE TO CORRECT-A.                                 
107800     MOVE     SPACE TO RE-MARK.                                   
107900     PERFORM  PRINT-DETAIL.                                       
108000 COPY-TEST-136.                                                   
108100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
108200     MOVE     "COPY-TEST-136" TO PAR-NAME.                        
108300     PERFORM  PASS.                                               
108400     MOVE     SPACE TO COMPUTED-A.                                
108500     MOVE     SPACE TO CORRECT-A.                                 
108600     MOVE     SPACE TO RE-MARK.                                   
108700     PERFORM  PRINT-DETAIL.                                       
108800 COPY-TEST-137.                                                   
108900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
109000     MOVE     "COPY-TEST-137" TO PAR-NAME.                        
109100     PERFORM  PASS.                                               
109200     MOVE     SPACE TO COMPUTED-A.                                
109300     MOVE     SPACE TO CORRECT-A.                                 
109400     MOVE     SPACE TO RE-MARK.                                   
109500     PERFORM  PRINT-DETAIL.                                       
109600 COPY-TEST-138.                                                   
109700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
109800     MOVE     "COPY-TEST-138" TO PAR-NAME.                        
109900     PERFORM  PASS.                                               
110000     MOVE     SPACE TO COMPUTED-A.                                
110100     MOVE     SPACE TO CORRECT-A.                                 
110200     MOVE     SPACE TO RE-MARK.                                   
110300     PERFORM  PRINT-DETAIL.                                       
110400 COPY-TEST-139.                                                   
110500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
110600     MOVE     "COPY-TEST-139" TO PAR-NAME.                        
110700     PERFORM  PASS.                                               
110800     MOVE     SPACE TO COMPUTED-A.                                
110900     MOVE     SPACE TO CORRECT-A.                                 
111000     MOVE     SPACE TO RE-MARK.                                   
111100     PERFORM  PRINT-DETAIL.                                       
111200 COPY-TEST-140.                                                   
111300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
111400     MOVE     "COPY-TEST-140" TO PAR-NAME.                        
111500     PERFORM  PASS.                                               
111600     MOVE     SPACE TO COMPUTED-A.                                
111700     MOVE     SPACE TO CORRECT-A.                                 
111800     MOVE     SPACE TO RE-MARK.                                   
111900     PERFORM  PRINT-DETAIL.                                       
112000 COPY-TEST-141.                                                   
112100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
112200     MOVE     "COPY-TEST-141" TO PAR-NAME.                        
112300     PERFORM  PASS.                                               
112400     MOVE     SPACE TO COMPUTED-A.                                
112500     MOVE     SPACE TO CORRECT-A.                                 
112600     MOVE     SPACE TO RE-MARK.                                   
112700     PERFORM  PRINT-DETAIL.                                       
112800 COPY-TEST-142.                                                   
112900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
113000     MOVE     "COPY-TEST-142" TO PAR-NAME.                        
113100     PERFORM  PASS.                                               
113200     MOVE     SPACE TO COMPUTED-A.                                
113300     MOVE     SPACE TO CORRECT-A.                                 
113400     MOVE     SPACE TO RE-MARK.                                   
113500     PERFORM  PRINT-DETAIL.                                       
113600 COPY-TEST-143.                                                   
113700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
113800     MOVE     "COPY-TEST-143" TO PAR-NAME.                        
113900     PERFORM  PASS.                                               
114000     MOVE     SPACE TO COMPUTED-A.                                
114100     MOVE     SPACE TO CORRECT-A.                                 
114200     MOVE     SPACE TO RE-MARK.                                   
114300     PERFORM  PRINT-DETAIL.                                       
114400 COPY-TEST-144.                                                   
114500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
114600     MOVE     "COPY-TEST-144" TO PAR-NAME.                        
114700     PERFORM  PASS.                                               
114800     MOVE     SPACE TO COMPUTED-A.                                
114900     MOVE     SPACE TO CORRECT-A.                                 
115000     MOVE     SPACE TO RE-MARK.                                   
115100     PERFORM  PRINT-DETAIL.                                       
115200 COPY-TEST-145.                                                   
115300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
115400     MOVE     "COPY-TEST-145" TO PAR-NAME.                        
115500     PERFORM  PASS.                                               
115600     MOVE     SPACE TO COMPUTED-A.                                
115700     MOVE     SPACE TO CORRECT-A.                                 
115800     MOVE     SPACE TO RE-MARK.                                   
115900     PERFORM  PRINT-DETAIL.                                       
116000 COPY-TEST-146.                                                   
116100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
116200     MOVE     "COPY-TEST-146" TO PAR-NAME.                        
116300     PERFORM  PASS.                                               
116400     MOVE     SPACE TO COMPUTED-A.                                
116500     MOVE     SPACE TO CORRECT-A.                                 
116600     MOVE     SPACE TO RE-MARK.                                   
116700     PERFORM  PRINT-DETAIL.                                       
116800 COPY-TEST-147.                                                   
116900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
117000     MOVE     "COPY-TEST-147" TO PAR-NAME.                        
117100     PERFORM  PASS.                                               
117200     MOVE     SPACE TO COMPUTED-A.                                
117300     MOVE     SPACE TO CORRECT-A.                                 
117400     MOVE     SPACE TO RE-MARK.                                   
117500     PERFORM  PRINT-DETAIL.                                       
117600 COPY-TEST-148.                                                   
117700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
117800     MOVE     "COPY-TEST-148" TO PAR-NAME.                        
117900     PERFORM  PASS.                                               
118000     MOVE     SPACE TO COMPUTED-A.                                
118100     MOVE     SPACE TO CORRECT-A.                                 
118200     MOVE     SPACE TO RE-MARK.                                   
118300     PERFORM  PRINT-DETAIL.                                       
118400 COPY-TEST-149.                                                   
118500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
118600     MOVE     "COPY-TEST-149" TO PAR-NAME.                        
118700     PERFORM  PASS.                                               
118800     MOVE     SPACE TO COMPUTED-A.                                
118900     MOVE     SPACE TO CORRECT-A.                                 
119000     MOVE     SPACE TO RE-MARK.                                   
119100     PERFORM  PRINT-DETAIL.                                       
119200 COPY-TEST-150.                                                   
119300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
119400     MOVE     "COPY-TEST-150" TO PAR-NAME.                        
119500     PERFORM  PASS.                                               
119600     MOVE     SPACE TO COMPUTED-A.                                
119700     MOVE     SPACE TO CORRECT-A.                                 
119800     MOVE     SPACE TO RE-MARK.                                   
119900     PERFORM  PRINT-DETAIL.                                       
120000 COPY-TEST-151.                                                   
120100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
120200     MOVE     "COPY-TEST-151" TO PAR-NAME.                        
120300     PERFORM  PASS.                                               
120400     MOVE     SPACE TO COMPUTED-A.                                
120500     MOVE     SPACE TO CORRECT-A.                                 
120600     MOVE     SPACE TO RE-MARK.                                   
120700     PERFORM  PRINT-DETAIL.                                       
120800 COPY-TEST-152.                                                   
120900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
121000     MOVE     "COPY-TEST-152" TO PAR-NAME.                        
121100     PERFORM  PASS.                                               
121200     MOVE     SPACE TO COMPUTED-A.                                
121300     MOVE     SPACE TO CORRECT-A.                                 
121400     MOVE     SPACE TO RE-MARK.                                   
121500     PERFORM  PRINT-DETAIL.                                       
121600 COPY-TEST-153.                                                   
121700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
121800     MOVE     "COPY-TEST-153" TO PAR-NAME.                        
121900     PERFORM  PASS.                                               
122000     MOVE     SPACE TO COMPUTED-A.                                
122100     MOVE     SPACE TO CORRECT-A.                                 
122200     MOVE     SPACE TO RE-MARK.                                   
122300     PERFORM  PRINT-DETAIL.                                       
122400 COPY-TEST-154.                                                   
122500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
122600     MOVE     "COPY-TEST-154" TO PAR-NAME.                        
122700     PERFORM  PASS.                                               
122800     MOVE     SPACE TO COMPUTED-A.                                
122900     MOVE     SPACE TO CORRECT-A.                                 
123000     MOVE     SPACE TO RE-MARK.                                   
123100     PERFORM  PRINT-DETAIL.                                       
123200 COPY-TEST-155.                                                   
123300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
123400     MOVE     "COPY-TEST-155" TO PAR-NAME.                        
123500     PERFORM  PASS.                                               
123600     MOVE     SPACE TO COMPUTED-A.                                
123700     MOVE     SPACE TO CORRECT-A.                                 
123800     MOVE     SPACE TO RE-MARK.                                   
123900     PERFORM  PRINT-DETAIL.                                       
124000 COPY-TEST-156.                                                   
124100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
124200     MOVE     "COPY-TEST-156" TO PAR-NAME.                        
124300     PERFORM  PASS.                                               
124400     MOVE     SPACE TO COMPUTED-A.                                
124500     MOVE     SPACE TO CORRECT-A.                                 
124600     MOVE     SPACE TO RE-MARK.                                   
124700     PERFORM  PRINT-DETAIL.                                       
124800 COPY-TEST-157.                                                   
124900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
125000     MOVE     "COPY-TEST-157" TO PAR-NAME.                        
125100     PERFORM  PASS.                                               
125200     MOVE     SPACE TO COMPUTED-A.                                
125300     MOVE     SPACE TO CORRECT-A.                                 
125400     MOVE     SPACE TO RE-MARK.                                   
125500     PERFORM  PRINT-DETAIL.                                       
125600 COPY-TEST-158.                                                   
125700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
125800     MOVE     "COPY-TEST-158" TO PAR-NAME.                        
125900     PERFORM  PASS.                                               
126000     MOVE     SPACE TO COMPUTED-A.                                
126100     MOVE     SPACE TO CORRECT-A.                                 
126200     MOVE     SPACE TO RE-MARK.                                   
126300     PERFORM  PRINT-DETAIL.                                       
126400 COPY-TEST-159.                                                   
126500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
126600     MOVE     "COPY-TEST-159" TO PAR-NAME.                        
126700     PERFORM  PASS.                                               
126800     MOVE     SPACE TO COMPUTED-A.                                
126900     MOVE     SPACE TO CORRECT-A.                                 
127000     MOVE     SPACE TO RE-MARK.                                   
127100     PERFORM  PRINT-DETAIL.                                       
127200 COPY-TEST-160.                                                   
127300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
127400     MOVE     "COPY-TEST-160" TO PAR-NAME.                        
127500     PERFORM  PASS.                                               
127600     MOVE     SPACE TO COMPUTED-A.                                
127700     MOVE     SPACE TO CORRECT-A.                                 
127800     MOVE     SPACE TO RE-MARK.                                   
127900     PERFORM  PRINT-DETAIL.                                       
128000 COPY-TEST-161.                                                   
128100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
128200     MOVE     "COPY-TEST-161" TO PAR-NAME.                        
128300     PERFORM  PASS.                                               
128400     MOVE     SPACE TO COMPUTED-A.                                
128500     MOVE     SPACE TO CORRECT-A.                                 
128600     MOVE     SPACE TO RE-MARK.                                   
128700     PERFORM  PRINT-DETAIL.                                       
128800 COPY-TEST-162.                                                   
128900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
129000     MOVE     "COPY-TEST-162" TO PAR-NAME.                        
129100     PERFORM  PASS.                                               
129200     MOVE     SPACE TO COMPUTED-A.                                
129300     MOVE     SPACE TO CORRECT-A.                                 
129400     MOVE     SPACE TO RE-MARK.                                   
129500     PERFORM  PRINT-DETAIL.                                       
129600 COPY-TEST-163.                                                   
129700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
129800     MOVE     "COPY-TEST-163" TO PAR-NAME.                        
129900     PERFORM  PASS.                                               
130000     MOVE     SPACE TO COMPUTED-A.                                
130100     MOVE     SPACE TO CORRECT-A.                                 
130200     MOVE     SPACE TO RE-MARK.                                   
130300     PERFORM  PRINT-DETAIL.                                       
130400 COPY-TEST-164.                                                   
130500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
130600     MOVE     "COPY-TEST-164" TO PAR-NAME.                        
130700     PERFORM  PASS.                                               
130800     MOVE     SPACE TO COMPUTED-A.                                
130900     MOVE     SPACE TO CORRECT-A.                                 
131000     MOVE     SPACE TO RE-MARK.                                   
131100     PERFORM  PRINT-DETAIL.                                       
131200 COPY-TEST-165.                                                   
131300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
131400     MOVE     "COPY-TEST-165" TO PAR-NAME.                        
131500     PERFORM  PASS.                                               
131600     MOVE     SPACE TO COMPUTED-A.                                
131700     MOVE     SPACE TO CORRECT-A.                                 
131800     MOVE     SPACE TO RE-MARK.                                   
131900     PERFORM  PRINT-DETAIL.                                       
132000 COPY-TEST-166.                                                   
132100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
132200     MOVE     "COPY-TEST-166" TO PAR-NAME.                        
132300     PERFORM  PASS.                                               
132400     MOVE     SPACE TO COMPUTED-A.                                
132500     MOVE     SPACE TO CORRECT-A.                                 
132600     MOVE     SPACE TO RE-MARK.                                   
132700     PERFORM  PRINT-DETAIL.                                       
132800 COPY-TEST-167.                                                   
132900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
133000     MOVE     "COPY-TEST-167" TO PAR-NAME.                        
133100     PERFORM  PASS.                                               
133200     MOVE     SPACE TO COMPUTED-A.                                
133300     MOVE     SPACE TO CORRECT-A.                                 
133400     MOVE     SPACE TO RE-MARK.                                   
133500     PERFORM  PRINT-DETAIL.                                       
133600 COPY-TEST-168.                                                   
133700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
133800     MOVE     "COPY-TEST-168" TO PAR-NAME.                        
133900     PERFORM  PASS.                                               
134000     MOVE     SPACE TO COMPUTED-A.                                
134100     MOVE     SPACE TO CORRECT-A.                                 
134200     MOVE     SPACE TO RE-MARK.                                   
134300     PERFORM  PRINT-DETAIL.                                       
134400 COPY-TEST-169.                                                   
134500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
134600     MOVE     "COPY-TEST-169" TO PAR-NAME.                        
134700     PERFORM  PASS.                                               
134800     MOVE     SPACE TO COMPUTED-A.                                
134900     MOVE     SPACE TO CORRECT-A.                                 
135000     MOVE     SPACE TO RE-MARK.                                   
135100     PERFORM  PRINT-DETAIL.                                       
135200 COPY-TEST-170.                                                   
135300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
135400     MOVE     "COPY-TEST-170" TO PAR-NAME.                        
135500     PERFORM  PASS.                                               
135600     MOVE     SPACE TO COMPUTED-A.                                
135700     MOVE     SPACE TO CORRECT-A.                                 
135800     MOVE     SPACE TO RE-MARK.                                   
135900     PERFORM  PRINT-DETAIL.                                       
136000 COPY-TEST-171.                                                   
136100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
136200     MOVE     "COPY-TEST-171" TO PAR-NAME.                        
136300     PERFORM  PASS.                                               
136400     MOVE     SPACE TO COMPUTED-A.                                
136500     MOVE     SPACE TO CORRECT-A.                                 
136600     MOVE     SPACE TO RE-MARK.                                   
136700     PERFORM  PRINT-DETAIL.                                       
136800 COPY-TEST-172.                                                   
136900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
137000     MOVE     "COPY-TEST-172" TO PAR-NAME.                        
137100     PERFORM  PASS.                                               
137200     MOVE     SPACE TO COMPUTED-A.                                
137300     MOVE     SPACE TO CORRECT-A.                                 
137400     MOVE     SPACE TO RE-MARK.                                   
137500     PERFORM  PRINT-DETAIL.                                       
137600 COPY-TEST-173.                                                   
137700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
137800     MOVE     "COPY-TEST-173" TO PAR-NAME.                        
137900     PERFORM  PASS.                                               
138000     MOVE     SPACE TO COMPUTED-A.                                
138100     MOVE     SPACE TO CORRECT-A.                                 
138200     MOVE     SPACE TO RE-MARK.                                   
138300     PERFORM  PRINT-DETAIL.                                       
138400 COPY-TEST-174.                                                   
138500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
138600     MOVE     "COPY-TEST-174" TO PAR-NAME.                        
138700     PERFORM  PASS.                                               
138800     MOVE     SPACE TO COMPUTED-A.                                
138900     MOVE     SPACE TO CORRECT-A.                                 
139000     MOVE     SPACE TO RE-MARK.                                   
139100     PERFORM  PRINT-DETAIL.                                       
139200 COPY-TEST-175.                                                   
139300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
139400     MOVE     "COPY-TEST-175" TO PAR-NAME.                        
139500     PERFORM  PASS.                                               
139600     MOVE     SPACE TO COMPUTED-A.                                
139700     MOVE     SPACE TO CORRECT-A.                                 
139800     MOVE     SPACE TO RE-MARK.                                   
139900     PERFORM  PRINT-DETAIL.                                       
140000 COPY-TEST-176.                                                   
140100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
140200     MOVE     "COPY-TEST-176" TO PAR-NAME.                        
140300     PERFORM  PASS.                                               
140400     MOVE     SPACE TO COMPUTED-A.                                
140500     MOVE     SPACE TO CORRECT-A.                                 
140600     MOVE     SPACE TO RE-MARK.                                   
140700     PERFORM  PRINT-DETAIL.                                       
140800 COPY-TEST-177.                                                   
140900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
141000     MOVE     "COPY-TEST-177" TO PAR-NAME.                        
141100     PERFORM  PASS.                                               
141200     MOVE     SPACE TO COMPUTED-A.                                
141300     MOVE     SPACE TO CORRECT-A.                                 
141400     MOVE     SPACE TO RE-MARK.                                   
141500     PERFORM  PRINT-DETAIL.                                       
141600 COPY-TEST-178.                                                   
141700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
141800     MOVE     "COPY-TEST-178" TO PAR-NAME.                        
141900     PERFORM  PASS.                                               
142000     MOVE     SPACE TO COMPUTED-A.                                
142100     MOVE     SPACE TO CORRECT-A.                                 
142200     MOVE     SPACE TO RE-MARK.                                   
142300     PERFORM  PRINT-DETAIL.                                       
142400 COPY-TEST-179.                                                   
142500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
142600     MOVE     "COPY-TEST-179" TO PAR-NAME.                        
142700     PERFORM  PASS.                                               
142800     MOVE     SPACE TO COMPUTED-A.                                
142900     MOVE     SPACE TO CORRECT-A.                                 
143000     MOVE     SPACE TO RE-MARK.                                   
143100     PERFORM  PRINT-DETAIL.                                       
143200 COPY-TEST-180.                                                   
143300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
143400     MOVE     "COPY-TEST-180" TO PAR-NAME.                        
143500     PERFORM  PASS.                                               
143600     MOVE     SPACE TO COMPUTED-A.                                
143700     MOVE     SPACE TO CORRECT-A.                                 
143800     MOVE     SPACE TO RE-MARK.                                   
143900     PERFORM  PRINT-DETAIL.                                       
144000 COPY-TEST-181.                                                   
144100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
144200     MOVE     "COPY-TEST-181" TO PAR-NAME.                        
144300     PERFORM  PASS.                                               
144400     MOVE     SPACE TO COMPUTED-A.                                
144500     MOVE     SPACE TO CORRECT-A.                                 
144600     MOVE     SPACE TO RE-MARK.                                   
144700     PERFORM  PRINT-DETAIL.                                       
144800 COPY-TEST-182.                                                   
144900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
145000     MOVE     "COPY-TEST-182" TO PAR-NAME.                        
145100     PERFORM  PASS.                                               
145200     MOVE     SPACE TO COMPUTED-A.                                
145300     MOVE     SPACE TO CORRECT-A.                                 
145400     MOVE     SPACE TO RE-MARK.                                   
145500     PERFORM  PRINT-DETAIL.                                       
145600 COPY-TEST-183.                                                   
145700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
145800     MOVE     "COPY-TEST-183" TO PAR-NAME.                        
145900     PERFORM  PASS.                                               
146000     MOVE     SPACE TO COMPUTED-A.                                
146100     MOVE     SPACE TO CORRECT-A.                                 
146200     MOVE     SPACE TO RE-MARK.                                   
146300     PERFORM  PRINT-DETAIL.                                       
146400 COPY-TEST-184.                                                   
146500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
146600     MOVE     "COPY-TEST-184" TO PAR-NAME.                        
146700     PERFORM  PASS.                                               
146800     MOVE     SPACE TO COMPUTED-A.                                
146900     MOVE     SPACE TO CORRECT-A.                                 
147000     MOVE     SPACE TO RE-MARK.                                   
147100     PERFORM  PRINT-DETAIL.                                       
147200 COPY-TEST-185.                                                   
147300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
147400     MOVE     "COPY-TEST-185" TO PAR-NAME.                        
147500     PERFORM  PASS.                                               
147600     MOVE     SPACE TO COMPUTED-A.                                
147700     MOVE     SPACE TO CORRECT-A.                                 
147800     MOVE     SPACE TO RE-MARK.                                   
147900     PERFORM  PRINT-DETAIL.                                       
148000 COPY-TEST-186.                                                   
148100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
148200     MOVE     "COPY-TEST-186" TO PAR-NAME.                        
148300     PERFORM  PASS.                                               
148400     MOVE     SPACE TO COMPUTED-A.                                
148500     MOVE     SPACE TO CORRECT-A.                                 
148600     MOVE     SPACE TO RE-MARK.                                   
148700     PERFORM  PRINT-DETAIL.                                       
148800 COPY-TEST-187.                                                   
148900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
149000     MOVE     "COPY-TEST-187" TO PAR-NAME.                        
149100     PERFORM  PASS.                                               
149200     MOVE     SPACE TO COMPUTED-A.                                
149300     MOVE     SPACE TO CORRECT-A.                                 
149400     MOVE     SPACE TO RE-MARK.                                   
149500     PERFORM  PRINT-DETAIL.                                       
149600 COPY-TEST-188.                                                   
149700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
149800     MOVE     "COPY-TEST-188" TO PAR-NAME.                        
149900     PERFORM  PASS.                                               
150000     MOVE     SPACE TO COMPUTED-A.                                
150100     MOVE     SPACE TO CORRECT-A.                                 
150200     MOVE     SPACE TO RE-MARK.                                   
150300     PERFORM  PRINT-DETAIL.                                       
150400 COPY-TEST-189.                                                   
150500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
150600     MOVE     "COPY-TEST-189" TO PAR-NAME.                        
150700     PERFORM  PASS.                                               
150800     MOVE     SPACE TO COMPUTED-A.                                
150900     MOVE     SPACE TO CORRECT-A.                                 
151000     MOVE     SPACE TO RE-MARK.                                   
151100     PERFORM  PRINT-DETAIL.                                       
151200 COPY-TEST-190.                                                   
151300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
151400     MOVE     "COPY-TEST-190" TO PAR-NAME.                        
151500     PERFORM  PASS.                                               
151600     MOVE     SPACE TO COMPUTED-A.                                
151700     MOVE     SPACE TO CORRECT-A.                                 
151800     MOVE     SPACE TO RE-MARK.                                   
151900     PERFORM  PRINT-DETAIL.                                       
152000 COPY-TEST-191.                                                   
152100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
152200     MOVE     "COPY-TEST-191" TO PAR-NAME.                        
152300     PERFORM  PASS.                                               
152400     MOVE     SPACE TO COMPUTED-A.                                
152500     MOVE     SPACE TO CORRECT-A.                                 
152600     MOVE     SPACE TO RE-MARK.                                   
152700     PERFORM  PRINT-DETAIL.                                       
152800 COPY-TEST-192.                                                   
152900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
153000     MOVE     "COPY-TEST-192" TO PAR-NAME.                        
153100     PERFORM  PASS.                                               
153200     MOVE     SPACE TO COMPUTED-A.                                
153300     MOVE     SPACE TO CORRECT-A.                                 
153400     MOVE     SPACE TO RE-MARK.                                   
153500     PERFORM  PRINT-DETAIL.                                       
153600 COPY-TEST-193.                                                   
153700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
153800     MOVE     "COPY-TEST-193" TO PAR-NAME.                        
153900     PERFORM  PASS.                                               
154000     MOVE     SPACE TO COMPUTED-A.                                
154100     MOVE     SPACE TO CORRECT-A.                                 
154200     MOVE     SPACE TO RE-MARK.                                   
154300     PERFORM  PRINT-DETAIL.                                       
154400 COPY-TEST-194.                                                   
154500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
154600     MOVE     "COPY-TEST-194" TO PAR-NAME.                        
154700     PERFORM  PASS.                                               
154800     MOVE     SPACE TO COMPUTED-A.                                
154900     MOVE     SPACE TO CORRECT-A.                                 
155000     MOVE     SPACE TO RE-MARK.                                   
155100     PERFORM  PRINT-DETAIL.                                       
155200 COPY-TEST-195.                                                   
155300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
155400     MOVE     "COPY-TEST-195" TO PAR-NAME.                        
155500     PERFORM  PASS.                                               
155600     MOVE     SPACE TO COMPUTED-A.                                
155700     MOVE     SPACE TO CORRECT-A.                                 
155800     MOVE     SPACE TO RE-MARK.                                   
155900     PERFORM  PRINT-DETAIL.                                       
156000 COPY-TEST-196.                                                   
156100     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
156200     MOVE     "COPY-TEST-196" TO PAR-NAME.                        
156300     PERFORM  PASS.                                               
156400     MOVE     SPACE TO COMPUTED-A.                                
156500     MOVE     SPACE TO CORRECT-A.                                 
156600     MOVE     SPACE TO RE-MARK.                                   
156700     PERFORM  PRINT-DETAIL.                                       
156800 COPY-TEST-197.                                                   
156900     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
157000     MOVE     "COPY-TEST-197" TO PAR-NAME.                        
157100     PERFORM  PASS.                                               
157200     MOVE     SPACE TO COMPUTED-A.                                
157300     MOVE     SPACE TO CORRECT-A.                                 
157400     MOVE     SPACE TO RE-MARK.                                   
157500     PERFORM  PRINT-DETAIL.                                       
157600 COPY-TEST-198.                                                   
157700     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
157800     MOVE     "COPY-TEST-198" TO PAR-NAME.                        
157900     PERFORM  PASS.                                               
158000     MOVE     SPACE TO COMPUTED-A.                                
158100     MOVE     SPACE TO CORRECT-A.                                 
158200     MOVE     SPACE TO RE-MARK.                                   
158300     PERFORM  PRINT-DETAIL.                                       
158400 COPY-TEST-199.                                                   
158500     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
158600     MOVE     "COPY-TEST-199" TO PAR-NAME.                        
158700     PERFORM  PASS.                                               
158800     MOVE     SPACE TO COMPUTED-A.                                
158900     MOVE     SPACE TO CORRECT-A.                                 
159000     MOVE     SPACE TO RE-MARK.                                   
159100     PERFORM  PRINT-DETAIL.                                       
159200 COPY-TEST-200.                                                   
159300     MOVE     "1600-CARD LIBRARY" TO FEATURE.                     
159400     MOVE     "COPY-TEST-200" TO PAR-NAME.                        
159500     PERFORM  PASS.                                               
159600     MOVE     SPACE TO COMPUTED-A.                                
159700     MOVE     SPACE TO CORRECT-A.                                 
159800     MOVE     SPACE TO RE-MARK.                                   
159900     PERFORM  PRINT-DETAIL.                                       

Messung V0.5 in Prozent
C=100 H=100 G=100

¤ Dauer der Verarbeitung: 0.46 Sekunden  (vorverarbeitet am  2026-04-28) ¤

*© Formatika GbR, Deutschland




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.





                                                                                                                                                                                                                                                                                                                                                                                                     

Neuigkeiten

     Aktuelles
     Motto des Tages

Software

     Produkte
     Quellcodebibliothek

Aktivitäten

     Artikel über Sicherheit
     Anleitung zur Aktivierung von SSL

Muße

     Gedichte
     Musik
     Bilder
Jenseits des Üblichen ....

Besucherstatistik

Besucherstatistik

Monitoring

Montastic status badge