PROFICIENCY ENHANCEMENT PROJECT, PHASE I

• Document Type: CREST
• Collection: STARGATE
• Document Number (FOIA) /ESDN (CREST): CIA-RDP96-00789R002900340001-3
• Release Decision: RIPPUB
• Original Classification: S
• Document Page Count: 52
• Document Creation Date: November 4, 2016
• Document Release Date: May 22, 2000
• Sequence Number: 1
• Publication Date: June 6, 1991
• Content Type: SUMMARY

Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
STAR GATE
DEFENSE
INTELLIGENCE
AGENCY
DT-S- 1036-SL
PROFICIEDCY EnHancEmEnT PROJECT (U)
PHRSE I
STAR GATE
6 JUDE 1991
NOFORN
ECDET
LIEDIS
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
*MIR'
PROFICIENCY ENHANCEMENT PROJECT
PHASE I
Date of Publication
6 June 1991
This is a Department of Defense Intelligence Document
prepared by the Technology Assessment and Support Office,
Directorate for Scientific and Technical Intelligence
Defense Intelligence Agency.
PREPARED BY
Technology Assessment and Support Office (Dr-s)
NOT RELEASABLE TO 'FOREIGN NATIONALS
REPRODUCTION REQUIRES
APPROVAL OF ORIGINATOR
OR HIGHER DOD AUTHORITY
RJR= DISSEMINATION
ONLY AS DIRECTED BY or
OR HIGHER DOD AUTHORITY
LIMITED DISSEMINATION
CLASSIFIED BY: DIA/ET
DECLASSIFY ON: OADR
S'Eltin1idif/110F01111/Lin1DIS
Approved For Release 200stqtygi :(1211WP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
1111CLASSIFIED
TABLE OF OONTENTS
Page
I. PURPOSE
1
II. SCOPE
1
III. DISCUSSION
1
IV. BACNGROUND
2
V. DESIGN CRITERIA FOR SOFTWARE AND HARDWARE
4
VI. IMPLEMENTATION
6
VII. OTHER CONSIDERATIONS
8
VIII. INSTRUCTIONS FOR PERFORMING A SESSION
9
APPENDIX A: EQUIPMENT CONFIGURATIONS
A-1
APPENDIX B: PROGRAM SOURCE OODE FOR MENTCOMM.EXE
B-1
APPENDIX C: PROGRAM SOURCE CODE FOR MENICOM2.EXE
C-1
APPENDIX D: PROGRAM SOURCE COM FOR PI3DECOD.TPU
D-1
APPENDIX E: HARD COPIES OF TARGEr LIBRARY FILES
E-1
APPENDIX F: COMPUTER SCREENS SEEN DURING PROGRAM
F-1
MICLFISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
PROFICIENCY ENHANCEMENT PROTECT
PHASE I
I. (U) PURPOSE:
(S/NF) This paper documents the completion of the first phase of a
[YT-S originated training/applications research project.
II. (U) SCOPE:
(U) This report discusses the concept, documents the unique hardware
and software approach developed, and identifies instructions/protocols
involved in this proficiency enhancement activity.
(S/NF) Follow-on reports of this proficiency enhancemaltpraidect are
anticipated that will discuss later phases. These reports will address
statistical results, evaluation criteria, training/performance rates, and
potential impact on select applications/projects.
III. (U) DISCUSSION:
(S/SG/NFAIMDIS) This proficiency enhancement project was developed
by DT-S in order to improve the efficiency and pace of training/practice
available to DT-S personnel. It is anticipated that this technique will
significantly enhance the success probability of certain applications of
interest, such as search/track and possibly other operational projects.
This training/practice technique could also lead to the possibility of a
long-distance "communications" capability. Even though data-rate would
probably be limited, there may be same situations where such a capability
would be useful (e.g., hostage projects).
1
leelier/110F0Fil1/LIMDI9
Approved For Release 200Tem gprippP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
feeliltuP
IV. (U) BaKaROUND:
a. (S/SG/NT/I1MDIS) Several members of the DTL-S staff attended the
1991 Atlantic University Consciousness Symposium, held in Virginia Beach,
VA, on 16-17 February 1991 (see report DITS-1029-SL, dtd 15 MARCH 1991).
While there, two neuters of the staff were allowed to use an antique Zener
card machine in the university's possession, which purportedly tested
"mental communication" skills (a diagram of this machine is shown in
Appendix A). Results were quite successful, prompting later discussion
about the experience. The idea surfaced that this technique would also be
of direct use to EITS as a potential proficiency enhancement procedure.
b. (S/SGOT/I1MDIS) Work toward the goal of developing such a
capability began upon return from the symposium and a computerized version
of this antique ":mental communication" testing device was developed.
Modifications would be needed, however, to permit this technique to have a
wider role for DT-S. Thus, a variety of training/practice approaches
would be incorporated, the system would be designed for very rapid use
(including feedback), results would be part of a permanent record for each
individual, and rapid statistical evaluations could be made.
2
ECCI1ET/110FORIVLIIIIDIS
Approved For Release 200gilp7Ifl :WIRDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
arairePIEFFT-
V. (U) DESIGN CRITERIA FOR HAREWARE AND SOFTWARE:
(S/NF) Even though a variety of training/practice procedures could
be accomplished from the envisioned proficiency training technique, the
most stringent aspect from a designer point-of-view was the
"communications" aspect. This, as well as other needs led to the
following requirements:
a. (S) Accessibility for all DT-S staff.
b. (U) Targets selected at random from a large target pool.
c. (U) Statistical track of individual and group performance
maintained to include:
1. "Receiver's" name or Source number.
2. "Sender's" name or Source number.
3. Date of session.
4. Number of trails.
5. Number of successful trials.
d. (Ur) Format appropriate for periodic status and progress
reports.
e. 4(U) Flexibility: This system requires flexibility in order to
allow scientific experimentation with different types of
targeting groups. Zener cards only provide a set of geometric
and meaningless symbols; this system should include human
expressions, colors, emotional situations, etc.
f. (Ur) Built-in potential for unlimited target pools to permit
expansion of application options.
3
attagi4E3/110F0Fin
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
MICLFISSIFIED
g. m Communications utility: In this case, the system would
require additional software to permit utility of coded messages
to be evaluated. This additional software can be generated in-
house.
4
MICLEISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
ITIELASSIFIED
V. (E) IMPLEMENTATION: A study indicated that the majority of
equipment/technology already existed in DT"S. Therefore, the following
guidelines were considered for project implementation:
a. (U) Existing computers were used. This further meant that
there would be no terminals dedicated to this project alone, but that all
hardware and software must be "invisible" to normal operations.
b. (U) The two computers had to be "tied together" so they could
communicate. This was necessary in order to allow both to agree on the
same target card, and so both would be aware of the "receiver's" card
choice.1
d. (U) DT"S uses the TURBO PASCAL programming language, which is
completely adequate for the programming demands for this project. SFC
of DT"S is a qualified progrimmer with this language, and used it
to write the three programs necessary for the project. These three
Program are:
1. MENDCOMM.EXE This is the "master' program which perform
all required functions for the nqpr,
selects targets, controls both machines, and
performs all necessary data manipulation
functions. The programming source code
1 (U) Computers can not be internally mcdified without permission from
DSO. A request would have to delineate all aspects of the
project, requiring DSO people to be read on, etc. Therefore, all
connecting and control circuitry had to be external and "invisible" to
normal operations. A full study of the possibilities finally led to the
simplest solution, a "gimmicked" inter-oumputer control cable (acting as a
nine-wire "null modem"), as depicted in Appendix A.
5
UnCLIESIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UnCLASSIFIED
listing for this program is located in
Appendix B.
2. MENDOOM2.EXE This is the "slave" program which is run on
the "sender's" machine. This program only
serves to display the target card to the
"sender". The programming source code for
this program is located in Appendix C.
3. PE3DECOD.EXE This program is used by the other two, and
not by the user, directly. The programming
sources code for this program is located in
Appendix D.
e. (17) Along with these three program, other files are used to
contain the libraries of target photos, diagrams, symbols, etc. A hard
copy of the present target file libraries are found in Appendix E. Each
library holds 18 targets, and the program is expandable to use as many
target libraries as future needs warrant.
6
UTICLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
-92e1C-IP-
VI. (Ti) OTHER CONSIDERATIONS:
a. (C) Because software is so easily transportable, and often
seems to appear in unauthorized places, as if by magic, the title page of
this program was written without any reference to DIA, DT-S, Project STAR
GATE, or the U.S. government. For all outward appearances, it is a
general purpose program, of the type which could be bought in a store.
Likewise, no classified material has been or will be put into the target
libraries.
b. (C) Since practice time is rare, it was believed that
opportunities for two people to work together in practice would be even
rarer. For this reason, the program was so designed to automatically know
whether or not it was being used by one person or two. If a person wants
to practice alone, the "mastee program will continue to operate, but the
emphasis will be on "communicating" with the computer, rather than with
another person. The data which is kept at the end of the practice
session will reflect the fact that a solo session was performed.
c. (S) Since there is strong evidence from other experiments
indicating that the type of target affects a person's ability to mentally
omanunicate, the libraries are oriented toward "sets" or target types.
Data records kept at the end of each session also indicate which type of
target library was used, allowing for future analysis of each source's
performance according to target type.
7
arraGag*
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IMCLASSIFIED
VII. (U) INSTRUCTIONS FOR PERFORMING A SESSION: Every attempt has been
made to make the program as "user-friendly" as possible.2 Operation is as
follows:
a. (U) If two computers are to be used in tandem (for the
"sender/receiver" mode of operation), the inter-computer connecting cable
must be plugged into the COM2 port of each machine. As soon as we can
establish a dedicated location and permanent hook-up for this project,
this step will no longer be required.
b. (U) The computer(s) is(are) turned on, and when the main menu
appears, the option for Mental Cbmmunications Practice is selected.
c. (U) A second menu appears, asking whether the user will be
acting as "sender" or "receiver".
1. If the user is the one who will try to acquire the targets,
he/she is the "receiver" (of the mental communication), and should select
the (R)eceiver option.
2. If the user is the one who will be looking at the target
picture and trying to "send" this information to the other, he/she should
select the (S)ender option.
d. (U) The instructions for each person will appear on their
individual screens. From this time on, the person acting as "receiver" is
in complete control of the programs on both machines.
2 (U) All computer screens seen during the program are shown in hard
copy form in Appendix F.
8
IMCLI1991FIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UTICLASSIFIED
e. (U) When both participants have read the instructions, the
"receiver" person presses a key, and is given the choice of selecting
which library of pictures/diagrams/symbols/etc. will be used for the
session.
f. (U) Once the target library has been selected, the complete
library will be shown on both screens. The reason for this is to prevent
overdue attraction to any one target picture during the later practice
session, simply because it has not been seen for a while.
g-
m When the library of targets has been removed from the
screen, the "receiver's" (main) program will randomly select four target
pictures frau the library and display them side-by-side on the
"receiver's" screen. The carpal:Ex will then randomly select one of these
four as the specific target. A copy of the specific target will be shown
on the "sender's" screen (on the other ccaputer).
h. (U) The "serame' concentrates on the target picture, imagining
him/herself interacting with the picture's contents, sbudying the specific
aspects of the picture, etc.
1. tU) The "receiver" waits for an impression. This maybe visual,
auditory, or just a "feeling" for one of the four pictures over the
others. Each picture has a number underneath it (1..4). When the
"receiver" has determined which picture to select, he/she presses the 1,
2, 3, or 4 key on the computer keyboard.
j. (U) IMMEDIA EEDBACK IS THEN PROVIDED. The screen will blank
for a mcment, then the numbers will reappear. However, only the target
9
UTICLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UTICLASSIFIED
picture will reappear above its number. This image is held on the screen
for approximately one second, before moving on to the next trial.
k. (U) The number of trials completed is shown in the lower left
hand corner of the screen, and the number of "hits" is shown in the lower
right hand side of the screen during each trial. The number of "hits" is
also shown to the "sender" on the other computer, as positive feedback:to
hip/her.
1. (U) When the "receiver" is ready to quit the session, the Esc
key is pressed. The screen will blank, and a complete statistical package
will be shown on both computer screens. At this time, the "receiver" has
three choices:
a) lb continue the session, taking up where hp/she left off.
b) TO start the session over again from zero.
c) TO quit.
loch (U) Should the "receiver" choose to quit, the =cuter will ask
for the date and the "receiver's" Identification. If this has not been a
solo session, the computer will also ask for the "sender's"
identificAtion.
n. (U) All session statistics are added to the "receiver's" data
file before the program terminates, and the ugoar is returned to the
computer's menu screen.
10
UnCLEISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IMCLASSIFIED
"SENDER"
+Volts for lights only
Random
Number
Generator
NIIII
Solon?I&
Hit
light
"RECEIVER"
+Volts for selection
Trials counter
Hits
counter
Belt
Figure 1r-1: ESP TESTING DEVICE AT AMERICAN UNIVERSITY
Functional Diagram
1. The random number generator randomly closes one of the live svitches,
lighting the corresponding light behind one of the "Sender's' symbols.
2. The "Sender" concentrates on the lit symbol.
3. The "Receiver" valts until an impression is gained and then presses
the button belay the symbol he/she thinks is the proper target.
4. Pressing the button automatically kicks up the Trials counter.
5. If the borrect symbol is selected, the closed circuit also
kicks up the Hits counter and lights the "MIT" lights as positive
feedback to both participants.
Appendix A: Page A-1
UnCLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
-StMe, STAR GATE
COMPUTER A
CI CI CI 1=3
1 2 3 4
Trials: 5 Hits: 3
COMPUTER B
Inter-computer
control cable
"RECHEV/3R"
Trials: 5 Hits: 3
Figure 1-2: ESP NACHINE FOR re?s
"SENDER'
1. The "Receiver's" computer selects four targets from a. library of
many, and shows them on the screen of Computer A.
2. It then randomly selects one of the four and sends that target
to the "sender's" computer.
3. The "Sender" concentrates on the target picture.
4. The "Receiver" attempts to receive images, feelings, etc. About
the target picture. When such-a. feeling is received, the "Roceiver"
selects the target picture from among the four sholin, and presses
the corresponding key on. the keyboard.
5. Immediate feedback is given to each participant before continuing
to the next set of pictures.
APPENDIX A: Page 1-2
argasitownoronn/umnis
Approved For Release 2000/08/08: CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IMCLASSIFIED
^
Data In
Data In
Data Out
Data Out
Beady???
Ready???
Beady!"
><
Read !I'
Data Received?
Data Received?
Data Received!
Data Received!
"Gimmick"
PLUG A
Out of master
ocaputer's
OEM port
Figure A-3: INTER-COMPUTER CONTROL CABLE
Plugs are 9-pin female "D" plugs.
Cable is 9-vire flat ribbon cable.
PLUG B
Into slave
computer's
COX2 port
1. Demands that no internal changes be made to the computers
prompted the need for special external circuitry. This is
in the form of an inter-computer control, or "Null-modem"
cable, hooked to the data entry port (00M2) of each computer.
2. The aable is "gimmicked" in such a way that data out of each
computer is fed into the_inout lines of the other. as are
the request info lines ("Ready???" and Data Received?" )
and the status lines ("Reaay!!!" and Data Received!" )
3. During the actual use of the program, these data lines are
taken over by the programming, instead of being used in the
normal manner. Controlling commands are converted by MENTCOMM.EXE
into the appearance of data. Once converted, they can be passed
as data over the data lines. MENTCOM2.EXE reconverts the data
into commands, and obeys them.
Appendix A: Page 1-3
UrICLRSSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UnCLASSIFIED
Figure Ar-4: Photograph of the
inter-computer control cable,
shoving plugs and "gimmick" areas.
Appendix A: Page A-4
MICLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UnCLEISSIFIED
SOURCE CODE FOR THE PROGRAM MENTCOMM.EXE
wRrrrEN IN TURBO FASCALVer. 5.1
PROGRAM MENTOCEM;
USES
CRT, DOS, GRAPH, PI3DECOD;
CONST
Height = 100;
Width = 100;
Offset = 50;
VAR
Action
Dir
Key
Hits
Lineout
Name
Numb1,
Numb2,
Numb3,
Nbnio4,
NumbX
NumbH,
NiumbS,
NumbT
P1, P2,
P3, P4,
P5, P6,
P7, P8,
P9, P10,
P11,P12,
P13, P14,
P15,P16,
P17 ,P18
Picfile
Rate
Score
Size
Trial
Xl, X2,
X3, X4,
X5, X6,
Y1, Y2,
Y3
: string;
: string;
: char;
: integer;
: text;
: string;
: integer;
: string;
: pointer;
: string;
: real;
: real;
: word;
: integer;
: integer;
APPENDIX B: Page B-1
UTICLFISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IMCLASSIFIED
FUNCTION SETX(NuMber : integer) :
begin
case Number of
integer;
1,
7,
13
:
SETX := 0;
2,
8,
14
:
SETX := Width;
3,
9,
15
:
SETX := Width *
2;
4,
10,
16
:
SETX := Width *
3;
5,
11,
17
:
SETX := Width *
4;
6,
12,
18
:
SETX := Width *
5;
end;
end;
FUNCTION SETY(Number : integer) : integer;
begin
case Number of
1,
2,
3,
4,
5,
6
:
SEI' Y
:= 0;
7,
8,
9,
10,
11,
12
:
SETY
:= Height;
13,
14,
15,
16,
17,
18
:
SETY
:= Height *
2;
end;
end;
PROCEDURE WRITE L1NE(tempstr:string);
begin
rewrite(Lineout);
flush (Lineout);
write1n(Lineout,tempstr,#13);
close (Lineout);
delay (150);
end;
PROCEEXJRE PICK 4;
begin
Randomize;
Nurnbl := random(17) + 1;
repeat
Numb2 := rarxtm(17) + 1;
until Numb2 Numbl;
repeat
Numb3 := randum(17) + 1;
until (NuMb3 Ntimbl) and (Numb3 Numb2);
repeat
Numb4 randum(17) + 1;
until (gamb4 Numbl) and (gumb4 Numb2) and (gamb4 Numb3);
end;
PROCEDURE PICK 1;
var
APPENDIX B: Page B-2
UTICLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IMCLF1SSIFIED
tempint : integer;
begin
tint := ran1am(1000);
if NumbS '0' then
begin
case tempint of
000..250 : begin
NumbX := 1;
str(Numbl,NumbS);
end;
251..500 : begin
NumbX := 2;
str(Numb2,NurnbS);
end;
501..750 : begin
NumbX := 3;
str(Numb3,NumbS);
end;
751..999 : begin
NumbX := 4;
str(Numb4,NurnbS);
end;
end;
end;
end;
PROCEDURE SEND INFO;
begin
str(Trial,NumbT);
str(Hits ,NurnbH);
WRITE LINE(NumbS);
WRITE?UNE(Nunill);
WRITE?UNE(NumbH);
end;
PROCEDURE BREAPICTURE_UP;
var
x: integer;
y: integer;
begin
Size := ImageSize(00,00,Width,Height)
GetMem(P1, Size); X := SETX( 1); Y :=
GetImage(X, Y, X + Width, Y + Height,
GetMem(P2, Size); X := SETX( 2); Y :=
GetImage(X, Y, X + Width, Y + Height,
GetMem(P3, Size); X := sErx( 3); Y :=
GetImage(X, Y, X + Width, Y + Height,
GetMem(P4, Size); X := SEX( 4); Y :=
SET Y(
P1");
SErY(
P2");
SETY(
P3");
sEry(
APPENDIX B: Page B-3
UnCLASSIFIED
1);
2);
3);
4);
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
GetImage(X, Y, X
GetMem(P5, Size);
GetImage(X, Y, X
GetMem(P6, Size);
GetImage(X, Y, X
GetMem(P7, Size);
GetImage(X, Y, X
GetMem(P8, Size);
Getimage(X, Y, X
GetMam(P9, Size);
GetImage(X, Y, X
GetMem(P10,Size);
GetImage(X, Y, X
GetMem(F11,Size);
GetImage(X, Y, X
GetMem(P12,Size);
GetImage(X, Y, X
GetMem(P13,Size);
GetImage(X, Y, X
GetMem(P14,Size);
GetImage(X, Y, X
GetMem(F15,Size);
GetImage(X, Y, X
GetMan(P16,Size);
GetImage(X, Y, X
GetMem(P17,Size);
GetImage(X, Y, X
GetMem(P18,Size);
GetImage(X, Y, X
end;
UnCLASSIFIED
+ Width, Y + Height,
X := SETX( 5); Y :=
+ Width, Y + Height,
X := SETX( 6); Y :=
+ Width, Y + Height,
X := SETX( 7); Y :=
+ Width, Y + Height,
X := SETX( 8); Y :=
+ Width, Y + Height,
X := SETX( 9); Y :=
+ Width, Y + Height,
X := SETX(10); Y :=
+ Width, Y + Height,
X := SETX(11); Y :=
+ Width, Y + Height,
X := SETX(12); Y :=
+ Width, Y + Height,
X := SETX(13); Y
+ Width, Y + Height,
X := SETX(14); Y :=
+ Width, Y + Height,
X := SETX(15); Y :=
+ Width, Y + Height,
X := SETX(16); Y :=
+ Width, Y + Height,
X := SETX(17); Y :=
+ Width, Y + Height,
X := SETX(18); Y
+ Width, Y + Height,
P4");
SETY( 5);
P5");
SETY( 6);
P6");
SErY( 7);
pr);
SErY( 8);
P8");
SETY( 9);
SETY(10);
PIO");
SETY(11);
PD.");
SErY(12);
P12");
SETY(13);
P13");
SETY(14);
P14");
SETY(15);
P15");
SETY(16);
P16");
SErY(17);
P17");
SErY(18);
P18");
PROCEDURE PUT PARTS;
var
trialstr : string;
hitstr: string;
begin
ClearDevice;
str(Prial,trialstr);
trialstr := 'Trial # ' + trialstr;
SetTextStyle(defaultfont,horizdir,1);
OutTextXY(58,315,trialstr);
str(Hits,hitstr);
hitstr := 'Hits: ' + hitstr;
OutTbxtXY(550,315,hitstr);
SetTextStyle(gothicfont,horizdir,3);
case Numbl of
1 : PutImage(050,Height,P1", NormalPut);
2 : PutImage(050,Height,P2", NormalPut);
APPENDIX B: Page B-4
UnCLRSSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UrICLASSIFIED
3 : PutImage(050,Height,P3", NormalPut);
4 : PutImage(050,Height,P4", NormalPut);
5 : PutImage(050,Height,P5", NormalPut);
6 : Putimage(050,Height,P6", NormalPut);
7 : PutImage(050,Height,P7", NormalPut);
8 : PutImage(050,Height,P8", NormalPut);
9 : PutImage(050,Height,P9", NormalPut);
10 : PutImage(050,Height,F10",NormalPut);
11 : PutImage(050,Height,P11",NormalPut);
12 : PutImage(050,Height,P12",Norma1Put);
13 : PutImage(050,Height,P13",NormalPut);
14 : PutImage(050,Height,P14",Norma1Put);
15 : PutImage(050,Height,P15",NormalPut);
16 : PutImage(050,Height,P16",NormalPut);
17 : PutImage(050,Height,F17",NormalPut);
18 : PutImage(050,Height,P18",NormalPut);
end;
OutTextXY(050 + Offset,Height + 130,,1');
case Numb2 of
1 : PutImage(200,Height,P1", NormalPut);
2 : PutImage(200,Height,P2-, NormalPut);
3 : PutImage(200,Height,P3", NormalPut);
4 : PutImage(200,Height,PC, NormalPut);
5 : PutImage(200,Height,P5", NormalPut);
6 : PutImage(200,Height,P6", NormalPut);
7 : PutImage(200,Height,P7", NormalPut);
8 : PutImage(200,Height,P6", NormalPut);
9 : PutImage(200,Height,P9-, NormalPut);
10 : PutImage(200,Height,E10",NormalPut);
11 : PutImage(200,Height,P11",Norma1Put);
12 : PutImage(200,Height,P12",NormalPut);
13 : PutImage(200,Height,P13",Norma1Put);
14 : PutImage(200,Height,P14",NormalPut);
15 : PutImage(200,Height,P15",NormalPut);
16 : PutImage(200,Height,P16",NormalPut);
17 : PutImage(200,Height,P17",NormalPut);
18 : PutImage(200,Height,P18",NormalPut);
end;
OutTOxtXY(200 + Offset,Height + 130,'2');
case Numb3 of
1
:
PutImage(350,Height,P1", NormalPut);
2
:
PutImage(350,Height,P2", NormalPut);
3
:
PutImage(350,Height,P3-, NormalPut);
4
:
PutImage(350,Height,P4", NormalPut);
5
:
PutImage(350,Height,P5", NormalPut);
6
:
PutImage(350,Height,P6-, NormalPut);
7
:
PutImage(350,Height,P7", NormalPut);
8
:
PutImage(350,Height,P8", NormalPut);
APPENDIX B: Page B-5
MELFISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IMELFISSIFIED
9 : PutImage(350,Height,P9", NormalPut);
10 : PutImage(350,Height,P10",NormalPut);
11 : PutImage(350,Height,P11",Norma1Put);
12 : PutImage(350,Height,P12",Norma1Put);
13 : PutImage(350,Height,P13",Norma1Put);
14 : PutImage(350,Height,P14",NormalPut);
15 : PutImage(350,Height,P15",NormalPut);
16 : PutImage(350,Height,P16",NormalPut);
17 : PutImage(350,Height,P17",NormalPut);
18 : PutImage(350,Height,P18",Norma1Put);
end;
OutTextXY(350 + Offset,Height + 130,'3');
case Niudo4 of
1 : PutImage(500,Height,F1-, NormalPut);
2 : PutImage(500,Height,P2", NormalPut);
3 : PutImage(500,Height,P3", NormalPut);
4 : PutImage(500,Height,P4", NormalPut);
5 : PutImage(500,Height,P5", NormalPut);
6 : PutImage(500,Height,P6", NormalPut);
7 : PutImage(500,Height,P7", NormalPut);
8 : PutImage(500,Height,P8", NormalPut);
9 : PutImage(500,Height,P9", NormalPut);
10 : PutImage(500,Height,P10",Norma1Put);
11 : PutImage(500,Height,P11",Norma1Put);
12 : PutImage(500,Height,P12",NormalPut);
13 : PutImage(500,Height,P13",Norma1Put);
14 : PutImage(500,Height,F14",Norma1Put);
15 : PutImage(500,Height,F15",NormalPut);
16 : PutImage(500,Height,F16",NormalPut);
17 : PutImage(500,Height,P17",NormalPut);
18 : PutImage(500,Height,P18",Norma1Put);
end;
OutTextXY(500 + Offset, Height + 130,'4');
end;
PROCEDURE SCORE HIT;
var
hitstr: string;
begin
inc(Hits);
SetTextStyle(defaultfont,horizdir,1);
str(Hits,hitstr);
hitstr := 'Hits: ' + hitstr;
OutTextXY (550,315 , hitstr) ;
end;
PROCEDURE GEr CHOICE;
begin
APPENDIX B: Page B-6
UIELFIESIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UnCLASSIFIED
repeat
key := readkey
until
(key = #27) or
(key = #49) or
(key = #50) or
(key = #51) or
(key = #52);
if
(NumbX =
1)
and
(key =
#49)
if
(NumbX =
2)
and
=
#50)
if
(NumbX =
3)
and
(key =
#51)
if
(NumbX =
4)
and
(key =
#52)
if key #27 then
begin
case NumbX of
1 : begin
Numb2
end;
2 : begin
Numbl
end;
3 : begin
Numbl
end;
4 : begin
Numbl
end;
end;
Put Parts;
Delay(500);
Inc (Trial)
end
else
begin
NunhS := '0';
Send Info;
end;
end;
:= 0;NUMb3
:= 0;NUnb3
:= 0;NUMb2
:= 0;NUMb2
then SCORE HIT;
then SCCRE HIT;
then SCORE HIT;
then SCORE HIT;
:=
:=
:=
0;Nunb4 := 0;
0;Nunb4 := 0;
0;NUnb4 := 0;
0;NUmb3 := 0;
PROCEDURE SHOW SCCRE;
var
key: char;
begin
dec(Trial);if Trial = 0 then Trial := 1;
score := (Hits/Trial) * 100;
rate := 25 - score;
if rate < 0 then rate := rate * (-1);
if score < 25 then
APPENDIX B: Page B-7
UT1CLFISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
SG1J
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UTICLFISSIFIED
dir := 'below';
if score > 25 then dir := 'above';
if score = 25 then dir := 'at';
clrscr;
gotoxy(10,10);write('YOUR SCORE:');
gotoxy(20,11);write('Number of trials : ',Trial);
gotoxy(20,12);write('Number of hits : ',Bits);
gotoxy(20,13);write('Chance hits : ',Trial div 4);
gotoxy(20,13);write('Percentage success : ',score:5:2,'%');
gotoxy(20,14);write( 'Chance probability : 25%');
gotoxy(20,16);write('You are ');
if dir 'at' then write (rate:5:2,'% ',dir)
else write(dir);
write(' probability.');
end;
PROCEDURE RESET SCORE;
begin
NumbS
:=
'X';
Trial
:=
1;
Hits
end;
:=
0;
PROCEDURE TITLE;
begin
clrscr;
write (1***************************************1) ;
writein( '***************************************1);
write (1*
writeln('COMM
write ('*
writeln('
write (1*
writeln(',
write ('*
writeln;
end;
HENT');
*1);
1);
SGFOIA3 *1);
1);
*1); SGFOIA3
**********I);
PROCEDURE INSTRUCT;
var
key : char;
begin
TITLE;
write (' MENT(XMM lets you practice your abil');
writeln( 'ity to communicate mentally.');
writeln;
writeln( MENT(ThMM can be used in 2 ways:');
APPENDIX B: Page B-8
UT1CLFISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UTICLASSIFIED
writeln;
write ('1). Used on a single machine, you attem1);
writeln('pt to establish mental contact with ');
write (' the computer, and select the pictur');
writeln('e it has chosen as the "TA1GE1"1.1);
writeln;
write ('2). If you connect this machine, via mo');
writeln('dem or null =dem, to another computer,');
write (' and run the program ME2TCOM2 on it,');
writeln(' the target picture will show up on ');
write (' the other screen, and a second pers');
writeln('on can act as a "sender" of the');
writeln(' information.');
writeln;
writeln(' Press any key to continue');
key := readkey;
TITIE;
write (' After you read this screen, you wil');
writeln('1 be asked to press a key again. When');
write ('do, you will first see a library of pi');
writeln('ctures from which the computer will');
write ('select during each turn of the communi');
writeln( 'cation process.');
writeln;
write (' The canputer will then select four ');
writeln('pictures, and dhow them to you. It');
write ('will also secretly select one of them ');
writeln('as the "TARGEa" photo, and wait for');
write Cyou to get a. mental "feeling" (either ');
writeln(lfram the machine, or from the person');
write ('acting as the SENDER, as to which pict');
writeln('ure is the TARGET. FIRST IMPRESSIONS ');
write ('ARE OFTEN THE BEST. When you get a fe');
writelnCeling for the target, press the number');
write ('key corresponding to it. If you are r');
writeln( 'ight, the HITS counter will add one.');
write ('After your choice, the correct picture ');
writeln('will show briefly, and then you will');
wxiteln('go on to the next round.');
writeln;
write (' When you finish, press ESCAPE, and y');
writeln('ou will be given your score.');
writeln;
writeln(' Press any key to continue');
key := readkey;
TITLE;
write (' There are presently 3 libraries of ');
writeln('"target pictures" from which to choose.');
APPENDIX B: Page B-9
UnCLEISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UDELFISSIFIED
writeln('They are:');
writeln;
writeln(' 1. Niscellaneous Targets');
writeln(' 2. Facial expressions');
writeln(' 3. Geometric symbols');
writeln;
write ('With which library would, you like to work?
repeat
key := readkey;
until (key= 'I') or
(key= '2') or
(key= '3');
picfile := 'Shi1.P13';
picfile[4]:= key;
write(key);
writeln;
writeln;
write ('
key := readkey;
WRITE L1NE(FicFile);
clrscr;
gotoxy(29,10);
write ('NOW SETTING THINGS1IP');
gotoxy(30,11);
write ('CNE MCMENT, PLEASE');
delay (2000);
end;
PRESS ANY KEY TO BEGIN');
FUNCTION FILE EXISTS (filename: string):boolean;
var f :file;
begin
a6sign(f,filename);
reset(f);
close(f);
0I+)
File _Exists := (I0result = 0) and (filename
end;
PROCEDURE RECORD SCCRE;
var
date,
runs,
good,
sender,
sess,
APPENDIX B: Page B..10
UTICLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UnCLASSIFIED
library: string;
a,z : integer;
:text;
begin
sess := 'Reading: ';
sender := 'Computer';
date := ";
name := ";
library:= copy(PicFile,1,4);
clrscr;
gotoxy(15,10);
write ('PLEASE GIVE ME YOUR NAME: ');
readln(Name);
gotoxy(15,12);
write ('Please give today' s date (YYMMDD): ');
readln(date);
gotoxy(15,14);
write ('Was this a solo run?
sess := 'Reading: ';
repeat
key := upcase(readkey);
until (key= 'Y') or
(key= 'En;
if key = then
begin
gotoxy(15,16);
write ('Please give sender' s name: ');
readln(sender);
end;
str(rrial,runs);
str(Hits ,good);
for a := 1 to length(name) do
if name[a] = #32 then
begin
for z := a to length(name)-1 do
name[z] := name[z+1];
name := copy(name,1,1ength(name)-1);
end;
name := copy(name,1,8) + 1.MNT';
assign (f, name);
if File exists(name) = false then
begin
rewrite(f);
close (f);
end;
append(f);
writeln(f,date,",trial,",hits,",library,",sess,sender);
close(f);
APPENDIX B: Page B-11
MIELRSSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UnCLASSIFIED
end;
BEGIN
assign(Lineaut,'COM2');
INSTRUCT;
RESET SCORE;
randomize;
DECODE FT3_PICTURE(PicFile,600,300);
BREAK PICTURE UP;
repeat
key := 'C';
Graphics Done;
Graphics Init;
repeat
PICK 4;
PICK-1;
SEND INFO;
PUT PARTS;
GET CHOICE;
until key = #27;
Graphics Done;
SHOW SCORE;
gotoxy(20,19);write('Press Q to end the program.');
gotoxy(20,20);write('Press A to start again.');
gotoxy(20,21);write('Press C to continue.');
repeat
key := readkey;
key := upcase(key);
until
(key= 'Q') or
(key = 'A') or
(key= 'CI);
Action := key;
WRITE LINE (Action);
if key = 'C' then NurchS := '1';
if key = 'A' then RESET SCORE;
until key= 'Q';
clrscr;
RECORD SCORE;
clrscr;
END.
APPENDIX B: Page Br-12
URCLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UnCLEISSIFIED
SOURCE CODE FOR THE PROGRAM MENTCCM2.EXE
WRITTEN IN TURBO PASCAL Ver. 5.1
PROaRAMMENICOMM;
($1-)
USES
CRT, COS, GRAPH, PI3DECOD, NUMBCCNV;
CONST
Height = 100;
Width = 100;
Offset = 50;
VAR
code : integer;
Dir : string;
dummy : string;
Key : string;
Hits : integer;
Lineout : text;
NumbX : integer;
NumbH,
NumbS,
NumbT : string;
P1, P2,
P3, P4,
P5, P6,
P7, P6,
P9, P10,
P11,P12,
P13, P14,
P15, P16,
P17,P18 : pointer;
PicFile : string;
Rate : real;
Score : real;
Size : word;
Trial : integer;
Xl, X2,
X3, X4,
X5, X6,
Yl, 12,
Y3 : integer;
FUNCTION SETX(Nurtiber : integer) : integer;
begin
case Number of
APPENDIX C: Page C-1
UnCLEISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
1,
7,
13 :
2,
8,
14 :
3,
9,
15 :
4,
10,
16 :
5,
11,
17 :
6,
12,
18 :
end;
end;
IMELFISSIFIED
sErX := 0;
SETX := Width;
SETX := Width * 2;
sErx := Width * 3;
sErx := Width * 4;
smx := width * 5;
FUNCTION SETY(Number :
begin
case Number of
integer)
: integer;
1,
2,
3,
4,
5,
6
:
SETY := 0;
7,
8,
9,
10,
11,
12
:
SETY := Height;
13,
14,
15,
16,
17,
18
:
SETY := Height *
2;
end;
end;
FUNCTION READ LINE: string;
var
tempstr : string;
begin
reset (Linemt);
readln(Lineout,tempstr);
if tempatr[1] = #10 then
tempstr := copy(tempstr,2,1ength(tempstr)-1);
close (Lineout);
READ LINE := tempstr;
end;
PROCEBURE GET INFO;
begin
ELmES := 'X';NumbT := 'X';NumbH
repeat/Amu:5 := READ LINE until
Val(NumbS,NumbX,code);
repeat NumbT := READ LINE until
Val(NumbT,Trial,code);
repeat NumbH := READ LINE until
Val(NumbH,Hits ,code);
end;
:= 'X';
ioresult = 0;
ioresult = 0;
ioresult = 0;
PROCECURE BREAK PICTURE UP;
var
x : integer;
y : integer;
begin
Size := ImageSize (00, 00 , Width, Height) ;
GetMem(P1, Size) ; X := SETX( 1) ; Y := SETY( 1) ;
APPENDIX C: Page C-2
MICLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UTICLASSIFIED
GetImage(X, Y, X + Width, Y + Height, Pr);
GetKam(P2, Size); X := SETX( 2); Y := SETY( 2);
GetImage(X, Y, X + Width, Y + Height, P2");
GetMem(P3, Size); X := SETX( 3); Y:= SETY( 3);
GetImage(X, Y, X + Width, Y + Height, P3");
GetMem(P4, Size); X := SETX( 4); Y := SETY( 4);
GetImage(X, Y, X + Width, Y + Height, PA");
GetMem(P5, Size); X := SETX( 5); Y := SETY( 5);
GetImage(X, Y, X + Width, Y + Height, P5");
GetMem(P6, Size); X := SETX( 6); Y := SETY( 6);
GetImage(X, Y, X + Width, Y + Height, P6");
GetMem(P7, Size); X := SETX( 7); Y := SETY( 7);
GetImage(X, Y, X + Width, Y + Height, P7");
GetMem(P8, Size); X := SETX( 8); Y := SETY( 8);
GetImage(X, Y, X + Width, Y + Height, P8");
GetMem(P9, Size); X := SETX( 9); Y := SETY( 9);
GetImage(X, Y, X + Width, Y + Height, P9");
GetMem(P10,Size); X := SETX(10); Y := SETY(10);
GetImage(X, Y, X + Width, Y + Height, P10");
GetMem(P11,Size); X := SETX(11); Y := SE1Y(11);
GetImage(X, Y, X + Width, Y + Height, P11");
GetMem(P12,Size); X := SETX(12); Y := SETY(12);
Getlmage(X, Y, X + Width, Y + Height, P12"):
GetHem(P13,Size); X := SETX(13); Y := SETY(13);
GetImage(X, Y, X + Width, Y + Height, P13");
GetMem(F14,Size); X := SETX(14); Y := SETY(14);
GetImage(X, Y, X + Width, Y + Height, P14");
GetMem(P15,Size); X := SETX(15); Y := SETY(15);
GetImage(X, Y, X + Width, Y + Height, P15');
GetMem(P16,Size); X := SETX(16); Y SETY(16);
GetImage(X, Y, X + Width, Y + Height, PIC);
GetMem(P17,Size); X := SETX(17); Y := SETY(17);
GetImage(X, Y, X + Width, Y + Height, PIT");
GetMem(P18,Size); X := SETX(18); Y := SETY(18);
GetImage(X, Y, X + Width, Y + Height, F18");
end;
PROCEDURE PUT TARGET;
var
trialstr : string;
hitstr : string;
begin
ClearDevice;
str(rrial,trialstr);
trialstr := 'Trial # ' + trialstr;
str(Hits ,hitstr);
hitstr := 'Bits: ' + hitstr;
SetTextStyle(defaultfont,horizdir,1);
APPENDIX C: Page C-3
MICLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IHICLASSIFIED
(ACTIVATE NEXT 2 LINES TO SHOW BOTH TRIALS AND HITS)
(OutrextXY(58,315,trialstr);
OutTextXY(550,315,hitstr);)
SetrextStyle(gothicfont,horizdir,3);
(ACTIVATE NEXT LINE TO SHOW ONLY HITS)
OutrextXY(300,315,hitstr);
case NumbX of
1:
2:
3:
4:
5:
6:
7:
8:
9:
10 :
11 :
12:
13 :
14 :
15 :
16 :
17 :
18 :
end;
end;
PutImage(275,Height,P1", NormalPut);
PutImage(275,Height,P2", NormalPut);
PutImage(275,Height,P3", NormalPut);
PutImage(275,Height,P4", NormalPut);
Putimage(275,Height,P5", NormalPut);
PutImage(275,Height,P6", NormalPut);
PutImage(275,Height,Pr, NormalPut);
PutImage(275,Height,P8", NormalPut);
PutImage(275,Height,P9", NormalPut);
PutImage(275,Height,P10",NormalPut);
PutImage(275,Height,P11",NormalPut);
PutImage(275,Height,P12",Norma1Put);
Putimage(275,Height,P13",NormalPut);
PutImage(275,Height,P14",Norma1Put);
PutImage(275,Height,P15",NormalPut);
Putimage(275,Height,P16",NormalPut);
PutImage(275,Height,P17",Norma1Put);
Putimage(275,Height,P18",NormalPut);
PROCEDURE SHOW SCORE;
var
key : char;
begin
dec(Trial);if Trial = 0 then Trial := 1;
score := (Hits/Trial) * 100;
rate := 25 - score;
if rate < 0 then rate := rate * (-1);
if score < 25 then
dir := ;
if score > 25 then dir := 'above';
if score = 25 then dir := 'at';
clrscr;
gotoxy(10,10);write('SCORE:');
gotoxy(20,11);write('Number of trials
gotoxy(20,12);write(1Number of hits
gotoxy(20,13);write('Chance hits
gotoxy(20,13);write('Percentage success
gotoxy(20,14);writeCChance probability
gotoxy(20,16);write('You are ');
APPENDIX C: Page C-4
IMELFISSIFIED
',Trial);
',Hits);
',Trial div 4);
',score:5:2,1%1);
25%');
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UnCLFISSIFIED
if dir 'at' then write (rate:5:2,'% ',dir)
else write(dir);
write(' probability.');
end;
PROCEDURE INSTRUCT;
begin
clrscr;
gotoxy (36, 3);
write ('MENTCOM2');
gctoxy ( 1, 5);
write (' This portion of the MENTCOMM progra') ;
writeln ( 'm allows you to practice and develop');
write ('your ability to serd mental messages to');
writeln(' another person. matau works only');
writeln('in conjunction with the MENT(XMM program. 1) ;
writeln;
write (1 When the "receiving" person has read');
writeln(' their instructions, you will be shown');
writeln ('a screen of possible target pictures.');
writeln;
write (' The "receiving" person will .,co a pa');
writeln('nel of 4 of theca pictures, chosen at ');
write ('randam, one of which will be the "TARGE');
writeln( T" picture (they will not know which) . 1) ;
write ('Only you will see the '"IAIRgar" picture.');
writeln(' You should concentrate on it to the');
write ('best of your ability. You do not nece');
writeln('ssarily have to "SEND" it to the other');
write ('person. It is often best to just expe');
writeln('rience it as fully as you can, losing');
write ('yourself in that experience, and let ');
writeln(Ithe receiving person do the rest.');
writeln;
write ("Me program will proceed as soon as the');
writeln(' receiving person is ready.');
writeln;
repeat PicFile := READ LINE until ioresult = 0;
clrscr;
end;
BEGIN
assign(Lineout,'COM29;
INSTRUCT;
DECODE PI3 PICTURE(PicFile,600,300);
BREAK PICTURE up;
repeat
key := 'C';
APPENDIX C: Page C-5
UnCLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IIIICLASSIFIED
Graphics Done;
Graphics_Init;
repeat
GET INFO;
if NumbS '0' then PUT TARGET;
until NumbS = 10';
Graphics Done;
SHOW SCORE;
repeat key := READ LINE until ioresult = 0;
until key =
clrscr;
END.
APPENDIX C: Page C-6
MICLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IMCLASSIFIED
SCURCE CODE FOR THE PROGRAM PIMECOD.TPU
WRITIEN IN TURBO PASCAL Ver. 5.1
UNIT PI3DECOD;
INTERFACE
USES
CRT, GRAPH;
PROCEDURE GRAPHICSINIT;
PROCEDURE GRAPHICS _CONE;
PROCEDURE DECODE PI3 PICIURE (FileName: string; Pixwide , Pixhigh: integer) ;
IMPLEMENTATICN
VAR
:text;
FileName : string;
Procedure Graphics_Init;
var
GraphDriver : integer;
GraphMode : integer;
ErrorOode : integer;
begin
GraphDriver v= Detect;
InitGraph(GraphDriver, GraphMode,");
ErrorCode GraphResult;
if ErrorCcde grok then
begin
writeln('ERROR: ',GraphErrorMsg(ErrorCode));
writeln('Either that file does not exist, or
writelnCgraphics error. You may not have a
writeln('card, or the proper .HGI file.');
Writeln('Program aborted. . . . ') ;
Readln;
Halt(1);
end;
end; {Sub Procedure Graphics Init}
Procedure Graphics Done;
begin
CloseGraph
end; (Sub Procedure Graphics Done)
there is a');
graphics ');
PROCEDURE DECODE FT3_pICTURE(FileName:string;Pixwide,Pixhigh:integer);
var
APPENDIX D: Page D-1
UnCLEISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UTICLASSIFIED
:char;
colon l : integer;
color2 : integer;
TotalBytes : integer;
X : integer;
XSize : integer;
: integer;
YSize : integer;
BitStr : string [8);
integer;
integer;
integer;
tempint: integer;
Count
:
Times
:
Total
:
PROCEDURE OPEN FILE;
begin
assign(f,filename);
{$1-}
rcoot(f);
($I+)
end;
Procedure Set _Parameters;
begin
XSize := pixwide;
YSize := pixhigh;
TbtalBytes := XSize div 8;
end; {Sub Procedure Set Parameters)
Procedure Display Byte;
var
bytes: integer;
begin
for bytes := 1 to 8 do
begin
if BitStrUbytes] = '1' then putpixel(x,y,0)
else putpixel(x,y,1);
inc(x);
end;
end; (Sub Procedure Display Byte)
Function Byte To Bits(ByteOrd: integer):string;
var
place : integer;
amt : integer;
tempstr : string[8];
begin
amt := 128;
APPENDIX D: Page D-2
UnCLEISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UTICLFISSIFIED
place := 1;
for place := 1 to 8 do
begin
if ByteOrd - amt < 0 then
tempstr[place] := '0'
else
begin
tenpstrIplace] := '1';
ByteOrd := ByteOrd - amt;
end;
amt := amt div 2;
end;
BYTE TO BlTS := tempstr;
end; (Sub FUnction Byte TO Bits)
Function Bits Tb_Byte(instr:string):integer;
var
bit : integer;
value: integer;
temp: integer;
begin
temp := 0;
value := 128;
for bit := 1 to 8 do
begin
if instr[bit] = '1' then temp := temp + value;
value := value div 2;
end;
Bits Tb Byte := temp;
end; (Sub Function Bits Tb Byte)
Procedure Get File Info;
var filex : integer;
begin
for filex := 1 to 34 do
begin
read(f,b);
case filex of
3 : tempint := ord(b);
4 : colon l := (256 * tempint) + ord(b);
5 : tempint ord(b);
6 : color2 := (256 * tempint) + ord(b);
end;
end;
end;
begin {Procedure Decode Picture)
Open File;
APPENDIX D: Page D-3
MIELFISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IMCLASSIFIED
Graphics_Init;
Set Parameters;
for x := 1 to 34 do read(f,b);
for y := 1 to YSize do
begin
x := 1;
if keypressed then
begin
Graphics_Done;
exit;
end;
for count := 1 to TbtalBytes do
begin
read(f,b);
BitStr := Byte Tb Bits(ord(b));
Display Byte;
end;
if TbtalBytes < 80 then
for count := TbtalBytes to 79 do
read(f,b);
end;
end; (Procedure Decode PI3 Picture)
end. (UNIT PI3DECOD)
APPENDIX D: Page D-4
IMCLF1SSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
AO'
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
1111CLASSIFIED
LIBRARY 1 : Miscellaneous subjects
APPENDIX E: Page E-1
IHICLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
1111CLFISSIFIED
.?? .
}It ?<
.: . ?P
? ? mi.
? ? ot ?
{ ?C e 14* '....... :Z
. miL
.4"7.
...^ i...........
.....?.
lei Lm.? n ? .: ????? ?
? At, lt? . .l?
V.A..141
LIBRARY 2 : Facial expressions
APPENDIX E: Page E-2
MICLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UnCLFISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
SG1J
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
U11CLASSIFIED
MENTCOMM
by *
*********************************************************** *********
MENTCOMM lets you practice your ability to communicate mentally.
MENTCOMM can be used in 2 ways:
1). Used on a single machine, you attempt to establish mental contact with
the computer, and select the picture it has chosen as the 'TARGET".
2l. If you connect this machine, via modem or null modem, to another computer,
and run the program MENTCOM2 on it, the target picture will show up on
the other screen, and a second person can act as a "sender" of the
information.
Press any key to continue
SCREEN 1 : Introduction
APPENDIX F : Page F-1
SGFOIA3
UrICIASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
SG1J
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UTICERSSIFIED
****************************************************H************************
SGFOIA15"""
by
***********************1****************************************************1*
After you read this screen, you will be asked to press a key again. When
do, you will first see a library of pictures from which the computer will
select during each turn of the communication process.
The computer will then select four pictures, and show them to you. It
will also secretly select one of them as the "TARGET" photo, and wait for
you to get a. mental "feeling" (either from the machine, or from the person
acting as the SENDER, as to which picture is the TARGET. FIRST IMPRESSIONS
ARE OFTEN THE BEST. When you get a feeling for the target, press the number
key corresponding to it. If you are right, the HITS counter will add one.
After your choice, the correct picture will show briefly, and then you will
go on to. the next round.
When you finish, press ESCAPE, and you will be given your score.
Press any key to continue
SCREEN 2 : Instructions
APPENDIX F : Page F-2
MICLEISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
JP'
SG1J
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IMELEISSIFIED
*f****************************************************************************
MENTCOMM
by
******************************************************************************
There are presently 3 libraries of "target pictures" from which to choose.
They are:
I. Miscellaneous targets
2. Facial expressions
3. Geometric symbols
With which library would you like to work? 1
PRESS ANY KEY TO BEGIN
SCREEN 3 : Choose Library
APPENDIX F : Page F-3
MICLASSIFIED
SGFOIA3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
WICLFISSIFIED
NOW SETTING THINGS UP
ONE MOMENT, PLEASE
SCREEN 4 : Notice to set up timing
APPENDIX F : Page F-4
MICLRSSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
IMCLASSIFIED
SCREEN 5 : Display of entire library
APPENDIX F : Page F-5
UnCLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UTICLEISSIFIED
SCREEN 6 : DETECTION OF A TARGET CARD
The computer randomly chooses four "cards" from
the library and displays them on the screen.
One is then randomly selected to be the "target".
It is the task of the "receiver" participant
to mentally determine which of the four
is the desired target card.
This screen is taken from an actual session.
One of these cards is the target. Can you
determine which? (answer next page)
APPENDIX F : Page F-6
UI1CLFISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UnCLASSIFIED
SCREEN 7 : IMMEDIATE FEEDBACK IS GIVEN
The target card from the previous screen was #1.
As you can see from the Hits number in the
lower right corner of the screen, the
participant correctly detected the target.
Did you?
APPENDIX F : Page F-7
UnCLIISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
UrICLASSIFIED
YOUR SCORE:
Number of trials : 10
Number of hits : 4
Percentage success : 40.00%
Chance probability : 25%
You are 15.00% above probability.
Press 1/ to end the program.
Press A to start again.
Press C to continue.
SCREEN 7 : Evaluation of session
APPENDIX F : Page F-8
IMCLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
SG1J
SG1J
c
UlICLEISSIFIED
PLEASE GIVE ME YOUR NAME:
Please give today's date (YYKNOD): 910602
Was this a solo run?
Please give sender's name: II
SCREEN 8 : Information needed for statistics
APPENDIX F : Page F-9
1111CLEISSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3
SG1J
WICLASSIFIED
FILENAME: MNT
DATE TRIALS HITS LIBRARY SENDER
910602 20. 9 SET3 Smith
910603 40 17 SET1 Computer
910604 20 5 SET3 Computer
910605 100 41 SET2 Computer
910610 40 23 SET1 Smith
910613 20 7 SET1 Computer
FORMAT FOR THE PERMANENT DATA FILE
APPENDIX F : Page F-10
UnCLASSIFIED
Approved For Release 2000/08/08 : CIA-RDP96-00789R002900340001-3