                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 019/019 ------           
       00267  0 50000 4 00001  I143  CLA 1,4          SUBSTITUTE CODING.                              F6S00520    
       00270  0 62200 0 00432        STD I302                                                         F6S00530    
       00271  0 77100 0 00022        ARS 18                                                           F6S00540    
       00272  0 40000 0 00432        ADD I302                                                         F6S00550    
       00273  0 62100 0 00305        STA I161                                                         F6S00560    
       00274  0 62100 0 00341        STA I211                                                         F6S00570    
       00275  0 40200 4 00001        SUB 1,4                                                          F6S00580    
       00276 -0 63400 4 00432        SXD I302,4                                                       F6S00590    
       00277  0 73400 4 00000        PAX 0,4                                                          F6S00600    
       00300 -0 63400 4 00301        SXD I155,4                                                       F6S00610    
       00301  3 00301 0 00000  I155  TXH 0,0,*                                                        F6S00620    
       00302  0 76600 0 00361        WPR             SELECT PRINTER                                   F6S00630    
       00303  0 50000 0 00431        CLA I301        FIND LAST NON-BLANK GROUP.                       F6S00640    
       00304 -0 53400 4 00354        LXD I224,4                                                       F6S00650    
       00305  0 34000 4 00305  I161  CAS *,4                                                          F6S00660    
       00306  1 77777 4 00311        TXI I165,4,-1                                                    F6S00670    
       00307  1 00001 4 00305  I163  TXI I161,4,1                                                     F6S00680    
       00310  1 77777 4 00311        TXI I165,4,-1                                                    F6S00690    
       00311 -0 63400 4 00360  I165  SXD I230,4      STORE END TEST.                                  F6S00700    
       00312 -0 63400 4 00372        SXD I242,4                                                       F6S00710    
       00313 -0 63400 4 00316        SXD I172,4                                                       F6S00720    
       00314 -0 63400 4 00421        SXD I271,4                                                       F6S00730    
       00315 -0 53400 4 00301        LXD I155,4                                                       F6S00740    
 D     00316 -2 00000 4 00322  I172  TNX I176,4                                                       F6S00750    
       00317 -3 00014 4 00321        TXL I175,4,12                                                    F6S00760    
       00320  0 76000 0 00370        SPR 8           FIRST CYCLE.                                     F6S00770    
       00321 -0 53400 4 00301  I175  LXD I155,4      INITIALIZE GROUP COUNT.                          F6S00780    
       00322  0 53400 2 00333  I176  LXA I203,2      INITIALIZE LEFT SETUP.                           F6S00790    
       00323 -0 53400 1 00375        LXD I245,1                                                       F6S00800    
       00324  0 50000 0 00162        CLA ONE                                                          F6S00810    
       00325  0 34000 0 00202        CAS SW4                                                          F6S00820    
       00326  0 02000 0 00331        TRA I201                                                         F6S00830    
       00327  0 02000 0 00332        TRA LIB5                                                         F6S00840    
       00330  0 76000 0 00164        SWT 4                                                            F6S00850    
       00331 -3 00331 0 00333  I201  TXL I203,0,*                                                     F6S00860    
       00332  0 76100 0 00000  LIB5  NOP                                                              F6S00870    
 T     00333 -0 75400 0 00000  I203  PXD                                                              F6S00880    
       00334  0 60200 1 00524  I204  SLW D41,1      CLEAR CARD IMAGE.                                 F6S00890    
       00335  0 60200 1 00504        SLW D21,1                                                        F6S00900    
       00336  2 00001 1 00334        TIX I204,1,1                                                     F6S00910    
       00337 -0 50000 0 00433  I207  CAL I303       INITIALIZE COLUMN INDICATOR.                      F6S00920    
       00340  0 60200 0 00000  I210  SLW 0                                                            F6S00930    
       00341  0 56000 4 00341  I211  LDQ *,4        OBTAIN GROUP.                                     F6S00940    
       00342 -0 63400 4 00331        SXD I201,4     STORE GROUP COUNT.                                F6S00950    
       00343  0 53400 4 00345        LXA I215,4     SET CHARACTER COUNT.                              F6S00960    
 T     00344 -0 75400 0 00000  I214  PXD                                                              F6S00970    
       00345 -0 76300 0 00006  I215  LGL 6                                                            F6S00980    
       00346  0 73400 1 00000        PAX 0,1                                                          F6S00990    
       00347 -0 50000 0 00000        CAL 0          POSITION COLUMN INDICATOR.                        F6S01000    
       00350  0 77100 4 00006        ARS 6,4                                                          F6S01010    
       00351  2 00020 1 00375        TIX I245,1,16  TEST FOR DIGIT.                                   F6S01020    
       00352  3 00017 1 00400        TXH I250,1,15  TEST FOR Y-Z ONE                                  F6S01030    
       00353 -0 60200 3 00521        ORS D36,3      STORE DIGIT.                                      F6S01040    
       00354  2 00001 4 00344  I224  TIX I214,4,1   COUNT CHARACTERS.                                 F6S01050    
