TEXTSTAT01

FILE INFORMATION

FILENAME(S): TEXTSTAT01

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-11-30 21:07:03

APPEARS ON: 1 disk(s)

FILE HASH

ea9cf7178193a702bc37becd04f8b1f5321b400b7310d825107b9e5837348865

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
UTILITY PET 05	TEXTSTAT01	PRG	DuncanTwain	26	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 79 05 D3 05 5C 06 00 0A  17 00 50 52 4F 47 52 41  |y...\.....PROGRA|
00000010: 4D 3A 20 54 45 58 54 53  54 41 54 2F 2F 00 14 30  |M: TEXTSTAT//..0|
00000020: 00 43 4F 55 4E 54 53 20  4E 55 4D 42 45 52 20 4F  |.COUNTS NUMBER O|
00000030: 46 20 57 4F 52 44 53 2C  20 56 4F 57 45 4C 53 2C  |F WORDS, VOWELS,|
00000040: 20 43 4F 4E 53 4F 4E 41  4E 54 53 2F 2F 00 1E 31  | CONSONANTS//..1|
00000050: 00 44 49 47 49 54 53 20  41 4E 44 20 53 50 45 43  |.DIGITS AND SPEC|
00000060: 49 41 4C 20 43 48 41 52  41 43 54 45 52 53 20 49  |IAL CHARACTERS I|
00000070: 4E 20 47 49 56 45 4E 20  54 45 58 54 2F 2F 00 28  |N GIVEN TEXT//.(|
00000080: 36 00 44 45 4D 4F 4E 53  54 52 41 54 45 53 20 41  |6.DEMONSTRATES A|
00000090: 44 56 41 4E 43 45 44 20  53 54 52 49 4E 47 20 48  |DVANCED STRING H|
000000A0: 41 4E 44 4C 49 4E 47 20  46 41 43 49 4C 49 54 49  |ANDLING FACILITI|
000000B0: 45 53 2F 2F 00 32 2E 00  49 4E 20 54 48 45 20 43  |ES//.2..IN THE C|
000000C0: 42 4D 20 43 4F 4D 41 4C  2D 38 30 20 50 52 4F 47  |BM COMAL-80 PROG|
000000D0: 52 41 4D 4D 49 4E 47 20  4C 41 4E 47 55 41 47 45  |RAMMING LANGUAGE|
000000E0: 2F 2F 00 3C 2E 00 57 52  49 54 54 45 4E 20 42 59  |//.<..WRITTEN BY|
000000F0: 20 42 4F 52 47 45 20 52  2E 20 43 48 52 49 53 54  | BORGE R. CHRIST|
00000100: 45 4E 53 45 4E 2C 20 4E  4F 56 2E 20 38 30 2F 2F  |ENSEN, NOV. 80//|
00000110: 00 46 04 00 00 50 0B 8C  8F 01 00 02 00 0A 93 00  |.F...P..........|
00000120: 5A 0B 8C 8F 02 00 02 00  1E 93 00 64 0B 8C 8F 03  |Z..........d....|
00000130: 00 02 00 0A 93 00 6E 1E  09 01 03 06 41 45 49 4F  |......n.....AEIO|
00000140: 55 59 3C 09 03 03 0A 31  32 33 34 35 36 37 38 39  |UY<....123456789|
00000150: 30 3C 42 00 78 22 09 02  03 1A 51 57 45 52 54 59  |0<B.x"....QWERTY|
00000160: 55 49 4F 50 41 53 44 46  47 48 4A 4B 4C 5A 58 43  |UIOPASDFGHJKLZXC|
00000170: 56 42 4E 4D 3C 00 82 04  00 00 8C 06 7F 04 81 00  |VBNM<...........|
00000180: 96 06 7F 05 81 00 A0 06  7F 06 81 00 AA 04 9F 00  |................|
00000190: B4 04 00 00 BE 09 70 04  75 6E 00 7B 00 C8 13 8C  |......p.un.{....|
000001A0: 8F 07 00 02 07 D0 93 8F  08 00 02 00 46 93 94 00  |............F...|
000001B0: D2 04 95 00 DC 08 AF 09  08 B2 B3 00 E6 0F 09 07  |................|
000001C0: 06 07 06 08 28 03 01 20  28 3C 00 F0 08 DA 5C 96  |....(.. (<....\.|
000001D0: 52 6E 00 FA 05 7D 04 01  04 04 00 01 0E 09 70 05  |Rn...}........p.|
000001E0: C7 6E 00 7B 01 18 17 07  0A 02 00 00 3A 07 0B 02  |.n.{........:...|
000001F0: 00 00 3A 42 07 0C 02 00  00 3A 42 01 22 10 07 0D  |..:B.....:B."...|
00000200: 02 00 00 3A 07 0E 02 00  00 3A 42 01 2C 19 82 0F  |...:.....:B.,...|
00000210: 10 00 02 00 01 84 09 07  51 85 88 7F 10 0C 07 07  |........Q.......|
00000220: 0F 1C 18 89 01 36 05 7D  05 01 40 04 00 01 4A 0B  |.....6.}..@...J.|
00000230: 70 10 E8 6F 01 74 11 7B  01 54 16 68 06 11 06 02  |p..o.t.{.T.h....|
00000240: 36 69 36 6F 00 4C 45 54  54 45 52 3F 2F 2F 01 5E  |6i6o.LETTER?//.^|
00000250: 15 68 06 11 06 01 36 69  0F 6F 00 56 4F 57 45 4C  |.h....6i.o.VOWEL|
00000260: 3F 2F 2F 01 68 09 07 0B  02 00 01 3D 01 72 1A 6E  |?//.h......=.r.n|
00000270: 32 6F 00 4D 55 53 54 20  42 45 20 43 4F 4E 53 4F  |2o.MUST BE CONSO|
00000280: 4E 41 4E 54 2F 2F 01 7C  09 07 0C 02 00 01 3D 01  |NANT//.|......=.|
00000290: 86 04 6F 01 90 15 6E E4  6F 00 4E 4F 54 20 41 20  |..o...n.o.NOT A |
000002A0: 4C 45 54 54 45 52 2F 2F  01 9A 16 68 06 11 03 01  |LETTER//...h....|
000002B0: 20 2D 69 8C 6F 00 53 50  41 43 45 3F 2F 2F 01 A4  | -i.o.SPACE?//..|
000002C0: 2B 07 0A 02 00 01 3D 00  4D 45 41 4E 53 20 41 4E  |+.....=.MEANS AN|
000002D0: 4F 54 48 45 52 20 57 4F  52 44 2C 20 44 4F 45 53  |OTHER WORD, DOES|
000002E0: 27 4E 54 20 49 54 3F 2F  2F 01 AE 19 6E E0 6F 00  |'NT IT?//...n.o.|
000002F0: 44 49 47 49 54 20 4F 52  20 53 50 45 43 49 41 4C  |DIGIT OR SPECIAL|
00000300: 2F 2F 01 B8 15 68 06 11  06 03 36 69 C3 6F 00 44  |//...h....6i.o.D|
00000310: 49 47 49 54 3F 2F 2F 01  C2 09 07 0D 02 00 01 3D  |IGIT?//........=|
00000320: 01 CC 10 6E DC 6F 00 53  50 45 43 49 41 4C 2F 2F  |...n.o.SPECIAL//|
00000330: 01 D6 09 07 0E 02 00 01  3D 01 E0 04 6F 01 EA 04  |........=...o...|
00000340: 6F 01 F4 04 6F 01 FE 05  7D 10 02 08 04 00 02 12  |o...o...}.......|
00000350: 09 70 06 A9 70 00 7B 02  1C 08 46 02 00 0F 3A 02  |.p..p.{...F...:.|
00000360: 26 06 5F 60 61 02 30 1D  5F 03 10 4E 55 4D 42 45  |&._`a.0._..NUMBE|
00000370: 52 20 4F 46 20 57 4F 52  44 53 3A 65 66 04 0A 64  |R OF WORDS:ef..d|
00000380: 60 61 02 3A 1E 5F 03 11  4E 55 4D 42 45 52 20 4F  |`a.:._..NUMBER O|
00000390: 46 20 56 4F 57 45 4C 53  3A 65 66 04 0B 64 60 61  |F VOWELS:ef..d`a|
000003A0: 02 44 22 5F 03 15 4E 55  4D 42 45 52 20 4F 46 20  |.D"_..NUMBER OF |
000003B0: 43 4F 4E 53 4F 4E 41 4E  54 53 3A 65 66 04 0C 64  |CONSONANTS:ef..d|
000003C0: 60 61 02 4E 1E 5F 03 11  4E 55 4D 42 45 52 20 4F  |`a.N._..NUMBER O|
000003D0: 46 20 44 49 47 49 54 53  3A 65 66 04 0D 64 60 61  |F DIGITS:ef..d`a|
000003E0: 02 58 20 5F 03 13 4E 55  4D 42 45 52 20 4F 46 20  |.X _..NUMBER OF |
000003F0: 53 50 45 43 49 41 4C 53  3A 65 66 04 0E 64 60 61  |SPECIALS:ef..d`a|
00000400: 02 62 06 5F 60 61 02 6C  05 7D 06 02 76 04 00 02  |.b._`a.l.}..v...|
00000410: 80 43 AA AE 3A 4D 41 52  4C 45 59 20 57 41 53 20  |.C..:MARLEY WAS |
00000420: 44 45 41 44 2C 20 54 4F  20 42 45 47 49 4E 20 57  |DEAD, TO BEGIN W|
00000430: 49 54 48 2E 20 54 48 45  52 45 20 49 53 20 4E 4F  |ITH. THERE IS NO|
00000440: 20 44 4F 55 42 54 20 57  48 41 54 45 56 45 52 AB  | DOUBT WHATEVER.|
00000450: F5 70 02 8A 41 AA AE 38  41 42 4F 55 54 20 54 48  |.p..A..8ABOUT TH|
00000460: 41 54 2E 20 54 48 45 20  52 45 47 49 53 54 45 52  |AT. THE REGISTER|
00000470: 20 4F 46 20 48 49 53 20  42 55 52 49 41 4C 20 57  | OF HIS BURIAL W|
00000480: 41 53 20 53 49 47 4E 45  44 20 42 59 20 54 48 45  |AS SIGNED BY THE|
00000490: AB 36 71 02 94 45 AA AE  3C 43 4C 45 52 47 59 4D  |.6q..E..<CLERGYM|
000004A0: 41 4E 2C 20 54 48 45 20  43 4C 45 52 4B 2C 20 54  |AN, THE CLERK, T|
000004B0: 48 45 20 55 4E 44 45 52  54 41 4B 45 52 2C 20 41  |HE UNDERTAKER, A|
000004C0: 4E 44 20 54 48 45 20 43  48 49 45 46 20 4D 4F 55  |ND THE CHIEF MOU|
000004D0: 52 4E 45 52 2E AB 7B 71  02 9E 45 AA AE 3C 53 43  |RNER..{q..E..<SC|
000004E0: 52 4F 4F 47 45 20 53 49  47 4E 45 44 20 49 54 20  |ROOGE SIGNED IT |
000004F0: 2E 2E 2E 2E 20 4F 4C 44  20 4D 41 52 4C 45 59 20  |.... OLD MARLEY |
00000500: 57 41 53 20 41 53 20 44  45 41 44 20 41 53 20 41  |WAS AS DEAD AS A|
00000510: 20 44 4F 4F 52 2D 4E 41  49 4C AB C0 71 02 A8 36  | DOOR-NAIL..q..6|
00000520: AA AE 2D 2E 2E 2E 2E 20  54 48 45 52 45 20 57 41  |..-.... THERE WA|
00000530: 53 20 4E 4F 20 44 4F 55  42 54 20 54 48 41 54 20  |S NO DOUBT THAT |
00000540: 4D 41 52 4C 45 59 20 57  41 53 20 44 45 41 44 2E  |MARLEY WAS DEAD.|
00000550: AB F6 71 02 B2 2C AA AE  23 54 48 49 53 20 4D 55  |..q..,..#THIS MU|
00000560: 53 54 20 42 45 20 44 49  53 54 49 4E 43 54 4C 59  |ST BE DISTINCTLY|
00000570: 20 55 4E 44 45 52 53 54  4F 4F 44 2E AB 00 00 12  | UNDERSTOOD.....|
00000580: F2 7F 00 00 12 D0 7F 00  00 12 C2 7F 00 00 14 36  |...............6|
00000590: 6E 00 00 14 7E 6E 00 00  14 F1 6F 00 00 12 EE 77  |n...~n....o....w|
000005A0: 00 00 12 A4 77 00 00 00  00 00 00 00 10 9F 77 00  |....w.........w.|
000005B0: 00 10 9A 77 00 00 10 95  77 00 00 10 90 77 00 00  |...w....w....w..|
000005C0: 10 8B 77 00 00 10 86 77  00 00 14 D0 6E 00 00 00  |..w....w....n...|
000005D0: 00 00 00 00 00 00 00 00  00 0B 53 45 54 4F 46 56  |..........SETOFV|
000005E0: 4F 57 45 4C 53 0C 53 45  54 4F 46 4C 45 54 54 45  |OWELS.SETOFLETTE|
000005F0: 52 53 0B 53 45 54 4F 46  44 49 47 49 54 53 05 45  |RS.SETOFDIGITS.E|
00000600: 4E 54 52 59 05 43 4F 55  4E 54 08 50 52 49 4E 54  |NTRY.COUNT.PRINT|
00000610: 4F 55 54 04 54 45 58 54  04 4C 49 4E 45 04 4F 46  |OUT.TEXT.LINE.OF|
00000620: 37 30 05 57 4F 52 44 53  06 56 4F 57 45 4C 53 0A  |70.WORDS.VOWELS.|
00000630: 43 4F 4E 53 4F 4E 41 4E  54 53 06 44 49 47 49 54  |CONSONANTS.DIGIT|
00000640: 53 08 53 50 45 43 49 41  4C 53 01 43 08 41 4E 41  |S.SPECIALS.C.ANA|
00000650: 4C 59 53 49 53 04 43 48  41 52 06 44 45 4C 45 54  |LYSIS.CHAR.DELET|
00000660: 45 00 00                                          |E..             |

Y.S.\.....PROGRAM: TEXTSTAT//..0.COUNTS 
NUMBER OF WORDS, VOWELS, CONSONANTS//..1
.DIGITS AND SPECIAL CHARACTERS IN GIVEN 
TEXT//.(6.DEMONSTRATES ADVANCED STRING H
ANDLING FACILITIES//.2..IN THE CBM COMAL
-80 PROGRAMMING LANGUAGE//.<..WRITTEN BY
 BORGE R. CHRISTENSEN, NOV. 80//.F...P..
........Z..........D..........N.....AEIO
UY<....1234567890<B.X"....QWERTYUIOPASDF
GHJKLZXCVBNM<............... ........
......P.UN.{.H.......P......F...R.......
............(.. (<...Z\.RN...}........P.
GN.{........:.....:B.....:B."......:....
.:B.,...........Q...........6.}..@...J.
P..O.T.{.T.H....6I6O.LETTER?//.^.H....6I
.O.VOWEL?//.H......=.R.N2O.MUST BE CONSO
NANT//.|......=...O...N.O.NOT A LETTER//
...H.... -I.O.SPACE?//..+.....=.MEANS AN
OTHER WORD, DOES'NT IT?//...N.O.DIGIT OR
 SPECIAL//...H....6ICO.DIGIT?//.B......=
.L.N.O.SPECIAL//.V......=...O...O...O...
}........P..P.{...F...:.&._`A.0._..NUMBE
R OF WORDS:EF..D`A.:._..NUMBER OF VOWELS
:EF..D`A.D"_..NUMBER OF CONSONANTS:EF..D
`A.N._..NUMBER OF DIGITS:EF..D`A.X _..NU
MBER OF SPECIALS:EF..D`A.B._`A.L.}..V...
.C..:MARLEY WAS DEAD, TO BEGIN WITH. THE
RE IS NO DOUBT WHATEVER..P..A..8ABOUT TH
AT. THE REGISTER OF HIS BURIAL WAS SIGNE
D BY THE.6Q..E..<CLERGYMAN, THE CLERK, T
HE UNDERTAKER, AND THE CHIEF MOURNER..{Q
..E..<SCROOGE SIGNED IT .... OLD MARLEY 
WAS AS DEAD AS A DOOR-NAIL..Q..6..-.... 
THERE WAS NO DOUBT THAT MARLEY WAS DEAD.
..Q..,..#THIS MUST BE DISTINCTLY UNDERST
OOD.........P...B...6N...~N....O....W
....W.........W....W....W....W....W....W
...PN.............SETOFVOWELS.SETOFLETTE
RS.SETOFDIGITS.ENTRY.COUNT.PRINTOUT.TEXT
.LINE.OF70.WORDS.VOWELS.CONSONANTS.DIGIT
S.SPECIALS.C.ANALYSIS.CHAR.DELETE..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL