WORDCOUNT
FILE INFORMATION
FILENAME(S): WORDCOUNT
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-12-01 13:46:50
APPEARS ON: 1 disk(s)
FILE HASH
94c1a9e9697925c7f4e135ff1a2da538907dd03fad0b8eb5624a943d1f2f5050
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY DISK | WORDCOUNT | PRG | hedning, Zeta | 2 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 00 00 8F 20 20 20 57 4F 52 44 43 4F |..'.... WORDCO|
00000010: 55 4E 54 20 28 36 34 29 20 20 20 31 33 2F 36 2F |UNT (64) 13/6/|
00000020: 38 33 20 20 20 42 54 00 3B 08 01 00 97 20 35 33 |83 BT.;.... 53|
00000030: 32 37 32 2C 32 33 3A 89 32 35 30 00 6F 08 02 00 |272,23:.250.o...|
00000040: A0 31 35 3A 9F 20 31 35 2C 38 2C 31 35 2C 22 53 |.15:. 15,8,15,"S|
00000050: 30 3A 57 4F 52 44 43 4F 55 4E 54 22 3A 94 22 30 |0:WORDCOUNT":."0|
00000060: 3A 57 4F 52 44 43 4F 55 4E 54 22 2C 38 3A 80 00 |:WORDCOUNT",8:..|
00000070: 91 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..d.. **********|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 00 B3 08 6E 00 8F 20 2A 20 20 20 20 20 20 20 |*...n.. * |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 2A 00 D5 08 78 00 8F 20 2A 20 20 20 20 20 | *...x.. * |
000000C0: 20 20 20 57 4F 52 44 43 4F 55 4E 54 20 20 20 20 | WORDCOUNT |
000000D0: 20 20 20 20 2A 00 F7 08 82 00 8F 20 2A 20 20 20 | *...... * |
000000E0: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 | --------- |
000000F0: 20 20 20 20 20 20 2A 00 19 09 8C 00 8F 20 2A 20 | *...... * |
00000100: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 43 4F 55 |THIS PROGRAM COU|
00000110: 4E 54 53 20 54 48 45 20 2A 00 3B 09 96 00 8F 20 |NTS THE *.;.... |
00000120: 2A 20 57 4F 52 44 53 20 49 4E 20 41 20 46 49 4C |* WORDS IN A FIL|
00000130: 45 20 57 52 49 54 54 45 4E 20 2A 00 5D 09 A0 00 |E WRITTEN *.]...|
00000140: 8F 20 2A 20 57 49 54 48 20 27 53 49 4D 50 4C 59 |. * WITH 'SIMPLY|
00000150: 20 57 52 49 54 45 27 2E 20 20 20 20 2A 00 7F 09 | WRITE'. *...|
00000160: AA 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |... * |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000180: A1 09 B4 00 8F 20 2A 20 49 54 20 49 53 20 47 49 |..... * IT IS GI|
00000190: 56 45 4E 20 46 52 45 45 20 46 4F 52 20 20 20 20 |VEN FREE FOR |
000001A0: 2A 00 C3 09 BE 00 8F 20 2A 20 55 53 45 20 57 49 |*...... * USE WI|
000001B0: 54 48 20 54 48 49 53 20 50 41 43 4B 41 47 45 20 |TH THIS PACKAGE |
000001C0: 20 20 2A 00 E5 09 C8 00 8F 20 2A 20 42 59 20 53 | *...... * BY S|
000001D0: 49 4D 50 4C 45 20 53 4F 46 54 57 41 52 45 20 4C |IMPLE SOFTWARE L|
000001E0: 54 44 20 20 2A 00 07 0A D2 00 8F 20 2A 20 41 4E |TD *...... * AN|
000001F0: 44 20 42 52 49 41 4E 20 54 52 45 47 41 52 2C 20 |D BRIAN TREGAR, |
00000200: 57 48 4F 20 20 20 2A 00 29 0A DC 00 8F 20 2A 20 |WHO *.).... * |
00000210: 4F 57 4E 20 54 48 45 20 43 4F 50 59 52 49 47 48 |OWN THE COPYRIGH|
00000220: 54 2E 20 20 20 20 20 20 2A 00 4B 0A E6 00 8F 20 |T. *.K.... |
00000230: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000240: 20 20 20 20 20 20 20 20 20 20 2A 00 6D 0A F0 00 | *.m...|
00000250: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 77 0A |*************.w.|
00000270: FA 00 44 4D B2 34 30 00 97 0A 04 01 53 43 B2 30 |..DM.40.....SC.0|
00000280: 3A 86 41 24 28 35 30 30 29 3A 8F 20 2A 20 45 4E |:.A$(500):. * EN|
00000290: 4F 55 47 48 3F 20 2A 00 BA 0A 0E 01 8F 20 2D 2D |OUGH? *...... --|
000002A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 DD 0A 18 01 8F |----------......|
000002C0: 20 44 49 4D 20 41 24 28 29 20 48 49 47 48 45 52 | DIM A$() HIGHER|
000002D0: 20 49 46 20 4D 4F 52 45 20 54 48 41 4E 00 FD 0A | IF MORE THAN...|
000002E0: 22 01 8F 20 35 30 30 20 53 43 52 45 45 4E 20 4C |".. 500 SCREEN L|
000002F0: 49 4E 45 53 20 49 4E 20 54 45 58 54 3B 00 1C 0B |INES IN TEXT;...|
00000300: 2C 01 8F 20 4C 4F 57 45 52 20 49 46 20 27 4F 55 |,.. LOWER IF 'OU|
00000310: 54 20 4F 46 20 4D 45 4D 4F 52 59 27 00 3F 0B 36 |T OF MEMORY'.?.6|
00000320: 01 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
00000330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00000340: 4A 0B 4A 01 86 42 28 44 4D 29 00 69 0B 54 01 8D |J.J..B(DM).i.T..|
00000350: 39 33 30 3A 20 8F 20 2A 20 49 4E 54 52 4F 44 55 |930: . * INTRODU|
00000360: 43 54 49 4F 4E 20 20 20 2A 00 88 0B 5E 01 8D 37 |CTION *...^..7|
00000370: 38 30 3A 20 8F 20 2A 20 4C 4F 41 44 20 46 49 4C |80: . * LOAD FIL|
00000380: 45 20 20 20 20 20 20 2A 00 A2 0B 68 01 8F 20 2A |E *...h.. *|
00000390: 20 43 4F 55 4E 54 49 4E 47 20 53 50 41 43 45 53 | COUNTING SPACES|
000003A0: 20 2A 00 BC 0B 72 01 8F 20 3D 3D 3D 3D 3D 3D 3D | *...r.. =======|
000003B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 D6 0B 7C |============...||
000003C0: 01 99 3A 99 22 11 11 12 20 43 4F 55 4E 54 49 4E |..:."... COUNTIN|
000003D0: 47 21 21 20 92 22 00 F4 0B 86 01 81 53 B2 31 A4 |G!! ."......S.1.|
000003E0: 43 52 3A 8F 20 2A 20 41 4C 4C 20 53 54 52 49 4E |CR:. * ALL STRIN|
000003F0: 47 53 20 2A 00 13 0C 90 01 8F 20 2A 20 49 47 4E |GS *...... * IGN|
00000400: 4F 52 45 20 43 4F 4D 4D 41 4E 44 20 4C 49 4E 45 |ORE COMMAND LINE|
00000410: 53 20 2A 00 32 0C 9A 01 8F 20 3D 3D 3D 3D 3D 3D |S *.2.... ======|
00000420: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000430: 3D 3D 00 4A 0C A4 01 8B C8 28 41 24 28 53 29 2C |==.J.....(A$(S),|
00000440: 31 29 B2 22 5E 22 A7 37 30 30 00 67 0C AE 01 8F |1)."^".700.g....|
00000450: 20 2A 20 49 47 4E 4F 52 45 20 45 4D 50 54 59 20 | * IGNORE EMPTY |
00000460: 4C 49 4E 45 53 20 2A 00 84 0C B8 01 8F 20 3D 3D |LINES *...... ==|
00000470: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000480: 3D 3D 3D 3D 00 9C 0C C2 01 8B C8 28 41 24 28 53 |====.......(A$(S|
00000490: 29 2C 31 29 B2 22 5F 22 A7 37 30 30 00 B9 0C CC |),1)."_".700....|
000004A0: 01 8F 20 2A 20 46 4F 52 20 45 41 43 48 20 43 48 |.. * FOR EACH CH|
000004B0: 41 52 41 43 54 45 52 20 2A 00 D6 0C D6 01 8F 20 |ARACTER *...... |
000004C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000004D0: 3D 3D 3D 3D 3D 3D 00 E8 0C E0 01 81 43 B2 31 A4 |======......C.1.|
000004E0: C3 28 41 24 28 53 29 29 00 FC 0C EA 01 54 24 B2 |.(A$(S)).....T$.|
000004F0: CA 28 41 24 28 53 29 2C 43 2C 31 29 00 21 0D F4 |.(A$(S),C,1).!..|
00000500: 01 8F 20 2A 20 43 4F 55 4E 54 20 53 50 41 43 45 |.. * COUNT SPACE|
00000510: 20 4F 52 20 53 48 49 46 54 2D 53 50 41 43 45 20 | OR SHIFT-SPACE |
00000520: 2A 00 46 0D FE 01 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |*.F.... ========|
00000530: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000540: 3D 3D 3D 3D 3D 3D 00 68 0D 08 02 8B 54 24 B2 22 |======.h....T$."|
00000550: 20 22 B0 54 24 B2 22 A0 22 A7 53 43 B2 53 43 AA | ".T$.".".SC.SC.|
00000560: 31 3A 42 28 43 29 B2 31 00 7B 0D 1C 02 8B 54 24 |1:B(C).1.{....T$|
00000570: B2 22 A6 22 A7 42 28 43 29 B2 32 00 98 0D 26 02 |.".".B(C).2...&.|
00000580: 82 43 3A 20 8F 20 2A 20 4E 45 58 54 20 43 48 41 |.C: . * NEXT CHA|
00000590: 52 41 43 54 45 52 20 2A 00 B8 0D 30 02 99 22 11 |RACTER *...0..".|
000005A0: 22 53 43 3A 20 8F 20 2A 20 52 55 4E 4E 49 4E 47 |"SC: . * RUNNING|
000005B0: 20 54 4F 54 41 4C 20 2A 00 DB 0D 3A 02 8F 20 2A | TOTAL *...:.. *|
000005C0: 20 41 44 44 20 53 50 41 43 45 20 41 46 54 45 52 | ADD SPACE AFTER|
000005D0: 20 50 41 52 41 20 45 4E 44 20 2A 00 FE 0D 44 02 | PARA END *...D.|
000005E0: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
000005F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 12 |==============..|
00000600: 0E 4E 02 8B 54 24 B2 22 5F 22 A7 53 43 B2 53 43 |.N..T$."_".SC.SC|
00000610: AA 31 00 35 0E 58 02 8F 20 2A 20 44 49 53 43 4F |.1.5.X.. * DISCO|
00000620: 55 4E 54 20 53 50 41 43 45 20 41 46 54 45 52 20 |UNT SPACE AFTER |
00000630: 54 41 42 20 2A 00 58 0E 62 02 8F 20 3D 3D 3D 3D |TAB *.X.b.. ====|
00000640: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000650: 3D 3D 3D 3D 3D 3D 3D 3D 00 97 0E 6C 02 81 58 B2 |========...l..X.|
00000660: 31 A4 44 4D 3A 8B 42 28 58 29 B2 31 AF 42 28 58 |1.DM:.B(X).1.B(X|
00000670: AB 31 29 B2 32 A7 53 43 B2 53 43 AB 31 3A 20 8F |.1).2.SC.SC.1: .|
00000680: 20 2A 20 53 50 41 43 45 20 46 4F 4C 4C 4F 57 53 | * SPACE FOLLOWS|
00000690: 20 54 41 42 3F 20 2A 00 BC 0E 76 02 8F 20 2A 20 | TAB? *...v.. * |
000006A0: 44 49 53 43 4F 55 4E 54 20 53 55 43 43 45 53 53 |DISCOUNT SUCCESS|
000006B0: 49 56 45 20 53 50 41 43 45 53 20 2A 00 E1 0E 80 |IVE SPACES *....|
000006C0: 02 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============|
000006D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000006E0: 3D 00 FE 0E 8A 02 8B 42 28 58 29 B2 31 AF 42 28 |=......B(X).1.B(|
000006F0: 58 AB 31 29 B2 31 A7 53 43 B2 53 43 AB 31 00 1D |X.1).1.SC.SC.1..|
00000700: 0F 94 02 82 58 3A 20 8F 20 2A 20 53 50 41 43 45 |....X: . * SPACE|
00000710: 53 20 41 44 4A 41 43 45 4E 54 3F 20 2A 00 33 0F |S ADJACENT? *.3.|
00000720: 9E 02 8F 20 2A 20 43 4C 45 41 52 20 41 52 52 41 |... * CLEAR ARRA|
00000730: 59 20 2A 00 49 0F A8 02 8F 20 3D 3D 3D 3D 3D 3D |Y *.I.... ======|
00000740: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 5F 0F B2 02 81 58 |=========._....X|
00000750: B2 31 A4 44 4D 3A 42 28 58 29 B2 30 3A 82 58 00 |.1.DM:B(X).0:.X.|
00000760: 79 0F BC 02 82 53 3A 20 8F 20 2A 20 4E 45 58 54 |y....S: . * NEXT|
00000770: 20 53 54 52 49 4E 47 20 2A 00 93 0F C6 02 99 22 | STRING *......"|
00000780: 11 11 57 4F 52 44 20 43 4F 55 4E 54 20 3D 20 22 |..WORD COUNT = "|
00000790: 20 53 43 00 BF 0F D0 02 99 22 11 11 12 20 D0 52 | SC......"... .R|
000007A0: 45 53 53 20 27 58 27 20 54 4F 20 45 58 49 54 20 |ESS 'X' TO EXIT |
000007B0: 46 52 4F 4D 20 50 52 4F 47 52 41 4D 20 92 22 00 |FROM PROGRAM .".|
000007C0: E9 0F DA 02 99 22 12 20 20 20 20 4F 52 20 27 43 |.....". OR 'C|
000007D0: 27 20 54 4F 20 43 4F 55 4E 54 20 4E 45 57 20 46 |' TO COUNT NEW F|
000007E0: 49 4C 45 20 20 20 20 92 22 00 FD 0F E4 02 A1 20 |ILE ."...... |
000007F0: 47 24 3A 8B 47 24 B2 22 22 A7 37 34 30 00 1A 10 |G$:.G$."".740...|
00000800: EE 02 8B 47 24 B2 22 58 22 A7 99 22 93 22 3A 97 |...G$."X"..".":.|
00000810: 35 33 32 37 32 2C 32 31 3A 80 00 59 10 F8 02 8B |53272,21:..Y....|
00000820: 47 24 B2 22 43 22 A7 53 43 B2 30 3A 81 58 B2 31 |G$."C".SC.0:.X.1|
00000830: A4 44 4D 3A 42 28 58 29 B2 30 3A 82 58 3A 89 33 |.DM:B(X).0:.X:.3|
00000840: 35 30 3A 8F 20 2A 20 52 45 53 45 54 20 53 43 20 |50:. * RESET SC |
00000850: 26 20 41 52 52 41 59 20 2A 00 7A 10 02 03 89 37 |& ARRAY *.z....7|
00000860: 32 30 3A 20 8F 20 2A 20 4E 4F 54 20 27 58 27 20 |20: . * NOT 'X' |
00000870: 4E 4F 52 20 27 43 27 20 20 2A 00 91 10 0C 03 8F |NOR 'C' *......|
00000880: 20 2A 4C 4F 41 44 20 46 49 4C 45 20 53 2F 52 20 | *LOAD FILE S/R |
00000890: 2A 00 A8 10 16 03 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |*...... ========|
000008A0: 3D 3D 3D 3D 3D 3D 3D 3D 00 CC 10 20 03 43 52 B2 |========... .CR.|
000008B0: 31 3A 8F 20 2A 20 53 45 54 20 43 4F 55 4E 54 45 |1:. * SET COUNTE|
000008C0: 52 20 54 4F 20 53 54 41 52 54 20 2A 00 F1 10 2A |R TO START *...*|
000008D0: 03 99 22 93 11 11 12 20 CC CF C1 C4 20 C6 C9 CC |..".... .... ...|
000008E0: C5 20 D4 CF 20 C2 C5 20 C3 CF D5 CE D4 C5 C4 20 |. .. .. ....... |
000008F0: 92 00 0B 11 34 03 85 22 11 11 44 52 49 56 45 20 |....4.."..DRIVE |
00000900: 20 20 30 9D 9D 9D 22 3B 44 52 24 00 20 11 3E 03 | 0...";DR$. .>.|
00000910: 85 22 11 46 49 4C 45 20 4E 41 4D 45 22 3B 4E 24 |.".FILE NAME";N$|
00000920: 00 3A 11 48 03 99 22 93 11 11 12 20 CC CF C1 C4 |.:.H..".... ....|
00000930: C9 CE C7 21 21 20 92 11 11 22 00 53 11 52 03 4C |...!! ...".S.R.L|
00000940: 24 B2 44 52 24 AA 22 3A 22 AA 4E 24 AA 22 2C 53 |$.DR$.":".N$.",S|
00000950: 2C 52 22 00 61 11 5C 03 9F 32 2C 38 2C 32 2C 4C |,R".a.\..2,8,2,L|
00000960: 24 00 6F 11 66 03 84 32 2C 41 24 28 43 52 29 00 |$.o.f..2,A$(CR).|
00000970: 86 11 70 03 8B 41 24 28 43 52 29 B2 22 45 4F 44 |..p..A$(CR)."EOD|
00000980: 22 A7 A0 32 3A 8E 00 9F 11 7A 03 8B C8 28 41 24 |"..2:....z...(A$|
00000990: 28 43 52 29 2C 31 29 B2 22 5E 22 A7 39 31 30 00 |(CR),1)."^".910.|
000009A0: AB 11 84 03 99 41 24 28 43 52 29 00 B7 11 8E 03 |.....A$(CR).....|
000009B0: 43 52 B2 43 52 AA 31 00 C0 11 98 03 89 38 37 30 |CR.CR.1......870|
000009C0: 00 D9 11 A2 03 99 22 93 11 11 12 20 D7 CF D2 C4 |......".... ....|
000009D0: 20 C3 CF D5 CE D4 20 92 22 00 03 12 AC 03 99 22 | ..... ."......"|
000009E0: 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |..HIS PROGRAM WI|
000009F0: 4C 4C 20 43 4F 55 4E 54 20 54 48 45 20 57 4F 52 |LL COUNT THE WOR|
00000A00: 44 53 22 00 30 12 B6 03 99 22 49 4E 20 41 20 46 |DS".0...."IN A F|
00000A10: 49 4C 45 20 57 52 49 54 54 45 4E 20 57 49 54 48 |ILE WRITTEN WITH|
00000A20: 20 27 D3 49 4D 50 4C 59 20 D7 52 49 54 45 27 2E | '.IMPLY .RITE'.|
00000A30: 00 5C 12 C0 03 99 22 11 C9 54 20 57 4F 52 4B 53 |.\...."..T WORKS|
00000A40: 20 42 59 20 43 4F 55 4E 54 49 4E 47 20 53 50 41 | BY COUNTING SPA|
00000A50: 43 45 53 2C 20 41 4E 44 20 49 54 22 00 86 12 CA |CES, AND IT"....|
00000A60: 03 99 22 57 49 4C 4C 20 54 52 45 41 54 20 41 20 |.."WILL TREAT A |
00000A70: 47 52 4F 55 50 20 4F 46 20 53 50 41 43 45 53 20 |GROUP OF SPACES |
00000A80: 41 53 20 41 20 22 00 AF 12 D4 03 99 22 53 49 4E |AS A "......"SIN|
00000A90: 47 4C 45 20 53 50 41 43 45 2E 20 20 D3 50 41 43 |GLE SPACE. .PAC|
00000AA0: 45 53 20 41 4E 44 20 53 48 49 46 54 45 44 22 00 |ES AND SHIFTED".|
00000AB0: D0 12 DE 03 99 22 53 50 41 43 45 53 20 41 52 45 |....."SPACES ARE|
00000AC0: 20 54 52 45 41 54 45 44 20 41 4C 49 4B 45 2E 22 | TREATED ALIKE."|
00000AD0: 00 FD 12 E8 03 99 22 11 D7 4F 52 44 53 20 4A 4F |......"..ORDS JO|
00000AE0: 49 4E 45 44 20 42 59 20 41 20 48 59 50 48 45 4E |INED BY A HYPHEN|
00000AF0: 20 41 52 45 20 54 52 45 41 54 45 44 22 00 2B 13 | ARE TREATED".+.|
00000B00: F2 03 99 22 41 53 20 41 20 53 49 4E 47 4C 45 20 |..."AS A SINGLE |
00000B10: 57 4F 52 44 2E 20 20 D4 4F 20 43 48 41 4E 47 45 |WORD. .O CHANGE|
00000B20: 20 54 48 49 53 2C 20 41 44 44 22 00 64 13 FC 03 | THIS, ADD".d...|
00000B30: 99 22 27 2E 2E 2E 4F 52 20 54 24 20 3D 20 22 3B |."'...OR T$ = ";|
00000B40: C7 28 33 34 29 3B 22 2D 22 3B C7 28 33 34 29 3B |.(34);"-";.(34);|
00000B50: 22 2E 2E 2E 27 20 54 4F 20 4C 49 4E 45 20 34 36 |"...' TO LINE 46|
00000B60: 30 2C 20 22 00 90 13 06 04 99 22 42 55 54 20 52 |0, "......"BUT R|
00000B70: 45 4D 45 4D 42 45 52 20 54 48 41 54 20 4E 4F 54 |EMEMBER THAT NOT|
00000B80: 20 41 4C 4C 20 48 59 50 48 45 4E 41 54 45 44 22 | ALL HYPHENATED"|
00000B90: 00 B8 13 10 04 99 22 57 4F 52 44 53 20 43 41 4E |......"WORDS CAN|
00000BA0: 20 53 45 4E 53 49 42 4C 59 20 42 45 20 53 45 50 | SENSIBLY BE SEP|
00000BB0: 41 52 41 54 45 44 2E 22 00 DC 13 1A 04 99 22 11 |ARATED."......".|
00000BC0: 11 11 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |...RESS ANY KEY |
00000BD0: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 F0 13 24 |TO CONTINUE"...$|
00000BE0: 04 A1 47 24 3A 8B 47 24 B2 22 22 A7 31 30 36 30 |..G$:.G$."".1060|
00000BF0: 00 F6 13 2E 04 8E 00 00 00 |......... |
..'.... WORDCOUNT (64) 13/6/83 BT.
;.... 53272,23:.250.O... 15:. 15,8,15,"S
0:WORDCOUNT":."0:WORDCOUNT",8:....D.. **
*************************...N.. *
*.U.X.. * WORDC
OUNT *...... * ---------
*...... * THIS PROGRAM COUNTS THE
*.;.... * WORDS IN A FILE WRITTEN *.]. .
. * WITH 'SIMPLY WRITE'. *..... *
*...... * IT IS GI
VEN FREE FOR *.C.... * USE WITH THIS
PACKAGE *...H.. * BY SIMPLE SOFTWARE L
TD *...R.. * AND BRIAN TREGAR, WHO *.
).... * OWN THE COPYRIGHT. *.K....
* *.M.... ******
*********************.W...DM.40.....SC.0
:.A$(500):. * ENOUGH? *...... ----------
------------------...... DIM A$() HIGHER
IF MORE THAN...".. 500 SCREEN LINES IN
TEXT;...,.. LOWER IF 'OUT OF MEMORY'.?.6
.. ----------------------------.J.J..B(D
M).I.T..930: . * INTRODUCTION *...^..7
80: . * LOAD FILE *...H.. * COUNTIN
G SPACES *...R.. ===================.V.|
..:."... COUNTING!! ."......S.1.CR:. * A
LL STRINGS *...... * IGNORE COMMAND LINE
S *.2.... ========================.J....
H(A$(S),1)."^".700.G.... * IGNORE EMPTY
LINES *...... ======================...B
..H(A$(S),1)."_".700...L.. * FOR EACH CH
ARACTER *.V.V.. ======================..
....C.1.C(A$(S)).....T$.J(A$(S),C,1).!..
.. * COUNT SPACE OR SHIFT-SPACE *.F....
==============================.H....T$."
".T$." ".SC.SC.1:B(C).1.{....T$.".".B(C
).2...&..C: . * NEXT CHARACTER *...0..".
"SC: . * RUNNING TOTAL *...:.. * ADD SPA
CE AFTER PARA END *...D.. ==============
==============...N..T$."_".SC.SC.1.5.X..
* DISCOUNT SPACE AFTER TAB *.X.B.. ====
========================...L..X.1.DM:.B(
X).1.B(X.1).2.SC.SC.1: . * SPACE FOLLOWS
TAB? *...V.. * DISCOUNT SUCCESSIVE SPAC
ES *...... =============================
=......B(X).1.B(X.1).1.SC.SC.1......X: .
* SPACES ADJACENT? *.3.... * CLEAR ARRA
Y *.I.... ===============._....X.1.DM:B(
X).0:.X.Y....S: . * NEXT STRING *...F.."
..WORD COUNT = " SC...P.."... PRESS 'X'
TO EXIT FROM PROGRAM ."...Z..". OR 'C
' TO COUNT NEW FILE ."...... G$:.G$."
".740......G$."X"..".":.53272,21:..Y....
G$."C".SC.0:.X.1.DM:B(X).0:.X:.350:. * R
ESET SC & ARRAY *.Z....720: . * NOT 'X'
NOR 'C' *...... *LOAD FILE S/R *......
================.L. .CR.1:. * SET COUNTE
R TO START *...*..".... LOAD FILE TO BE
COUNTED ....4.."..DRIVE 0...";DR$. .>.
.".FILE NAME";N$.:.H..".... LOADING!! ..
.".S.R.L$.DR$.":".N$.",S,R".A.\..2,8,2,L
$.O.F..2,A$(CR)...P..A$(CR)."EOD". 2:...
.Z..H(A$(CR),1)."^".910......A$(CR).....
CR.CR.1......870.Y....".... WORD COUNT .
"......".THIS PROGRAM WILL COUNT THE WOR
DS".0...."IN A FILE WRITTEN WITH 'SIMPLY
WRITE'..\....".IT WORKS BY COUNTING SPA
CES, AND IT"...J.."WILL TREAT A GROUP OF
SPACES AS A "...T.."SINGLE SPACE. SPAC
ES AND SHIFTED".P...."SPACES ARE TREATED
ALIKE."......".WORDS JOINED BY A HYPHEN
ARE TREATED".+...."AS A SINGLE WORD. T
O CHANGE THIS, ADD".D...."'...OR T$ = ";
G(34);"-";G(34);"...' TO LINE 460, "....
.."BUT REMEMBER THAT NOT ALL HYPHENATED"
......"WORDS CAN SENSIBLY BE SEPARATED."
......"...PRESS ANY KEY TO CONTINUE"...$
..G$:.G$."".1060.........
> CLICK IMAGE PREVIEW FOR FULL MODAL