|
>Does anyone have a copy of the BIGLETTERS RPG program that comes with >QUSRTOOLS? > >Thanks, >"Leland, David" <dleland@Harter.com> Dave, this isn't the program you remember, but it works quite well. I obtained a copy of the original code from John R Hock back in late 1983. I modified it for the System/38. The desired text is keyed into a source physical file member. The input file is overridden to the source member, then the program is called. Enter up to 18 characters per line. Type a 'C' in column 19 to center the line of text. Type as many lines as you want. --Paul E Musselman PaulMmn@ix.netcom.com > SOURCE FILE . . . . . . . PEMSRC/PEMPGMSRC > MEMBER . . . . . . . . . LTRSGN5X7 > > SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 >...+... 7 ...+... 8 ...+... 9 ...+... 0 > 100 >*************************************************************************** >07/29/83 > 200 F* > 300 F* PLEASE ACKNOWLEDGE THE AUTHOR IN ALL COPIES... >02/29/84 > 400 F* >02/29/84 > 500 F* JOHN R HOCK >02/29/84 > 600 F* COMPUTER CENTER >02/29/84 > 700 F* UNIVERSITY OF MISSOURI >02/29/84 > 800 F* ROLLA, MISSOURI 65401 >02/29/84 > 900 F* >02/29/84 > 1000 F* Well, he was there in 1984.... >10/20/98 > 1100 F* >10/20/98 > 1200 F* >10/20/98 > 1300 F* MODIFIED FOR SYSTEM/38 BY >02/29/84 > 1400 F* >02/29/84 > 1500 F* PAUL E MUSSELMAN >02/29/84 > 1600 F* PO Box 10 >10/20/98 > 1700 F* HIGHLAND HEIGHTS, KY 41076 >10/20/98 > 1800 F* >02/29/84 > 1900 F* >02/29/84 > 2000 F* Print text in expanded block letter form. Each character >02/29/84 > 2100 F* occupies 35 print positions in a 5 x 7 matrix. Up to 18 >02/29/84 > 2200 F* characters print per record. >02/29/84 > 2300 F* >02/29/84 > 2400 F* Text to be printed is entered using SEU; type TXT. >Positions 02/29/84 > 2500 F* 1-18 of each record are printed in expanded form. A 'C' >in 02/29/84 > 2600 F* positions 19 of the SEU source causes the text in 1-18 to >be 02/29/84 > 2700 F* centered across the page. >02/29/84 > 2800 F* >02/29/84 > 2900 F* >02/29/84 > 3000 F* The program calls QDCXLATE to force all input characters >to 02/29/84 > 3100 F* uppercase. The program does not print lower case >letters. 02/29/84 > 3200 F* >02/29/84 > 3300 F* A CL program must execute the following to print block >letters: 02/29/84 > 3400 F* >02/29/84 > 3500 F* OVRDBF FILE(DATA96) TOFILE(TXTSRCFIL.TXTLIB) + >02/29/84 > 3600 F* MBR(TXTMBR) >02/29/84 > 3700 F* CALL PGM(LTRSGN5X7) >02/29/84 > 3800 F* >02/29/84 > 3900 F* File QPRINT8 specifies *STD paper but at 8 lines per inch. >02/29/84 > 4000 F* >02/29/84 > 4100 >*************************************************************************** >07/29/83 > 4200 FDATA96 IP F 96 DISK >07/29/83 > 4300 FQPRINT8 O F 132 OF LPRINTER >09/20/83 > 4400 E LINE 18 1 INPUT >CHAR STRING > 4500 E TABCH 1 64 1 TAB5X7 35 >CONVERSION TABLE > 4600 E AREP 35 1 REP IN >ARRAY FORM > 4700 E PLIN 132 1 PRINT LINE > 4800 E PLN2 132 1 PRINT >LINE WORK > 4900 LQPRINT8 88FL 88OL >09/20/83 > 5000 IDATA96 AA 01 >07/29/83 > 5100 I 13 30 INLINE >09/26/83 > 5200 I 31 31 CNTRCD >07/29/83 > 5300 C* INITIALIZATIONS > 5400 C SETOF 81 1ST >TIME FLAG > 5500 C Z-ADD1 X 20 STRING >INDEX > 5600 C Z-ADD1 Y 20 REP INDEX > 5700 ** >09/26/83 > 5800 C* TRANSLATE TEXT TO UPPER CASE >09/26/83 > 5900 C Z-ADD18. N1 50 >09/26/83 > 6000 C MOVEL'QSYST' QSYSI 10 >03/20/86 > 6100 C MOVE 'RNTBL' QSYSI >03/20/86 > 6200 C MOVEL'QSYS 'QGPL 10 >03/20/86 > 6300 C* >09/26/83 > 6400 C CALL 'QDCXLATE' CHG TO >UPPRCASE 02/29/84 > 6500 C PARM N1 CHARS >TO XLATE 09/26/83 > 6600 C PARM INLINE FIELD >TO XLATE 09/26/83 > 6700 C PARM QSYSI >'QSYSIMAGE' 09/26/83 > 6800 C PARM QGPL 'QGPL' >09/26/83 > 6900 C* >09/26/83 > 7000 C MOVEAINLINE LINE >09/26/83 > 7100 ** >09/26/83 > 7200 C* ITERATIONS TO BUILD A PRINT LINE > 7300 C NLINE TAG >07/29/83 > 7400 C LINE,X LOKUPTABCH TAB5X7 90 TRANSLATE > 7500 C MOVEATAB5X7 AREP MAKE ARRAY > 7600 C X MULT 7 Z 30 7 >SPACES/CHAR > 7700 C Z SUB 3 Z CENTER >ADJUST > 7800 C MOVEAAREP,Y WORK01 5 TAKE 5 >FLAGS > 7900 C MOVEAWORK01 PLIN,Z PUT IN >OUTPUT BUFFER > 8000 C X ADD 1 X CHARS/LINE > 8100 C X COMP 18 90 CHECK >IF DONE > 8200 C N90 GOTO NLINE >07/29/83 > 8300 C* > 8400 C* > 8500 C* PRINT A LINE > 8600 C SETOF 02 >10/20/98 > 8700 C CNTRCD COMP 'C' 02 >'CENTER' CODE > 8800 C N02 CNTRCD COMP 'c' 02 >'CENTER' CODE 10/20/98 > 8900 C 02 EXSR CENTER > 9000 C EXSR STRIP STRIP @'S > 9100 C MOVE 'Z' WORK 1 1ST >OVERPRINT > 9200 C EXSR OUT > 9300 C EXCPT > 9400 C MOVE 'N' WORK 1 2ND >OVERPRINT > 9500 C EXSR OUT > 9600 C EXCPT > 9700 C MOVE 'A' WORK 1 3RD >OVERPRINT > 9800 C EXSR OUT > 9900 C EXCPT > 10000 C MOVE 'V' WORK 1 4TH >OVERPRINT > 10100 C EXSR OUT > 10200 C SETON 80 >ADVANCE PAPER > 10300 C EXCPT > 10400 C SETOF 80 > 10500 C* > 10600 C* > 10700 C Z-ADD1 X > 10800 C Y ADD 5 Y BUMP TO >NEXT SEG > 10900 C Y COMP 35 90 LAST >SEGMENT > 11000 C N90 GOTO NLINE NEXT >SEGMENT 07/29/83 > 11100 C* > 11200 C* > 11300 CSR OUT BEGSR > 11400 C* THIS ROUTINE CONVERTS NON-BLANK BYTES IN ARRAY 'PLIN' TO > 11500 C* SELECTED OUTPUT CHARACTERS AS FOUND IN FIELD 'WORK'. > 11600 CSR Z-ADD132 C 30 > 11700 CSR LOOP TAG > 11800 CSR PLIN,C COMP ' ' 70 > 11900 CSRN70 MOVE WORK PLIN,C > 12000 CSR C SUB 1 C 70 > 12100 CSRN70 GOTO LOOP > 12200 CSR ENDSR > 12300 C* > 12400 C* > 12500 C* > 12600 CSR CENTER BEGSR CENTER >A LINE > 12700 C* THIS PROCEDURE CENTERS THE PRINT LINE > 12800 CSR 81 GOTO CENT02 > 12900 CSR Z-ADD1 C START >BLANK COUNT > 13000 CSR LEFTBB TAG COUNT >LEFT BLANKS > 13100 CSR PLIN,C COMP ' ' 90 > 13200 CSR 90 C COMP 132 90 > 13300 CSR 90 1 ADD C C > 13400 CSR 90 GOTO LEFTBB > 13500 CSR Z-ADDC S 20 SAVE >START POSITION > 13600 CSR Z-ADD132 D 30 > 13700 CSR RIGHTB TAG COUNT >RIGHT BLANKS > 13800 CSR PLIN,D COMP ' ' 90 > 13900 CSR 90 D COMP 1 90 > 14000 CSR 90 D SUB 1 D > 14100 CSR 90 C ADD 1 C > 14200 CSR 90 GOTO RIGHTB > 14300 CSR C DIV 2 E 30 >COMPUTE MARGIN > 14400 CSR SETON 81 > 14500 CSR CENT02 TAG > 14600 CSR MOVE ' ' PLN2 CLEAR >ARRAY > 14700 CSR MOVEAPLIN,S PLN2,E CENTER > 14800 CSR MOVE ' ' PLIN > 14900 CSR MOVEAPLN2 PLIN > 15000 CSR ENDSR > 15100 C* > 15200 C* > 15300 C* > 15400 CSR STRIP BEGSR STRIP >@ SYMBOLS > 15500 C* STRIP @ SYMBOLS FROM PRINT LINE > 15600 CSR Z-ADD132 C > 15700 CSR LOOPST TAG > 15800 CSR PLIN,C COMP '@' 90 > 15900 CSR 90 MOVE ' ' PLIN,C > 16000 CSR >C SUB 1 C 90 > 16100 CSRN90 GOTO LOOPST > 16200 CSR ENDSR > 16300 C* > 16400 C* > 16500 OQPRINT8 D 2 01 >09/20/83 > 16600 O 1 ' ' > 16700 OQPRINT8 D 2 01 >09/20/83 > 16800 O E 0 N80 > 16900 O OR 1 80 > 17000 O N80 PLIN 132 > 17100 O 80 PLIN B 132 > 17200 ** CONVERSION TABLE -- VALID CHARACTERS APPEAR IN COLUMN 1 > 17300 EXXXXXX@@@@X@@@@XXXX@X@@@@X@@@@XXXXX > 17400 TXXXXXX@X@X@@X@@@@X@@@@X@@@@X@@@@X@@ >07/29/83 > 17500 A@XXX@X@@@XX@@@XXXXXXX@@@XX@@@XX@@@X >07/29/83 > 17600 O@XXX@X@@@XX@@@XX@@@XX@@@XX@@@X@XXX@ >07/29/83 > 17700 I@XXX@@@X@@@@X@@@@X@@@@X@@@@X@@@XXX@ >07/29/83 > 17800 NX@@@XXX@@XX@X@XX@@XXX@@@XX@@@XX@@@X >07/29/83 > 17900 S@XXX@X@@@XX@@@@@XXX@@@@@XX@@@X@XXX@ >07/29/83 > 18000 HX@@@XX@@@XX@@@XXXXXXX@@@XX@@@XX@@@X > 18100 RXXXX@X@@@XX@@@XXXXX@X@X@@X@@X@X@@@X >07/29/83 > 18200 DXXXX@X@@@XX@@@XX@@@XX@@@XX@@@XXXXX@ >07/29/83 > 18300 LX@@@@X@@@@X@@@@X@@@@X@@@@X@@@XXXXXX >07/29/83 > 18400 UX@@@XX@@@XX@@@XX@@@XX@@@XX@@@X@XXX@ >07/29/83 > 18500 BXXXX@X@@@XX@@@XXXXX@X@@@XX@@@XXXXX@ >07/29/83 > 18600 C@XXXXX@@@@X@@@@X@@@@X@@@@X@@@@@XXXX >07/29/83 > 18700 FXXXXXX@@@@X@@@@XXXX@X@@@@X@@@@X@@@@ >07/29/83 > 18800 G@XXX@X@@@XX@@@@X@@@@X@@XXX@@@X@XXX@ >07/29/83 > 18900 J@@@@X@@@@X@@@@X@@@@X@@@@XX@@@X@XXX@ > 19000 KX@@@XX@@X@X@X@@XX@@@X@X@@X@@X@X@@@X > 19100 MX@@@XXX@XXX@X@XX@@@XX@@@XX@@@XX@@@X > 19200 PXXXX@X@@@XX@@@XXXXX@X@@@@X@@@@X@@@@ > 19300 Q@XXX@X@@@XX@@@XX@@@XX@X@XX@@XX@XXXX > 19400 VX@@@XX@@@XX@@@XX@@@XX@@@X@X@X@@@X@@ > 19500 WX@@@XX@@@XX@@@XX@@@XX@X@XX@X@X@X@X@ > 19600 XX@@@XX@@@X@X@X@@@X@@@X@X@X@@@XX@@@X > 19700 YX@@@XX@@@X@X@X@@@X@@@@X@@@@X@@@@X@@ > 19800 ZXXXXXX@@@X@@@X@@@X@@@X@@@X@@@XXXXXX > 19900 .@@@@@@@@@@@@@@@@@@@@@@@@@@XX@@@XX@@ > 20000 BLANK > 20100 ]@@X@@@@X@@@@X@@@@X@@@@X@@@@@@@@@X@@ EXCLAMATION POINT > 20200 ,@@@@@@@@@@@@@@@@@@@@@XX@@@XX@@X@@@@ > 20300 *@@X@@X@X@X@XXX@XXXXX@XXX@X@X@X@@X@@ ASTERISK > 20400 1@XX@@@@X@@@@X@@@@X@@@@X@@@@X@@@XXX@ > 20500 2@XXX@X@@@X@@@X@@@X@@@X@@@X@@@@XXXXX > 20600 3@XXX@X@@@X@@@@X@XXX@@@@@XX@@@X@XXX@ > 20700 4X@@X@X@@X@X@@X@XXXXX@@@X@@@@X@@@@X@ > 20800 5XXXX@X@@@@X@@@@XXXX@@@@@XX@@@X@XXX@ > 20900 6@@@X@@@X@@@X@@@XXXX@X@@@XX@@@X@XXX@ > 21000 7XXXXXX@@@X@@@X@@@X@@@X@@@@X@@@@X@@@ > 21100 8@XXX@X@@@XX@@@X@XXX@X@@@XX@@@X@XXX@ > 21200 9@XXX@X@@@XX@@@X@XXXX@@@X@@@X@@@X@@@ > 21300 0@XXX@X@@@XX@@XXX@X@XXX@@XX@@@X@XXX@ > 21400 /@@@@@@@@@X@@@X@@@X@@@X@@@X@@@@@@@@@ > 21500 $@@X@@@XXX@@X@@@@XXX@@@@X@@XXX@@@X@@ > 21600 =@@@@@@@@@@XXXXX@@@@@XXXXX@@@@@@@@@@ EQUAL SIGN > 21700 +@@@@@@@X@@@@X@@@@@@@@@X@@@@X@@@@@@@ PLUS SIGN >07/29/83 > 21800 -@@@@@@@@@@@@@@@XXXXX@@@@@@@@@@@@@@@ MINUS SIGN or HYPHEN >07/29/83 > 21900 (@@@X@@@X@@@X@@@@X@@@@X@@@@@X@@@@@X@ L PARENTHESIS > 22000 )@X@@@@@X@@@@@X@@@@X@@@@X@@@X@@@X@@@ R PARENTHESIS > 22100 :@@@@@@@XX@@@XX@@@@@@@@XX@@@XX@@@@@@ COLON > 22200 ;@@@@@@@XX@@@XX@@@@@@@@XX@@@XX@@X@@@ SEMICOLON > 22300 ^@@@@@@@@@@XXXXX@@@@X@@@@@@@@@@@@@@@ NOT SIGN > 22400 !@@@@@@@X@@@@X@@@@X@@@@X@@@@X@@@@@@@ OR SIGN (VERTICAL BAR) >02/29/84 > 22500 >X@@@@@X@@@@@X@@@@@X@@@X@@@X@@@X@@@@ GT SIGN > 22600 <@@@@X@@@X@@@X@@@X@@@@@X@@@@@X@@@@@X LT SIGN > 22700 _@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XXXXX UNDERSCORE > 22800 ?@XXX@X@@@X@@@@X@@@X@@@X@@@@@@@@@X@@ QUESTION MARK > 22900 #@@@@@@X@X@XXXXX@X@X@XXXXX@X@X@@@@@@ NUMBER SYMBOL (POUND SIGN) >02/29/84 > 23000 \@@@@@X@@@@@X@@@@@X@@@@@X@@@@@X@@@@@ BACK SLASH > 23100 @@@@@@XXXXX@@@@XXXX@XX@X@XXXXXX@@@@@ AT SYMBOL > 23200 [@@@@@@@X@@XXXXXX@X@@XXXXX@@X@@@@@@@ CENT SIGN > 23300 '@@X@@@@X@@@@@@@@@@@@@@@@@@@@@@@@@@@ APOSTROPHE > 23400 "@X@X@@X@X@@@@@@@@@@@@@@@@@@@@@@@@@@ DOUBLE QUOTE > 23500 %XX@@@XX@@X@@@X@@@X@@@X@@@X@@XX@@@XX PERCENT SIGN > 23600 &@XX@@X@@X@X@@X@@X@@@X@X@XX@@X@@XX@X AMPERSAND > * * * * E N D O F S O U R C E * * * >* +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
