�"�PSYCHO"
�"�by Jeffrey Wallis"
�
(@%=&00020105
2xcount%=100:ocount%=100
<nx%=100:no%=100
F�23;11,0;0;0;0
K
*FX202,32
P
�start
Z�flag%=��intro
dflag%=�:flag2%=�:flag3%=�
n
�setup
x�nobias
��
���start
�	��ThE
��X%=2�11
��P$
��0,X%);P$
��
�"�10,14);�141;"�AN EXPERIMENT"
�"�10,15);�141;"�AN EXPERIMENT"
�$�8,17);�141;"�IN PSYCHOKINESIS"
�$�8,18);�141;"�IN PSYCHOKINESIS"
�5�0,21);"�Do you want to read the introduction ?"
��15,23);"�Y/N  ";

�:r$=�(0):�r$="Y"�r$="N"

�r$="Y"flag%=��flag%=�

�

"�

,��setup

6,�4,2);"�7````````````````````````````k"

@*�X%=3�12:�4,X%);"�5�";�33,X%);"�j�":�

J-�4,13);"�uppppppppppppppppppppppppppppz"

T(�7,0);�141;"�RANDOM OUTPUT DISPLAY"

^(�7,1);�141;"�RANDOM OUTPUT DISPLAY"

h�X%=3�12�2

r(�7,X%);"���XOXOXOXOXOXOXOXOXOXO  �"

|*�7,X%+1);"���OXOXOXOXOXOXOXOXOXOX  �"

��

�'�10,14);�(141);"�OXOMETER READOUT"

�'�10,15);�(141);"�OXOMETER READOUT"

�4�0,16);"�7```````````````````````````````````k"

�*�X%=17�22:�0,X%);"�5�";�36,X%);"�j":�

�O�2,17);"�'X's DISPLAYED ";�17,17);�145;�234;�131;�20,17);"'O's DISPLAYED "

�O�2,20);"�'X's GENERATED ";�17,20);�145;�234;�130;�20,20);"'O's GENERATED "

�
�scale

�0�4,23);"�Press Y & RETURN to begin.";:�""r$

�5�0,23);"�upppppppppppppppppppppppppppppppppppz";

�flag2%=�

��r$="Y "�flag%=�

��r$="Y  "�flag2%=�
(�r$<>"Y"�r$<>"Y "�r$<>"Y  "��7:�dVA
�
��scale
&)xc=(xcount%/(xcount%+ocount%)*100)-30
0txc=(nx%/(nx%+no%)*100)-30
:oc=40-xc
Dtoc=40-txc
NO�4,18);�149;:�X%=1�(xc*.6):�255;:�:�158;:�150;:�X%=1�(oc*.6)+3:�255;:�
XB�7,19);"�";xc+30;"%";�17,19);�145;�234;�131;�26,19);70-xc;"%"
bQ�4,21);�149;:�X%=1�(txc*.6):�255;:�:�158;:�150;:�X%=1�(toc*.6)+3:�255;:�
l[�7,22);"�"txc+30;"%";�16,22);"�";�(no%+nx%);�25,22);"�";70-txc;"%";:�flag3%=��"."��" "
v�
���nobias
�flag3%=�
��=0
��
�
n%=�(�)�2
��n%=1nx%=nx%+1�no%=no%+1
��n%=1�n$="X"�n$="O"
�
�count
���>3000�(flag%=��flag2%=�)
��flag2%=��obias��xbias
��
�
ݤchar
�
A%=135
c%=�(&FFF4)
c%=c%�&FFFF
c%=c%�&100
 
=�(c%)
*��xbias
4flag3%=�
>�=0
H�
R
n%=�(�)�2
\�n%=0���2=1�n%=1
f�n%=1nx%=nx%+1�no%=no%+1
p�n%=1�n$="X"�n$="O"
z
�count
��xcount%-ocount%>47
��nobias
��
���count
�xpos=�(20)+9:ypos=�(10)+2
��31,xpos,ypos
�6�n%=0��char="X"xcount%=xcount%-1:ocount%=ocount%+1
�6�n%=1��char="O"xcount%=xcount%+1:ocount%=ocount%-1
��;n$
�
�scale
��
���obias
�flag3%=�
�

n%=�(�)�2
�n%=1���2=1�n%=0
$�n%=1nx%=nx%+1�no%=no%+1
.�n%=1�n$="X"�n$="O"
8
�count
B�ocount%-xcount%>47
L�nobias
V�
`��intro
j�"�INTRODUCTION PAGE 1"
t��':�"�Parapsychology, the science of the"'"�supernatural, has long been regarded"'"�with scepticism by the main body of"'"�orthodox scientists."
~��:�"�Since the establishment of a Chair of"'"�Parapsychology at the University of"'"�Edinburgh a serious attempt has been"'"�made to demonstrate the existence of"'"�various phenomena, including"'"�psychokinesis - the ability to"
���"�influence matter by the mind alone.":�:�"�This program is designed to enable"'"�users to test their own power of"'"�psychokinesis."
�3�6,24);"�PRESS ANY KEY TO CONTINUE"+�30:Z$=�:�
��"�INTRODUCTION PAGE 2":�
���:�:�"�The program generates a stream of 'X's"'"�and 'O's at random and continuously"'"�changes a display of 200 of these"'"�characters. The program keeps count of"'"�the number of 'O's and 'X's on display"
�t�"�and the numbers generated from the"'"�start. This information is displayed"'"�graphically and numerically.":�
���"�Left to itself, the computer should"'"�generate the 'O's and 'X's in a ratio"'"�of about 50:50. The object of the"'"�experiment is to attempt to change this�ratio by forcing the computer to"
�G�"�generate more of one character than the�other by just thinking."
�3�6,24);"�PRESS ANY KEY TO CONTINUE"+�30:Z$=�:�
�*FX21,0
��"�INTRODUCTION PAGE 3":�
���"�Research into parapsychological"'"�phenomena is often hampered by the work�of frauds and practical jokers. The"'"�program caters for these also, enabling�them, should they lack the necessary"'"�psychokinetic powers, to";
�J�" impress their"'"�friends with their powers of mind over �matter.":�
��"�It is possible to introduce a bias"'"�(owing more to telesoftware than to"'"�telekinesis) into the generation of"'"�'O's and 'X's. A full stop appearing"'"�after the last % figure indicates the"'"�periods of bias introduction."

��:�"�In response to ""Press 'Y' & RETURN "'"�to begin"":-"'"�Press�Y,RETURN�for no bias."'"�Press�Y,SPACE,RETURN�for 'X' bias."'"�Press�Y,SPACE,SPACE,RETURN�for 'O' bias"
3�6,24);"�PRESS ANY KEY TO CONTINUE"+�30:Z$=�:�
�
(0�"�7````k 7```k 7k  7k 7```k 7k  7k 7````k";
2/�"�5j``kj 57``` 5j  5j 5j``` 5j  5j 5j``5j"
</�"�5j  jj 55    5jpp5j 5j    5jpp5j 5j  5j"
F3� "�5""```j 5```k up0_pz 5j    5    j 5j  5j"  
P/�"�5j```` ```kj   5j   5j    5j``5j 5j  5j"
Z/�"�5j        jj   5j   5j    5j  5j 5j  5j"
d1�"�5j     pppzj   5j   5jppp 5j  5j 5jpp5j"  
n/�"�uz     upppz   uz   upppz uz  uz uppppz"
x5�"                                        "      
�/�"�wsssssssssssssssssssssssssssssssssssss{"
�

00000000  0d 00 0a 0e f4 22 82 50  53 59 43 48 4f 22 0d 00  |.....".PSYCHO"..|
00000010  14 19 f4 22 82 62 79 20  4a 65 66 66 72 65 79 20  |...".by Jeffrey |
00000020  57 61 6c 6c 69 73 22 0d  00 1e 05 db 0d 00 28 10  |Wallis".......(.|
00000030  40 25 3d 26 30 30 30 32  30 31 30 35 0d 00 32 1b  |@%=&00020105..2.|
00000040  78 63 6f 75 6e 74 25 3d  31 30 30 3a 6f 63 6f 75  |xcount%=100:ocou|
00000050  6e 74 25 3d 31 30 30 0d  00 3c 13 6e 78 25 3d 31  |nt%=100..<.nx%=1|
00000060  30 30 3a 6e 6f 25 3d 31  30 30 0d 00 46 12 ef 32  |00:no%=100..F..2|
00000070  33 3b 31 31 2c 30 3b 30  3b 30 3b 30 0d 00 4b 0d  |3;11,0;0;0;0..K.|
00000080  2a 46 58 32 30 32 2c 33  32 0d 00 50 0a f2 73 74  |*FX202,32..P..st|
00000090  61 72 74 0d 00 5a 12 e7  66 6c 61 67 25 3d b9 f2  |art..Z..flag%=..|
000000a0  69 6e 74 72 6f 0d 00 64  1d 66 6c 61 67 25 3d b9  |intro..d.flag%=.|
000000b0  3a 66 6c 61 67 32 25 3d  b9 3a 66 6c 61 67 33 25  |:flag2%=.:flag3%|
000000c0  3d b9 0d 00 6e 0a f2 73  65 74 75 70 0d 00 78 0b  |=...n..setup..x.|
000000d0  f2 6e 6f 62 69 61 73 0d  00 82 05 e0 0d 00 8c 0b  |.nobias.........|
000000e0  dd f2 73 74 61 72 74 0d  00 96 09 f7 8d 54 68 45  |..start......ThE|
000000f0  0d 00 a0 0c e3 58 25 3d  32 b8 31 31 0d 00 aa 07  |.....X%=2.11....|
00000100  f3 50 24 0d 00 b4 0e f1  8a 30 2c 58 25 29 3b 50  |.P$......0,X%);P|
00000110  24 0d 00 be 05 ed 0d 00  c8 22 f1 8a 31 30 2c 31  |$........"..10,1|
00000120  34 29 3b bd 31 34 31 3b  22 82 41 4e 20 45 58 50  |4);.141;".AN EXP|
00000130  45 52 49 4d 45 4e 54 22  0d 00 d2 22 f1 8a 31 30  |ERIMENT"..."..10|
00000140  2c 31 35 29 3b bd 31 34  31 3b 22 82 41 4e 20 45  |,15);.141;".AN E|
00000150  58 50 45 52 49 4d 45 4e  54 22 0d 00 dc 24 f1 8a  |XPERIMENT"...$..|
00000160  38 2c 31 37 29 3b bd 31  34 31 3b 22 82 49 4e 20  |8,17);.141;".IN |
00000170  50 53 59 43 48 4f 4b 49  4e 45 53 49 53 22 0d 00  |PSYCHOKINESIS"..|
00000180  e6 24 f1 8a 38 2c 31 38  29 3b bd 31 34 31 3b 22  |.$..8,18);.141;"|
00000190  82 49 4e 20 50 53 59 43  48 4f 4b 49 4e 45 53 49  |.IN PSYCHOKINESI|
000001a0  53 22 0d 00 f0 35 f1 8a  30 2c 32 31 29 3b 22 83  |S"...5..0,21);".|
000001b0  44 6f 20 79 6f 75 20 77  61 6e 74 20 74 6f 20 72  |Do you want to r|
000001c0  65 61 64 20 74 68 65 20  69 6e 74 72 6f 64 75 63  |ead the introduc|
000001d0  74 69 6f 6e 20 3f 22 0d  00 fa 16 f1 8a 31 35 2c  |tion ?"......15,|
000001e0  32 33 29 3b 22 83 59 2f  4e 20 20 22 3b 0d 01 04  |23);".Y/N  ";...|
000001f0  1c f5 3a 72 24 3d bf 28  30 29 3a fd 72 24 3d 22  |..:r$=.(0):.r$="|
00000200  59 22 84 72 24 3d 22 4e  22 0d 01 0e 1a e7 72 24  |Y".r$="N".....r$|
00000210  3d 22 59 22 66 6c 61 67  25 3d b9 8b 66 6c 61 67  |="Y"flag%=..flag|
00000220  25 3d a3 0d 01 18 05 db  0d 01 22 05 e1 0d 01 2c  |%=........"....,|
00000230  0b dd f2 73 65 74 75 70  0d 01 36 2c f1 8a 34 2c  |...setup..6,..4,|
00000240  32 29 3b 22 91 37 60 60  60 60 60 60 60 60 60 60  |2);".7``````````|
00000250  60 60 60 60 60 60 60 60  60 60 60 60 60 60 60 60  |````````````````|
00000260  60 60 6b 22 0d 01 40 2a  e3 58 25 3d 33 b8 31 32  |``k"..@*.X%=3.12|
00000270  3a f1 8a 34 2c 58 25 29  3b 22 91 35 87 22 3b 8a  |:..4,X%);".5.";.|
00000280  33 33 2c 58 25 29 3b 22  91 6a 87 22 3a ed 0d 01  |33,X%);".j.":...|
00000290  4a 2d f1 8a 34 2c 31 33  29 3b 22 91 75 70 70 70  |J-..4,13);".uppp|
000002a0  70 70 70 70 70 70 70 70  70 70 70 70 70 70 70 70  |pppppppppppppppp|
000002b0  70 70 70 70 70 70 70 70  70 7a 22 0d 01 54 28 f1  |pppppppppz"..T(.|
000002c0  8a 37 2c 30 29 3b bd 31  34 31 3b 22 82 52 41 4e  |.7,0);.141;".RAN|
000002d0  44 4f 4d 20 4f 55 54 50  55 54 20 44 49 53 50 4c  |DOM OUTPUT DISPL|
000002e0  41 59 22 0d 01 5e 28 f1  8a 37 2c 31 29 3b bd 31  |AY"..^(..7,1);.1|
000002f0  34 31 3b 22 82 52 41 4e  44 4f 4d 20 4f 55 54 50  |41;".RANDOM OUTP|
00000300  55 54 20 44 49 53 50 4c  41 59 22 0d 01 68 0e e3  |UT DISPLAY"..h..|
00000310  58 25 3d 33 b8 31 32 88  32 0d 01 72 28 f1 8a 37  |X%=3.12.2..r(..7|
00000320  2c 58 25 29 3b 22 84 9d  87 58 4f 58 4f 58 4f 58  |,X%);"...XOXOXOX|
00000330  4f 58 4f 58 4f 58 4f 58  4f 58 4f 58 4f 20 20 9c  |OXOXOXOXOXOXO  .|
00000340  22 0d 01 7c 2a f1 8a 37  2c 58 25 2b 31 29 3b 22  |"..|*..7,X%+1);"|
00000350  84 9d 87 4f 58 4f 58 4f  58 4f 58 4f 58 4f 58 4f  |...OXOXOXOXOXOXO|
00000360  58 4f 58 4f 58 4f 58 20  20 9c 22 0d 01 86 05 ed  |XOXOXOX  .".....|
00000370  0d 01 90 27 f1 8a 31 30  2c 31 34 29 3b bd 28 31  |...'..10,14);.(1|
00000380  34 31 29 3b 22 82 4f 58  4f 4d 45 54 45 52 20 52  |41);".OXOMETER R|
00000390  45 41 44 4f 55 54 22 0d  01 9a 27 f1 8a 31 30 2c  |EADOUT"...'..10,|
000003a0  31 35 29 3b bd 28 31 34  31 29 3b 22 82 4f 58 4f  |15);.(141);".OXO|
000003b0  4d 45 54 45 52 20 52 45  41 44 4f 55 54 22 0d 01  |METER READOUT"..|
000003c0  a4 34 f1 8a 30 2c 31 36  29 3b 22 91 37 60 60 60  |.4..0,16);".7```|
000003d0  60 60 60 60 60 60 60 60  60 60 60 60 60 60 60 60  |````````````````|
*
000003f0  6b 22 0d 01 ae 2a e3 58  25 3d 31 37 b8 32 32 3a  |k"...*.X%=17.22:|
00000400  f1 8a 30 2c 58 25 29 3b  22 91 35 87 22 3b 8a 33  |..0,X%);".5.";.3|
00000410  36 2c 58 25 29 3b 22 91  6a 22 3a ed 0d 01 b8 4f  |6,X%);".j":....O|
00000420  f1 8a 32 2c 31 37 29 3b  22 83 27 58 27 73 20 44  |..2,17);".'X's D|
00000430  49 53 50 4c 41 59 45 44  20 22 3b 8a 31 37 2c 31  |ISPLAYED ";.17,1|
00000440  37 29 3b bd 31 34 35 3b  bd 32 33 34 3b bd 31 33  |7);.145;.234;.13|
00000450  31 3b 8a 32 30 2c 31 37  29 3b 22 27 4f 27 73 20  |1;.20,17);"'O's |
00000460  44 49 53 50 4c 41 59 45  44 20 22 0d 01 c2 4f f1  |DISPLAYED "...O.|
00000470  8a 32 2c 32 30 29 3b 22  82 27 58 27 73 20 47 45  |.2,20);".'X's GE|
00000480  4e 45 52 41 54 45 44 20  22 3b 8a 31 37 2c 32 30  |NERATED ";.17,20|
00000490  29 3b bd 31 34 35 3b bd  32 33 34 3b bd 31 33 30  |);.145;.234;.130|
000004a0  3b 8a 32 30 2c 32 30 29  3b 22 27 4f 27 73 20 47  |;.20,20);"'O's G|
000004b0  45 4e 45 52 41 54 45 44  20 22 0d 01 cc 0a f2 73  |ENERATED ".....s|
000004c0  63 61 6c 65 0d 01 d6 30  f1 8a 34 2c 32 33 29 3b  |cale...0..4,23);|
000004d0  22 86 50 72 65 73 73 20  59 20 26 20 52 45 54 55  |".Press Y & RETU|
000004e0  52 4e 20 74 6f 20 62 65  67 69 6e 2e 22 3b 3a e8  |RN to begin.";:.|
000004f0  22 22 72 24 0d 01 e0 35  f1 8a 30 2c 32 33 29 3b  |""r$...5..0,23);|
00000500  22 91 75 70 70 70 70 70  70 70 70 70 70 70 70 70  |".uppppppppppppp|
00000510  70 70 70 70 70 70 70 70  70 70 70 70 70 70 70 70  |pppppppppppppppp|
00000520  70 70 70 70 70 70 7a 22  3b 0d 01 ea 0c 66 6c 61  |ppppppz";....fla|
00000530  67 32 25 3d b9 0d 01 f4  14 e7 72 24 3d 22 59 20  |g2%=......r$="Y |
00000540  22 8c 66 6c 61 67 25 3d  a3 0d 01 fe 16 e7 72 24  |".flag%=......r$|
00000550  3d 22 59 20 20 22 8c 66  6c 61 67 32 25 3d a3 0d  |="Y  ".flag2%=..|
00000560  02 08 28 e7 72 24 3c 3e  22 59 22 80 72 24 3c 3e  |..(.r$<>"Y".r$<>|
00000570  22 59 20 22 80 72 24 3c  3e 22 59 20 20 22 8c ef  |"Y ".r$<>"Y  "..|
00000580  37 3a e5 8d 64 56 41 0d  02 12 05 e1 0d 02 1c 0b  |7:..dVA.........|
00000590  dd f2 73 63 61 6c 65 0d  02 26 29 78 63 3d 28 78  |..scale..&)xc=(x|
000005a0  63 6f 75 6e 74 25 2f 28  78 63 6f 75 6e 74 25 2b  |count%/(xcount%+|
000005b0  6f 63 6f 75 6e 74 25 29  2a 31 30 30 29 2d 33 30  |ocount%)*100)-30|
000005c0  0d 02 30 1e 74 78 63 3d  28 6e 78 25 2f 28 6e 78  |..0.txc=(nx%/(nx|
000005d0  25 2b 6e 6f 25 29 2a 31  30 30 29 2d 33 30 0d 02  |%+no%)*100)-30..|
000005e0  3a 0c 6f 63 3d 34 30 2d  78 63 0d 02 44 0e 74 6f  |:.oc=40-xc..D.to|
000005f0  63 3d 34 30 2d 74 78 63  0d 02 4e 4f f1 8a 34 2c  |c=40-txc..NO..4,|
00000600  31 38 29 3b bd 31 34 39  3b 3a e3 58 25 3d 31 b8  |18);.149;:.X%=1.|
00000610  28 78 63 2a 2e 36 29 3a  f1 bd 32 35 35 3b 3a ed  |(xc*.6):..255;:.|
00000620  3a f1 bd 31 35 38 3b 3a  f1 bd 31 35 30 3b 3a e3  |:..158;:..150;:.|
00000630  58 25 3d 31 b8 28 6f 63  2a 2e 36 29 2b 33 3a f1  |X%=1.(oc*.6)+3:.|
00000640  bd 32 35 35 3b 3a ed 0d  02 58 42 f1 8a 37 2c 31  |.255;:...XB..7,1|
00000650  39 29 3b 22 83 22 3b 78  63 2b 33 30 3b 22 25 22  |9);".";xc+30;"%"|
00000660  3b 8a 31 37 2c 31 39 29  3b bd 31 34 35 3b bd 32  |;.17,19);.145;.2|
00000670  33 34 3b bd 31 33 31 3b  8a 32 36 2c 31 39 29 3b  |34;.131;.26,19);|
00000680  37 30 2d 78 63 3b 22 25  22 0d 02 62 51 f1 8a 34  |70-xc;"%"..bQ..4|
00000690  2c 32 31 29 3b bd 31 34  39 3b 3a e3 58 25 3d 31  |,21);.149;:.X%=1|
000006a0  b8 28 74 78 63 2a 2e 36  29 3a f1 bd 32 35 35 3b  |.(txc*.6):..255;|
000006b0  3a ed 3a f1 bd 31 35 38  3b 3a f1 bd 31 35 30 3b  |:.:..158;:..150;|
000006c0  3a e3 58 25 3d 31 b8 28  74 6f 63 2a 2e 36 29 2b  |:.X%=1.(toc*.6)+|
000006d0  33 3a f1 bd 32 35 35 3b  3a ed 0d 02 6c 5b f1 8a  |3:..255;:...l[..|
000006e0  37 2c 32 32 29 3b 22 82  22 74 78 63 2b 33 30 3b  |7,22);"."txc+30;|
000006f0  22 25 22 3b 8a 31 36 2c  32 32 29 3b 22 87 22 3b  |"%";.16,22);".";|
00000700  c3 28 6e 6f 25 2b 6e 78  25 29 3b 8a 32 35 2c 32  |.(no%+nx%);.25,2|
00000710  32 29 3b 22 82 22 3b 37  30 2d 74 78 63 3b 22 25  |2);".";70-txc;"%|
00000720  22 3b 3a e7 66 6c 61 67  33 25 3d a3 f1 22 2e 22  |";:.flag3%=.."."|
00000730  8b f1 22 20 22 0d 02 76  05 e1 0d 02 80 0c dd f2  |.." "..v........|
00000740  6e 6f 62 69 61 73 0d 02  8a 0c 66 6c 61 67 33 25  |nobias....flag3%|
00000750  3d b9 0d 02 94 07 d1 3d  30 0d 02 9e 05 f5 0d 02  |=......=0.......|
00000760  a8 0d 6e 25 3d 94 28 b3  29 83 32 0d 02 b2 1c e7  |..n%=.(.).2.....|
00000770  6e 25 3d 31 6e 78 25 3d  6e 78 25 2b 31 8b 6e 6f  |n%=1nx%=nx%+1.no|
00000780  25 3d 6e 6f 25 2b 31 0d  02 bc 17 e7 6e 25 3d 31  |%=no%+1.....n%=1|
00000790  8c 6e 24 3d 22 58 22 8b  6e 24 3d 22 4f 22 0d 02  |.n$="X".n$="O"..|
000007a0  c6 0a f2 63 6f 75 6e 74  0d 02 d0 1e fd 91 3e 33  |...count......>3|
000007b0  30 30 30 80 28 66 6c 61  67 25 3d a3 84 66 6c 61  |000.(flag%=..fla|
000007c0  67 32 25 3d a3 29 0d 02  da 1a e7 66 6c 61 67 32  |g2%=.).....flag2|
000007d0  25 3d a3 f2 6f 62 69 61  73 8b f2 78 62 69 61 73  |%=..obias..xbias|
000007e0  0d 02 e4 05 e1 0d 02 ee  0a dd a4 63 68 61 72 0d  |...........char.|
000007f0  02 f8 0a 41 25 3d 31 33  35 0d 03 02 0f 63 25 3d  |...A%=135....c%=|
00000800  ba 28 26 46 46 46 34 29  0d 03 0c 0f 63 25 3d 63  |.(&FFF4)....c%=c|
00000810  25 80 26 46 46 46 46 0d  03 16 0e 63 25 3d 63 25  |%.&FFFF....c%=c%|
00000820  81 26 31 30 30 0d 03 20  0a 3d bd 28 63 25 29 0d  |.&100.. .=.(c%).|
00000830  03 2a 0b dd f2 78 62 69  61 73 0d 03 34 0c 66 6c  |.*...xbias..4.fl|
00000840  61 67 33 25 3d a3 0d 03  3e 07 d1 3d 30 0d 03 48  |ag3%=...>..=0..H|
00000850  05 f5 0d 03 52 0d 6e 25  3d 94 28 b3 29 83 32 0d  |....R.n%=.(.).2.|
00000860  03 5c 14 e7 6e 25 3d 30  80 91 83 32 3d 31 8c 6e  |.\..n%=0...2=1.n|
00000870  25 3d 31 0d 03 66 1c e7  6e 25 3d 31 6e 78 25 3d  |%=1..f..n%=1nx%=|
00000880  6e 78 25 2b 31 8b 6e 6f  25 3d 6e 6f 25 2b 31 0d  |nx%+1.no%=no%+1.|
00000890  03 70 17 e7 6e 25 3d 31  8c 6e 24 3d 22 58 22 8b  |.p..n%=1.n$="X".|
000008a0  6e 24 3d 22 4f 22 0d 03  7a 0a f2 63 6f 75 6e 74  |n$="O"..z..count|
000008b0  0d 03 84 17 fd 78 63 6f  75 6e 74 25 2d 6f 63 6f  |.....xcount%-oco|
000008c0  75 6e 74 25 3e 34 37 0d  03 8e 0b f2 6e 6f 62 69  |unt%>47.....nobi|
000008d0  61 73 0d 03 98 05 e1 0d  03 a2 0b dd f2 63 6f 75  |as...........cou|
000008e0  6e 74 0d 03 ac 1d 78 70  6f 73 3d b3 28 32 30 29  |nt....xpos=.(20)|
000008f0  2b 39 3a 79 70 6f 73 3d  b3 28 31 30 29 2b 32 0d  |+9:ypos=.(10)+2.|
00000900  03 b6 11 ef 33 31 2c 78  70 6f 73 2c 79 70 6f 73  |....31,xpos,ypos|
00000910  0d 03 c0 36 e7 6e 25 3d  30 80 a4 63 68 61 72 3d  |...6.n%=0..char=|
00000920  22 58 22 78 63 6f 75 6e  74 25 3d 78 63 6f 75 6e  |"X"xcount%=xcoun|
00000930  74 25 2d 31 3a 6f 63 6f  75 6e 74 25 3d 6f 63 6f  |t%-1:ocount%=oco|
00000940  75 6e 74 25 2b 31 0d 03  ca 36 e7 6e 25 3d 31 80  |unt%+1...6.n%=1.|
00000950  a4 63 68 61 72 3d 22 4f  22 78 63 6f 75 6e 74 25  |.char="O"xcount%|
00000960  3d 78 63 6f 75 6e 74 25  2b 31 3a 6f 63 6f 75 6e  |=xcount%+1:ocoun|
00000970  74 25 3d 6f 63 6f 75 6e  74 25 2d 31 0d 03 d4 08  |t%=ocount%-1....|
00000980  f1 3b 6e 24 0d 03 de 0a  f2 73 63 61 6c 65 0d 03  |.;n$.....scale..|
00000990  e8 05 e1 0d 03 f2 0b dd  f2 6f 62 69 61 73 0d 03  |.........obias..|
000009a0  fc 0c 66 6c 61 67 33 25  3d a3 0d 04 06 05 f5 0d  |..flag3%=.......|
000009b0  04 10 0d 6e 25 3d 94 28  b3 29 83 32 0d 04 1a 14  |...n%=.(.).2....|
000009c0  e7 6e 25 3d 31 80 91 83  32 3d 31 8c 6e 25 3d 30  |.n%=1...2=1.n%=0|
000009d0  0d 04 24 1c e7 6e 25 3d  31 6e 78 25 3d 6e 78 25  |..$..n%=1nx%=nx%|
000009e0  2b 31 8b 6e 6f 25 3d 6e  6f 25 2b 31 0d 04 2e 17  |+1.no%=no%+1....|
000009f0  e7 6e 25 3d 31 8c 6e 24  3d 22 58 22 8b 6e 24 3d  |.n%=1.n$="X".n$=|
00000a00  22 4f 22 0d 04 38 0a f2  63 6f 75 6e 74 0d 04 42  |"O"..8..count..B|
00000a10  17 fd 6f 63 6f 75 6e 74  25 2d 78 63 6f 75 6e 74  |..ocount%-xcount|
00000a20  25 3e 34 37 0d 04 4c 0b  f2 6e 6f 62 69 61 73 0d  |%>47..L..nobias.|
00000a30  04 56 05 e1 0d 04 60 0b  dd f2 69 6e 74 72 6f 0d  |.V....`...intro.|
00000a40  04 6a 1b f1 22 83 49 4e  54 52 4f 44 55 43 54 49  |.j..".INTRODUCTI|
00000a50  4f 4e 20 50 41 47 45 20  31 22 0d 04 74 94 f1 27  |ON PAGE 1"..t..'|
00000a60  3a f1 22 86 50 61 72 61  70 73 79 63 68 6f 6c 6f  |:.".Parapsycholo|
00000a70  67 79 2c 20 74 68 65 20  73 63 69 65 6e 63 65 20  |gy, the science |
00000a80  6f 66 20 74 68 65 22 27  22 86 73 75 70 65 72 6e  |of the"'".supern|
00000a90  61 74 75 72 61 6c 2c 20  68 61 73 20 6c 6f 6e 67  |atural, has long|
00000aa0  20 62 65 65 6e 20 72 65  67 61 72 64 65 64 22 27  | been regarded"'|
00000ab0  22 86 77 69 74 68 20 73  63 65 70 74 69 63 69 73  |".with scepticis|
00000ac0  6d 20 62 79 20 74 68 65  20 6d 61 69 6e 20 62 6f  |m by the main bo|
00000ad0  64 79 20 6f 66 22 27 22  86 6f 72 74 68 6f 64 6f  |dy of"'".orthodo|
00000ae0  78 20 73 63 69 65 6e 74  69 73 74 73 2e 22 0d 04  |x scientists."..|
00000af0  7e e8 f1 3a f1 22 86 53  69 6e 63 65 20 74 68 65  |~..:.".Since the|
00000b00  20 65 73 74 61 62 6c 69  73 68 6d 65 6e 74 20 6f  | establishment o|
00000b10  66 20 61 20 43 68 61 69  72 20 6f 66 22 27 22 86  |f a Chair of"'".|
00000b20  50 61 72 61 70 73 79 63  68 6f 6c 6f 67 79 20 61  |Parapsychology a|
00000b30  74 20 74 68 65 20 55 6e  69 76 65 72 73 69 74 79  |t the University|
00000b40  20 6f 66 22 27 22 86 45  64 69 6e 62 75 72 67 68  | of"'".Edinburgh|
00000b50  20 61 20 73 65 72 69 6f  75 73 20 61 74 74 65 6d  | a serious attem|
00000b60  70 74 20 68 61 73 20 62  65 65 6e 22 27 22 86 6d  |pt has been"'".m|
00000b70  61 64 65 20 74 6f 20 64  65 6d 6f 6e 73 74 72 61  |ade to demonstra|
00000b80  74 65 20 74 68 65 20 65  78 69 73 74 65 6e 63 65  |te the existence|
00000b90  20 6f 66 22 27 22 86 76  61 72 69 6f 75 73 20 70  | of"'".various p|
00000ba0  68 65 6e 6f 6d 65 6e 61  2c 20 69 6e 63 6c 75 64  |henomena, includ|
00000bb0  69 6e 67 22 27 22 86 70  73 79 63 68 6f 6b 69 6e  |ing"'".psychokin|
00000bc0  65 73 69 73 20 2d 20 74  68 65 20 61 62 69 6c 69  |esis - the abili|
00000bd0  74 79 20 74 6f 22 0d 04  88 8a f1 22 86 69 6e 66  |ty to".....".inf|
00000be0  6c 75 65 6e 63 65 20 6d  61 74 74 65 72 20 62 79  |luence matter by|
00000bf0  20 74 68 65 20 6d 69 6e  64 20 61 6c 6f 6e 65 2e  | the mind alone.|
00000c00  22 3a f1 3a f1 22 86 54  68 69 73 20 70 72 6f 67  |":.:.".This prog|
00000c10  72 61 6d 20 69 73 20 64  65 73 69 67 6e 65 64 20  |ram is designed |
00000c20  74 6f 20 65 6e 61 62 6c  65 22 27 22 86 75 73 65  |to enable"'".use|
00000c30  72 73 20 74 6f 20 74 65  73 74 20 74 68 65 69 72  |rs to test their|
00000c40  20 6f 77 6e 20 70 6f 77  65 72 20 6f 66 22 27 22  | own power of"'"|
00000c50  86 70 73 79 63 68 6f 6b  69 6e 65 73 69 73 2e 22  |.psychokinesis."|
00000c60  0d 04 92 33 f1 8a 36 2c  32 34 29 3b 22 82 50 52  |...3..6,24);".PR|
00000c70  45 53 53 20 41 4e 59 20  4b 45 59 20 54 4f 20 43  |ESS ANY KEY TO C|
00000c80  4f 4e 54 49 4e 55 45 22  2b bd 33 30 3a 5a 24 3d  |ONTINUE"+.30:Z$=|
00000c90  be 3a db 0d 04 9c 1d f1  22 83 49 4e 54 52 4f 44  |.:......".INTROD|
00000ca0  55 43 54 49 4f 4e 20 50  41 47 45 20 32 22 3a f1  |UCTION PAGE 2":.|
00000cb0  0d 04 a6 d2 f1 3a f1 3a  f1 22 86 54 68 65 20 70  |.....:.:.".The p|
00000cc0  72 6f 67 72 61 6d 20 67  65 6e 65 72 61 74 65 73  |rogram generates|
00000cd0  20 61 20 73 74 72 65 61  6d 20 6f 66 20 27 58 27  | a stream of 'X'|
00000ce0  73 22 27 22 86 61 6e 64  20 27 4f 27 73 20 61 74  |s"'".and 'O's at|
00000cf0  20 72 61 6e 64 6f 6d 20  61 6e 64 20 63 6f 6e 74  | random and cont|
00000d00  69 6e 75 6f 75 73 6c 79  22 27 22 86 63 68 61 6e  |inuously"'".chan|
00000d10  67 65 73 20 61 20 64 69  73 70 6c 61 79 20 6f 66  |ges a display of|
00000d20  20 32 30 30 20 6f 66 20  74 68 65 73 65 22 27 22  | 200 of these"'"|
00000d30  86 63 68 61 72 61 63 74  65 72 73 2e 20 54 68 65  |.characters. The|
00000d40  20 70 72 6f 67 72 61 6d  20 6b 65 65 70 73 20 63  | program keeps c|
00000d50  6f 75 6e 74 20 6f 66 22  27 22 86 74 68 65 20 6e  |ount of"'".the n|
00000d60  75 6d 62 65 72 20 6f 66  20 27 4f 27 73 20 61 6e  |umber of 'O's an|
00000d70  64 20 27 58 27 73 20 6f  6e 20 64 69 73 70 6c 61  |d 'X's on displa|
00000d80  79 22 0d 04 b0 74 f1 22  86 61 6e 64 20 74 68 65  |y"...t.".and the|
00000d90  20 6e 75 6d 62 65 72 73  20 67 65 6e 65 72 61 74  | numbers generat|
00000da0  65 64 20 66 72 6f 6d 20  74 68 65 22 27 22 86 73  |ed from the"'".s|
00000db0  74 61 72 74 2e 20 54 68  69 73 20 69 6e 66 6f 72  |tart. This infor|
00000dc0  6d 61 74 69 6f 6e 20 69  73 20 64 69 73 70 6c 61  |mation is displa|
00000dd0  79 65 64 22 27 22 86 67  72 61 70 68 69 63 61 6c  |yed"'".graphical|
00000de0  6c 79 20 61 6e 64 20 6e  75 6d 65 72 69 63 61 6c  |ly and numerical|
00000df0  6c 79 2e 22 3a f1 0d 04  ba c5 f1 22 86 4c 65 66  |ly.":......".Lef|
00000e00  74 20 74 6f 20 69 74 73  65 6c 66 2c 20 74 68 65  |t to itself, the|
00000e10  20 63 6f 6d 70 75 74 65  72 20 73 68 6f 75 6c 64  | computer should|
00000e20  22 27 22 86 67 65 6e 65  72 61 74 65 20 74 68 65  |"'".generate the|
00000e30  20 27 4f 27 73 20 61 6e  64 20 27 58 27 73 20 69  | 'O's and 'X's i|
00000e40  6e 20 61 20 72 61 74 69  6f 22 27 22 86 6f 66 20  |n a ratio"'".of |
00000e50  61 62 6f 75 74 20 35 30  3a 35 30 2e 20 54 68 65  |about 50:50. The|
00000e60  20 6f 62 6a 65 63 74 20  6f 66 20 74 68 65 22 27  | object of the"'|
00000e70  22 86 65 78 70 65 72 69  6d 65 6e 74 20 69 73 20  |".experiment is |
00000e80  74 6f 20 61 74 74 65 6d  70 74 20 74 6f 20 63 68  |to attempt to ch|
00000e90  61 6e 67 65 20 74 68 69  73 86 72 61 74 69 6f 20  |ange this.ratio |
00000ea0  62 79 20 66 6f 72 63 69  6e 67 20 74 68 65 20 63  |by forcing the c|
00000eb0  6f 6d 70 75 74 65 72 20  74 6f 22 0d 04 c4 47 f1  |omputer to"...G.|
00000ec0  22 86 67 65 6e 65 72 61  74 65 20 6d 6f 72 65 20  |".generate more |
00000ed0  6f 66 20 6f 6e 65 20 63  68 61 72 61 63 74 65 72  |of one character|
00000ee0  20 74 68 61 6e 20 74 68  65 86 6f 74 68 65 72 20  | than the.other |
00000ef0  62 79 20 6a 75 73 74 20  74 68 69 6e 6b 69 6e 67  |by just thinking|
00000f00  2e 22 0d 04 ce 33 f1 8a  36 2c 32 34 29 3b 22 82  |."...3..6,24);".|
00000f10  50 52 45 53 53 20 41 4e  59 20 4b 45 59 20 54 4f  |PRESS ANY KEY TO|
00000f20  20 43 4f 4e 54 49 4e 55  45 22 2b bd 33 30 3a 5a  | CONTINUE"+.30:Z|
00000f30  24 3d be 3a db 0d 04 d8  0b 2a 46 58 32 31 2c 30  |$=.:.....*FX21,0|
00000f40  0d 04 e2 1d f1 22 83 49  4e 54 52 4f 44 55 43 54  |.....".INTRODUCT|
00000f50  49 4f 4e 20 50 41 47 45  20 33 22 3a f1 0d 04 ec  |ION PAGE 3":....|
00000f60  e3 f1 22 86 52 65 73 65  61 72 63 68 20 69 6e 74  |..".Research int|
00000f70  6f 20 70 61 72 61 70 73  79 63 68 6f 6c 6f 67 69  |o parapsychologi|
00000f80  63 61 6c 22 27 22 86 70  68 65 6e 6f 6d 65 6e 61  |cal"'".phenomena|
00000f90  20 69 73 20 6f 66 74 65  6e 20 68 61 6d 70 65 72  | is often hamper|
00000fa0  65 64 20 62 79 20 74 68  65 20 77 6f 72 6b 86 6f  |ed by the work.o|
00000fb0  66 20 66 72 61 75 64 73  20 61 6e 64 20 70 72 61  |f frauds and pra|
00000fc0  63 74 69 63 61 6c 20 6a  6f 6b 65 72 73 2e 20 54  |ctical jokers. T|
00000fd0  68 65 22 27 22 86 70 72  6f 67 72 61 6d 20 63 61  |he"'".program ca|
00000fe0  74 65 72 73 20 66 6f 72  20 74 68 65 73 65 20 61  |ters for these a|
00000ff0  6c 73 6f 2c 20 65 6e 61  62 6c 69 6e 67 86 74 68  |lso, enabling.th|
00001000  65 6d 2c 20 73 68 6f 75  6c 64 20 74 68 65 79 20  |em, should they |
00001010  6c 61 63 6b 20 74 68 65  20 6e 65 63 65 73 73 61  |lack the necessa|
00001020  72 79 22 27 22 86 70 73  79 63 68 6f 6b 69 6e 65  |ry"'".psychokine|
00001030  74 69 63 20 70 6f 77 65  72 73 2c 20 74 6f 22 3b  |tic powers, to";|
00001040  0d 04 f6 4a f1 22 20 69  6d 70 72 65 73 73 20 74  |...J." impress t|
00001050  68 65 69 72 22 27 22 86  66 72 69 65 6e 64 73 20  |heir"'".friends |
00001060  77 69 74 68 20 74 68 65  69 72 20 70 6f 77 65 72  |with their power|
00001070  73 20 6f 66 20 6d 69 6e  64 20 6f 76 65 72 20 86  |s of mind over .|
00001080  6d 61 74 74 65 72 2e 22  3a f1 0d 05 00 ea f1 22  |matter.":......"|
00001090  86 49 74 20 69 73 20 70  6f 73 73 69 62 6c 65 20  |.It is possible |
000010a0  74 6f 20 69 6e 74 72 6f  64 75 63 65 20 61 20 62  |to introduce a b|
000010b0  69 61 73 22 27 22 86 28  6f 77 69 6e 67 20 6d 6f  |ias"'".(owing mo|
000010c0  72 65 20 74 6f 20 74 65  6c 65 73 6f 66 74 77 61  |re to telesoftwa|
000010d0  72 65 20 74 68 61 6e 20  74 6f 22 27 22 86 74 65  |re than to"'".te|
000010e0  6c 65 6b 69 6e 65 73 69  73 29 20 69 6e 74 6f 20  |lekinesis) into |
000010f0  74 68 65 20 67 65 6e 65  72 61 74 69 6f 6e 20 6f  |the generation o|
00001100  66 22 27 22 86 27 4f 27  73 20 61 6e 64 20 27 58  |f"'".'O's and 'X|
00001110  27 73 2e 20 41 20 66 75  6c 6c 20 73 74 6f 70 20  |'s. A full stop |
00001120  61 70 70 65 61 72 69 6e  67 22 27 22 86 61 66 74  |appearing"'".aft|
00001130  65 72 20 74 68 65 20 6c  61 73 74 20 25 20 66 69  |er the last % fi|
00001140  67 75 72 65 20 69 6e 64  69 63 61 74 65 73 20 74  |gure indicates t|
00001150  68 65 22 27 22 86 70 65  72 69 6f 64 73 20 6f 66  |he"'".periods of|
00001160  20 62 69 61 73 20 69 6e  74 72 6f 64 75 63 74 69  | bias introducti|
00001170  6f 6e 2e 22 0d 05 0a ae  f1 3a f1 22 86 49 6e 20  |on.".....:.".In |
00001180  72 65 73 70 6f 6e 73 65  20 74 6f 20 22 22 50 72  |response to ""Pr|
00001190  65 73 73 20 27 59 27 20  26 20 52 45 54 55 52 4e  |ess 'Y' & RETURN|
000011a0  20 22 27 22 86 74 6f 20  62 65 67 69 6e 22 22 3a  | "'".to begin"":|
000011b0  2d 22 27 22 86 50 72 65  73 73 83 59 2c 52 45 54  |-"'".Press.Y,RET|
000011c0  55 52 4e 86 66 6f 72 20  6e 6f 20 62 69 61 73 2e  |URN.for no bias.|
000011d0  22 27 22 86 50 72 65 73  73 83 59 2c 53 50 41 43  |"'".Press.Y,SPAC|
000011e0  45 2c 52 45 54 55 52 4e  86 66 6f 72 20 27 58 27  |E,RETURN.for 'X'|
000011f0  20 62 69 61 73 2e 22 27  22 86 50 72 65 73 73 83  | bias."'".Press.|
00001200  59 2c 53 50 41 43 45 2c  53 50 41 43 45 2c 52 45  |Y,SPACE,SPACE,RE|
00001210  54 55 52 4e 86 66 6f 72  20 27 4f 27 20 62 69 61  |TURN.for 'O' bia|
00001220  73 22 0d 05 14 33 f1 8a  36 2c 32 34 29 3b 22 82  |s"...3..6,24);".|
00001230  50 52 45 53 53 20 41 4e  59 20 4b 45 59 20 54 4f  |PRESS ANY KEY TO|
00001240  20 43 4f 4e 54 49 4e 55  45 22 2b bd 33 30 3a 5a  | CONTINUE"+.30:Z|
00001250  24 3d be 3a db 0d 05 1e  05 e1 0d 05 28 30 dc 22  |$=.:........(0."|
00001260  91 37 60 60 60 60 6b 20  37 60 60 60 6b 20 37 6b  |.7````k 7```k 7k|
00001270  20 20 37 6b 20 37 60 60  60 6b 20 37 6b 20 20 37  |  7k 7```k 7k  7|
00001280  6b 20 37 60 60 60 60 6b  22 3b 0d 05 32 2f dc 22  |k 7````k";..2/."|
00001290  91 35 6a 60 60 6b 6a 20  35 37 60 60 60 20 35 6a  |.5j``kj 57``` 5j|
000012a0  20 20 35 6a 20 35 6a 60  60 60 20 35 6a 20 20 35  |  5j 5j``` 5j  5|
000012b0  6a 20 35 6a 60 60 35 6a  22 0d 05 3c 2f dc 22 95  |j 5j``5j"..</.".|
000012c0  35 6a 20 20 6a 6a 20 35  35 20 20 20 20 35 6a 70  |5j  jj 55    5jp|
000012d0  70 35 6a 20 35 6a 20 20  20 20 35 6a 70 70 35 6a  |p5j 5j    5jpp5j|
000012e0  20 35 6a 20 20 35 6a 22  0d 05 46 33 dc 20 22 95  | 5j  5j"..F3. ".|
000012f0  35 22 22 60 60 60 6a 20  35 60 60 60 6b 20 75 70  |5""```j 5```k up|
00001300  30 5f 70 7a 20 35 6a 20  20 20 20 35 20 20 20 20  |0_pz 5j    5    |
00001310  6a 20 35 6a 20 20 35 6a  22 20 20 0d 05 50 2f dc  |j 5j  5j"  ..P/.|
00001320  22 93 35 6a 60 60 60 60  20 60 60 60 6b 6a 20 20  |".5j```` ```kj  |
00001330  20 35 6a 20 20 20 35 6a  20 20 20 20 35 6a 60 60  | 5j   5j    5j``|
00001340  35 6a 20 35 6a 20 20 35  6a 22 0d 05 5a 2f dc 22  |5j 5j  5j"..Z/."|
00001350  93 35 6a 20 20 20 20 20  20 20 20 6a 6a 20 20 20  |.5j        jj   |
00001360  35 6a 20 20 20 35 6a 20  20 20 20 35 6a 20 20 35  |5j   5j    5j  5|
00001370  6a 20 35 6a 20 20 35 6a  22 0d 05 64 31 dc 22 96  |j 5j  5j"..d1.".|
00001380  35 6a 20 20 20 20 20 70  70 70 7a 6a 20 20 20 35  |5j     pppzj   5|
00001390  6a 20 20 20 35 6a 70 70  70 20 35 6a 20 20 35 6a  |j   5jppp 5j  5j|
000013a0  20 35 6a 70 70 35 6a 22  20 20 0d 05 6e 2f dc 22  | 5jpp5j"  ..n/."|
000013b0  96 75 7a 20 20 20 20 20  75 70 70 70 7a 20 20 20  |.uz     upppz   |
000013c0  75 7a 20 20 20 75 70 70  70 7a 20 75 7a 20 20 75  |uz   upppz uz  u|
000013d0  7a 20 75 70 70 70 70 7a  22 0d 05 78 35 dc 22 20  |z uppppz"..x5." |
000013e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001400  20 20 20 20 20 20 20 22  20 20 20 20 20 20 0d 05  |       "      ..|
00001410  82 2f dc 22 92 77 73 73  73 73 73 73 73 73 73 73  |./.".wssssssssss|
00001420  73 73 73 73 73 73 73 73  73 73 73 73 73 73 73 73  |ssssssssssssssss|
00001430  73 73 73 73 73 73 73 73  73 73 73 7b 22 0d ff     |sssssssssss{"..|
0000143f