IBM 1130 PROGRAM TO PRINT BIG BANNERS ON 1132 PRINTER
I wrote this FORTRAN 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 FORTRAN 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