IBM 1130 PROGRAM TO PRINT BIG BANNERS ON 1132 PRINTER

I wrote this FORTRAM IV program for the IBM 1130 back in 1981. It was an real excersize to get it all to fit in the 8K word core memory I had. You really only had about 5.5K for your own code and data to work with. It can be run on the IBM 1130 simulator, however it much more impressive with a real 1132 printer. the simulator adds control-Ls at page breaks which ruins the look (I don't know if I had a special 1132 carriage control paper tape for not skiping to the next page or it's just the simulator demarcing the next page, that but my 1132 printed letters that crossed page bounries correctly. Also the simulated ones "eats" blank lines until the next page and just adds in a control-L making it look like the space character between words can be short or non-existant. Not sure what to do about that except put in extra spaces and edit out all control-Ls.
- Flip switch 0 up for 80 column paper (narrow), leave down for 120 column
- Flip switch 15 up for true batch processing of cards only.
Hard to do on the simulator as each new job resets the switches to down. Also since in 1981 people forgot to flip it up too, so I added in the & in interactive mode to then go to cards.

Run it and type a single & on the keyboard and it will print a test message.
120 column sample run output is here
80 column sample run output is here

zip file of the banner job
more info in how this data was packed as well as other IBM 1130 FORTRAM sample programs

// JOB T                                                                BANR0010
// FOR                                                                  BANR0020
*LIST ALL                                                               BANR0030
*IOCS(CARD,TYPEWRITER,KEYBOARD,1132 PRINTER)                            BANR0040
*ONE WORD INTEGERS                                                      BANR0050
C                                                                       BANR0060
C **********************************************************************BANR0070
C **** WARNING WARNING WARNING PROGRAM JUST BARELY FITS IN 8K CORE *****BANR0080
C **********************************************************************BANR0090
C                                                                       BANR0100
C *********************** BANNER PROGRAM *******************************BANR0110
C ALL CHARS ARE LOWER CASE UNLESS PRECEEDED BY A /                     *BANR0120
C FOR / USE // FOR EXCLAIM USE /1 FOR QUESTION MARK USE /9             *BANR0130
C FOR A COLON USE /. FULL CHAR SET IS                                  *BANR0140
C /1/9/// . /A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z       *BANR0150
C #@'*+,-.0123456789= ABCDEFGHIJKLMNOPQRSTUVWXYZ                       *BANR0160
C USE /* ANYWHERE IN INPUT TO DO PAGE EJECT AND START A NEW BANNER     *BANR0170
C FLIP SWITCH 0 UP TO PRINT NARROW 80 COL PAPER, LEAVE DOWN WIDE PAPER *BANR0180
C ENTER UP TO 72 CHARS OF INPUT PER LINE, CAN USE MULTIPLE LINES       *BANR0190
C A /(AMPER) IGNORES THE REST OF THE LINE, SPACES BEFORE WILL BE USED  *BANR0200
C BUT OTHER TRAILING SPACES ARE INSIGNIFICANT, PUT A SPACE AS FIRST    *BANR0210
C CHAR ON SUBSEQUENT LINES IF NEEDED. ENTER A BLANK LINE/CARD TO EXIT  *BANR0220
C FLIP SWITCH 15 UP BEFORE PROGRAM START TO JUST READ FROM CARDS OR    *BANR0230
C ENTER AN (AMPER) AS THE FIRST CHARACTER ON THE KYBOARD TO READ CARDS *BANR0240
C **********************************************************************BANR0250
C                                                                       BANR0260
C IF READING FROM CARDS REPLACE CARDS BANR6000-UP WITH YOUR MESSAGE     BANR0270
C AND DO NOT FORGET A FINAL BLANK CARD AT THE END                       BANR0280
C                                                                       BANR0290
C DATA() IS PACKED TWO SMALL NUMS PER INTEGER AND THEN                  BANR0300
C IS UNPACKED WITH EACH CHAR INTO BUF()                                 BANR0310
C                                                                       BANR0320
C NOTE - CANNOT QUOTE A QUOTE (32064), A COMMA (27456),                 BANR0330
C A NUM-SIGN (31552), AN AT-SIGN (31808), NOR AN                        BANR0340
C AMPERSAND (20544)                                                     BANR0350
C                                                                       BANR0360
C ''DATA'' IS TOO BIG, SO IT MUST READ IN FROM CARDS                    BANR0370
C                                                                       BANR0380
C BRIAN WALDEN MCMLXXXI                                                 BANR0390
C                                                                       BANR0395
      INTEGER DATA(4166),BUF(248),OFF                                   BANR0400
      INTEGER UCHAR(30),UOFF(30),LCHAR(46),LOFF(46)                     BANR0410
      INTEGER MSG(72),LINE(120),C,SLASH,SPACE,STAR,ANX,AMP              BANR0420
      EQUIVALENCE (UCHAR(1), LCHAR(18)), (SLASH, UCHAR(30))             BANR0430
      EQUIVALENCE (SPACE, LCHAR(1)), (STAR, LCHAR(4)), (ANX, UCHAR(24)) BANR0440
      EQUIVALENCE (MSG1, MSG(1))                                        BANR0450
      DATA AMP,IDEV/20544,6/                                            BANR0460
      DATA UCHAR/'A','B','C','D','E','F','G','H','I','J','K','L',       BANR0470
     +'M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','1',      BANR0480
     +'9','.','/'/                                                      BANR0490
      DATA UOFF/2331,2530,2658,2813,2913,2979,3032,3210,3243,3256,3354, BANR0500
     +3518,3549,3665,3779,3938,4017,4224,4411,4618,4667,4791,4923,5103, BANR0510
     +5315,5464,2,1978,1938,259/                                        BANR0520
      DATA LCHAR/' ',31552,32064,'*','+',27456,'-','0','2','3','4','5', BANR0530
     +'6','7','8','=',31808/                                            BANR0540
      DATA LOFF/1,47,68,97,197,206,235,355,532,749,927,1070,1258,1433,  BANR0550
     +1555,1973,2118,5708,5845,5934,6035,6126,6267,6349,6570,6640,6685, BANR0560
     +6768,6871,6882,6975,7045,7152,7241,7330,7390,7547,7606,7670,7765, BANR0570
     +7890,8044,8170,484,1763,238/                                      BANR0580
      READ(2,10) DATA                                                   BANR0590
10    FORMAT(10I7)                                                      BANR0600
      WRITE(3,20)                                                       BANR0610
20    FORMAT('1')                                                       BANR0620
      CALL DATSW(15,M)                                                  BANR0630
      GO TO(133, 30),M                                                  BANR0640
30    READ(2,40) MSG                                                    BANR0650
40    FORMAT(72A1)                                                      BANR0660
      IF(MSG1-AMP)100,50,100                                            BANR0670
50    WRITE(1,40) MSG                                                   BANR0680
      GO TO 30                                                          BANR0690
100   READ(IDEV, 40) MSG                                                BANR0710
      CALL DATSW(0, NARW)                                               BANR0720
      NUMC=0                                                            BANR0730
      DO 130 I=1,72                                                     BANR0740
      IF(MSG(I)-SPACE)120,130,120                                       BANR0750
120   NUMC=I                                                            BANR0760
130   CONTINUE                                                          BANR0770
      IF(NUMC)900,900,132                                               BANR0780
132   IF(MSG1-AMP)140,133,140                                           BANR0790
133   IDEV=2                                                            BANR0800
      GO TO 100                                                         BANR0810
140   DO 500 I=1,NUMC                                                   BANR0820
      C=MSG(I)                                                          BANR0830
      NXTC=1                                                            BANR0840
      IF(C-SLASH)165,150,165                                            BANR0850
150   I=I+1                                                             BANR0860
      C=MSG(I)                                                          BANR0870
      IF(C-AMP) 151, 100, 151                                           BANR0880
151   IF(C-STAR)155,152,155                                             BANR0890
152   WRITE(3, 20)                                                      BANR0900
      GO TO 500                                                         BANR0910
155   DO 160 J=1,30                                                     BANR0920
      IF(C-UCHAR(J))160,180,160                                         BANR0930
160   CONTINUE                                                          BANR0940
165   DO 170 J=1,48                                                     BANR0950
      IF(C-LCHAR(J))170,185,170                                         BANR0960
170   CONTINUE                                                          BANR0970
      WRITE(1, 175) C, I                                                BANR0980
175   FORMAT('CHAR ',A1,' COL',I2,' NOT IN SET')                        BANR0990
      OFF=1                                                             BANR1000
      GO TO 190                                                         BANR1010
180   OFF=UOFF(J)                                                       BANR1020
      GO TO 190                                                         BANR1030
185   OFF=LOFF(J)                                                       BANR1040
190   ISTRT=(OFF+1)/2                                                   BANR1050
      ISTOP=ISTRT+123                                                   BANR1060
      IF(ISTOP-4166)197,197,195                                         BANR1070
195   ISTOP=4166                                                        BANR1080
197   IDX=1                                                             BANR1090
      DO 220 J=ISTRT,ISTOP                                              BANR1100
      N=DATA(J)                                                         BANR1110
      M=0                                                               BANR1120
      IF(N)200,210,210                                                  BANR1130
200   M=128                                                             BANR1140
      N=-N                                                              BANR1150
210   C=N/256                                                           BANR1160
      BUF(IDX)=C+M                                                      BANR1170
      BUF(IDX+1)=N-C*256                                                BANR1180
220   IDX=IDX+2                                                         BANR1190
      IDX=1                                                             BANR1200
      M=1                                                               BANR1210
      IF(OFF-OFF/2*2)235,230,235                                        BANR1220
230   IDX=2                                                             BANR1230
235   DO 240 J=1,120                                                    BANR1240
240   LINE(J)=SPACE                                                     BANR1250
250   ISTRT=BUF(IDX)                                                    BANR1260
      IF(ISTRT-128)320,320,260                                          BANR1270
260   IF(ISTRT-192)280,280,270                                          BANR1280
270   N=ISTRT-192                                                       BANR1290
      NXTC=2                                                            BANR1300
      GO TO 285                                                         BANR1310
280   N=ISTRT-128                                                       BANR1320
285   DO 300 J=1,N                                                      BANR1330
      GO TO (286,289),NARW                                              BANR1340
286   IF(M/3*3-M)289,300,289                                            BANR1350
289   WRITE(3, 290) LINE                                                BANR1360
290   FORMAT(' ',120A1)                                                 BANR1370
300   M=M+1                                                             BANR1380
      IDX=IDX+1                                                         BANR1390
      GO TO (235, 310), NXTC                                            BANR1400
310   WRITE(3, 315)                                                     BANR1410
315   FORMAT('0')                                                       BANR1420
      GO TO 500                                                         BANR1430
320   ISTOP=ISTRT+BUF(IDX+1)                                            BANR1440
      IF(ISTOP-120)330,330,800                                          BANR1450
330   GO TO (335, 338), NARW                                            BANR1460
335   ISTRT=(ISTRT+1)*2/3                                               BANR1470
      ISTOP=(ISTOP+1)*2/3                                               BANR1480
338   DO 340 J=ISTRT,ISTOP                                              BANR1490
340   LINE(J)=ANX                                                       BANR1500
      IDX=IDX+2                                                         BANR1510
      IF(IDX-246)250,250,800                                            BANR1520
500   CONTINUE                                                          BANR1530
      GO TO 100                                                         BANR1540
800   WRITE(1, 810)                                                     BANR1550
810   FORMAT('BAD DATA')                                                BANR1560
900   CALL EXIT                                                         BANR1570
      END                                                               BANR1580
// XEQ                                                                  BANR1590
 -24865   1625   4993   7946  18728   -286   3135  13697   7438  13633  BANR1600
   -285   3636  17281   7438  13633   -286   3135  13697   7946  18728  BANR1610
   -289   1625   5057  22020  25604   -849   7299  22020  25604  -1361  BANR1620
   7299  22020  25604 -17262   1665  27658   -363   3201  27150   -352  BANR1630
    616   4225  25110   -357   4737  26638   -363   2497  20228   -591  BANR1640
   1153  17154  20228  23810   -321   1615   1115   1665  16903  20228  BANR1650
  22791   -324   1871   1111   1921  17926  20228  22022   -327   5249  BANR1660
  18704   -331   3201  15656   -843   3201  18704   -327   5249  17926  BANR1670
  20228  22022   -324   1871   1111   1921  16903  20228  22791   -321  BANR1680
   1615   1115   1665  17154  20228  23810   -335   1218  15108  -2856  BANR1690
  10883  15108 -19233   1665   7946   -286   3201   7438   -275    539  BANR1700
   4225   5398   -279   4993   6671   -286   2497  15108 -22561   1665  BANR1710
   7946   -286   3201   7438   -798   3201   7946   -289   1729   7428  BANR1720
   -285   1921   7434   -288   2689   8970   -294   2689  10506   -300  BANR1730
   2689  12042   -306   2689  13578   -312   2689  15114   -318   2689  BANR1740
  16650   -324   2689  18186   -330   2689  19722   -336   2689  21258  BANR1750
   -342   2689  22794   -348   2689  24330   -354   2689  25866   -360  BANR1760
   2689  27402   -366   2689  28935   -372   1217  15135   -308  11649  BANR1770
  12341   -301  15233  10817   -296  17793   9801   -292  19841   9039  BANR1780
   -290   3940   3969   8459  26891   -288   2412   2433   7943  28423  BANR1790
   -286   1649   1665   7685  29189   -285   1395   1409   7428  29700  BANR1800
  -1053   1395   1409   7685  29189   -286   1649   1665   7943  28423  BANR1810
   -288   2412   2433   8459  26891   -290   3940   3969   9039   -292  BANR1820
  19841   9801   -296  17793  10817   -301  15233  12341   -308  11649  BANR1830
  15135 -16669   1153   7428  25345   -285   1123    897   7428  25349  BANR1840
   -285  19585   7502   -285  20609   7506   -285  21377   7509   -285  BANR1850
  22401   7513   -285  23425   7428 -17437    897   7431   -285   2671  BANR1860
    385   7437  28418   -285   4207    897   7442  28165   -285   5486  BANR1870
   1665   7447  28422   -285   3630   2160   1665   7438  12296  28933  BANR1880
   -285   3634   2162   1409   7438  13320  29444   -285   3638   2163  BANR1890
   1409   7438  14089  29700   -285   3640   2420   1153   7438  14602  BANR1900
  29700   -285   3642   2676   1153   7438  15115  29700   -285   3644  BANR1910
   2931   1409   7438  15627  29445   -285   3646   3186   1665   7438  BANR1920
  16141  28935   -285   3648   3440   2177   7438  16399  28169   -285  BANR1930
   3649   4204   2945   7438  16913  27148   -285   3651   5222   4225  BANR1940
   7438  17457   -285   3653  12161   7438  17965   -285   3656  10881  BANR1950
   7439  18982   -288   3148   8833   8970  19998   -295   1617   6017  BANR1960
  11011  21775   -302    449   -293    897   9221  28161   -291   1902  BANR1970
    641   8713  27909   -289   2157   1665   8199  27656   -287   1901  BANR1980
   2177   7942  28423   -286   1648   1665   7685  28934   -285   1394  BANR1990
   1409   7429  29444   -285   1140   1155   7428  29700   -285   1102  BANR2000
    628   1153   7429  19716  29700   -285   1356   1651   1409   7430  BANR2010
  19208  29190   -285   1866   2929   1665   7432  18447  28424   -286  BANR2020
   2374   4973   2433   7691  17178  27148   -287   3392   3665   9345  BANR2030
   7952  15377  21026   -288  11347   8321   8490  21534   -290  10326  BANR2040
   7041   8998  22551   -293   8795   4481  10014  24075   -297   6785  BANR2050
  11284   -304   3009  12289   -304   1153  12294   -304   2177  12298  BANR2060
   -304   3201  12302   -304   4481  12307   -304   5505  12311   -304  BANR2070
   3648   2433  12302  16905   -304   3652   2433  12302  17930   -304  BANR2080
   3657   2433  12302  19209   -304   3661   2433  12302  20233   -304  BANR2090
   3665   2433  12302  21257   -285   1072   3669   2689   7428  12302  BANR2100
  22537   -285   1072   3674   2433   7428  12302  23561   -285  19073  BANR2110
   7500   -285  20097   7505   -285  21377   7509   -285  22401   7513  BANR2120
   -285  23425   7428  12302 -17444    385   8963  19459   -290   1357  BANR2130
   2945   8455  19733   -288   1870   7553   7943  20006   -287   1615  BANR2140
   1115   7553   7686  20229  25875   -286   1359   1642   3713   7684  BANR2150
  20485  27150   -285   1360   1642   3713   7428  20486  27150   -541  BANR2160
   1104   1898   3713   7428  20232  27150   -541   1359   2154   3713  BANR2170
   7429  19977  27150   -286   1358   2410   3713   7686  19722  27150  BANR2180
   -287   1611   2922   3713   7944  18701  27150   -288   2630   4202  BANR2190
   3713   8207  16915  27150   -289  13162   3713   8753  27150   -291  BANR2200
  12138   3713   9261  27150   -294  10602   3713  10277  27150   -299  BANR2210
   8298   3713  11801  28170   -306   4210   1665  30210 -16695  10113  BANR2220
  12849   -302  14721  11071   -297  17281  10055   -293  19329   9293  BANR2230
   -290  20865   8464  18693  25616   -288   2891   1386   2945   7945  BANR2240
  19461  27913   -287   1870   1135   1921   7686  20228  28934   -286  BANR2250
   1360   1138   1409   7429  20740  29445   -285   1105   1139   1409  BANR2260
   7428  20741  29700   -797   1361   1396   1153   7685  20486  29700  BANR2270
   -286   1615   1908   1153   7943  19976  29700   -287   2380   2419  BANR2280
   1409   8203  18955  29444   -289   4164   4210   1409   8753  28933  BANR2290
   -292  11888   1409   9516  28422   -295  10607   1409  10533  28675  BANR2300
   -299   8561    385  11803   -306   4545  26114   -358   1665  26377  BANR2310
   -360   3201  26895   -362   3719   7434  27150   -285   4458   3713  BANR2320
   7449  27150   -285   8042   3713   7461  27150   -285  10858   3713  BANR2330
   7470  27150   -285  12906   3713   7478  27150   -285  14954   3713  BANR2340
  14880  27150   -319   7786   3713  18711  27150   -336   4714   3713  BANR2350
  21776  27150   -346   3690   3713  24345   -355   5505  26385   -362  BANR2360
   3713  28170   -369   1921  29700   -375    449  12045   -299   5505  BANR2370
  10522   -295   7771   3201   9506  22292   -291   9557   6529   8743  BANR2380
  21277   -289   3390   3153   8577   8203  16905  20260   -287   2373  BANR2390
   1870   9857   7688  18222   -285   1865   5739   2945   7430  18963  BANR2400
  28169   -285   1354   4464   1921   7429  18704  28934   -285   1096  BANR2410
   4210   1665   7428  18192  29445   -285   1095   3956   1153   7428  BANR2420
  17936  29700   -285   1349   4212   1153   7429  17679  29700   -285  BANR2430
   1604   3955   1409   7431  17169  29189   -285   2370   4977   1665  BANR2440
   7434  16406  28678   -286   3134   7021   2433   7950  15125  21257  BANR2450
  26892   -288  12116   8321   8493  21790   -290  11095   6785   9000  BANR2460
  22806   -293   9308   4481  10016  24330   -297   7297  11031   -303  BANR2470
   4033  21009   -332   7041   8961  18721   -290    839   9601   8453  BANR2480
  17705   -288   1604  11393   8197  17198   -287   1346  12673   7685  BANR2490
  16657  25616   -286   1345   2923   2689   7428  16393  27913   -285  BANR2500
   1087   2159   1921   7428  16135  28934   -285   1087   1650   1409  BANR2510
   7428  16133  29445   -285   1087   1396   1155   7428  16388  29700  BANR2520
   -285   1344   1139   1409   7685  16644  29189   -286   1602   1137  BANR2530
   1665   7943  17156  28423   -287   2372   1389   2433   8203  17669  BANR2540
  27147   -289   4167   1380   4225   8785   -292  19841   9547   -295  BANR2550
  18305  10563   -299  16257  11833   -306  12673  14119 -16673   1609  BANR2560
   1665   7946  18186   -286   3142   3201   7438  17678   -798   3142  BANR2570
   3201   7946  18186   -289   1609   1729  13316  15876 -22626   1921  BANR2580
  24589   -351   4225  24338   -351   4993  24595   -354   1645   1921  BANR2590
  28422   -369   1409   8454  14341  29188   -287   2613   3187   1153  BANR2600
   7692  13328  29699   -285   3635   5236   1153   7438  13079  29700  BANR2610
   -285   3635   6516   1153   7692  13083  29700   -287   2612   2629  BANR2620
   2931   1409   8454  13829  18442  29190   -329   2929   1921  18956  BANR2630
  28425   -331   3437   2689  19472  26894   -333  10625  20262   -336  BANR2640
   9345  20770   -339   7809  21786   -343   5761  23310 -16694   3969  BANR2650
  12569   -302   8321  11277  17676   -298   2379   2689  10502  19976  BANR2660
   -296   1360   1921   9988  21254   -294   1082   3156   1665   9476  BANR2670
  13843  22021   -292   1076   5975   1153   8964  12808  17926  22532  BANR2680
   -291   1074   1608   1112   1153   8964  12550  18692  22787   -290  BANR2690
   1073   1354    857   1153   8708  12548  18948  22788   -802   1073  BANR2700
   1354   1113   1153   8964  12805  18948  22788   -291   1074   1610  BANR2710
   1113   1153   8964  13338  22788   -292   1077   6489   1153   9220  BANR2720
  13083  22787   -293   1075   1112   1153   9732  12804  22276   -295  BANR2730
   1073   1110   1409  10244  12548  21765   -297   1073   1108   1409  BANR2740
  10755  12548  20998   -299    562   1359   1921  11521  13062  19209  BANR2750
   -309   7297  14103   -315   4289   7428  -1053   1409   7432   -285  BANR2760
   3201   7440   -285   1060   3201   7428  10252   -285   1067   3457  BANR2770
   7428  12045   -307   3457  14092   -313   3713  14596  16140   -313  BANR2780
   1091   3201  14596  18188   -313   1098   3457  14596  19981   -313  BANR2790
   1106   3457  14596  22029   -313   1114   3201  14596  24076   -313  BANR2800
   1119   3969  14596  23574   -313   1112   7809  14596  21540   -313  BANR2810
   1104   9857  14596  19494   -313   1096   9857  14596  17701   -313  BANR2820
   1089   9601  14633   -313   9601  13606   -285   1073   9857   7428  BANR2830
  11558   -285   1065   9857   7428   9511   -285  11137   7463   -285  BANR2840
   9089   7455   -285   7041   7448   -285   5249   7440   -285   3201  BANR2850
   7432   -285   1409   7428 -17437   1140   1156   7515  -2333   1103  BANR2860
   1140   1162   7428  20229  29445   -285   1358   1651   1410   7430  BANR2870
  19720  29190   -286   1612   2418   1665   7687  19211  28934   -286  BANR2880
   2122   3695   2177   7944  18704  28169   -287   2376   4972   2689  BANR2890
   8202  17944  26893   -288   3395   3154   9089   8464  16143  21281  BANR2900
   -290  11092   8065   9001  21789   -292  10071   6529   9509  22805  BANR2910
   -295   8540   3969  10525  24329   -300   6273  12304 -16702   6529  BANR2920
  14373   -308  11649  12595   -302  14721  11325   -298  16769  10309  BANR2930
   -294  18817   9497  23317   -291   5472   4737   8722  25870   -289  BANR2940
   4201   2945   8206  27402   -287   3182   2177   7946  28678   -286  BANR2950
   2673   1665   7688  29189   -285   2163   1409   7431  29445   -285  BANR2960
   1652   1154   7429  29700   -798   1139   1409   7940  29444   -287  BANR2970
   1394   1409   8196  28933   -289   1135   1665   8708  27911   -292  BANR2980
   1130   2433   9732  26124   -296   1126   4737  10756  26130   -300  BANR2990
   1382   4737  12037  26130   -306    449   7428  29700  -1053  23433  BANR3000
   7428  29700  -1821   1395   1410   7430  29190   -542   1649   1665  BANR3010
   7687  28679   -287   1903   1921   7944  28168   -288   2412   2433  BANR3020
   8204  26892   -289   3431   3457   8719  25615   -291   4959   4993  BANR3030
   9240  22808   -294  18817  10055   -297  17281  11071   -301  15233  BANR3040
  12341   -307  12161  14119   -316   7617   7428  29700  -1053  23433  BANR3050
   7428  20228  29700  -3101   1102   1652   1153   7428  19466  29700  BANR3060
   -285   1096   4724   1156   7428  29700   -541   1395   1410   7431  BANR3070
  28935   -285   2160   2177   7435  27915   -285   4710   4804   7428  BANR3080
  29700  -1053  23433   7428  20228  29700  -1103   1140   1160  19974  BANR3090
  29700   -332   2676   1153  18450  29700  -1140   1154  29445   -625  BANR3100
   1921  28680   -365   2945  26130 -17470   6529  14373   -308  11649  BANR3110
  12595   -302  14721  11325   -298  16769  10309   -294  18817   9497  BANR3120
  23317   -291   5472   4737   8722  25870   -289   4201   2945   8206  BANR3130
  27402   -287   3182   2177   7946  28678   -286   2673   1665   7688  BANR3140
  29189   -285   2163   1409   7431  29445   -285   1652   1154   7429  BANR3150
  29700   -797   1354   1139   1409   7685  18948  29444   -286   1610  BANR3160
   1138   1409   7943  18948  28933   -287   2378   1135   1665   8203  BANR3170
  18948  27911   -289   3914   1130   2433   8748  26124   -291  11110  BANR3180
   4737   9513  26130   -294  10342   4737  10278  26130   -299   9089  BANR3190
  12063   -307   7041  15378 -16669   1140   1156   7515  -2333   1103  BANR3200
   1140   1156  20228  -3101   1103   1140   1156   7515  -2333   1140  BANR3210
   1220   7428  29700  -1053  23433   7428  29700 -17451   1921   9997  BANR3220
   -292   4481   8724   -289   5761   8215   -287   6273   7959   -286  BANR3230
   1576   3457   7685  10507   -285   1323   1921   7428  -1053   1410  BANR3240
   7685   -286   1652   1153   7688  29700   -287   2420   1153   8203  BANR3250
  29700   -289  22401   8790   -291  21889   9300   -293  21377  10065  BANR3260
   -297  20353  11340   -305  18305  29700 -17437   1140   1156   7515  BANR3270
  -2333   1099   2164   1153   7428  18445  29700   -285   1093   4724  BANR3280
   1153   7428  16919  29700   -320   6785  15647   -314   9089  14109  BANR3290
  22535   -308   7514   1921  12573  23559   -302   7518   1665   7428  BANR3300
  11293  24327   -285   1065   7521   1921   7428   9758  25350   -285  BANR3310
   1059   7780   1921   7457  26119  29700   -285   7784   1652   1153  BANR3320
   7451  26887  29700   -285   6507   1908   1153   7446  27915   -285  BANR3330
   4974   2689   7440  28680   -285   3442   1665   7435  29445   -285  BANR3340
   2164   1153   7429  29700   -285   1140   1154   7428 -16925   1140  BANR3350
   1156   7515  -2333   1140   1156   7428  -4125   1410   7431   -285  BANR3360
   2177   7435   -285   4804   7428  29700  -1053  23428   7428  26130  BANR3370
   -285   1120   6273   7428  23325   -285   1110   8833  20520   -331  BANR3380
  11649  17713   -320  12673  15153   -310  12673  12592   -299  12673  BANR3390
   9776   -288  12673   7471   -289   9601  10010   -301   4993  13075  BANR3400
   -313   4993  16147   -325   4993  19219   -337   4993   7428  22290  BANR3410
   -285   1117   4737   7428  25362   -285   1129   3969   7515  -2333  BANR3420
   1140   1220   7428  29700  -1053  23428   7428  27150   -285   1127  BANR3430
   4481   7428  25620   -285   1122   5761  24345   -348   7297  23068  BANR3440
   -343   7553  21533   -337   7553  19997   -331   7553  18717   -326  BANR3450
   7553  17181   -320   7553  15645   -315   7553  14365   -309   7553  BANR3460
  12829   -304   7297  11549   -298   7553  10013  29700   -292   7540  BANR3470
   1153   8733  29700   -287   7540   1153   7515  -1140   1220  15897  BANR3480
   -312   9601  13357   -305  13185  11833   -300  15745  10817   -296  BANR3490
  17793   9801   -293   5467   5505   8978  24594   -290   3685   3713  BANR3500
   8459  26891   -288   2667   2689   7944  28168   -287   1648   1665  BANR3510
   7686  28934   -286   1394   1409   7429  29445   -541   1140   1156  BANR3520
   7429  29445   -542   1394   1409   7686  28934   -287   1648   1665  BANR3530
   7944  28168   -288   2667   2689   8459  26891   -290   3685   3713  BANR3540
   8978  24594   -293   5467   5505   9801   -296  17793  10817   -300  BANR3550
  15745  11833   -305  13185  13357   -312   9601  15897 -16669   1140  BANR3560
   1156   7515  -2333   1103   1140   1156  20228  29700  -1615   1395  BANR3570
   1411  20230  29190   -592   1649   1665  20488  28424   -336   2414  BANR3580
   2433  20746  27658   -337   3433   3457  21027   -339   8577  21535  BANR3590
   -341   7553  22297   -345   5505  23567   -351   2497  15897   -312  BANR3600
   9601  13357   -305  13185  11833   -300  15745  10817   -296  17793  BANR3610
   9801   -293   5467   5505   8978  24594   -290   3685   3713   8459  BANR3620
  26891   -288   2667   2689   7944  28168   -287   1648   1665   7686  BANR3630
  28934   -286   1394   1409   7429  29445   -541   1062    628   1153  BANR3640
   7428   9988  29700   -285   1064   1396   1153   7428  10246  29700  BANR3650
   -285   1319   2163   1409   7429   9738  29445   -286   1317   2930  BANR3660
   1409   7698  28934   -287   4464   1665   7952  28168   -288   3947  BANR3670
   2689   8206  26891   -287   4453   3713   7703  24594   -286   7259  BANR3680
   5505   7506   -285  20609   7435  10817   -285   2604  15745   7688  BANR3690
  11833   -287   1585  13185   8197  13357   -290   1080   9601   9474  BANR3700
  15897 -16669   1140   1156   7515  -2333   1099   2164   1153   7428  BANR3710
  18443  29700   -285   1093   3700   1153   7428  16913  29700   -320  BANR3720
   4980   1153  15638  29700   -314   6516   1153  14108  29700   -308  BANR3730
   8052   1153  12578  29700   -302   7503   1395   1409   7428  11293  BANR3740
  20229  29445   -285   1065   7503   1395   1409   7428   9758  20230  BANR3750
  29190   -285   1059   7759   1650   1665   7457  20486  28934   -285  BANR3760
   7760   2159   2177   7451  20489  28169   -285   6481   2668   2689  BANR3770
   7446  20749  26893   -285   4946   9089   7440  21281   -285   3412  BANR3780
   8065   7435  21789   -285   2135   6529   7429  22805   -285   1116  BANR3790
   3969   7428  24329   -285   1218   7442   -541   4696   3969   7442  BANR3800
  21527   -289   2898   7041   8457  20511   -288   2126   9089   8198  BANR3810
  19728  26889   -287   1612   3948   1921   7941  19214  28166   -286  BANR3820
   1354   3696   1409   7684  18703  28933   -286   1097   3698   1153  BANR3830
   7428  18447  29444   -285   1096   3699   1153   7428  18446  29700  BANR3840
   -285   1095   3956   1154   7428  17935  29700   -541   1093   3956  BANR3850
   1153   7429  17679  29700   -285   1348   3955   1409   7430  17168  BANR3860
  29189   -286   1602   4209   1665   7687  16657  28678   -287   1855  BANR3870
   4718   2177   7944  15635  27657   -288   2363   5226   2689   8459  BANR3880
  14358  26125   -290  11110   4737   9001  26130   -293   9830   4737  BANR3890
   9763  26130   -296   8065  10779   -301   5761  12302 -16742   4740  BANR3900
  27915   -368   2177  28935   -371   1410  29700  -1053   1140   1156  BANR3910
   7515  -2333   1140   1156  29700  -1139   1410  28935   -368   2177  BANR3920
  27915   -358   4804  29700  -1079  16769  12615   -301  19329  11085  BANR3930
   -297  20353  10065   -293  21377   9045   -290  22145   8468  29700  BANR3940
   -288   4468   1153   7951  29700   -287   3444   1153   7692   -286  BANR3950
   2689   7689   -285   2433   7432   -541   1924   7686   -542   1921  BANR3960
   7942   -287   1921   8199   -289   1921   8712   -291   2420   1153  BANR3970
   9481  29700   -295   2676   1153  10508  29700   -299  19841  11595  BANR3980
   -305  18305  14145   -372   1220  29700  -1138   1665  27915   -360  BANR3990
   4225  25620   -351   6529  23325   -342   8833  21030   -333  11137  BANR4000
  18735   -325  10868   1153  16426  29700   -315  11124   1153  14122  BANR4010
   -306  10881  11563   -297  11137   9260   -288  11137   7466   -288  BANR4020
   8833   9497   -297   4225  11791   -307   3969  14351   -316   4225  BANR4030
  16656   -326   4225  19216   -335   4225  21520  29700   -345   4212  BANR4040
   1153  24080  29700   -355   5505  26640   -365   2945  28935   -372  BANR4050
   1220  29700  -1138   1665  27915   -360   4225  25620   -351   6529  BANR4060
  23325   -342   8833  21030   -333  11137  18735   -325  10868   1153  BANR4070
  16426  29700   -315  11124   1153  14122   -306  10881  11563   -297  BANR4080
  11137   9260   -288  11137   7466   -288   8833   9497   -297   4225  BANR4090
  11791   -307   3969  14351   -316   4225  16401   -315   7041  14116  BANR4100
   -306  10881  11563   -297  11137   9260   -288  11137   7466   -288  BANR4110
   8833   9497   -297   4225  11791   -307   3969  14351   -316   4225  BANR4120
  16656   -326   4225  19216   -335   4225  21520  29700   -345   4212  BANR4130
   1153  24080  29700   -355   5505  26640   -365   2945  28935   -372  BANR4140
   1220   7428  29700  -1053   1138   1665   7428  28425   -285   1644  BANR4150
   3201   7433  26895   -285   2918   4737   7438  25365   -285   1061  BANR4160
   2401   6017   7428   9994  24090   -285   1066   2395   7553  11529  BANR4170
  22560   -304   2133   7284   1153  12809  21020  29700   -309   2383  BANR4180
   7284   1153  14344  19484  29700   -314   2377   7297  15653   -319  BANR4190
   8577  16668   -318   7297  15132   -312   7297  13601   -306  10113  BANR4200
  12061  21001   -285   1068   7509   2433   7428  10525  22537   -285  BANR4210
   1062   7515   2177   7428   8989  23817   -285   8288   2433   7453  BANR4220
  25352  29700   -285   6758   2164   1153   7447  26633  29700   -285  BANR4230
   5227   3457   7442  28170   -285   3952   2177   7436  29445   -285  BANR4240
   2420   1153   7430  29700   -285   1140   1220  29700  -1137   1921  BANR4250
  28170   -363   3457  26640   -357   4993  25365   -351   6529  23580  BANR4260
   -345   8065  22050   -339   7796   1153   7428  20510  29700   -285  BANR4270
   1101   7796   1153   7428  18974  29700   -285   1095   7809   7493  BANR4280
   -285  17025   7487   -285  15489   7481   -285  13953   7475   -285  BANR4290
  12417   7475   -285   1096   3201   7428  19212   -285   1103   3201  BANR4300
   7428  21004   -342   3201  22796  29700   -349   2932   1153  24588  BANR4310
  29700   -356   3188   1153  26385   -363   3457  28170   -370   1665  BANR4320
  29700 -17949    358   4737   7428  26130   -285   1894   4737   7433  BANR4330
  26130   -285   3181   2945   7439  28680   -285   4721   1921   7445  BANR4340
  29445   -285   6259   1409   7451  29700   -285   7796   1153   7457  BANR4350
  29700   -285   1060   7284   1153   7428  10012  29700   -285   1065  BANR4360
   7540   1153   7428  11293  29700   -285   1071   7540   1153   7428  BANR4370
  12829  29700   -285   1077   7540   1153   7428  14365  29700   -285  BANR4380
   1082   7796   1153   7428  15646  29700   -285   1088   7796   1153  BANR4390
   7428  17182  29700   -285   1094   7796   1153   7428  18718  29700  BANR4400
   -285   1100   7796   1153   7428  20254  29700   -285   1106   7796  BANR4410
   1153   7428  21795   -285   1112   8321   7428  23070   -285   1117  BANR4420
   7041   7429  24600   -285   1379   5505   7431  26130   -285   2153  BANR4430
   3969   7435  27660   -285   4719   2433   7442  29190   -285   4724  BANR4440
   1153   7442  30465 -16681   2177   9488   -291   5249   8472  17925  BANR4450
   -288   6724   2689   7964  17165   -286   7747   3713   7689  13065  BANR4460
  17167   -285   2101   2116   3713   7431  13831  17924  19718   -285  BANR4470
   1591   1614   1409   7430  14086  20228   -542   1335   1359   1153  BANR4480
   7685  14085  19973   -287   1334   1357   1665   8197  13573  19463  BANR4490
   -289   1587   1609   2433   8752   -288  12673   7985   -286  12673  BANR4500
   7473   -285  12161   7469   -285  10625   7430   -285   1153   7427  BANR4510
   -285    705   7428  29700   -542  23176   9221  18181   -290   1353  BANR4520
   1409   8197  19205   -287   1356   1409   7685  19717   -286   1102  BANR4530
   1153   7429  19973   -797   1613   1665   7431  19463   -286   2122  BANR4540
   2177   7691  18187   -287   3906   3969   8240   -289  11905   8748  BANR4550
   -292  10369   9764   -297   7809  11542 -16687   4737  10780   -296  BANR4560
   8321   9764   -292  10369   8748   -289  11905   8205  17165   -287  BANR4570
   2376   2433   7943  18951   -286   1612   1665   7685  19717   -285  BANR4580
   1358   1409   7428  20228  -1310    846   1153   7684  19972   -287  BANR4590
    845   1153   7940  19206   -288   1097   1921   8452  18184   -290  BANR4600
   1351   1921   9221  18436   -294   1097    449  11542   -297   7809  BANR4610
   9764   -292  10369   8748   -289  11905   8240   -287   3906   3969  BANR4620
   7691  18187   -286   2122   2177   7431  19463   -285   1613   1665  BANR4630
   7429  19973   -798   1102   1153   7685  19717   -287   1356   1409  BANR4640
   8197  19205   -290   1353   1396   1153   9221  18181  29700   -285  BANR4650
  23432   7428 -16943   4737  10780   -296   8321   9764   -292  10369  BANR4660
   8748   -289  11905   8205  13828  17165   -287   2358   1096   2433  BANR4670
   7943  13828  18951   -286   1590   1100   1665   7685  13828  19717  BANR4680
   -285   1334   1102   1409   7428  13828  20228  -1053   1078   1102  BANR4690
   1409   7683  13828  19717   -286   1078   1100   1665   7939  13828  BANR4700
  18951   -287   1078   1096   2433   8196  13828  17165   -289   1078  BANR4710
   6529   8709  13848   -292   1334   5761   9732  13844   -310   4737  BANR4720
  13840   -310   3009  20228   -285   1103   1154   7502   -285  21121  BANR4730
   7509   -285  22401   7512   -285  22913   7514   -541   1103   1138  BANR4740
   1665   7428  20228  29700   -335   1128   1652   1153  20228  26122  BANR4750
  29445   -335   1125   4993  20228  25619   -356   4993  25618   -357  BANR4760
   4225  26124   -360   1729   2826  14859   -264   4150   4993   1556  BANR4770
  13335   -261   1814   1311   1586   7041    775   6160  12573   -258  BANR4780
   1562   4144   8065    262   6928  12065   -256   1562   4654   9089  BANR4790
      6   6687  17932   -256   1305   3883   2634   2177      5   6158  BANR4800
  11271  19463   -256   1304   3372   1358   1409      5   5902  11268  BANR4810
  20228   -256   1303   3372   1103   1153      5   5646  11268  20228  BANR4820
   -256   1302   3372   1103   1153      6   5389  11269  19973   -256  BANR4830
   1556   3628   1868   1921      7   5133  11528  18952   -256   2067  BANR4840
   3373   3142   3201     10   4367  11811   -257   7727   8577    541  BANR4850
  12320   -259   6961   8065   1049  12827  20226  21764   -262   5428  BANR4860
   5967    852   1665   2065  13843  20236   -267   3130   2896   2945  BANR4870
  20746   -339   1921  21764 -16669   1140   1154   7515  -2077   1095  BANR4880
   1409   7428  18693   -330   1409  19205   -331   1665  19462   -588  BANR4890
   1922  19208   -285   1098   2433   7428  18188   -285  13953   7477  BANR4900
   -541  13441   7475   -285  12673   7470   -285  10881   7428 -16925  BANR4910
   1103   1153   7428  20228  25350   -285  13921   2689   7478  24588  BANR4920
   -285  13919   3715   7478  24588   -285  13921   2689   7478  25350  BANR4930
   -285   1218   1542   -259   2945    525   -257   3713     15   -512  BANR4940
    773   2433      3   1542   -256    898      4   -256   1359   1153  BANR4950
      7  20228  25350   -257  21089   2689    593  24588   -259  20575  BANR4960
   3713   1103  24334   -262  19807   3713   2378  24588   -269  18017  BANR4970
   2689   4673  25350 -16669   1140   1154   7515  -2077   1080   2433  BANR4980
   7428  13836   -307   4481  12564   -303   6273  11547   -299   5444  BANR4990
   1665  10262  17670  20228   -285   1062   5447   1615   1153   7428  BANR5000
   8982  18443   -285   6730   2433   7447  19208   -285   5453   1665  BANR5010
   7443  19973   -285   4175   1153   7438  20228   -285   3201   7434  BANR5020
   -285   1921   7429   -285   1218   7428  29700   -541  23432   7428  BANR5030
 -16925   1103   1154   7478  -2077   1095   1409   7428  18693   -330  BANR5040
   1409  19205   -285   1098   1921   7428  18697   -285  13956   7477  BANR5050
   -285  13441   7475   -285  12417   7428  18181   -285   1097   1409  BANR5060
  18949   -331   1409   7428  18951   -285   1097   2433   7478  -1053  BANR5070
  13697   7476   -285  13185   7472   -285   1218   7428  20228   -541  BANR5080
  13960   7428  18181   -285   1097   1409  18949   -331   1409  19206  BANR5090
   -332   1666  19463   -587   2177   7428  18953   -285   1095   3201  BANR5100
   7478   -285  13698   7476   -285  13185   7473   -285  11905   7466  BANR5110
   -285   1218  12050   -298   7297  10272   -294   9345   9256   -290  BANR5120
  11393   8494   -288   3395   3457   7945  18441   -287   1866   1921  BANR5130
   7686  19462   -286   1357   1409   7429  19973   -285   1103   1156  BANR5140
   7429  19973   -542   1357   1409   7686  19462   -287   1866   1921  BANR5150
   7945  18441   -288   3395   3457   8494   -290  11393   9256   -294  BANR5160
   9345  10272   -298   7297  12050 -16640    847   1154     83  -2340  BANR5170
   1351   1409   8709  18693   -288   1355   1409   7941  19461   -286  BANR5180
   1357   1409   7684  19972   -285   1358   1411   7430  19718   -285  BANR5190
   1868   1921   7688  18952   -286   2887   2945   7951  16911   -288  BANR5200
  12417   8494   -290  11393   9256   -294   9345  10526   -301   5825  BANR5210
  11542   -297   7809   9764   -292  10369   8748   -289  11905   8240  BANR5220
   -287   3906   3969   7691  18187   -286   2122   2177   7431  19463  BANR5230
   -285   1613   1665   7429  19973   -798   1102   1153   7685  19717  BANR5240
   -287   1356   1409   8197  19205   -290   1353   1409   9221  18181  BANR5250
   -256  21384      3  20228 -16925   1103   1154   7478  -2077   1091  BANR5260
   1665   7428  17670   -326   1921  18183   -328   1921  18695   -329  BANR5270
   2177  18952   -580   3969  16913   -321   4737  16403   -576   4738  BANR5280
  16656   -322   3457  17416 -16669   3391   2177   7437  15374   -285  BANR5290
   3386   4737   7437  14358   -288   2103   6273   7943  13850   -287  BANR5300
   1589   7297   7686  13328  19462   -286   1332   3662   1153   7429  BANR5310
  13070  20228   -285   1331   3407   1153   7428  13069  20228   -285  BANR5320
   1075   3151   1153   7428  12813  20228   -541   1073   3406   1409  BANR5330
   7428  12557  19717   -285   1328   3660   1665   7684  12301  19206  BANR5340
   -286   1327   3658   1921   7941  11790  18440   -287   1580   4166  BANR5350
   3457   8219  17933   -289   6726   3457   8728  17933   -292   5249  BANR5360
   9744   -298   2497  20228   -808  14465   9276   -290  16001   8256  BANR5370
   -287  16769   7746   -285  17282   7435  20228   -285   2383   1153  BANR5380
   7432  20228   -286   1871   1153   7686   -287   1409   8197   -290  BANR5390
   1153   9475 -16719   1154  10538   -293  11905   8753   -288  13185  BANR5400
   7988   -286  13698   7478   -285   3201   7433   -285   2177   7431  BANR5410
   -542   1666   7942   -288   1409   8453   -290   1359   1153   9221  BANR5420
  20228   -285  13960   7428 -16975   1154  19463   -329   2689  17678  BANR5430
   -321   4737  15638   -314   6529  13853   -306   8577  11813   -299  BANR5440
   8271   1153  10016  20228   -291   8321   7969   -285   8065   8216  BANR5450
   -291   4481   9996   -299   3201  12044   -306   3457  13837   -314  BANR5460
   3407   1153  15885  20228   -322   4481  17933   -329   2689  19718  BANR5470
   -335   1219  20228   -588   1921  18698   -325   3713  16658   -317  BANR5480
   5761  14873   -310   7553  12833   -302   9601  11040  20228   -295  BANR5490
   8271   1153   8992   -287   8577   7455   -288   6273   8977   -295  BANR5500
   3201  11020   -302   3457  11028   -295   7297   8991   -287   8321  BANR5510
   7454   -288   6273   8977   -295   3201  11020   -303   3201  12813  BANR5520
   -310   3457  14861  20228   -318   3407   1153  16913   -326   3457  BANR5530
  18698   -333   1665  20228 -17181   1103   1154   7428  19973   -285  BANR5540
   1356   1921   7430  18698   -285   2119   3201   7435  17423   -285  BANR5550
   3394   4481   7428   9224  16148   -285   1062   2109   5761  10248  BANR5560
  14873   -298   2104   7041  11272  13846  20228   -302   6991   1153  BANR5570
  12311   -302   5761  11031   -297   5761   7428   9755   -285   1060  BANR5580
   8065   7451  15624   -285   6463   2177   7446  16648  20228   -285  BANR5590
   5187   2127   1153   7441  17672  20228   -285   3912   2945   7436  BANR5600
  18953   -285   2636   1921   7431  19973   -285   1359   1153   7428  BANR5610
  20228 -16899   1359   1153    265  20228   -256   2892   1921     12  BANR5620
  18698   -256   3141   3713     12  16658   -256   2877   5761    265  BANR5630
  14873   -259   2870   7553   1548  12833   -265   3118   9601   3340  BANR5640
  11040  20228   -272   3367   8271   1153   5133   8992   -280  10369  BANR5650
   7200   -288   6273   8977   -295   3201  11020   -303   3201  12813  BANR5660
   -310   3457  14861  20228   -318   3407   1153  16913   -326   3457  BANR5670
  18698   -333   1665  20228 -17181    326   3457   7427  17933   -285  BANR5680
   1606   3457   7433  18953   -285   2892   1921   7438  19973   -285  BANR5690
   4430   1409   7443  20228   -285   5711   1153   7449  20228   -285  BANR5700
   6991   1153   7428   8984  20228   -285   1061   6479   1153   7428  BANR5710
  10264  20228   -285   1067   6223   1153   7428  11545  20228   -285  BANR5720
   1072   6479   1153   7428  13080  20228   -285   1077   7809   7428  BANR5730
  14363   -285   1082   6529   7428  15638   -285   1088   4993   7429  BANR5740
  16913   -285   1349   3713   7431  18443   -285   2379   2177   7437  BANR5750
  19718   -285   3408    897   7437 -16640      0  -6463 -11324 -14891  BANR5760
&&&&&&&&&&&&&&&&&&&&&&&&& BANNER PROGRAM &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&BANR5770
& ALL CHARS ARE LOWER CASE UNLESS PRECEEDED BY A /                     &BANR5780
& FOR / USE // FOR EXCLAIM USE /1 FOR QUESTION MARK USE /9             &BANR5790
& FOR A COLON USE /. FULL CHAR SET IS                                  &BANR5800
& /1/9/// . /A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z       &BANR5810
& #@'*+,-.0123456789= ABCDEFGHIJKLMNOPQRSTUVWXYZ                       &BANR5820
& USE /* ANYWHERE IN INPUT TO DO PAGE EJECT AND START A NEW BANNER     &BANR5830
& FLIP SWITCH 0 UP TO PRINT NARROW 80 COL PAPER, LEAVE DOWN WIDE PAPER &BANR5840
& ENTER UP TO 72 CHARS OF INPUT PER LINE, CAN USE MULTIPLE LINES       &BANR5850
& A /& IGNORES THE REST OF THE LINE, SPACES BEFORE WILL BE USED        &BANR5860
& BUT OTHER TRAILING SPACES ARE INSIGNIFICANT, PUT A SPACE AS FIRST    &BANR5870
& CHAR ON SUBSEQUENT LINES IF NEEDED. ENTER A BLANK LINE/CARD TO EXIT  &BANR5880
& FLIP SWITCH 15 UP BEFORE PROGRAM START TO JUST READ FROM CARDS OR    &BANR5890
& ENTER AN & AS THE FIRST CHARACTER ON THE KEYBOARD TO THEN READ CARDS &BANR5900
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&BANR5910
/&    END OF WELCOME MESSAGE     DO NOT REMOVE THIS CARD                BANR5920
/THE /QUICK /BROWN /FOX /JUMPS /OVER /THE /LAZY /DOG                    BANR6000
/1/9///. /A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z           BANR6010
#@'*+,-./*0123456789= ABCDEFGHIJKLMNOPQRSTUVWXYZ/& REST OF LINE IGNORED BANR6020
/*/NEXT /ONE                                                            BANR6030
                                                                        BANR6040