00000000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 0D 2A 20 20 20 20 20 20 20 |*******.* |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D | *.|
00000050: 2A 20 20 20 20 C6 49 4C 45 20 D2 45 41 44 45 52 |* .ILE .EADER|
00000060: 2F D0 52 49 4E 54 45 52 2F C3 4F 4E 56 45 52 54 |/.RINTER/.ONVERT|
00000070: 45 52 20 20 20 20 2A 0D 2A 20 20 20 20 20 20 20 |ER *.* |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D | *.|
000000A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000000B0: 20 42 59 20 20 20 20 20 20 20 20 20 20 20 20 20 | BY |
000000C0: 20 20 20 20 20 20 2A 0D 2A 20 20 20 20 20 20 20 | *.* |
000000D0: 20 20 20 CA 4F 48 4E 20 C3 52 4F 4F 4B 53 48 41 | .OHN .ROOKSHA|
000000E0: 4E 4B 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D |NK *.|
000000F0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 2A 0D 2A 2A 2A 2A 2A 2A 2A 2A | *.********|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.|
00000140: 0D 0D 20 20 20 20 20 D4 48 49 53 20 50 52 4F 47 |.. .HIS PROG|
00000150: 52 41 4D 20 57 49 4C 4C 20 52 45 41 44 20 59 4F |RAM WILL READ YO|
00000160: 55 52 20 C4 CF C3 53 0D 46 49 4C 45 53 20 41 54 |UR ...S.FILES AT|
00000170: 20 CD CC 20 53 50 45 45 44 20 4F 4E 20 54 48 45 | .. SPEED ON THE|
00000180: 20 C3 31 32 38 2E 20 C9 54 20 57 49 4C 4C 0D 57 | .128. .T WILL.W|
00000190: 4F 52 4B 20 49 4E 20 34 30 20 43 4F 4C 55 4D 4E |ORK IN 40 COLUMN|
000001A0: 20 4D 4F 44 45 20 4F 52 20 38 30 20 43 4F 4C 55 | MODE OR 80 COLU|
000001B0: 4D 4E 0D 28 46 41 53 54 29 20 4D 4F 44 45 2E 20 |MN.(FAST) MODE. |
000001C0: CF 52 20 59 4F 55 20 4D 41 59 20 53 45 4E 44 20 |.R YOU MAY SEND |
000001D0: 59 4F 55 52 20 54 45 58 54 0D 46 49 4C 45 20 54 |YOUR TEXT.FILE T|
000001E0: 4F 20 54 48 45 20 50 52 49 4E 54 45 52 2E 0D 0D |O THE PRINTER...|
000001F0: 20 20 20 20 20 C9 4E 20 45 49 54 48 45 52 20 34 | .N EITHER 4|
00000200: 30 20 4F 52 20 38 30 20 43 4F 4C 55 4D 4E 20 53 |0 OR 80 COLUMN S|
00000210: 43 52 45 45 4E 0D 52 45 41 44 49 4E 47 20 4D 4F |CREEN.READING MO|
00000220: 44 45 2C 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |DE, THE PROGRAM |
00000230: 43 4F 55 4E 54 53 20 54 48 45 0D 43 41 52 52 49 |COUNTS THE.CARRI|
00000240: 41 47 45 20 52 45 54 55 52 4E 53 2C 20 41 4E 44 |AGE RETURNS, AND|
00000250: 20 53 54 4F 50 53 20 45 56 45 52 59 20 32 33 0D | STOPS EVERY 23.|
00000260: 4C 49 4E 45 53 2C 20 53 4F 20 59 4F 55 52 20 54 |LINES, SO YOUR T|
00000270: 45 58 54 20 44 4F 45 53 20 4E 4F 54 20 53 43 52 |EXT DOES NOT SCR|
00000280: 4F 4C 4C 20 4F 46 46 0D 54 48 45 20 53 43 52 45 |OLL OFF.THE SCRE|
00000290: 45 4E 2E 20 D9 4F 55 20 41 52 45 20 54 48 45 4E |EN. .OU ARE THEN|
000002A0: 20 50 52 4F 4D 50 54 45 44 20 54 4F 0D 50 52 45 | PROMPTED TO.PRE|
000002B0: 53 53 20 C6 37 20 54 4F 20 43 4F 4E 54 49 4E 55 |SS .7 TO CONTINU|
000002C0: 45 20 52 45 41 44 49 4E 47 20 54 48 45 20 46 49 |E READING THE FI|
000002D0: 4C 45 2C 0D 4F 52 20 59 4F 55 20 4D 41 59 20 50 |LE,.OR YOU MAY P|
000002E0: 52 45 53 53 20 C6 31 20 54 4F 20 41 42 4F 52 54 |RESS .1 TO ABORT|
000002F0: 20 41 4E 44 20 52 45 54 55 52 4E 0D 54 4F 20 54 | AND RETURN.TO T|
00000300: 48 45 20 4D 45 4E 55 2E 20 D7 48 45 4E 20 53 45 |HE MENU. .HEN SE|
00000310: 4E 44 49 4E 47 20 54 48 45 20 46 49 4C 45 20 54 |NDING THE FILE T|
00000320: 4F 0D 45 49 54 48 45 52 20 54 48 45 20 50 52 49 |O.EITHER THE PRI|
00000330: 4E 54 45 52 20 4F 52 20 44 49 53 4B 2C 20 54 48 |NTER OR DISK, TH|
00000340: 45 52 45 20 49 53 20 4E 4F 0D 4F 50 54 49 4F 4E |ERE IS NO.OPTION|
00000350: 20 54 4F 20 41 42 4F 52 54 20 55 4E 54 49 4C 20 | TO ABORT UNTIL |
00000360: 49 54 20 49 53 20 46 49 4E 49 53 48 45 44 2E 0D |IT IS FINISHED..|
00000370: 0D 20 20 20 20 20 C9 4E 20 41 44 44 49 54 49 4F |. .N ADDITIO|
00000380: 4E 2C 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |N, THIS PROGRAM |
00000390: 57 49 4C 4C 0D 41 4C 53 4F 20 54 41 4B 45 20 41 |WILL.ALSO TAKE A|
000003A0: 20 54 45 58 54 20 46 49 4C 45 20 46 4F 52 4D 41 | TEXT FILE FORMA|
000003B0: 54 54 45 44 20 46 4F 52 20 34 30 0D 43 4F 4C 55 |TTED FOR 40.COLU|
000003C0: 4D 4E 53 2C 20 41 4E 44 20 50 52 49 4E 54 20 49 |MNS, AND PRINT I|
000003D0: 54 20 4F 55 54 20 49 4E 20 38 30 20 43 4F 4C 55 |T OUT IN 80 COLU|
000003E0: 4D 4E 53 0D 4F 4E 20 59 4F 55 52 20 50 52 49 4E |MNS.ON YOUR PRIN|
000003F0: 54 45 52 20 28 C5 58 50 41 4E 44 20 54 4F 20 D0 |TER (.XPAND TO .|
00000400: 52 49 4E 54 45 52 29 2E 0D D4 48 49 53 20 48 41 |RINTER)...HIS HA|
00000410: 53 20 4C 49 4D 49 54 41 54 49 4F 4E 53 2C 20 42 |S LIMITATIONS, B|
00000420: 45 43 41 55 53 45 20 41 4C 4C 20 54 48 45 0D 50 |ECAUSE ALL THE.P|
00000430: 52 4F 47 52 41 4D 20 52 45 41 4C 4C 59 20 44 4F |ROGRAM REALLY DO|
00000440: 45 53 20 49 4E 20 54 48 49 53 20 4F 50 54 49 4F |ES IN THIS OPTIO|
00000450: 4E 20 49 53 0D 49 47 4E 4F 52 45 20 C1 CC CC 20 |N IS.IGNORE ... |
00000460: 4C 49 4E 45 46 45 45 44 53 2C 20 41 4E 44 20 52 |LINEFEEDS, AND R|
00000470: 45 50 4C 41 43 45 20 45 56 45 52 59 0D 4F 54 48 |EPLACE EVERY.OTH|
00000480: 45 52 20 43 41 52 52 49 41 47 45 20 52 45 54 55 |ER CARRIAGE RETU|
00000490: 52 4E 20 57 49 54 48 20 41 20 53 50 41 43 45 2E |RN WITH A SPACE.|
000004A0: 0D D3 54 49 4C 4C 2C 20 49 54 20 42 45 41 54 53 |..TILL, IT BEATS|
000004B0: 20 48 41 56 49 4E 47 20 54 4F 20 43 4F 4D 50 4C | HAVING TO COMPL|
000004C0: 45 54 45 4C 59 0D 52 45 46 4F 52 4D 41 54 20 41 |ETELY.REFORMAT A|
000004D0: 20 34 30 20 43 4F 4C 55 4D 4E 20 54 45 58 54 20 | 40 COLUMN TEXT |
000004E0: 46 49 4C 45 20 4D 41 4E 55 41 4C 4C 59 0D 57 49 |FILE MANUALLY.WI|
000004F0: 54 48 20 41 20 57 4F 52 44 20 50 52 4F 43 45 53 |TH A WORD PROCES|
00000500: 53 4F 52 2E 0D 0D 20 20 20 20 20 C1 20 34 30 20 |SOR... . 40 |
00000510: 43 4F 4C 55 4D 4E 20 46 49 4C 45 20 4D 41 59 20 |COLUMN FILE MAY |
00000520: 41 4C 53 4F 20 42 45 0D 45 58 50 41 4E 44 45 44 |ALSO BE.EXPANDED|
00000530: 20 42 41 43 4B 20 49 4E 54 4F 20 41 4E 20 38 30 | BACK INTO AN 80|
00000540: 20 43 4F 4C 55 4D 4E 20 44 49 53 4B 0D 46 49 4C | COLUMN DISK.FIL|
00000550: 45 2C 20 54 4F 4F 2E 20 D4 48 45 20 4F 50 45 52 |E, TOO. .HE OPER|
00000560: 41 54 49 4F 4E 20 49 53 20 54 48 45 20 53 41 4D |ATION IS THE SAM|
00000570: 45 0D 41 53 20 54 48 45 20 22 C5 58 50 41 4E 44 |E.AS THE ".XPAND|
00000580: 20 54 4F 20 D0 52 49 4E 54 45 52 22 20 4F 50 54 | TO .RINTER" OPT|
00000590: 49 4F 4E 2C 0D 45 58 43 45 50 54 20 54 48 41 54 |ION,.EXCEPT THAT|
000005A0: 20 4F 55 54 50 55 54 20 49 53 20 54 4F 20 54 48 | OUTPUT IS TO TH|
000005B0: 45 20 44 49 53 4B 2C 0D 49 4E 53 54 45 41 44 20 |E DISK,.INSTEAD |
000005C0: 4F 46 20 54 48 45 20 50 52 49 4E 54 45 52 2E 20 |OF THE PRINTER. |
000005D0: C9 54 20 57 49 4C 4C 20 52 45 41 44 0D 54 48 45 |.T WILL READ.THE|
000005E0: 20 4F 4C 44 20 46 49 4C 45 2C 20 41 4E 44 20 57 | OLD FILE, AND W|
000005F0: 52 49 54 45 20 41 4E 20 49 44 45 4E 54 49 43 41 |RITE AN IDENTICA|
00000600: 4C 0D 38 30 20 43 4F 4C 55 4D 4E 20 46 49 4C 45 |L.80 COLUMN FILE|
00000610: 20 42 41 43 4B 20 54 4F 20 54 48 45 20 44 49 53 | BACK TO THE DIS|
00000620: 4B 2E 20 D9 4F 55 0D 4D 55 53 54 20 48 41 56 45 |K. .OU.MUST HAVE|
00000630: 20 52 4F 4F 4D 20 45 4E 4F 55 47 48 20 4F 4E 20 | ROOM ENOUGH ON |
00000640: 54 48 45 20 44 49 53 4B 20 46 4F 52 0D C2 CF D4 |THE DISK FOR....|
00000650: C8 20 46 49 4C 45 53 20 49 4E 20 4F 52 44 45 52 |. FILES IN ORDER|
00000660: 20 46 4F 52 20 54 48 49 53 20 54 4F 20 57 4F 52 | FOR THIS TO WOR|
00000670: 4B 2E 0D 0D 20 20 20 20 20 C9 54 20 49 53 20 52 |K... .T IS R|
00000680: 45 43 4F 4D 4D 45 4E 44 45 44 20 54 48 41 54 20 |ECOMMENDED THAT |
00000690: 59 4F 55 20 52 45 41 44 0D 54 48 45 20 46 49 4C |YOU READ.THE FIL|
000006A0: 45 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 20 |E ON THE SCREEN |
000006B0: 42 45 46 4F 52 45 20 59 4F 55 0D 53 45 4E 44 20 |BEFORE YOU.SEND |
000006C0: 49 54 20 54 4F 20 54 48 45 20 50 52 49 4E 54 45 |IT TO THE PRINTE|
000006D0: 52 2E 20 D4 48 49 53 20 57 41 59 2C 20 59 4F 55 |R. .HIS WAY, YOU|
000006E0: 0D 57 49 4C 4C 20 42 45 20 41 42 4C 45 20 54 4F |.WILL BE ABLE TO|
000006F0: 20 54 45 4C 4C 20 48 4F 57 20 49 54 20 49 53 20 | TELL HOW IT IS |
00000700: 48 41 53 0D 42 45 45 4E 20 46 4F 52 4D 41 54 54 |HAS.BEEN FORMATT|
00000710: 45 44 2C 20 41 4E 44 20 43 41 4E 20 43 48 4F 4F |ED, AND CAN CHOO|
00000720: 53 45 20 54 48 45 0D 50 52 4F 50 45 52 20 50 52 |SE THE.PROPER PR|
00000730: 49 4E 54 4F 55 54 20 4F 50 54 49 4F 4E 2E 20 D9 |INTOUT OPTION. .|
00000740: 4F 55 20 57 4F 55 4C 44 20 4E 4F 54 0D 57 41 4E |OU WOULD NOT.WAN|
00000750: 54 20 54 4F 20 22 45 58 50 41 4E 44 22 20 41 20 |T TO "EXPAND" A |
00000760: 46 49 4C 45 20 54 48 41 54 20 49 53 20 C1 CC D2 |FILE THAT IS ...|
00000770: C5 C1 C4 D9 0D 49 4E 20 38 30 20 43 4F 4C 55 4D |.....IN 80 COLUM|
00000780: 4E 53 2C 20 46 4F 52 20 45 58 41 4D 50 4C 45 21 |NS, FOR EXAMPLE!|
00000790: 0D 0D 20 20 20 20 20 D4 48 49 53 20 50 52 4F 47 |.. .HIS PROG|
000007A0: 52 41 4D 20 55 53 45 53 20 41 4E 20 CD CC 20 53 |RAM USES AN .. S|
000007B0: 55 42 46 49 4C 45 0D 43 41 4C 4C 45 44 20 22 D2 |UBFILE.CALLED ".|
000007C0: C5 C1 C4 C5 D2 2E CD CC 22 2C 20 41 4E 44 20 54 |........", AND T|
000007D0: 48 49 53 20 C4 CF C3 53 20 46 49 4C 45 0D 49 53 |HIS ...S FILE.IS|
000007E0: 20 43 41 4C 4C 45 44 20 22 D2 C5 C1 C4 C5 D2 2E | CALLED ".......|
000007F0: C4 CF C3 22 2C 20 53 4F 20 4B 45 45 50 20 54 48 |...", SO KEEP TH|
00000800: 45 4D 0D 41 4C 4C 20 54 4F 47 45 54 48 45 52 20 |EM.ALL TOGETHER |
00000810: 49 46 20 59 4F 55 20 50 55 54 20 54 48 45 4D 20 |IF YOU PUT THEM |
00000820: 4F 4E 20 41 4E 4F 54 48 45 52 0D 44 49 53 4B 2E |ON ANOTHER.DISK.|
00000830: 0D 0D 45 |..E |
***************************************.
* *.
* FILE READER/PRINTER/CONVERTER *.
* *.
* BY *.
* JOHN CROOKSHANK *.
* *.
***************************************.
.. THIS PROGRAM WILL READ YOUR DOCS.
FILES AT ML SPEED ON THE C128. IT WILL.W
ORK IN 40 COLUMN MODE OR 80 COLUMN.(FAST
) MODE. OR YOU MAY SEND YOUR TEXT.FILE T
O THE PRINTER... IN EITHER 40 OR 80
COLUMN SCREEN.READING MODE, THE PROGRAM
COUNTS THE.CARRIAGE RETURNS, AND STOPS E
VERY 23.LINES, SO YOUR TEXT DOES NOT SCR
OLL OFF.THE SCREEN. YOU ARE THEN PROMPTE
D TO.PRESS F7 TO CONTINUE READING THE FI
LE,.OR YOU MAY PRESS F1 TO ABORT AND RET
URN.TO THE MENU. WHEN SENDING THE FILE T
O.EITHER THE PRINTER OR DISK, THERE IS N
O.OPTION TO ABORT UNTIL IT IS FINISHED..
. IN ADDITION, THIS PROGRAM WILL.ALS
O TAKE A TEXT FILE FORMATTED FOR 40.COLU
MNS, AND PRINT IT OUT IN 80 COLUMNS.ON Y
OUR PRINTER (EXPAND TO PRINTER)..THIS HA
S LIMITATIONS, BECAUSE ALL THE.PROGRAM R
EALLY DOES IN THIS OPTION IS.IGNORE ALL
LINEFEEDS, AND REPLACE EVERY.OTHER CARRI
AGE RETURN WITH A SPACE..STILL, IT BEATS
HAVING TO COMPLETELY.REFORMAT A 40 COLU
MN TEXT FILE MANUALLY.WITH A WORD PROCES
SOR... A 40 COLUMN FILE MAY ALSO BE.
EXPANDED BACK INTO AN 80 COLUMN DISK.FIL
E, TOO. THE OPERATION IS THE SAME.AS THE
"EXPAND TO PRINTER" OPTION,.EXCEPT THAT
OUTPUT IS TO THE DISK,.INSTEAD OF THE P
RINTER. IT WILL READ.THE OLD FILE, AND W
RITE AN IDENTICAL.80 COLUMN FILE BACK TO
THE DISK. YOU.MUST HAVE ROOM ENOUGH ON
THE DISK FOR.BOTH FILES IN ORDER FOR THI
S TO WORK... IT IS RECOMMENDED THAT
YOU READ.THE FILE ON THE SCREEN BEFORE Y
OU.SEND IT TO THE PRINTER. THIS WAY, YOU
.WILL BE ABLE TO TELL HOW IT IS HAS.BEEN
FORMATTED, AND CAN CHOOSE THE.PROPER PR
INTOUT OPTION. YOU WOULD NOT.WANT TO "EX
PAND" A FILE THAT IS ALREADY.IN 80 COLUM
NS, FOR EXAMPLE!.. THIS PROGRAM USES
AN ML SUBFILE.CALLED "READER.ML", AND T
HIS DOCS FILE.IS CALLED "READER.DOC", SO
KEEP THEM.ALL TOGETHER IF YOU PUT THEM
ON ANOTHER.DISK...E
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL