TEXTSTAT02
FILE INFORMATION
FILENAME(S): TEXTSTAT02
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:07:03
APPEARS ON: 1 disk(s)
FILE HASH
f9cd3f8c10e106e93a31dd9203b46f19270b97de70106175cf8c6ccb6ff4f922
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITY PET 05 | TEXTSTAT02 | PRG | DuncanTwain | 9 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 71 05 D0 05 61 06 00 0A 1F 00 50 52 4F 47 52 41 |q...a.....PROGRA|
00000010: 4D 3A 20 54 45 58 54 53 54 41 54 2C 20 56 45 52 |M: TEXTSTAT, VER|
00000020: 2E 20 32 2F 2F 00 14 22 00 28 55 53 45 53 20 54 |. 2//..".(USES T|
00000030: 48 45 20 45 4C 49 46 20 43 4F 4E 53 54 52 55 43 |HE ELIF CONSTRUC|
00000040: 54 49 4F 4E 29 2F 2F 00 1E 30 00 43 4F 55 4E 54 |TION)//..0.COUNT|
00000050: 53 20 4E 55 4D 42 45 52 20 4F 46 20 57 4F 52 44 |S NUMBER OF WORD|
00000060: 53 2C 20 56 4F 57 45 4C 53 2C 20 43 4F 4E 53 4F |S, VOWELS, CONSO|
00000070: 4E 41 4E 54 53 2F 2F 00 28 31 00 44 49 47 49 54 |NANTS//.(1.DIGIT|
00000080: 53 20 41 4E 44 20 53 50 45 43 49 41 4C 20 43 48 |S AND SPECIAL CH|
00000090: 41 52 41 43 54 45 52 53 20 49 4E 20 47 49 56 45 |ARACTERS IN GIVE|
000000A0: 4E 20 54 45 58 54 2F 2F 00 32 36 00 44 45 4D 4F |N TEXT//.26.DEMO|
000000B0: 4E 53 54 52 41 54 45 53 20 41 44 56 41 4E 43 45 |NSTRATES ADVANCE|
000000C0: 44 20 53 54 52 49 4E 47 20 48 41 4E 44 4C 49 4E |D STRING HANDLIN|
000000D0: 47 20 46 41 43 49 4C 49 54 49 45 53 2F 2F 00 3C |G FACILITIES//.<|
000000E0: 2E 00 49 4E 20 54 48 45 20 43 42 4D 20 43 4F 4D |..IN THE CBM COM|
000000F0: 41 4C 2D 38 30 20 50 52 4F 47 52 41 4D 4D 49 4E |AL-80 PROGRAMMIN|
00000100: 47 20 4C 41 4E 47 55 41 47 45 2F 2F 00 46 2E 00 |G LANGUAGE//.F..|
00000110: 57 52 49 54 54 45 4E 20 42 59 20 42 4F 52 47 45 |WRITTEN BY BORGE|
00000120: 20 52 2E 20 43 48 52 49 53 54 45 4E 53 45 4E 2C | R. CHRISTENSEN,|
00000130: 20 4E 4F 56 2E 20 38 30 2F 2F 00 50 04 00 00 5A | NOV. 80//.P...Z|
00000140: 0B 8C 8F 01 00 02 00 0A 93 00 64 0B 8C 8F 02 00 |..........d.....|
00000150: 02 00 1E 93 00 6E 0B 8C 8F 03 00 02 00 0A 93 00 |.....n..........|
00000160: 78 1E 09 01 03 06 41 45 49 4F 55 59 3C 09 03 03 |x.....AEIOUY<...|
00000170: 0A 31 32 33 34 35 36 37 38 39 30 3C 42 00 82 22 |.1234567890<B.."|
00000180: 09 02 03 1A 51 57 45 52 54 59 55 49 4F 50 41 53 |....QWERTYUIOPAS|
00000190: 44 46 47 48 4A 4B 4C 5A 58 43 56 42 4E 4D 3C 00 |DFGHJKLZXCVBNM<.|
000001A0: 8C 04 00 00 96 06 7F 04 81 00 A0 06 7F 05 81 00 |................|
000001B0: AA 06 7F 06 81 00 B4 04 9F 00 BE 04 00 00 C8 09 |................|
000001C0: 70 04 9F 6E 00 7B 00 D2 13 8C 8F 07 00 02 07 D0 |p..n.{..........|
000001D0: 93 8F 08 00 02 00 46 93 94 00 DC 04 95 00 E6 08 |......F.........|
000001E0: AF 09 08 B2 B3 00 F0 0F 09 07 06 07 06 08 28 03 |..............(.|
000001F0: 01 20 28 3C 00 FA 08 DA 5C 96 7C 6E 01 04 05 7D |. (<....\.|n...}|
00000200: 04 01 0E 04 00 01 18 09 70 05 F1 6E 00 7B 01 22 |........p..n.{."|
00000210: 17 07 0A 02 00 00 3A 07 0B 02 00 00 3A 42 07 0C |......:.....:B..|
00000220: 02 00 00 3A 42 01 2C 10 07 0D 02 00 00 3A 07 0E |...:B.,......:..|
00000230: 02 00 00 3A 42 01 36 19 82 0F 10 00 02 00 01 84 |...:B.6.........|
00000240: 09 07 51 85 88 7F 10 0C 07 07 0F 1C 18 89 01 40 |..Q............@|
00000250: 05 7D 05 01 4A 04 00 01 54 0B 70 10 E0 6F 01 74 |.}..J...T.p..o.t|
00000260: 11 7B 01 5E 16 68 06 11 06 02 36 69 60 6F 00 4C |.{.^.h....6i`o.L|
00000270: 45 54 54 45 52 3F 2F 2F 01 68 15 68 06 11 06 01 |ETTER?//.h.h....|
00000280: 36 69 39 6F 00 56 4F 57 45 4C 3F 2F 2F 01 72 09 |6i9o.VOWEL?//.r.|
00000290: 07 0B 02 00 01 3D 01 7C 1A 6E 5C 6F 00 4D 55 53 |.....=.|.n\o.MUS|
000002A0: 54 20 42 45 20 43 4F 4E 53 4F 4E 41 4E 54 2F 2F |T BE CONSONANT//|
000002B0: 01 86 09 07 0C 02 00 01 3D 01 90 04 6F 01 9A 18 |........=...o...|
000002C0: 6D DC 6F 06 11 03 01 20 2D 69 A3 6F 00 53 50 41 |m.o.... -i.o.SPA|
000002D0: 43 45 3F 2F 2F 01 A4 2B 07 0A 02 00 01 3D 00 4D |CE?//..+.....=.M|
000002E0: 45 41 4E 53 20 41 4E 4F 54 48 45 52 20 57 4F 52 |EANS ANOTHER WOR|
000002F0: 44 2C 20 44 4F 45 53 4E 27 54 20 49 54 3F 2F 2F |D, DOESN'T IT?//|
00000300: 01 AE 17 6D DC 6F 06 11 06 03 36 69 C3 6F 00 44 |...m.o....6i.o.D|
00000310: 49 47 49 54 3F 2F 2F 01 B8 09 07 0D 02 00 01 3D |IGIT?//........=|
00000320: 01 C2 10 6E DC 6F 00 53 50 45 43 49 41 4C 2F 2F |...n.o.SPECIAL//|
00000330: 01 CC 09 07 0E 02 00 01 3D 01 D6 04 6F 01 E0 05 |........=...o...|
00000340: 7D 10 01 EA 04 00 01 F4 09 70 06 A1 70 00 7B 01 |}........p..p.{.|
00000350: FE 08 46 02 00 0F 3A 02 08 06 5F 60 61 02 12 1D |..F...:..._`a...|
00000360: 5F 03 10 4E 55 4D 42 45 52 20 4F 46 20 57 4F 52 |_..NUMBER OF WOR|
00000370: 44 53 3A 65 66 04 0A 64 60 61 02 1C 1E 5F 03 11 |DS:ef..d`a..._..|
00000380: 4E 55 4D 42 45 52 20 4F 46 20 56 4F 57 45 4C 53 |NUMBER OF VOWELS|
00000390: 3A 65 66 04 0B 64 60 61 02 26 22 5F 03 15 4E 55 |:ef..d`a.&"_..NU|
000003A0: 4D 42 45 52 20 4F 46 20 43 4F 4E 53 4F 4E 41 4E |MBER OF CONSONAN|
000003B0: 54 53 3A 65 66 04 0C 64 60 61 02 30 1E 5F 03 11 |TS:ef..d`a.0._..|
000003C0: 4E 55 4D 42 45 52 20 4F 46 20 44 49 47 49 54 53 |NUMBER OF DIGITS|
000003D0: 3A 65 66 04 0D 64 60 61 02 3A 20 5F 03 13 4E 55 |:ef..d`a.: _..NU|
000003E0: 4D 42 45 52 20 4F 46 20 53 50 45 43 49 41 4C 53 |MBER OF SPECIALS|
000003F0: 3A 65 66 04 0E 64 60 61 02 44 06 5F 60 61 02 4E |:ef..d`a.D._`a.N|
00000400: 05 7D 06 02 58 04 00 02 62 43 AA AE 3A 4D 41 52 |.}..X...bC..:MAR|
00000410: 4C 45 59 20 57 41 53 20 44 45 41 44 2C 20 54 4F |LEY WAS DEAD, TO|
00000420: 20 42 45 47 49 4E 20 57 49 54 48 2E 20 54 48 45 | BEGIN WITH. THE|
00000430: 52 45 20 49 53 20 4E 4F 20 44 4F 55 42 54 20 57 |RE IS NO DOUBT W|
00000440: 48 41 54 45 56 45 52 AB ED 70 02 6C 41 AA AE 38 |HATEVER..p.lA..8|
00000450: 41 42 4F 55 54 20 54 48 41 54 2E 20 54 48 45 20 |ABOUT THAT. THE |
00000460: 52 45 47 49 53 54 45 52 20 4F 46 20 48 49 53 20 |REGISTER OF HIS |
00000470: 42 55 52 49 41 4C 20 57 41 53 20 53 49 47 4E 45 |BURIAL WAS SIGNE|
00000480: 44 20 42 59 20 54 48 45 AB 2E 71 02 76 45 AA AE |D BY THE..q.vE..|
00000490: 3C 43 4C 45 52 47 59 4D 41 4E 2C 20 54 48 45 20 |<CLERGYMAN, THE |
000004A0: 43 4C 45 52 4B 2C 20 54 48 45 20 55 4E 44 45 52 |CLERK, THE UNDER|
000004B0: 54 41 4B 45 52 2C 20 41 4E 44 20 54 48 45 20 43 |TAKER, AND THE C|
000004C0: 48 49 45 46 20 4D 4F 55 52 4E 45 52 2E AB 73 71 |HIEF MOURNER..sq|
000004D0: 02 80 45 AA AE 3C 53 43 52 4F 4F 47 45 20 53 49 |..E..<SCROOGE SI|
000004E0: 47 4E 45 44 20 49 54 20 2E 2E 2E 2E 20 4F 4C 44 |GNED IT .... OLD|
000004F0: 20 4D 41 52 4C 45 59 20 57 41 53 20 41 53 20 44 | MARLEY WAS AS D|
00000500: 45 41 44 20 41 53 20 41 20 44 4F 4F 52 2D 4E 41 |EAD AS A DOOR-NA|
00000510: 49 4C AB B8 71 02 8A 36 AA AE 2D 2E 2E 2E 2E 20 |IL..q..6..-.... |
00000520: 54 48 45 52 45 20 57 41 53 20 4E 4F 20 44 4F 55 |THERE WAS NO DOU|
00000530: 42 54 20 54 48 41 54 20 4D 41 52 4C 45 59 20 57 |BT THAT MARLEY W|
00000540: 41 53 20 44 45 41 44 2E AB EE 71 02 94 2C AA AE |AS DEAD...q..,..|
00000550: 23 54 48 49 53 20 4D 55 53 54 20 42 45 20 44 49 |#THIS MUST BE DI|
00000560: 53 54 49 4E 43 54 4C 59 20 55 4E 44 45 52 53 54 |STINCTLY UNDERST|
00000570: 4F 4F 44 2E AB 00 00 12 F2 7F 00 00 12 D0 7F 00 |OOD.............|
00000580: 00 12 C2 7F 00 00 14 60 6E 00 00 14 A8 6E 00 00 |.......`n....n..|
00000590: 14 E9 6F 00 00 12 EE 77 00 00 12 A4 77 00 00 00 |..o....w....w...|
000005A0: 00 00 00 00 10 9F 77 00 00 10 9A 77 00 00 10 95 |......w....w....|
000005B0: 77 00 00 10 90 77 00 00 10 8B 77 00 00 10 86 77 |w....w....w....w|
000005C0: 00 00 14 FA 6E 00 00 00 00 00 00 00 00 00 00 00 |....n...........|
000005D0: 00 00 00 00 00 00 0B 53 45 54 4F 46 56 4F 57 45 |.......SETOFVOWE|
000005E0: 4C 53 0C 53 45 54 4F 46 4C 45 54 54 45 52 53 0B |LS.SETOFLETTERS.|
000005F0: 53 45 54 4F 46 44 49 47 49 54 53 05 45 4E 54 52 |SETOFDIGITS.ENTR|
00000600: 59 05 43 4F 55 4E 54 08 50 52 49 4E 54 4F 55 54 |Y.COUNT.PRINTOUT|
00000610: 04 54 45 58 54 04 4C 49 4E 45 04 4F 46 37 30 05 |.TEXT.LINE.OF70.|
00000620: 57 4F 52 44 53 06 56 4F 57 45 4C 53 0A 43 4F 4E |WORDS.VOWELS.CON|
00000630: 53 4F 4E 41 4E 54 53 06 44 49 47 49 54 53 08 53 |SONANTS.DIGITS.S|
00000640: 50 45 43 49 41 4C 53 01 43 08 41 4E 41 4C 59 53 |PECIALS.C.ANALYS|
00000650: 49 53 04 43 48 41 52 06 44 45 4C 45 54 45 07 4C |IS.CHAR.DELETE.L|
00000660: 4F 4F 4B 55 50 30 00 00 |OOKUP0.. |
Q.P.A.....PROGRAM: TEXTSTAT, VER. 2//.."
.(USES THE ELIF CONSTRUCTION)//..0.COUNT
S NUMBER OF WORDS, VOWELS, CONSONANTS//.
(1.DIGITS AND SPECIAL CHARACTERS IN GIVE
N TEXT//.26.DEMONSTRATES ADVANCED STRING
HANDLING FACILITIES//.<..IN THE CBM COM
AL-80 PROGRAMMING LANGUAGE//.F..WRITTEN
BY BORGE R. CHRISTENSEN, NOV. 80//.P...Z
..........D..........N..........X.....AE
IOUY<....1234567890<B.."....QWERTYUIOPAS
DFGHJKLZXCVBNM<.......... ...........
......H.P..N.{.R.......P......F.........
..............(.. (<...Z\.|N...}........
P..N.{."......:.....:B.....:B.,......:..
...:B.6...........Q...........@.}..J...
T.P..O.T.{.^.H....6I`O.LETTER?//.H.H....
6I9O.VOWEL?//.R......=.|.N\O.MUST BE CON
SONANT//........=...O...M.O.... -I.O.SPA
CE?//..+.....=.MEANS ANOTHER WORD, DOESN
'T IT?//...M.O....6ICO.DIGIT?//........=
.B.N.O.SPECIAL//.L......=.V.O...}.......
.P..P.{...F...:..._`A..._..NUMBER OF WOR
DS:EF..D`A..._..NUMBER OF VOWELS:EF..D`A
.&"_..NUMBER OF CONSONANTS:EF..D`A.0._..
NUMBER OF DIGITS:EF..D`A.: _..NUMBER OF
SPECIALS:EF..D`A.D._`A.N.}..X...BC..:MAR
LEY WAS DEAD, TO BEGIN WITH. THERE IS NO
DOUBT WHATEVER..P.LA..8ABOUT THAT. THE
REGISTER OF HIS BURIAL WAS SIGNED BY THE
..Q.VE..<CLERGYMAN, THE CLERK, THE UNDER
TAKER, AND THE CHIEF MOURNER..SQ..E..<SC
ROOGE SIGNED IT .... OLD MARLEY WAS AS D
EAD AS A DOOR-NAIL..Q..6..-.... THERE WA
S NO DOUBT THAT MARLEY WAS DEAD...Q..,..
#THIS MUST BE DISTINCTLY UNDERSTOOD.....
....P...B...`N....N....O....W....W...
......W....W....W....W....W....W....N...
...............SETOFVOWELS.SETOFLETTERS.
SETOFDIGITS.ENTRY.COUNT.PRINTOUT.TEXT.LI
NE.OF70.WORDS.VOWELS.CONSONANTS.DIGITS.S
PECIALS.C.ANALYSIS.CHAR.DELETE.LOOKUP0..
> CLICK IMAGE PREVIEW FOR FULL MODAL