Home » Archimedes archive » Archimedes World » AW-1994-04-Disc1.adf » Disk1Apr94 » !AWApr94/Goodies/FastKey/!FastKey/NoOfWords
!AWApr94/Goodies/FastKey/!FastKey/NoOfWords
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1994-04-Disc1.adf » Disk1Apr94 |
Filename: | !AWApr94/Goodies/FastKey/!FastKey/NoOfWords |
Read OK: | ✔ |
File size: | 01FF bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10REM Tells you how many combinations 20REM of phrases are possible 30REM Run FastKey first 40 50a%=FNUsed("Noun") 60b%=FNUsed("Imperative") 70c%=FNUsed("Adverb") 80 90PRINT"Number of Imperatives:";b% 100PRINT"Number of Nouns :";a% 110PRINT"Number of Adverbs :";c% 120PRINT'"Number of words in single word mode:";a%+b%+c% 130PRINT "Number of phrase combinations :";a%*b%*c% 140END 150 160DEFFNUsed(a$) 170LOCAL co% 180co%=0 190A%=OPENIN ("<FastKey$Dir>.Dictionary."+a$) 200WHILE NOT EOF#A% 210IF LEFT$(GET$#A%,1)<>"|" co%+=1 220ENDWHILE 230CLOSE#A% 240=co%
%� Tells you how many combinations � of phrases are possible � Run FastKey first ( 2a%=�Used("Noun") <b%=�Used("Imperative") Fc%=�Used("Adverb") P Z �"Number of Imperatives:";b% d �"Number of Nouns :";a% n �"Number of Adverbs :";c% x5�'"Number of words in single word mode:";a%+b%+c% �5� "Number of phrase combinations :";a%*b%*c% �� � �ݤUsed(a$) � � co% � co%=0 �)A%=� ("<FastKey$Dir>.Dictionary."+a$) � ȕ � �#A% �� ��#A%,1)<>"|" co%+=1 �� ��#A% �=co% �
00000000 0d 00 0a 25 f4 20 54 65 6c 6c 73 20 79 6f 75 20 |...%. Tells you | 00000010 68 6f 77 20 6d 61 6e 79 20 63 6f 6d 62 69 6e 61 |how many combina| 00000020 74 69 6f 6e 73 0d 00 14 1d f4 20 6f 66 20 70 68 |tions..... of ph| 00000030 72 61 73 65 73 20 61 72 65 20 70 6f 73 73 69 62 |rases are possib| 00000040 6c 65 0d 00 1e 17 f4 20 52 75 6e 20 46 61 73 74 |le..... Run Fast| 00000050 4b 65 79 20 66 69 72 73 74 0d 00 28 04 0d 00 32 |Key first..(...2| 00000060 14 61 25 3d a4 55 73 65 64 28 22 4e 6f 75 6e 22 |.a%=.Used("Noun"| 00000070 29 0d 00 3c 1a 62 25 3d a4 55 73 65 64 28 22 49 |)..<.b%=.Used("I| 00000080 6d 70 65 72 61 74 69 76 65 22 29 0d 00 46 16 63 |mperative")..F.c| 00000090 25 3d a4 55 73 65 64 28 22 41 64 76 65 72 62 22 |%=.Used("Adverb"| 000000a0 29 0d 00 50 04 0d 00 5a 20 f1 22 4e 75 6d 62 65 |)..P...Z ."Numbe| 000000b0 72 20 6f 66 20 49 6d 70 65 72 61 74 69 76 65 73 |r of Imperatives| 000000c0 3a 22 3b 62 25 0d 00 64 20 f1 22 4e 75 6d 62 65 |:";b%..d ."Numbe| 000000d0 72 20 6f 66 20 4e 6f 75 6e 73 20 20 20 20 20 20 |r of Nouns | 000000e0 3a 22 3b 61 25 0d 00 6e 20 f1 22 4e 75 6d 62 65 |:";a%..n ."Numbe| 000000f0 72 20 6f 66 20 41 64 76 65 72 62 73 20 20 20 20 |r of Adverbs | 00000100 3a 22 3b 63 25 0d 00 78 35 f1 27 22 4e 75 6d 62 |:";c%..x5.'"Numb| 00000110 65 72 20 6f 66 20 77 6f 72 64 73 20 69 6e 20 73 |er of words in s| 00000120 69 6e 67 6c 65 20 77 6f 72 64 20 6d 6f 64 65 3a |ingle word mode:| 00000130 22 3b 61 25 2b 62 25 2b 63 25 0d 00 82 35 f1 20 |";a%+b%+c%...5. | 00000140 22 4e 75 6d 62 65 72 20 6f 66 20 70 68 72 61 73 |"Number of phras| 00000150 65 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 73 20 20 |e combinations | 00000160 20 20 20 20 3a 22 3b 61 25 2a 62 25 2a 63 25 0d | :";a%*b%*c%.| 00000170 00 8c 05 e0 0d 00 96 04 0d 00 a0 0e dd a4 55 73 |..............Us| 00000180 65 64 28 61 24 29 0d 00 aa 09 ea 20 63 6f 25 0d |ed(a$)..... co%.| 00000190 00 b4 09 63 6f 25 3d 30 0d 00 be 29 41 25 3d 8e |...co%=0...)A%=.| 000001a0 20 28 22 3c 46 61 73 74 4b 65 79 24 44 69 72 3e | ("<FastKey$Dir>| 000001b0 2e 44 69 63 74 69 6f 6e 61 72 79 2e 22 2b 61 24 |.Dictionary."+a$| 000001c0 29 0d 00 c8 0d c8 95 20 ac 20 c5 23 41 25 0d 00 |)...... . .#A%..| 000001d0 d2 1a e7 20 c0 be 23 41 25 2c 31 29 3c 3e 22 7c |... ..#A%,1)<>"|| 000001e0 22 20 63 6f 25 2b 3d 31 0d 00 dc 05 ce 0d 00 e6 |" co%+=1........| 000001f0 08 d9 23 41 25 0d 00 f0 08 3d 63 6f 25 0d ff |..#A%....=co%..| 000001ff