OV Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 STEM GFITE DEFENSE INTELLIGENCE AGENCY DT-9-1036-SL PROFICIEnCYEnHflnCEMEnT PROJECT (11) PHH9E1 6junE 1991 STHR GHTE NOFORN raw4rorl"m LUMIS Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 ]PROFICIENCY PRO= PHASE I Date of Publication 6 June 1991 This is a Department of Defense Intelligence Document prepared by the Teduiology Assessment and support office, Directorate for scientific and Tedmical Intelligence Defense Intelligence Agency. PARED BY Tecbnology Assessment and Support Office (DII--S) NOT RELE20ABIE TO, FOREIGN NATIONALS WUCTION REQUIRES APPROVAL OF ORIGINATOR OR HIGHER DOD AUIMRITY FURTHER. DISSEMINATION ONLY AS DIRECIED BY Dr OR HIGHER DOD AUIMRITY CIASSIFIED BY: DIA/DT DECTASSIFY ON: OADR. .fip~ Approved For Release 200SPM:ffpnWP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLfISSIFIED TABM OF CONTENTS Page I. PUP-TWE . . . . . . . . . . . . . . . . . . . . . . 1 II. SCOPE . . . . . . . . . . . . . . . . . . . . . . . 1 III. DISCUSSION . . . . . . . . . . . . . . . . . . . . . 1 IV. BACNSROUND . . . . . . . . . . . . . . . . . . . . 2 v. DESIGN CP=MA FOR SOFTWARE AND EARDWARE . . . . . 4 vi. IMPjEVff9q=0N . . . . . . . . . . . . . . . . . . 6 Vii. OMER CONSIDMMONS . . . . . . . . . . . . . . . 8 VIII. JuiSTR[JCTICNS FOR PERFORMING A SESSION . . . . . . . 9 APPENDIX EQUIPMENT CONFIGURATIONS . . . . . . . A: . . . . A-1 APPENDIX PROGRAM SOURCE CODE FOR HENTUO~N.EXE . . B: . . . B-1 APPENDIX PROGRAM SOURCE CODE FOR MTIVOM.EXE . . C: . . . C-1 APPENDIX PROGRAM SOURCE CODE FOR P13DEMD.TPU . . D: . . . D-1 APPENDIX HARD COPIES OF TARGET LIBRARY KIES . . E: . . . E-1 APPENDIX CCMPUIM SCREENS SEEN DURING PROGRAM . . F: . . . F-1 unCLHSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 PROFI=CY PRQ= PHASE I I. (U) PURPOSE: (sINF) This paper docLunents the completion of the first phase of a Dr-s originated training/applications research project. II. (U) SOOPE: (U) This report discusses the concept, do=-nents the unique hardware and software approach developed, and identifies instructions/protocols involved in this proficiency enhancement activity. (sINF) Follow-on reports of this proficiexr-y enhancement project are anticipated that will discuss later phases. These reports will address statistical results, evaluation criteria, training/performanoe rates, and potential npact on select applications/projects. III. (U) DIS I : (S/SG/NF/LTMDIS) This proficiency enharcement project was developed by Di,--s in order to inprove the efficiency and pace of training/practice available to DI1--S personnel. It is anticipated that this technique will significar&ly alonce the success probability of certain applications of interest, such as search/track and possibly other operational projects. This training/practice ted-mique could also lead to the possibility of a long-distance "commmications" capability. Even though data-rate would probably be limited, there may be some situations where such a capability would be useful (e.g., hostage projects). /noroRrl/LIMDIS Approved For Release 200(SOP.Rfl: [;RIP P96 -00789 R002900340001 -3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 IV. (U) BACKGROM: a. (S/SG/NF/LDMIS) Several nmbers of the Dr-S staff attended the 1991 Atlantic university consciousness Symosium, held in Virginia Beach, VA, on 16-17 February 1991 (see report DP-S-1029-SL, dtd 15 MARCH 1991). While there, two menbers 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, prcq:)ting later discussion about the experience. The idea surfaced that this technique would also be of direct use to DII--S as a potential proficiency enbancment procedure. b. (S/SG/NF/IDMIS) Work toward the goal of developing such a capability began upon return fr(xn the synposium and a computerized version of this antique llrmtal ccmmunicationll testing device was developed. Modifications would be needed, however, to permit this ted-mique to have a wider role for DII-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. .aO 2 JA lg7f 11OFonn/LIMDIS Approved For Release 200gtM:&T&WP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 V. (U) DESIGN CRM=A FOR WDWE AND SOFIMPE: (sINF) 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 Dr-S staff. b. (u) Targets selected at random frcm a large target pool. C. (U) Statistical track of individual and group performaxx>-- 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. (U) Format appropriate for periodic status and progress reports. e. (U) Flexibility: This system requires flexibility in order to allow scientific experimmtation 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. (u) Built-in potential for unlimited target pools to permit expansion of application options. 3 111OFoiRn Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLHSSIFIED g. (u) comiunications 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 UnCUISSIFIED .00 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 UnEWISSIFIED V. (U) IMPLEMMUION: A study indicated that the Mal OrItY Of equipykent/technology already existed in. Dr-S - Therefore, the following guidelines were considered for project nplen-kentation: a. (u) Existing couputers 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 cmpiters had to be "tied together" so they could camunicate. 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) Dr-s uses the TuRBo PAscAL programning language, which is coupletely adequate for the progrwmang demands for this project. SFC SG1J of DT-S is a qualified programner with this language, and used it to write the three programs necessary for the project. These three programs are: 1. EENTOOMM.EXE This is the 'taster" program which perform Jo all required functions for the user, selects targets, controls both maddnes, and performs all necessary data manipulation functions. The programmng source code (U) CcnImters can not be internally modified 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 sinplest solution, a "gimnicked" inter-c*Rmter control cable (acting as a nine-wire "null modem"), as depicted in Appendix A. 5 unCLHSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 ..W Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLRSSIFIED listing for this program is located in Appendix B. 2. 1UNrCON2. EXE This is the "slave" program which is run on the I'sender's" machine. This program only serves to cb-splay the target card to the "sender". The programang source code for this program is located in Appendix C. 3. P13DECOD.EXE This program is used by the other two, and not by the user, directly. The programuing sources code for this program is located in Appendix D. e. (U) Along with these three prograus, other files are used to contain the libraries of target photos, diagrams, spnbols, 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 unCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 VE. (u) amm CONSIDMRAMONS: 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. gaverrawmt. For all outward appearances, it is a ga-lez~ 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. I f a person wants to practice alone, the "iraster" program will continue to operate, but the emphasis will be on 11cmuunicating" with the cumputer, 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 evidexm from other experiments indicating that the type of target affects a person's ability to mentally commnicate, 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 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLFISSIFIED VII. (U) INSTRUCHONS FOR PERFOrMM A SESSI Every attempt has been made to make the program as ,user-friendly" as possible.2 Cperation is as follows: a. (U) If two cmputers are to be used in tandem (for the "sender/receiver', mode of operation), the inter-conputer connecting cable must be plugged Into the CCM port of each machine. As soon as we can establish a dedicated location and permanent hook-up for this PrOlect, this step will no longer be required. b. (U) The coapiter(s) is(are) turned on, and when the main merm appears, the option for mental cmmmications Practice is selected. C. (U) A second mmm appears, asking whether the user will be acting as 11sendex" or "receiver". 1. if the user is the one who will try to acquire the targets, he/she is the "receiver" (of the mental commnication), and should select the (R)eceiver cption. 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 tl~e (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 coaplete control of the programs on both machines. 2 (U) All ccaputer screens seen during the program are shown in hard copy form in Appendix F. 8 unCLIISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLfISSIFIED e. (u) men both participants have read the instructions, the ureceiver', 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 cmplete library will be slx~ 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. (U) '[Aben the library of targets has been removed from the SC-1-19M, the "receiver's" (main) program will randomly select four target pictures from the library and display them side-by-side on the 11reoeiver's" screen. The conputer will then randomly select one of these four as the specific target. A copy of the specific target will be shown on the "sender Is" screen (on the other caqmter) - h. (U) The "sender" concentrates on the target picture, imagining him/herself interacting with the picture's contents, studying the specific aspects of the picture, etc. i. tU) The "receiver" waits for an impression. This may be 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) immEDiATE FEEDBAcK is TuEN PRoviDED. rihe screen will blank for a moment, then the numbers will reappear. However, only the target 9 unCLHSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED 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 ccuPleted is shom in the lower left hand corner of the screen, and the number of "hits" is sha~m 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 cmputer, as positive feedback to hinVher. 1. (U) When the "receiver" is ready to quit the session, the Esc key is pressed. The screen will blank, and a ccaplete statistical package will be shown on both computer screens. At this time, the "receiver" has three choices: a) Th continue the session, taking up where he/she left off. b) To start the session over again frcm zero. c) To quit. m. (U) Should the "receiver" choose to quit, the caqwter 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 11sender's" identific~ticn. n. (U) All session statistics are added to the "receiver's" data file before the program terminates, and the user is returned to the conputer's menu screen. 10 unCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLHSSIFIED WSIENDERW +V011 S for lights only "1U=VERP' +Volts for selection 0 I Random Number Trials counter GM-Cr4atDr A m Hit light light 0OUr]LtA2r Figure A-1: ESP TESTING DEVICE AMMICAN UNIVEMSITY AT Functional Dlaqx-am 1. The random number generator randomly closes one of the five svItches, lighting the corresponding light behind one of the "Senders' symbol&. 2. The "Sender' concentrates an the lit symbol. 3. The "Receiver" vaits until an inypresslon is gained and then presses the button belov the symbol he/she thinks is the proper target. 4. Pressing the button automatically kicks up the Trials counter-. B. It the borrect symbol is selected, the closed circuit also kicks up the Hits counter and lights the 'HIT" lights as positive feedback to both participants. WOXUUX A: Page A-1 unCUSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000108/08 : CIA-RDP96-00789ROO2900340001-3 'S"'S"IFILET STHR GRTE COMPUTER A r+-1 Fo--1 W [5R1 1 2 3 Trials: 5 Hits: 3 13ater-compute3t, control cable COMPUTER B Trials: 5 Hit$: 3 ----------- ---------- 19BIWEIVERN wSE1NDERw Figure A-2: ESP NACHINE FOR Vr-9 -INV 1. The wRecelvex-'s" c0=VKt8x- selects four targets from a I:Lbx-a3r*Y Of many, and shovs them on the scresu Of COUPUtOV A- 2. It then vandomly selects one of the four and wends that target to the "seuder"s" computer. 3. The 'Sender" concentrates; on the target ];Kir-tvwG- 4. The wRecelvevw attempts to recelve Images, feellugsy etc. about the target pdLctuve. Vhen such a feel:LxLg Is recelved., the "Fecelyev' selects the target pdctvwv from among the foux- shovu, and pvesses the corvespondIng key o3x the keyboard. 5. Innediate feedback Is 9~iyeu to each PartIcIpaut before coutInuIng to the next met of plctvrew. APPENDIX A: Page A-2 rs"I's"AMM"InOE10 -Iww~ %a a A &a A If nn/LIMDIS Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLRSSIFIED Data in Data ftta Out ftta Dutt Ito ad-1113 ? Data FbBcelvad? Data Received? Data Racelved! Data Ilecelyed! K PLUG A PLUG B OUL Of naster Into slave computer vs compixter-s CCIH2 part COM2 port Flgmx~e A-3: INTEH-COMPUTER CONTROL CAME Plugs ar e 9-plu f emale "D" plugs. Cable is 9-vi-re flat r-Ibbon cable. 1. Demand that no internal chawles be made to the computers prompted the need for special external circuitry. This is In the form of an later-compratev control, or "Null-modem* cable, hooked to the data entry part (COM2) of each computer. 2. The aable is "g-ImmIcked" In such a way that data out of each comprater is fed into the -Invat lines of the other. as are the request info lines ( "Ready??? " and "Data Received?" and the status lines (-ReaAy!!!- and -Data Becelvedl- 3. During the actual use of the jwag3c-am, these data lines are taken over by the pi-og3ramodug, instead of being used in the normal manner. Controlling commands are converted by MENTCOMM. into the appearance of data. Once converted, they can be passed as data oye3c- the data lines. MENTOOM2.E3M reconverts the data into command , and obeys them. Appendix A: Page A-3 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLRSSIFIED EfIgux,e A-4: Photogx-aph of the Intev--compatev control cable, shovIng plugs and "gimmdck" areas. Appe=Ux A: Page A- 4 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unELB991FIED SCURCE CODE FOR = PMUM MUMM-EXE WRITIEN IN TUMO PASCAL Ver. 5. 1 PROMM MENTCOM; USES CRT, DOS, G?MPH, P13DECOD; CONST Height = 100; Width = 100; Offset = 50; VAR Action :string; Dir :string; Key :char; Hits :integer; Lineout :text; Name :string; Numbl, Numb2, Numb3, Nmb4, NumbX : integer; NumbH, NmbS, NumbT : string; P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11,P12, P13, P14, P15, P16, P17,P18 :pointer; Picfile :string; Rate :real; score :real; Size :word; Trial :integer; X1, X2, X3, X4, X5, X6, Y1, Y2, Y3 integer; APPENDIX B: Page B-1 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unELfISSIFIED FUNCTIONSMM integer; (Number : integer) begin case Number of 1, 7, 13 SETX 0; : 2, 8, 14 S= Width; : 3, 9, 15 SEIX Width 2; : 4, 10,16 SFIX Width 3; : 5, 11,17 SETX Width 4; : 6, 12,18 SETX Width 5; : end; end; FUNMON SETY(Number : integer) integer; begin case Number of 1, 2, 3, 4, 5, 6 : SETY 0; 7, 8, 9, 10, 11, 12 : SETY Height; 13, 14, 15, 16, 17, 18 : SErY Height 2; end; end; PROCEDURE WRITE LINE (tempstr: string) begin rewrite(idneout); flush (Lineout) ; writeln(Lineout,tenpstr, #13) close (Lineout) delay (150) end; )CEDURE PICK 4; begin Randcmize; Nurrbl := randan(17) + 1; repeat Numb2 := random(17) + 1; until Nuwb2 <> Nurrbl; repeat Numb3 := randam(17) + 1; until (Numb3 <> Numbi) and (Numb3 <> Numb2); repeat Numb4 := randam(17) + 1; until (Numb4 <> Numbi) and (Numb4 <> Numb2) and (Numb4 <> Numb3); end; PROCEDURE PICK 1; var APPENDIX B: Page B-2 UnCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED tAmpint integer; begin temint randan(1000); if Nm1bS <> 10 1 then begin case tempint of 000..250 : begin NumbX 1; str (Nmbi, NumbS) end; 251..500 : begin NumbX 2; str(Numb2,NumbS); end; 501..750 : begin NumbX 3; Stx-(Numb3,NumbS); end; 751..999 : begin NumbX 4; Str (Numb4, NumbS) end; end; end; end; PROCEDURE SEND INFO; begin str (Trial, NumbT) ; str (Hits , NumbH) ; WRITE LINE (NmbS) WRITE T INE (NumbT) WRITE-LINE (NumbH) end; PROCEDURE BREAK PICTURE UP; var x : integer; y : integer; begin Size := ImageSize (00, 00,Width, Height); GetMem(Pl, Size); X := SETX( 1); Y := SETY( 1) ; GetImage (X, Y, X + Width, Y + Height, Pl') ; GetMem(P2, Size); X := SETX( 2); Y := SETY( 2) ; GetImage (X, Y, X + Width, Y + Height, P2') ; GetMem(M, Size); X := SETX( 3); Y := SETY( 3) ; GetImage (X, Y, X +Width, Y +Height, P3') ; GetMem(P4, Size); X := SETX( 4); Y := SFrY( 4); APPENDIX B: Page B-3 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUSSIFIED oeetImage (X, Y, X + Width, Y + Height, P4 ^) ; GetMem(P5, Size); X := SBIX( 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 := SLTY( 7) ; GetImage(X, Y, X + Width, Y + Height, P7^); GetMem(P8, Size); X := SLTX( 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(PlO,Size); X := SETX(10); Y := SETY(10); GetImge(X, Y, X + Width, Y + Height'. P10-); GetMem(Pll, Size); X := SEIX(11); Y := SETY(11); GetMmage(X, Y, X + Width, Y + Height, Pil-); GetMem(P12, Size); X := SETX(12); Y := SEI!Y(12); GetImage(X, Y, X + Width, Y + Height, P12^); GetMem(P13, Size); X := SETX(13); Y := SETY(13); GeUmage(X, Y, X + Width, Y + Height, P13-); GetKem(P14,Size); X := SETX(14); Y := SETY(14); GetImage (X, Y, X + Width, Y + Height, P14') ; GeItMem(P15, Size); X := SETK(15); Y := SETY(15); GetImge(X, Y, X + Width, Y + Height, P15-); GetMem(P16, Size); X := SETX(16); Y := SETY(16); GetImage (X, Y, X + Width, Y + Height, P16') ; GetMem(P17, Size); X := SETX(17); Y := SETY(17); GetImage(X, Y, X + Width, Y + Height, P17-); GetMem(P18, Size); X := SETX(18); Y := SETY(18); GetImage(X, Y, X + Width, Y + Height, P18-); end; PROCEDURE PUT PAIRTS; var trialstr -. string; hitstr : string; begin ClearDevice; str(Trial,trialstr); trialstr : = I Trial # I + trialstr; SetTextStyle (defaultfant., horizdir, 1) OutTextXY(58,315,trialstr); stx*(Hits,hitst) ; hitstr := 'Hits: + hitstr; OutTextXY(550,315,hitstr); SetTextStyle (gothicfont, horizdir, 3) case- Numbl of 1 : PutDnage(050,Height, pjA . NormalPixt) 2 : PutInage(050,Height,P2^, NormalPtxt); APPENDIX B: Page &-4 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLRSSIFIED 3 :PutImage(050,Height,P3% NOnna1PUt); 4 :PutIbage(050,Heigbt,P4^, NOrma1PL1t) ; 5 :PutImage (050, Height, P5 NOrma1PUt) ; 6 :PutImage (050, Height, P6 Noniia].Put) ; 7 :PutI:mage(050,Height,P7^, Norma]-Put); 8 :PutITnage(050,Height,P8', Nbrma].Put) ; 9 :PutImage (050, Height, P9', Norma].Put); 10 :PutImage (050, Height, P10 ^, Norma]-Put) ; 11 :PutImage(050,Height,Pll-,NonnalPLrt); 12 :PutDnage(050,Height,P12-,NonyalPut); 13 :PutDrage (050, Height, P13 -, NormalPat) ; 14 :PutDnage(050,Height,P14^,NormlPut); 15 :PutImage(050,Height,P15',NormalPut); 16 :PutImge(050,Height,P16^,NonnalPut); 17 :PutImage(050,Height,P17',NonnalPut); 18 :PLrtImage(050,Height,P18^,NormalPut); encL; outpex=(050 + Offset,Height + 130, 111); case Numb2 of 1 : PutImage (2 00, Height, P1 -, Norma].Put) 2 : PutImage(200,Height,P2-, Norma].Put); 3 : PutImage (200, Height, P3 Norma].Put) ; 4 : PutImage (200, Height, P4 Nbrma].Put); 5 : PutImage(200,Height,P5% Norma].Put); 6 : PutImage(200,Height,P6% Norma].Put); 7 : PutImage (200, Height, P7 -, Nonna]-Put) ; 8 : PutImage(200,Height,PS-, Norma].Put); 9 : PutI:mage(200,Height,P9-, Norma].Put); 10 : PutImage (2 00, Height, P10 -, NonTa].Put) ; 11 : PutImage(200,Height,Pll^,NormlPtxt); 12 : PutImage (2 00, Height, P12 ^, Nbrma].Put) ; 13 PutImage(200,Height,P13^,NonmlPLit); 14 PatImge(200,Height,P14-,NonnalPut); 15 PutImage(200,Height,P15-,NormalPtxt); 16 RitImge(200,Heicjht,P16-,NormalPut); 17 PutImage (200, Height, P17 %NOnTalPat) ; 18 PutLrage(200,Height,P18^,NormalPut); end; OutTbxtXY(200 + Offset,Height + 130,121); case Numb3 of 1 : PutImage(350,Height,P1'J, NormalPat); 2 : PutImage(350,Height,P2% Norma].Put); 3 : PutImage(350,Height,P3% NonTalPut) ; 4 : PuUmage(350,Height,W, NbnTia].Put); 5 : PutI:mage(350,Height,P5-, Norma].Put); 6 : PutImage(350,Height,P6-, Normal-Put); 7 : PutJmge(350,Height,P7-, Nbrma].Put); 8 : PutImage (3 50, Height, P8 -, Norma].Put) APPENDIX B: Page B-5 unCLHSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unEMISSIFIED 9 : PutImage (350, Height, P9', NormlP`Ut); 10 : PutImage(350,Height,P10-,NonTk-dPut); 11 : PutImage (350, Height, P11% NormlPut) ; 12 : PutITnage(350,Height,P12',NoriualPut); 13 : PutImage(350,Height,P13^,NormalPut); 14 : PutImage(350,Height,P14-,NonnalPLrt); 15 : PutImge(350,Height,P15-,NormalPut); 16 : PutImge(350,Height,P16-,NonnalPut); 17 : PutImage(350,Height,P17^,NormalPut); 18 : PLrtImage(350,Height,P18^,NormalPut); end; OutTextXY(350 + Offset,Height + 130,131); case Numb4 of 1 : PutImge (500, Height, Pl-, NormlPut) ; 2 : RitImge(500,Height,P2-, NonnalPat) ; 3 : PutImage(500,Height,P`3^, NormlPat) ; 4 : PutImge(500,Height,P4-, NonnalPt1t); 5 : RitImge(500,Height,P5-, NonnalPut); 6 : PutImge (500, Height, P6 NormlPut) ; 7 : PutDnage (500, Height, P7 NonnalPkxt) ; 8 : PutImge (500, Height, P8 NormalPut) ; 9 : RitImge(500,Heicjht,P9^, NormalPut); 10 : PutImage (500, Height, P10', NonmlPut) ; 11 : PutImage (500, Height, P11', NonmlPut) ; 12 : putimge (500, Height, P12 -, NormlPut) ; 13 : PuUmge(500,Height,P13',NormlPut); 14 : Ritlmge(500,Height,P14-,NonmlPut); 15 : PutImge (500, Height, P15', NormlPut) ; 16 : PutImge(500,Height,P16^,NormalPLrt); 17 : PutImge (50 0, Height, P17 NonmlPut) ; 18 : RxtImage (500, Height, P18 NonmlPut) ; end; OutTextXY(500 + Offset,Height + 130,141); end; )CEDURE SOME HIT; var hitstr : string; begin inc, (Hits) SetTextStyle (defaultfont, horizdir, 1) str (Hits, hitstr) ; hitstr := 'Hits: + hitstr; outTextXY(550,315,hitstr); end; PROCEDURE (Or CHOICE; begin APPENDIX B: Page B-6 UrICUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 repeat key readkey until (key #27) or (key #49) or (key #50) or (key #51) or (key #52) ; if (NunbX = 1) and if (NumbX = 2) and if (NumbX = 3) and if (NumbX = 4) and if key <> #27 then begin case NumbX of 1 : begin Numb2 end; 2 : begin Nurrbl end; 3 : begin Nurrbl end; 4 : begin Nurrbl end; end; Put Parts; Del7ay(500); inc (Trial) end else begin NumbS := 101; Send Info; end; end; PROCEDURE SHOW SOME; unCUISSIFIED (key = #49) then SOME HIT; (key = #50) then SCIDld-HIT; (key = #51) then SODId-HIT; (key = #52) then SODId-HIT; O;Numb3 0;Nunb4 0; 0;Nunb3 0;Numb4 0; O;Numb2 O;Numb4 0; O;Numb2 O;Numb3 0; key : diar; 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 &-7 UnCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED SG1J dir belcw I ; if score > 25 then dir 'above'; if score = 25 then dir 'at'; clrscr; gotmW(10, 10) ;write (I YOUR SOORE: 1); gotoxy(20, 11) ;Write ('Number of trials gotmW(20,12) ;write(' Number of hits goto>q(20,13);write(1chance hits gotoxy(20,13);write('Percentage success gotoxy(20,14);write(1Chanoe probability gotoxy(20,16);write('You are 1); if dir <> at' then write (rate:5:2, 1% else write (dir) ; write( I probability. 1) end; PROCEDURE RESEr SOORE; begin NumbS IXI; Trial 1; Hits 0; end; 1,Trial); 1,Hits); 1,Trial div 4); 1,sc0re:5:2,1%1); 25%1); 1 dir) PROCEDURE TT-E; TI begin clrscr; write write writeln( ICOM write ( I writeln( I SGFOIA3 write ( I writeln( l, write writeln( I writeln; end; PROCEDURE INMUCT; var key : cbar; begin TrIT-E; write NENTCOM lets you practice your abill); writeln (I ity to cammnicate mentally. writeln; writelnV NENTCOMM can be used in 2 ways:'); APPENDIX B: Page &-8 UnCMISSIFIED SGFOIA3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUSSIFIED writeln; write (11). used on a single machine, you attem'); writeln(lpt to establish mental contact with 1); write C the conp-Tter, and select the picturt); writeln(le it has chosen as the ITATZGEW1. 1); writeln; write (12). If you connect this Machine, via mO'); writeln(Idem or null modem, to another conpiter, 1); write (I and run the program MENTCM on it, I); writein(I the target picture will show up on 1); write (I the other screen, and a second pers'); writeln(lon can acrt as a "sender" of the'); writeln(I information. I); writeln; writeln(I Press any key to continue'); key := readkey; TITM; write After you read this screen, you will); writeln(Il be asked to press a key again. Whent); write (do, you will first see a librairy of pit); writeincatures from which the cceputer will'); write ('select, during each turn of the ccmwnil); writein(Ication process.'); writeln; write (I The couputer will then select four 1); writeln(lpictures, and show them to you. It'); write Cwill also secretly select one of them 1); writeln(las the "TARGET" photo, and wait for'); write (you to get a mental "feeling" (either 1); writeln(Ifrom the machine, or from the person'); write Cacting as the SENDER, as to which Pict'); writeln(lure is the TZMGET. FIRST IMMMIMS write ( I ARE OFI!EN MM BEST. When you get a fe wr.-itein(leling for the target, press the number'); wrAe (key corresponding to it. If you are r'); writeln (I ight, the BITS counter will add one. 1) ; write ('After your choice, the con-eat picture 1); writeln(Iwill show briefly, and then you will'); writeln(Igo on to the next round. 1); writeln; write C when you finish, press ESCAPE, and y'); writeln(lou will be given your score.); writeln; Writeln(I Press any key to continue'); key := readkey; TITT-E; write There are presently 3 libraries of 1); writeln(I "target pictures" from which to choose. 1); APPENDIX B: Page B-9 unCLOSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unELH991FIED writ~eln They are: writeln; writeln(I 1. miscellaneous Targets'); writeln(I 2. Facial expressions'); writein(i 3. Geometric synbols'); writeln; write ewith which library would you like to work? 1); repeat key := readkey; until (key= 111) or (key= 12 1) or (key 131); picfile 1SET1.P131; picfile[4]:= key; write (key) writeln,- writeln; write ( I key := readkey; V4RITE T (PicFile) clrs6~; gotoxy(29,10); write CNOW SETTING THINGS 1UP'); gotoxy(30,11); write ('0NE MCMEW, PLEASE'); delay (2000); end; PRESS ANY M TO BE)GINI); FUNCTION FILE EXISTS(filename: string) :boolean; file; var f : begin ($I-) &4sign (f , filename) reset (f) close (f) ($I+) File Exists (Ioresult. 0) and (filename <> end; PROCEDURE RECORD SOORE; date, runs, good, sender, sess, APPENDIX B: Page &-10 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED library: string; a,z : integer; f : text; begin sess IReading: 1; sender 'Cramputer, date rom library:= copy (PicFile, 1, 4) clrscr; gotoxy(15,10); write CPLEASE GIVE ]ME YOUR NAME: readin (Name) ; gotoxy(15,12); write ( I Please give today s date (YYMMDD) readln (date) ; gotoxy (15, 14) write VWas this a solo run? 1); sess IReading: 1; t key upcase(readkey); until (key= IYI) or (key = IN'); if key = IN' then begin gotmW (15,16) write ( I Please give sender I I s name: readln (sender) end; str(Trial,runs); str (Hits , good) for a : = 1 to length (name) do if rone[a] #32 then begin for z a to length(rome)-i do name(z] := na-me(z+1]; name := copy (name, 1, length (name) -1) end; name := copy(name,1,8) + I.MNTI; assign (f, name); if File exists(name) = false then begii~- rewrite(f); close (f) end; append(f),* writeln(f date, I ',trial,' ',hits,' 'Jibrary,' 1,sess,sender); close (f) APPENDIX B: Page &-11 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUSSIFIED end; BBGIN assign(Lineout,ICOM21); INSTRUCr; PESEr SCORE; randomize; DECODE P13 piciuRE(PicFile,600,300); BREAK PICIURE UP; repea7t key Oct; Graphics Done; Graphic~ Init; repeat PICK 4; PICK 1,* Sad-INFO; PUr fAPTS; GEf-CHOICE; until7key = #27; GraphicsLDom; SHOW SCORE; gotoxy(20,19);write(IPress Q to end the Program. gotoxy(20,20);write('Press A to start again.'); gotoxy(20,21) ;Write(' Press C to continue. 1); repeat key readicey; key upcase(key); until (key IQI) or (key W) or (]My Oct); Action key; Vam LINE (Action); if kei- = IC- Uien NumbS if key = 'A' then RESEr SCORE; until key= IQ'; clrscr; RECORD SCORE; clrscr; END. APPENDIX B: Page B-12 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED SCURM CODE FOR TM PROGRAM MENTM WRI= IN nMO PASCAL Ver. 5. 1 PROGRAM MENTCOMM; USES CRT, DOS, GRAPH, P13DEODD, NUMBCONV; 00NST Height = 100; Width = 100; offset = 50; VAR code : integer; Dir : string; dummy : string; Key : string; Hits : integer; Lineout : text; NumbX : integer; NumbR, NWW, NumbT : string; P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11,P12, -1d P13,P14, P15,P16, P17,P18 : pointer; PicFile : string; Rate : real; Soore : real; size : word; Trial : integer; X1, X2, X3, X4, X5, X6, Y1, Y2, Y3 integer; FUNCrION SM(NUmbear integer) integer; begin case Number of APPENDIX C: Page C-1 unCLEISSIFIED 1w Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED 1, 7, 13 :SETX 0; 2, 8, 14 :SETX Width; 3, 9, 15 :SEI!X Width * 2; 4, 10,16 :SETX Width * 3; 5, 11,17 :SEIX Width * 4; 6, 12,18 :SFIX Width * 5; end; end; FUNCTION SEN (Number : begin case Number of 1, 2, 3, 4, 7, 8, 9, 10, 13, 14, 15, 16, end; end; integer) : integer; 5, 6 : SETY 0; 11, 12 : SM Height; 17, 18 : SM Height 2; FUNCTION READ ILINE:string; var tempstr : st-xing; begin reset (Lineout) readin(Lineout,tewpstr); if t:avpstx-[1] = #10 then teqDstx : = copy (tenpstx, 2, length (tenpstr) -1) close (Lineout) READ LINE taq)str; end; PROCEDURE GET INFO; begin NumbS := 1XI;NumbT := 1X';NumbH := 1X1; repeat NunibS := READ LENE until ioresult = 0; Val (NumbS, NumbX, code) ; repeat Numbr := READ LINE until ioresult = 0; Val (MmIbT, Trial, code) ; repeat NumbH := READ T until ioresult = 0; Val (NumbH, Hits , code) end; PROCEDURE EREAK PICTURE UP; var x : integer; y : integer; begin Size := InageSize(00,00,Width,Height); GetMem(Pl, Size); X := SETX( 1); Y := SETY( 1); APPENDIX C: Page C-2 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unELRSSIFIED C---tImge (X, Y, X Getmem(P2, Size); Getmmage (X, Y, X Getmem(m,.Size); GetImage (X, Y, X GetMm(P4, Size); GetImage (X, Y, X GetVlem(P5, Size); Get1mge (X, Y, X GetMem(P6, Size); GetImge (X, Y, X GetMem(P7, Size); GetImage (X, Y, X GetMm(PS, Size); GetImge (X, Y, X GetMem(P9, Size); GetImge (X, Y, X Getmem(Pio, Size); GetImage(X, Y, X .- GetMem(Pil, Size); Get1mge (X, Y, X GetMem(P12, Size); GetImge (X, Y, X GetMem(P13,Size); Getjmge(X, Y, X GetMem(P14,Size); GetImge(X, Y, X GetMem (P15, Size) ; GetImge(X, Y, X GetMem(P16,Size); Getjmage(X, Y, X GetMem(P17,Size); GetImge(X, Y, X GetMem(P18, Size); GeUmage(X, Y, X end; DCEDURE PUT TARGET; Width, Y + Height, X := SETX( 2); Y := - Width, Y + Height, X := SETX( 3); Y':= - Width, Y + Height, X := SL!IX( 4); Y := Width, Y + Height, X := SETX( 5); Y := - Width, Y + Height, X := SETX( 6); Y := Width, Y + Height, X := SEIX( 7); Y := Width, Y + Height, X := SETX( 8); Y := - Width, Y + Height, X := SL'IX( 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 := F Width, Y + Height, X := SEIX(17); Y := F Width, Y + Height, X := SETX(18); Y := F Width, Y + Height, P1 ^) ; SErY( 2) P2 -) ; SETY( 3); P3 ^) ; SETY( 4) PC) ; SETY( 5); P5 ^) ; SETY( 6); P6 ^) ; SETY( 7); P7 ^) ; SETY( 8) ; P8 ^) ; SETY( 9) ; P9 ^) ; SETY(10); P10^); SErY(11); P11-) ; SETY(12); P12 ^) ; SETY(13); P13 -) ; SETY(14); P14 ^) ; SETY (15) P15'); SETY(16); P16 ^) ; SErY(17); P17 ^) ; SETY(18); P18 var trialstr : string; hitstr : string; begin ClearDevice; str (Trial, trialstr) trialstr = I Trial + trialstr; str (Hits hitstr) ; hitstr := 'Hits: + hitstr; Set!Dm~le (defaultfont, horizdir, 1) APPENDIX C: Page C-3 unCLfISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED (A=TPM NEXr 2 LUMS TO SHOW BOM TRIALS AND HIM) {0jtTextXY (58,315, trialstr) ; 0utTextXY(550,315,hitstr);) SetTextStyle (gothicfont, horizdir, 3) (ACTIVATE NEXr LINE TO SHOW ONLY HITS) 0UtTextxy(300,315,hitstr)'; case NumbX of 1 : PutImage (275, Height, Pl-, NormalPut); 2 : PutImage(275,Height,P2-, NormalPut); 3 : PutImage (275,Height, P3 ^, NormalPut) ; 4 : PutImage(275,Height,W, NonnalPUt); 5 : PutImage(275,Height,P5% NormalPut); 6 : PutImage(275,Height,W, NormalPut); 7 : PutImge(275,Height,P7-, NormalPut) ; 8 : PutImage(275,Height,P8', NormalPut); 9 : PutImage(275,Height,P9% NormalPut); 10 : PutImage (275, Height, P10% NormalPut) ; 11 : Put1mage (275, Height, P11 ^, NormalPut) 0 12 : PutDnage(275,Height,P12-,NonnalPut); 13 : PutImge(275,Height,P13^,NomalPat)F4 14 : RitImage(275,Height,P14^,NormalPut); 15 : PutImage(275,Height,P15^,NormalPLit); 16 : PutImage(275,Height,P16',NormalPtxt); 17 : PutImge (275, Height, P17', NomalPut) ; 18 : PutI-mage(275,Heicjht,P18^,NormalPtxt) ; end; end; PROCEDURE SHOW SODIRE; 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 := 'below'; if score > 25 then dir 'above'; if score = 25 then dir 'at'; clrscr; gotoxy(10, 10) ;write(' SCORE: 1); 11) ;write ('Number of trials : Trial) gotoxy(20 , 1,Hits); gotcxy(20,12);write(1Number of hits : : 1,Trial div 4); 13) ;write (I Chance hits gotoxy(20 . 1,score:5:2,1%1),* , gotoxy(20,13);write(1Percentage success : gotoxy(20,14);write(1Chanc,e prcbability : 25%1); gotoxy(20,16);write(1You are 1); APPENDIX C: Page C-4 UnCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-0.0789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED if dir <> at' then write (rate:5:2, 1% l,dir) else write (dir); write(' probability. 1); end; PROCEDURE INSIRJCr; begin clrscr; 9crtoxy (36, 3); write MEITMM gotoxy 1, 5) ; write This portion of the NERIWN progra writeln(Im allows you to practice and develop'); write ('your ability to send wntal. messages to'); writeln(l another person. MRUOOM2 works only'); writein (I in conjunction with the NENTOCM program. 1); writeln; write (I When the "receiving" person has read'); writeln(l their instructions, you will be showml); writeln(la screen of possible target pictures.'); writeln; write (I The "receiving" person will see a pat); writeln(Inel of 4 of these pictures, chosen at 1); write ('random, one of which will be the 11TARGEI); writeln(IT" picture (they will -not know Which).'); write ('only you will see the 11TARGErl picture. 1); writeln(l You should concentrate on it to the'); write (,best of your ability. You do not necel); writeln(issarily have to "SEND" it to the other'); write ('person. It is often best to just expel); writeln(orience it as fully as you can, losing'); write cyourself in that experience, and let 1); writein ( I the receiving person do the rest writeln; write ('The program will proceed as soon as the); writeln(l receiving person is ready.') writeln; repeat PicFile ~.= READ LTNE until i0result, 0; clrscr; end; BEGIN assign(Lineout,1CCM21); IN=CT; DECODE P13 PICTURE(PicFile,600,300).; BREAK PICIURE UP; repeat key lCl; APPENDIX C: Page C-5 unCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLRSSIFIED Grqphics~ Dom; Graphiakjnit; m BUD; if RmW <> 0 then PUT TARGEr; until NumbS 0 Gxa~icq Done; SHOW SCORE; repe~it key := READ LINE until ioresult 0; until key= IQ'; clrscr; END. APPENDIX C: Page C-6 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED SOURCE CODE FOR THE PROGRAM P13DECOD. wRITTEN IN TURBO PASCAL Ver. 5. 1 UNIT P13DECOD; INTERFACE USES CPT, GRAPH; PROCEDURE GPAPHICS-INIT; PROCEDURE GRAPHICS DONE; PROCEDURE DEODDE P13 PICTURE (FiIeName: stx-ing;P`ixwide, PiXhigh: integer); IMPLEMENTATION VAR F : text; FileName : string; Procedure Graphickjnit; var GraphDriver : integer; GraphMode : integer; Errorcode : integer; begin GraphDriver := Detect; InitGraph (GraphDriver, GraphMode, Errorcode := GraphResult; if Errorcode <> grok then begin writein ERROR: GraphErrorMsg (ErrorCode) writeln('Either that file does ncyt exist,, or there is a'); writein (I graphics error. You may not have a graphics 1); writeln(Icard, or the prcper BGI file. 1); Writeln(' Program aborted.... 1); Read1n; Halt (1) end; end; (Sub Procedure Graphic*~_Init) Procedure Graphic~ Done; begin CloseGraph end; {Sub Procedure GraphicE~_Done) PROCEDURE DECODE P13-PICRM(FileName:stxing;Pixwide,Pixhigh: integer); var APPENDIX D: Page D--1 UnCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED B :char; colorl :integer; color2 :integer; TotalBytes :integer; x :integer; XSIze :integer; Y :integer; YSize :integer; BitStr string[8); : count integer; : Times integer; : Total integer; : tenpint:integer; PPDCEDURE OPEN FIIE; begin assign(f,filename); {$I-) reset (f) ($I+) end; Procedure Set Parameters; begin XSize pixwide; Ysize pixhigh; Total%tes := XSize div 8; end; (Sub Procedure set Parameters) Procedure Display Byte; var bytes : integer; begin for bytes := 1 to 8 do begin if BitStr[bytes] = Ill then putpixel(x,y,O) else putpixel(x,y,l); inc (x) end; end; (Sub Procedure Display %te) Function Byte!I~q Bits(Byteord: integer): string; var place : integer; ant : integer; teapstr : string[8]; begin amt 128; APPENDIX D: Page D-2 unCUSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLRSSIFIED place 1; for place := I to 8 do begin if ByteOrd - amt < 0 then tenTstr[placel := 10, else begin tempstr[placel := 111; Byteord := Byteord - amt; end; amt := amt div 2; end; BYTE TO BITS tannstr; end; (ail;-Fw-rction Byte ~q_Bits) Function BitsLTq_Byte (instr: string) integer; var bit : integer; value: integer; temp integer; begin tenp 0; value := 128; for bit := 1 to 8 do begin if instr[bit] = Ill then temp temp value; value := value div 2; end; BitsLTq Byte := temp; end; (Sub Function Bits Th LByte Procedure Get File Info; var filex : integer; begin for filex := 1 to 34 do begin read(f,b); case filex of 3 : tmpint ord (b) 4 : colorl (256 * tempint) + ord(b); 5 : tempint ord(b); 6 : color2 (256 * tertpint) + ord(b); end; end; end? begin {Procedure Decode Picture) open yile; APPENDIX D: Page D-3 unCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved Foe Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED Graphicqjnit; Set Parameters; fbi-x I to 34 do read(f,b); for y 1 to YSize do begin x i= 1; if keypressed then begin Graphics~_Done; exit; end; for count := 1 to ThtalBytes do begin read (f , b) Bitstr : = Dyte J~q Bits (ord (b) Display a yte; end; if Thtalaytes < 80 then for count := TotalBytes to 79 do read (f , b) end; end; {Procedure Decode P13 Picture) end. {UNIT P13DECOD) APPENDIX D: Page D--4 unCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 .V Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLRSSIFIED LIBRARY I : Miscellaneous subjects APPENDIX E: Page E-1 unCLHSSIFIED ,.IV Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLfISSIFIED LIBRARY 2 : Facial expressions APPENDIX E: Page E-2 unCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 J Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLFISSIFIED 4 LIBRARY 3 i SYMBOLS ii, APPENDIX E : Page E-3 unCLfISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLH991FIED MENTCOMM SG1J by SGFOIA3 VIENTOOMM lets you practice your ability to communicate mentally. MENTEOMM can be used in 'L ways: n. Used on a single machine, you attempt to establish mental contact with the computer, and select the picture it has chosen as the 'TARGEM 2). 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 I : Introduction 44 APPENDIX F : Page F-1 UrICUSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED SGFOIAY""' SG1J by 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 OTARGETH 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 U11CUSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED MENTCOMM SG1J by SGFOIA3 There are presently 7) libraries of otarget pictures" from which to choose. They are: 1. Miscellaneous targets 2, Facial expressions 3. Geometric symbols With which library would you like to work? I PRESS ANY KEY TO BEGIN SCREEN 3 : Choose Library APPENDIX F : Page F-3 U11CUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 UnCLFISSIFIED NOW SETTING THIN6S UP ONE MOMENT, PLEASE SCREEN 4 : Notice to set up timing APPENDIX F : Page F-4 unCLRSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED . .. . . ........ ..... ..... ..... . . . ..... .... A %Y. w t .. ..... ..... . SCREEN 5 Display of entire library APP ENDIX F Page F-5 unCLHSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLRSSIFIED 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 U11CMISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED 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 unCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 U11CUISSIFIED YOUR SCORE: Number of trials : 10 Number of hits : 4 Percentage success : 40.00% Chance probability : 25% You ar~ 15.00% above probability. Press 0 to end the program. Press A to start again. Press C to continue. SCREEN 7 : Evaluation of session APPENDIX F : Page F-8 unCUISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCLEISSIFIED SG1J PLEASE GIVE HE YOUR NAME: ~ Please give today's date (YYKKDD): 910602 Was this a solo run? SG1J Please give sender's name: SCREEN 8 : Information needed for statistics APPENDIX F : Page F-9 U11CMISSIFIED Approved For Release 2000/08/08 : CIA-RDP96-0,0789ROO2900340001-3 Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3 unCUISSIFIED FILENAME: MNT DATE TRIALS HITS LIBRARY SENDER SG1J 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 unCUSSIFIED Approved For Release 2000/08/08 : CIA-RDP96-00789ROO2900340001-3