00000000: 22 20 20 20 20 20 20 20 20 20 D7 D0 2F C5 D3 20 |" ../.. |
00000010: D7 CF D2 C4 20 C3 CF D5 CE D4 C5 D2 20 20 20 C2 |.... ....... .|
00000020: 59 3A 20 D2 4F 42 45 52 54 20 D7 2E 20 C2 41 4B |Y: .OBERT .. .AK|
00000030: 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ER |
00000040: 20 D0 41 47 45 20 31 0D 0D 0D 22 20 20 20 20 20 | .AGE 1..." |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 D7 CF D2 | ...|
00000060: C4 20 D0 D2 CF 20 26 20 C5 C1 D3 D9 20 D3 C3 D2 |. ... & .... ...|
00000070: C9 D0 D4 20 D7 CF D2 C4 20 C3 CF D5 CE D4 C5 D2 |... .... .......|
00000080: 20 D5 D4 C9 CC C9 D4 D9 0D 0D 22 20 20 20 20 20 | ........." |
00000090: 20 20 20 20 C8 45 52 45 27 53 20 41 4E 4F 54 48 | .ERE'S ANOTH|
000000A0: 45 52 20 53 45 54 20 4F 46 20 55 54 49 4C 49 54 |ER SET OF UTILIT|
000000B0: 59 20 50 52 4F 47 52 41 4D 53 20 54 48 41 54 20 |Y PROGRAMS THAT |
000000C0: C3 4F 4D 4D 4F 44 4F 52 45 2D 36 34 20 D7 4F 52 |.OMMODORE-64 .OR|
000000D0: 44 0D 22 20 20 20 20 20 20 20 20 20 D0 52 4F 20 |D." .RO |
000000E0: 41 4E 44 20 C5 41 53 59 20 D3 43 52 49 50 54 20 |AND .ASY .CRIPT |
000000F0: 55 53 45 52 53 20 4D 49 47 48 54 20 46 49 4E 44 |USERS MIGHT FIND|
00000100: 20 49 4E 54 45 52 45 53 54 49 4E 47 2E 20 D4 48 | INTERESTING. .H|
00000110: 49 53 20 20 53 48 4F 52 54 0D 22 20 20 20 20 20 |IS SHORT." |
00000120: 20 20 20 20 50 52 4F 47 52 41 4D 20 43 4F 55 4E | PROGRAM COUN|
00000130: 54 53 20 54 48 45 20 57 4F 52 44 53 20 49 4E 20 |TS THE WORDS IN |
00000140: 41 20 47 49 56 45 4E 20 D7 4F 52 44 20 D0 52 4F |A GIVEN .ORD .RO|
00000150: 20 4F 52 20 20 C5 41 53 59 20 20 D3 43 52 49 50 | OR .ASY .CRIP|
00000160: 54 0D 22 20 20 20 20 20 20 20 20 20 54 45 58 54 |T." TEXT|
00000170: 20 46 49 4C 45 20 54 48 41 54 27 53 20 42 45 45 | FILE THAT'S BEE|
00000180: 4E 20 53 41 56 45 44 20 20 4F 4E 20 20 44 49 53 |N SAVED ON DIS|
00000190: 4B 2E 20 20 D4 48 45 20 20 50 52 4F 47 52 41 4D |K. .HE PROGRAM|
000001A0: 20 20 49 53 20 20 4E 4F 54 0D 22 20 20 20 20 20 | IS NOT." |
000001B0: 20 20 20 20 46 4F 4F 4C 50 52 4F 4F 46 2C 20 42 | FOOLPROOF, B|
000001C0: 55 54 20 49 54 20 49 53 20 46 41 49 52 4C 59 20 |UT IT IS FAIRLY |
000001D0: 41 43 43 55 52 41 54 45 2E 0D 22 0D 22 20 20 20 |ACCURATE.."." |
000001E0: 20 20 20 20 20 20 D7 48 45 4E 20 59 4F 55 20 52 | .HEN YOU R|
000001F0: 55 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 20 49 |UN THE PROGRAM I|
00000200: 54 20 46 49 52 53 54 20 41 53 4B 53 20 46 4F 52 |T FIRST ASKS FOR|
00000210: 20 20 54 48 45 20 20 46 49 4C 45 4E 41 4D 45 20 | THE FILENAME |
00000220: 20 4F 46 0D 22 20 20 20 20 20 20 20 20 20 54 48 | OF." TH|
00000230: 45 20 44 45 53 49 52 45 44 20 46 49 4C 45 2E 20 |E DESIRED FILE. |
00000240: D4 48 45 4E 20 49 54 20 20 52 45 51 55 45 53 54 |.HEN IT REQUEST|
00000250: 53 20 20 54 48 45 20 20 4D 49 4E 49 4D 55 4D 20 |S THE MINIMUM |
00000260: 20 4E 55 4D 42 45 52 20 20 4F 46 0D 22 20 20 20 | NUMBER OF." |
00000270: 20 20 20 20 20 20 4C 45 54 54 45 52 53 20 41 20 | LETTERS A |
00000280: 57 4F 52 44 20 4D 55 53 54 20 48 41 56 45 20 54 |WORD MUST HAVE T|
00000290: 4F 20 42 45 20 43 4F 55 4E 54 45 44 2E 20 C6 4F |O BE COUNTED. .O|
000002A0: 52 20 41 4E 20 20 45 58 41 4D 50 4C 45 2C 20 20 |R AN EXAMPLE, |
000002B0: 59 4F 55 0D 22 20 20 20 20 20 20 20 20 20 4D 49 |YOU." MI|
000002C0: 47 48 54 20 43 48 4F 4F 53 45 20 54 4F 20 43 4F |GHT CHOOSE TO CO|
000002D0: 55 4E 54 20 4F 4E 4C 59 20 54 48 4F 53 45 20 20 |UNT ONLY THOSE |
000002E0: 57 4F 52 44 53 20 20 57 49 54 48 20 20 46 4F 55 |WORDS WITH FOU|
000002F0: 52 20 20 4F 52 20 20 4D 4F 52 45 0D 22 20 20 20 |R OR MORE." |
00000300: 20 20 20 20 20 20 4C 45 54 54 45 52 53 2C 20 41 | LETTERS, A|
00000310: 4E 44 20 53 4B 49 50 20 54 48 45 20 53 48 4F 52 |ND SKIP THE SHOR|
00000320: 54 45 52 20 57 4F 52 44 53 2E 20 C9 46 20 59 4F |TER WORDS. .F YO|
00000330: 55 27 52 45 20 20 44 4F 49 4E 47 20 20 53 43 48 |U'RE DOING SCH|
00000340: 4F 4F 4C 0D 22 20 20 20 20 20 20 20 20 20 50 41 |OOL." PA|
00000350: 50 45 52 53 2C 20 57 52 49 54 49 4E 47 20 43 4C |PERS, WRITING CL|
00000360: 41 53 53 49 46 49 45 44 20 41 44 53 2C 20 45 54 |ASSIFIED ADS, ET|
00000370: 43 2E 2C 20 20 59 4F 55 20 20 4D 49 47 48 54 20 |C., YOU MIGHT |
00000380: 20 46 49 4E 44 20 20 54 48 49 53 0D 22 20 20 20 | FIND THIS." |
00000390: 20 20 20 20 20 20 48 41 4E 44 59 2E 0D 22 0D 22 | HANDY.."."|
000003A0: 20 20 20 20 20 20 20 20 20 D7 48 45 4E 20 20 52 | .HEN R|
000003B0: 45 41 44 49 4E 47 20 20 54 48 45 20 20 46 49 4C |EADING THE FIL|
000003C0: 45 20 20 41 4E 44 20 20 43 4F 55 4E 54 49 4E 47 |E AND COUNTING|
000003D0: 20 20 57 4F 52 44 53 2C 20 20 54 48 45 20 20 50 | WORDS, THE P|
000003E0: 52 4F 47 52 41 4D 0D 22 20 20 20 20 20 20 20 20 |ROGRAM." |
000003F0: 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C 59 20 53 | AUTOMATICALLY S|
00000400: 4B 49 50 53 20 4F 56 45 52 20 41 4C 4C 20 D7 4F |KIPS OVER ALL .O|
00000410: 52 44 20 D0 52 4F 20 4F 52 20 C5 41 53 59 20 D3 |RD .RO OR .ASY .|
00000420: 43 52 49 50 54 20 43 4F 4D 4D 41 4E 44 53 0D 22 |CRIPT COMMANDS."|
00000430: 20 20 20 20 20 20 20 20 20 41 4E 44 20 41 4E 59 | AND ANY|
00000440: 20 4E 4F 4E 2D 41 4C 50 48 41 4E 55 4D 45 52 49 | NON-ALPHANUMERI|
00000450: 43 20 43 48 41 52 41 43 54 45 52 53 20 49 4E 20 |C CHARACTERS IN |
00000460: 54 48 45 20 54 45 58 54 2E 20 20 D7 4F 52 44 53 |THE TEXT. .ORDS|
00000470: 20 20 57 49 54 48 0D 22 20 20 20 20 20 20 20 20 | WITH." |
00000480: 20 48 59 50 48 45 4E 53 20 4F 52 20 41 50 4F 53 | HYPHENS OR APOS|
00000490: 54 52 4F 50 48 45 53 20 41 52 45 20 43 4F 55 4E |TROPHES ARE COUN|
000004A0: 54 45 44 20 41 53 20 53 49 4E 47 4C 45 20 57 4F |TED AS SINGLE WO|
000004B0: 52 44 53 2C 20 53 49 4E 43 45 20 41 4E 59 0D 22 |RDS, SINCE ANY."|
000004C0: 20 20 20 20 20 20 20 20 20 43 48 41 52 41 43 54 | CHARACT|
000004D0: 45 52 20 54 48 41 54 27 53 20 4E 4F 54 20 41 20 |ER THAT'S NOT A |
000004E0: 4C 45 54 54 45 52 20 4F 52 20 4E 55 4D 42 45 52 |LETTER OR NUMBER|
000004F0: 20 20 49 53 20 20 4E 4F 54 20 20 43 4F 55 4E 54 | IS NOT COUNT|
00000500: 45 44 20 20 41 53 0D 22 20 20 20 20 20 20 20 20 |ED AS." |
00000510: 20 50 41 52 54 20 4F 46 20 54 48 45 20 57 4F 52 | PART OF THE WOR|
00000520: 44 2E 20 C7 52 4F 55 50 53 20 4F 46 20 4E 55 4D |D. .ROUPS OF NUM|
00000530: 42 45 52 53 20 41 52 45 20 20 41 4C 53 4F 20 20 |BERS ARE ALSO |
00000540: 43 4F 4E 53 49 44 45 52 45 44 20 20 41 53 0D 22 |CONSIDERED AS."|
00000550: 20 20 20 20 20 20 20 20 20 57 4F 52 44 53 2E 20 | WORDS. |
00000560: D7 48 45 4E 45 56 45 52 20 41 20 53 50 41 43 45 |.HENEVER A SPACE|
00000570: 2C 20 53 48 49 46 54 45 44 2D 53 50 41 43 45 2C |, SHIFTED-SPACE,|
00000580: 20 4F 52 20 52 45 54 55 52 4E 20 28 53 48 4F 57 | OR RETURN (SHOW|
00000590: 4E 20 41 53 20 41 0D 22 20 20 20 20 20 20 20 20 |N AS A." |
000005A0: 20 42 41 43 4B 2D 41 52 52 4F 57 20 49 4E 20 20 | BACK-ARROW IN |
000005B0: D7 4F 52 44 20 20 D0 52 4F 20 20 4F 52 20 20 C5 |.ORD .RO OR .|
000005C0: 41 53 59 20 20 D3 43 52 49 50 54 29 20 20 49 53 |ASY .CRIPT) IS|
000005D0: 20 20 46 4F 55 4E 44 2C 20 20 49 54 27 53 0D 22 | FOUND, IT'S."|
000005E0: 20 20 20 20 20 20 20 20 20 43 4F 4E 53 49 44 45 | CONSIDE|
000005F0: 52 45 44 20 54 4F 20 42 45 20 54 48 45 20 45 4E |RED TO BE THE EN|
00000600: 44 20 4F 46 20 54 48 45 20 57 4F 52 44 2E 0D 22 |D OF THE WORD.."|
00000610: 0D 22 20 20 20 20 20 20 20 20 20 D7 48 45 4E 20 |." .HEN |
00000620: 54 48 45 20 45 4E 44 20 4F 46 20 54 48 45 20 20 |THE END OF THE |
00000630: 46 49 4C 45 20 20 49 53 20 20 46 4F 55 4E 44 2C |FILE IS FOUND,|
00000640: 20 20 54 48 45 20 20 4E 55 4D 42 45 52 20 20 4F | THE NUMBER O|
00000650: 46 20 20 57 4F 52 44 53 0D 22 20 20 20 20 20 20 |F WORDS." |
00000660: 20 20 20 43 4F 55 4E 54 45 44 20 49 53 20 44 49 | COUNTED IS DI|
00000670: 53 50 4C 41 59 45 44 20 4F 4E 20 54 48 45 20 53 |SPLAYED ON THE S|
00000680: 43 52 45 45 4E 2E 20 D7 49 54 48 20 20 4C 4F 4E |CREEN. .ITH LON|
00000690: 47 45 52 20 20 46 49 4C 45 53 20 20 54 48 49 53 |GER FILES THIS|
000006A0: 0D 22 20 20 20 20 20 20 20 20 20 50 52 4F 47 52 |." PROGR|
000006B0: 41 4D 20 4D 41 59 20 54 41 4B 45 20 41 20 4C 49 |AM MAY TAKE A LI|
000006C0: 54 54 4C 45 20 57 48 49 4C 45 20 54 4F 20 45 58 |TTLE WHILE TO EX|
000006D0: 45 43 55 54 45 20 44 55 45 20 20 54 4F 20 20 54 |ECUTE DUE TO T|
000006E0: 48 45 20 20 53 4C 4F 57 0D 22 20 20 20 20 20 20 |HE SLOW." |
000006F0: 20 20 20 41 43 43 45 53 53 20 54 49 4D 45 20 4F | ACCESS TIME O|
00000700: 46 20 54 48 45 20 D6 C9 C3 2D 31 35 34 31 20 44 |F THE ...-1541 D|
00000710: 49 53 4B 2C 20 42 45 20 50 41 54 49 45 4E 54 2E |ISK, BE PATIENT.|
00000720: 20 D4 48 45 20 4F 4E 4C 59 20 20 54 48 49 4E 47 | .HE ONLY THING|
00000730: 0D 22 20 20 20 20 20 20 20 20 20 43 55 52 52 45 |." CURRE|
00000740: 4E 54 4C 59 20 4D 49 53 53 49 4E 47 20 49 53 20 |NTLY MISSING IS |
00000750: 54 48 45 20 41 42 49 4C 49 54 59 20 54 4F 20 48 |THE ABILITY TO H|
00000760: 41 4E 44 4C 45 20 47 4C 4F 42 41 4C 20 D7 4F 52 |ANDLE GLOBAL .OR|
00000770: 44 20 D0 52 4F 20 4F 52 0D 22 20 20 20 20 20 20 |D .RO OR." |
00000780: 20 20 20 C5 41 53 59 20 D3 43 52 49 50 54 20 46 | .ASY .CRIPT F|
00000790: 49 4C 45 53 2E 20 C9 46 20 59 4F 55 20 57 41 4E |ILES. .F YOU WAN|
000007A0: 54 20 54 4F 20 43 4F 55 4E 54 20 41 4C 4C 20 54 |T TO COUNT ALL T|
000007B0: 48 45 20 20 57 4F 52 44 53 20 20 49 4E 20 20 41 |HE WORDS IN A|
000007C0: 0D 22 20 20 20 20 20 20 20 20 20 4C 4F 4E 47 20 |." LONG |
000007D0: 50 49 45 43 45 2C 20 53 49 4D 50 4C 59 20 43 4F |PIECE, SIMPLY CO|
000007E0: 55 4E 54 20 45 41 43 48 20 46 49 4C 45 20 53 45 |UNT EACH FILE SE|
000007F0: 50 41 52 41 54 45 4C 59 2E 0D 0D 0D 0D 0D 0D 0D |PARATELY........|
00000800: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................|
00000810: 0D 0D 0D 0D 0D 0D 0D 0D |........ |
" WP/ES WORD COUNTER BY: ROBER
T W. BAKER PAGE 1..."
WORD PRO & EASY SCRIPT WORD
COUNTER UTILITY.." HERE'S ANOTH
ER SET OF UTILITY PROGRAMS THAT COMMODOR
E-64 WORD." PRO AND EASY SCRIPT
USERS MIGHT FIND INTERESTING. THIS SHOR
T." PROGRAM COUNTS THE WORDS IN
A GIVEN WORD PRO OR EASY SCRIPT."
TEXT FILE THAT'S BEEN SAVED ON DIS
K. THE PROGRAM IS NOT." FOOL
PROOF, BUT IT IS FAIRLY ACCURATE.."."
WHEN YOU RUN THE PROGRAM IT FIRST
ASKS FOR THE FILENAME OF." TH
E DESIRED FILE. THEN IT REQUESTS THE
MINIMUM NUMBER OF." LETTERS A
WORD MUST HAVE TO BE COUNTED. FOR AN EX
AMPLE, YOU." MIGHT CHOOSE TO CO
UNT ONLY THOSE WORDS WITH FOUR OR M
ORE." LETTERS, AND SKIP THE SHOR
TER WORDS. IF YOU'RE DOING SCHOOL."
PAPERS, WRITING CLASSIFIED ADS, ET
C., YOU MIGHT FIND THIS." HA
NDY.."." WHEN READING THE FIL
E AND COUNTING WORDS, THE PROGRAM."
AUTOMATICALLY SKIPS OVER ALL WO
RD PRO OR EASY SCRIPT COMMANDS."
AND ANY NON-ALPHANUMERIC CHARACTERS IN
THE TEXT. WORDS WITH." HYPHENS
OR APOSTROPHES ARE COUNTED AS SINGLE WO
RDS, SINCE ANY." CHARACTER THAT'
S NOT A LETTER OR NUMBER IS NOT COUNT
ED AS." PART OF THE WORD. GROUP
S OF NUMBERS ARE ALSO CONSIDERED AS."
WORDS. WHENEVER A SPACE, SHIFTE
D-SPACE, OR RETURN (SHOWN AS A."
BACK-ARROW IN WORD PRO OR EASY SCR
IPT) IS FOUND, IT'S." CONSIDE
RED TO BE THE END OF THE WORD.."."
WHEN THE END OF THE FILE IS FOUND,
THE NUMBER OF WORDS." COUNT
ED IS DISPLAYED ON THE SCREEN. WITH LON
GER FILES THIS." PROGRAM MAY T
AKE A LITTLE WHILE TO EXECUTE DUE TO T
HE SLOW." ACCESS TIME OF THE VI
C-1541 DISK, BE PATIENT. THE ONLY THING
." CURRENTLY MISSING IS THE ABIL
ITY TO HANDLE GLOBAL WORD PRO OR."
EASY SCRIPT FILES. IF YOU WANT TO COU
NT ALL THE WORDS IN A." LONG
PIECE, SIMPLY COUNT EACH FILE SEPARATELY
................................
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL