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