� >MIND-READ
L� JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ  UK.  1996
 
(E�12:�:C%=7:D%=2^C%:E%=2^(C%-1):� A%(E%,C%-1),B%(D%),C%(C%-1):@%=4
2��"THINK OF A NUMBER LESS THAN ";D%:�"PRESS LEFT BUTTON IF NUMBER PRESENT AND ANY OTHER IF IT IS NOT, FOR EACH GROUP OF NUMBERS.":�"THE COMPUTER WILL THEN GUESS THE NUMBER YOU HAD IN MIND.":�"HOW DOES IT DO IT ?":�
P� Y%=0�D%:B%(Y%)=Y%:�
Z� X%=C%-1�0�-1:N%=2^X%
dF� Y%=1�D%:� N%<=B%(Y%) B%(Y%)=B%(Y%)-N%:A%(C%(X%),X%)=Y%:C%(X%)+=1
n�:�
x 
�� MAIN LOOP
�
�:N%=0
�)� X%=0�C%-1:� Y%=0�E%-1:�A%(Y%,X%);:�
��:ȗ A,B,C:�C
�6� C=4 �1:�"PRESENT":N%=N%+2^X% � �4:�"NOT PRESENT"
��:ȗ A,B,C:�C=0:�:�7:�
�8�:�"THE NUMBER IS ";N%:�"CLICK MOUSE FOR ANOTHER GO"
�$�:ȗ A,B,C:�C:�:ȗ A,B,C:�C=0:�0
�

00000000  0d 00 0a 10 f4 20 3e 4d  49 4e 44 2d 52 45 41 44  |..... >MIND-READ|
00000010  0d 00 14 4c f4 20 4a 45  41 4e 20 56 41 4e 20 4d  |...L. JEAN VAN M|
00000020  4f 55 52 49 4b 20 4d 49  4c 4c 43 4f 54 54 41 47  |OURIK MILLCOTTAG|
00000030  45 20 44 45 52 57 59 44  44 20 41 4d 4d 41 4e 46  |E DERWYDD AMMANF|
00000040  4f 52 44 20 44 59 46 45  44 20 53 41 31 38 33 4c  |ORD DYFED SA183L|
00000050  51 20 20 55 4b 2e 20 20  31 39 39 36 0d 00 1e 05  |Q  UK.  1996....|
00000060  20 0d 00 28 45 eb 31 32  3a 87 3a 43 25 3d 37 3a  | ..(E.12:.:C%=7:|
00000070  44 25 3d 32 5e 43 25 3a  45 25 3d 32 5e 28 43 25  |D%=2^C%:E%=2^(C%|
00000080  2d 31 29 3a de 20 41 25  28 45 25 2c 43 25 2d 31  |-1):. A%(E%,C%-1|
00000090  29 2c 42 25 28 44 25 29  2c 43 25 28 43 25 2d 31  |),B%(D%),C%(C%-1|
000000a0  29 3a 40 25 3d 34 0d 00  32 d9 f1 22 54 48 49 4e  |):@%=4..2.."THIN|
000000b0  4b 20 4f 46 20 41 20 4e  55 4d 42 45 52 20 4c 45  |K OF A NUMBER LE|
000000c0  53 53 20 54 48 41 4e 20  22 3b 44 25 3a f1 22 50  |SS THAN ";D%:."P|
000000d0  52 45 53 53 20 4c 45 46  54 20 42 55 54 54 4f 4e  |RESS LEFT BUTTON|
000000e0  20 49 46 20 4e 55 4d 42  45 52 20 50 52 45 53 45  | IF NUMBER PRESE|
000000f0  4e 54 20 41 4e 44 20 41  4e 59 20 4f 54 48 45 52  |NT AND ANY OTHER|
00000100  20 49 46 20 49 54 20 49  53 20 4e 4f 54 2c 20 46  | IF IT IS NOT, F|
00000110  4f 52 20 45 41 43 48 20  47 52 4f 55 50 20 4f 46  |OR EACH GROUP OF|
00000120  20 4e 55 4d 42 45 52 53  2e 22 3a f1 22 54 48 45  | NUMBERS.":."THE|
00000130  20 43 4f 4d 50 55 54 45  52 20 57 49 4c 4c 20 54  | COMPUTER WILL T|
00000140  48 45 4e 20 47 55 45 53  53 20 54 48 45 20 4e 55  |HEN GUESS THE NU|
00000150  4d 42 45 52 20 59 4f 55  20 48 41 44 20 49 4e 20  |MBER YOU HAD IN |
00000160  4d 49 4e 44 2e 22 3a f1  22 48 4f 57 20 44 4f 45  |MIND.":."HOW DOE|
00000170  53 20 49 54 20 44 4f 20  49 54 20 3f 22 3a f1 0d  |S IT DO IT ?":..|
00000180  00 50 19 e3 20 59 25 3d  30 b8 44 25 3a 42 25 28  |.P.. Y%=0.D%:B%(|
00000190  59 25 29 3d 59 25 3a ed  0d 00 5a 1a e3 20 58 25  |Y%)=Y%:...Z.. X%|
000001a0  3d 43 25 2d 31 b8 30 88  2d 31 3a 4e 25 3d 32 5e  |=C%-1.0.-1:N%=2^|
000001b0  58 25 0d 00 64 46 e3 20  59 25 3d 31 b8 44 25 3a  |X%..dF. Y%=1.D%:|
000001c0  e7 20 4e 25 3c 3d 42 25  28 59 25 29 20 42 25 28  |. N%<=B%(Y%) B%(|
000001d0  59 25 29 3d 42 25 28 59  25 29 2d 4e 25 3a 41 25  |Y%)=B%(Y%)-N%:A%|
000001e0  28 43 25 28 58 25 29 2c  58 25 29 3d 59 25 3a 43  |(C%(X%),X%)=Y%:C|
000001f0  25 28 58 25 29 2b 3d 31  0d 00 6e 07 ed 3a ed 0d  |%(X%)+=1..n..:..|
00000200  00 78 05 20 0d 00 82 0f  f4 20 4d 41 49 4e 20 4c  |.x. ..... MAIN L|
00000210  4f 4f 50 0d 00 8c 0a f5  3a 4e 25 3d 30 0d 00 96  |OOP.....:N%=0...|
00000220  29 e3 20 58 25 3d 30 b8  43 25 2d 31 3a e3 20 59  |). X%=0.C%-1:. Y|
00000230  25 3d 30 b8 45 25 2d 31  3a f1 41 25 28 59 25 2c  |%=0.E%-1:.A%(Y%,|
00000240  58 25 29 3b 3a ed 0d 00  a0 11 f5 3a c8 97 20 41  |X%);:......:.. A|
00000250  2c 42 2c 43 3a fd 43 0d  00 aa 36 e7 20 43 3d 34  |,B,C:.C...6. C=4|
00000260  20 fb 31 3a f1 22 50 52  45 53 45 4e 54 22 3a 4e  | .1:."PRESENT":N|
00000270  25 3d 4e 25 2b 32 5e 58  25 20 8b 20 fb 34 3a f1  |%=N%+2^X% . .4:.|
00000280  22 4e 4f 54 20 50 52 45  53 45 4e 54 22 0d 00 b4  |"NOT PRESENT"...|
00000290  1a f5 3a c8 97 20 41 2c  42 2c 43 3a fd 43 3d 30  |..:.. A,B,C:.C=0|
000002a0  3a f1 3a fb 37 3a ed 0d  00 be 38 f1 3a f1 22 54  |:.:.7:....8.:."T|
000002b0  48 45 20 4e 55 4d 42 45  52 20 49 53 20 22 3b 4e  |HE NUMBER IS ";N|
000002c0  25 3a f1 22 43 4c 49 43  4b 20 4d 4f 55 53 45 20  |%:."CLICK MOUSE |
000002d0  46 4f 52 20 41 4e 4f 54  48 45 52 20 47 4f 22 0d  |FOR ANOTHER GO".|
000002e0  00 c3 24 f5 3a c8 97 20  41 2c 42 2c 43 3a fd 43  |..$.:.. A,B,C:.C|
000002f0  3a f5 3a c8 97 20 41 2c  42 2c 43 3a fd 43 3d 30  |:.:.. A,B,C:.C=0|
00000300  3a fd 30 0d ff                                    |:.0..|
00000305