10 POKE51,0:POKE52,144:POKE55,0:POKE56,144:CLR:FT=2048:SP=8192
20 CD=4712:MO=49152:V=MO+111:RD=MO+1361:HI=INT(RD/256):LO=RD-HI*256:CM=MO+1588
30 MX=250:MT=36864:DIMX(25),S(25),R(25),MS(4),IS(MX,2),F$(297):BOX=MO+30
40 SD=54272:PS=5:DV=PEEK(186):IFDV<8THENDV=8
50 SYS57812"MOU-RND-COPYM",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
60 SYSMO+54,"PARA.FONT",DV,FT
62 SYSMO+54,"PARA.TILE",DV,FT+250*8
70 SYSMO+54,"PARA.SPR",DV,SP
80 SYSMO+54,"PARA.CARDS",DV,CD
85 SYSMO+54,"TOOLKIT 9000",DV,36864
86 SYSMO+54,"INPUT DIR 9600",DV,36864+6*256
87 POKEV+11,64:POKEV+12,64:POKEV+13,93:POKEV+14,93:POKEV+10,0
88 POKEV+15,112:POKEV+16,110:POKEV+17,109:POKEV+18,125
90 SYSMO:POKEV,31:POKE53280,0:POKE53281,0
100 S$="-STATS.":CO(1)=15:CO(2)=5:CO(3)=2:
110 P1$="DATE  SUBJECT  RANDOM  EXPECTATION":YN$="[Y] YES / [N] NO"
120 GOSUB2210:POKESD+24,15:POKE53371,0
130 FORR=1TO5:POKE2040+R,127+R:NEXT
140 T$="P A R A P S Y C H O L O G I[160]S T":A$(1)="PRECOGNITION (RHINE)"
150 A$(2)="PRECOGNITION (MODIFIED)":A$(3)="TELEPATHY (RHINE)"
160 A$(4)="TELEPATHY (MODIFIED)":A$(5)="REVIEW STATS"
170 A$(6)="QUIT TO LOADSTAR":A$(7)="[168]123456"
190 PRINT"[147]"CHR$(142)CHR$(8):POKE53272,19
192 SYSBO,0,39,0,24,0,7+16:SYSBO,4,36,2,4,160,7
193 SYSBO,1,38,1,23,250,3+32:SYSBO,7,33,7,16,160,7+16
194 SYSBO,8,32,8,15,160,3
195 FORI=1TO6:SYSMO+12,9,8+I,"[159]"+A$(I):NEXT:SYSBO,4,36,3,3,160,3
196 SYSBO,3,37,2,4,160,7+16
197 PRINT"[159]";:SYS36864+9,3,T$
198 SYS36864+9,22," CRSR/RETURN OR CLICK TO SELECT "
200 SYSCM,3072,4096,616
210 SYSMO+39,208
220 SYSMO+42,208:SYSMO+18,0,39,0,24:SYSMO+6:SYS36864,9,8,32,6,3,1,0:GETF%
230 IFDT$=""ANDF%<6THENTP=F%:GOSUB960:F%=TP
240 ONF%GOTO260,340,420,500,580,930
250 :
260 M$="1":M=1:BC=2:GOSUB1020:IFFLTHEN220
270 GOSUB1040:GOSUB1390
280 GOSUB1870:SYSMT+9,22,"[146]VISUALIZE THE DECK AND ATTEMPT":PRINT
290 PRINT"TO IDENTIFY THE ORDER OF THE CARDS."
300 GOSUB1110:GOSUB1870
310 GOSUB1160
320 ONCR%GOTO270,220
330 :
340 N=5:M$="2":M=2:BC=10:GOSUB1020:IFFLTHEN220
350 GOSUB1040
360 GOSUB1870:SYSMT+9,22,"[146]VISUALIZE THE CARD AND ATTEMPT":PRINT
370 PRINTTAB(8)"TO IDENTIFY THE SYMBOL."
380 GOSUB1110:GOSUB1870
390 GOSUB1160
400 ONCR%GOTO350,220
410 :
420 M$="3":M=3:BC=14:GOSUB1020:IFFLTHEN220
430 GOSUB1040:GOSUB1390
440 GOSUB1870:SYSMT+9,22,"[146] CONCENTRATE ON THE DISPLAYED SYMBOL":PRINT
450 PRINT"AND RECORD THE SUBJECT'S RESPONSE."
460 GOSUB1110:GOSUB1870
470 GOSUB1160
480 ONCR%GOTO270,220
490 :
500 N=5:M$="4":M=4:BC=14:GOSUB1020:IFFLTHEN220
510 GOSUB1040
520 GOSUB1870:SYSMT+9,22,"[146] CONCENTRATE ON THE DISPLAYED SYMBOL":PRINT
530 PRINT"AND RECORD THE SUBJECT'S RESPONSE."
540 GOSUB1110:GOSUB1870
550 GOSUB1160
560 ONCR%GOTO510,220
570 :
580 M=5:BC=5:GOSUB1360
590 FL=0:WC$="$0:1-S*,2-S*,3-S*,4-S*":GOSUB3000:GOSUB4000:IFF%>0THEN610
600 SYSMO+12,13,22,"[146][159]NO FILES FOUND":GOSUB1910:GOTO220
610 W$=F$(F%)
630 REMSYSMT+9,7,"[156]PREFIXES":PRINT:FORR=1TO4:PRINTTAB(6)R"= "A$(R):NEXT
650 M$=LEFT$(W$,1):M=VAL(M$):W$="M-STATS."+MID$(W$,9,8):GOSUB1560:IFFLTHEN220
660 GOSUB1840:SYSMT+9,22,"SEND OUTPUT TO:"
670 SYSMT+9,23,"[S] SCREEN / [P] PRINTER":SYSMT+3,"SP":GETF%:X=0:ONF%GOTO680,780
680 GOSUB1870:SYSMT+9,7,""+MID$(W$,9,16)+" / "+A$(M):PRINT"":PRINT""P1$
690 SYSMO+12,0,9,"":FORR=1TO8:IFR+X*8>NSTHENR=8:NEXT:GOTO750
700 IFLEN(STR$(IS(R+X*8,0)))=7THEN720
710 PRINT"0"RIGHT$(STR$(IS(R+X*8,0)),5);:GOTO730
720 PRINT""RIGHT$(STR$(IS(R+X*8,0)),6);
730 PRINT"   "IS(R+X*8,1),IS(R+X*8,2)," 5":NEXT:IFR-1+X*8=NSTHEN750
740 SYSMT+9,22,"[154]MORE":SYSMT+9,23,YN$:SYSMT+3,"YN":GETF%:X=X+1:XX=1
745 ONF%GOTO770,220
750 PRINT:PRINTTAB(11)IS(0,1),IS(0,2),NS*5:GOSUB1870:XX=2
760 SYSMT+9,22,"[154]AGAIN":SYSMT+9,23,YN$:SYSMT+3,"YN":GETF%:X=0:ONF%GOTO770,220
770 TR=9:BR=19:GOSUB1860:GOSUB1870:ONXXGOTO680,660
780 GOSUB1870:SYSMT+9,12,"[158]CHECK PRINTER AND PAPER SUPPLY":PRINT
790 PRINTTAB(10)"[P] PRINT / [^] ABORT":SYSMT+3,"P^":GETF%:ONF%GOTO800,220
800 GOSUB4100
805 OPEN4,4,0:FORR=1TOINT(18-(LEN(MID$(W$,9,16)+A$(M))/2)):PRINT#4," ";:NEXT
810 :PRINT#4,MID$(W$,9,16)" / "A$(M):PRINT#4:PRINT#4:PRINT#4,"  "P1$:PRINT#4
820 FORR=1TONS:IFLEN(STR$(IS(R,0)))=7THEN840
830 PRINT#4,"0"RIGHT$(STR$(IS(R,0)),5);:GOTO850
840 PRINT#4,RIGHT$(STR$(IS(R,0)),6);
850 PRINT#4,"    "IS(R,1);:PRINT#4,"     ";:IFIS(R,1)<10THENPRINT#4," ";
860 PRINT#4,IS(R,2);:PRINT#4,"       ";:IFIS(R,2)<10THENPRINT#4," ";
870 PRINT#4,"5":NEXT:PRINT#4:PRINT#4,"          "IS(0,1);
880 PRINT#4,"     ";:IFIS(0,1)<10THENPRINT#4," ";
890 PRINT#4,IS(0,2);:PRINT#4,"      ";:IFIS(O,2)<10THENPRINT#4," ";
900 PRINT#4,NS*5:PRINT#4:PRINT#4:PRINT#4:CLOSE4:GOSUB4110
910 POKE186,DV:TR=9:BR=19:GOSUB1860:GOTO760
920 :
930 SYSBO,9,31,10,15,32,0:SYSBO,9,31,10,15,0,7+16:PRINT"[146]":POKE646,1
940 SYSMT+9,12,"QUIT":SYSMT+9,13,YN$:SYSMT+3,"YN":GETF%:ONF%GOTO40000,220
950 :
960 SYSBO,9,31,10,15,32,0:SYSBO,9,31,10,15,0,7+16:PRINT"[146]":POKE646,1
970 SYSMT+9,11,"ENTER TODAY'S DATE":SYSMT+9,12,"MMDDYY"
980 PRINT:PRINTTAB(17):SYSMO+51,3,3,6:DT$=W$:
990 FORR=1TO6:IFMID$(DT$,R,1)<"0"ORMID$(DT$,R,1)>"9"THENR=6:NEXT:GOTO930
1000 NEXT:RETURN
1010 :
1020 GOSUB1360:GOSUB1430:RETURN
1030 :
1040 GOSUB1850:PRINT"SETS:"SPC(8)"EXPECTATION:"
1050 PRINT"HITS/"SN$"       HITS/RND:[158]":CC=29:CR=6
1060 SYSMO+12,9,2,STR$(MS(M)):SYSMO+12,29,2,STR$(MS(M)*5)
1070 SYSMO+12,16,3,STR$(IS(0,1)):SYSMO+12,32,3,STR$(IS(0,2))
1080 FORR=1TO25:S(R)=0:R(R)=0:NEXT:SYSMO+12,2,6,"[155]         1111111111222222"
1090 PRINT:PRINT"1234567890123456789012345":GOSUB1960:RETURN
1100 :
1110 FORRP=1TO25:ONMGOSUB2260,2310,2260,2310
1120 IFRP>1THENGOSUB1870:D=2:GOSUB1920:SYSMT+9,22,"NEXT"
1130 GOSUB2010:X(RP)=DK:S(RP)=CR%:SYSMO+12,1+RP,11,"\":
1140 R(RP)=INT(RND(0)*5)+1:SYSMO+12,1+RP,12,"\":NEXT:RETURN
1150 :
1160 SH=0:RH=0:GOSUB2060
1170 FORRP=1TO25:GOSUB1200:NEXT
1180 GOSUB2060:GOSUB1870:GOSUB1270:GOSUB1330:RETURN
1190 :
1200 DK=X(RP):GOSUB2080:POKE646,7:SYSMO+12,1+RP,10,RIGHT$(STR$(X(RP)),1)
1210 CO=1:IFS(RP)=DKTHENCO=2:SH=SH+1
1220 POKE646,CO(CO):SYSMO+12,1+RP,11,RIGHT$(STR$(S(RP)),1)
1230 ONCOGOSUB2170,2190
1240 CO=1:IFR(RP)=DKTHENCO=3:RH=RH+1
1250 POKE646,CO(CO):SYSMO+12,1+RP,12,RIGHT$(STR$(R(RP)),1):GOSUB1920:RETURN
1260 :
1270 POKE646,CO(2):SYSMO+12,1+RP,11," ="+STR$(SH)
1280 POKE646,CO(3):SYSMO+12,1+RP,12," ="+STR$(RH)
1290 NS=MS(M)+1:MS(M)=NS:IS(0,1)=IS(0,1)+SH:IS(0,2)=IS(0,2)+RH
1300 IS(NS,0)=VAL(DT$):IS(NS,1)=SH:IS(NS,2)=RH
1310 GOSUB1660:SYSCM,4096,3072,616:RETURN
1320 :
1330 GOSUB1870:SYSMT+9,22,"[146][159]ANOTHER?   1= YES 2= NO":GOSUB2230:PS=2
1340 GOSUB2010:POKE53269,0:PS=5:RETURN
1350 :
1360 PRINT"[147]":SYSBO,0,39,0,4,0,BC+16
1370 SYSBO,0,39,5,20,0,31:SYSBO,0,39,21,24,0,7+16:SYSMT+9,1,""+A$(M):RETURN
1380 :
1390 GOSUB1870:SYSMT+9,22,"[159]SHUFFLING":SYSMT+9,23,"DECK  ":N=25:GOSUB1890
1400 GOSUB2210:FORI=1TON:POKESD+4,0:POKESD+5,17
1410 POKESD,50:POKESD+1,58:POKESD+24,15:POKESD+4,129:NEXT:POKE53371,0:RETURN
1420 :
1430 FL=0:WC$="$0:M"+S$+"*":GOSUB3000:GOSUB4000:W$=F$(F%):IFF%>0THEN1530
1440 SYSMO+12,13,22,"[146][159]NO FILES FOUND":GOSUB1910:GOSUB1870
1450 SYSMO+12,2,22,"[159]ENTER [158]FILENAME[159] OR PRESS [158][^][159] TO ABORT"
1460 SYSMT+9,23,"  PRESS [158][RETURN][159] WHEN DONE
1470 [158]MO[170]12,12,7,"M-STATS.":[153];
1480 [158]MO[170]51,1,1,8:N$[178]W$:[139]W$[178]"^"[176]W$[178]""[167]FL[178]1:[142]
1490 SN$[178][200](N$[170]":       ",9):[142]
1500 :
1530 [139][200](W$,2)[178]"M-"[167]1550
1540 [141]1840:[137]1450
1550 N$[178][202](W$,9,8):[141]1490
1560 [141]4100:[159]15,DV,15:[159]8,DV,8,"0:"[170]W$[170]",S,R":[141]1750
1570 [139]EN[179][177]0[175]EN[179][177]63[167][141]1810:[137]1730
1580 [132]8,MS(1),MS(2),MS(3),MS(4):[160]8:[160]15:NS[178]MS([197](M$))
1590 [139]NS[167]1620
1600 [141]1870:[158]MT[170]9,22,"CLRINITIALIZING, PLEASE WAIT...."
1610 [129]I[178]0[164]MX:[129]J[178]0[164]2:IS(I,J)[178]0:[130]:[130]:[137]1730
1620 [141]4100:[159]15,DV,15:[159]8,DV,8,"0:"[170]M$[170][202](W$,2,15)[170]",S,R":[141]1750
1630 [139]EN[179][177]0[175]EN[179][177]63[167][141]1810:[137]1730
1640 [129]R[178]0[164]NS:[132]8,IS(R,0):[132]8,IS(R,1):[132]8,IS(R,2):[130]:[137]1730
1650 :
1660 [151]53269,0:[141]1860:[158]MT[170]9,22,"OPENSAVING STATS":[141]1910
1670 [141]4100:[159]15,DV,15,"S0:M"[170]S$[170]N$:[159]8,DV,8,"0:M"[170]S$[170]N$[170]",S,W":[141]1750
1680 [139]EN[179][177]0[175]EN[179][177]63[167][141]1810:[137]1730
1690 [152]8,MS(1):[152]8,MS(2):[152]8,MS(3):[152]8,MS(4):[160]8:[160]15
1700 [141]4100:[159]15,DV,15,"S0:"[170]M$[170]S$[170]N$:[159]8,DV,8,"0:"[170]M$[170]S$[170]N$[170]",S,W":[141]1750
1710 [139]EN[179][177]0[175]EN[179][177]63[167][141]1810:[137]1730
1720 [129]R[178]0[164]NS:[152]8,IS(R,0):[152]8,IS(R,1):[152]8,IS(R,2):[130]
1730 [160]8:[160]15:[142]
1740 :
1750 [132]15,EN,EM$,ET,ES:[141]1870
1760 [158]MO[170]12,2,22,"DISK STATUS: ":[153][163]3)EN;EM$;ET;ES:[142]
1770 :
1780 [153]"LOAD":[158]BO,0,39,0,2,14[170]16:[158]BO,1,38,1,1,160,1
1790 [158]MO[170]12,TB,1,""[170]MS$:[158]BO,0,39,3,24,14[170]16:[153]:[142]
1800 :
1810 [153]"":[158]MO[170]12,7,23,"PRESS ANY KEY TO CONTINUE"
1820 [151]198,0:[146]198,1:[151]198,0
1830 :
1840 [141]1870
1850 TR[178]6:BR[178]19
1860 [158]BO,1,38,TR,BR,32,1:[142]
1870 TR[178]22:BR[178]23:[141]1860:[142]
1880 :
1890 [151]176,LO:[151]177,HI:[151]178,N:[158]RD:[142]
1900 :
1910 D[178]5:[141]1920
1920 [151]53370,0:[129]T[178]1[164]D[172]100:[130]:[151]53371,0:[142]
1930 :
1940 D[178]2:[141]1920:[158]BO,CC,CC[170]8,CR[170]1,CR[170]7,102,7:[142]
1950 :
1960 [129]R[178]1[164]5:[151]53248[170]R[172]2,72[170]R[172]32:[151]53249[170]R[172]2,168:[151]53287[170]R,13:[130]
1970 [158]MO[170]12,11,18,"LIST(null)(null)(null)(null)GETWAIT"
1980 [151]V[170]1,0:[158]MO[170]18,11,36,16,16:[158]MO[170]21,30,16:[158]MO[170]6
1990 X[178]10:[129]R[178]1[164]7:[158]MO[170]15,R,X,X[170]3,16,16:X[178]X[170]4:[130]:[151]53269,63:[142]
2000 :
2010 [161]A$:[139]A$[177][178]"1"[175]A$[179][178]"5"[167]CR%[178][197](A$):[137]2020
2015 [158]MO[170]9:[139]CR%[178]0[167]2010
2020 [139]CR%[177]PS[167]2010
2030 [141]2210:[151]SD[170]4,0:[151]SD[170]5,55:[151]SD,50:[151]SD[170]1,10:[151]SD[170]24,15
2040 [151]SD[170]4,33:[151]53371,0:[142]
2050 :
2060 [158]BO,CC,CC[170]9,CR,CR[170]7,32,1:[142]
2070 :
2080 [141]2060:[158]CM,4096[170]DK[172]616,3072,616
2090 [158]MO[170]12,CC,CR,"PRINTABCDEFGHI":[153]
2100 [153][163]CC)"LMNOPQRST"
2110 [153][163]CC)"WXYZ[\]^_"
2120 [153][163]CC)""[199](34)"#$%&'()*"
2130 [153][163]CC)"-./012345"
2140 [153][163]CC)"89:;<=>?TAN"
2150 [153][163]CC)"LENSTR$VALASCCHR$LEFT$RIGHT$MID$(null)":[142]
2160 :
2170 [141]2210:[151]SD[170]24,15:[151]SD,169:[151]SD[170]6,240
2180 [151]SD[170]1,16:[151]SD[170]4,17:[129]T[178]1[164]250:[130]:[151]SD[170]4,16:[151]53371,0:[142]
2190 [141]2210:[151]SD,4:[151]SD[170]1,48:[151]SD[170]5,0:[151]SD[170]6,249:[151]SD[170]24,15
2200 [151]SD[170]4,17:[151]SD[170]4,16:[151]53371,0:[142]
2210 [129]J[178]SD[164]SD[170]23:[151]J,0:[130]:[151]53370,0:[142]
2220 :
2230 [151]V[170]1,0:[158]MO[170]18,22,29,22,22:[158]MO[170]21,23,22:[158]MO[170]6
2240 X[178]22:[129]R[178]1[164]2:[158]MO[170]15,R,X,X[170]3,22,22:X[178]X[170]4:[130]:[142]
2250 :
2260 DK[178][194](RD[170]94[170]RP)
2270 [139]DK[177]5[167]DK[178]DK[171]5:[137]2270
2280 [139]M[178]3[167]2340
2290 [141]2060:[141]1940:[142]
2300 :
2310 [141]1400:[141]1890:DK[178][194](RD[170]95)
2320 [139]DK[177]5[167]DK[178]DK[171]5:[137]2320
2330 [139]M[178]2[167][141]2060:[141]1940:[142]:
2340 [141]2080:[142]
2350 :
3000 [151]53248[170]21,0
3005 F$[178]"":[129]I[178]1[164]296:F$(I)[178]"":[130]:[160]15:[141]4100:[159]15,DV,15,"I":[132]15,A$
3010 [132]15,EN,EM$,ET,ES:[160]15:[151]53248[170]21,1:[139]EN[167]F%[178]0:[142]
3020 [151]53248[170]21,0:[158]38400,WC$,DV,0:[151]53248[170]21,1:FI[178][194](251)[170][194](252)[172]256
3030 [139]FI[179]1[167][142]
3040 [158]BO,0,39,0,20,0,7[170]16:[158]BO,1,38,1,19,160,3:OF[178]0
3050 [158]BO,2,18,2,17,32,0:[158]BO,21,37,2,17,32,0
3055 [153]"OPEN";:[158]36864[170]9,1,F$(0)
3060 [153]"WAITOPEN";:[129]I[178]1[164]16:[158]MO[170]12,3,I[170]1,F$(I[170]OF):[158]MO[170]12,22,I[170]1,F$(I[170]OF[170]16)
3070 [130]
3080 [158]MO[170]12,2,18,"TANTANTAN NEXT PAGE TANTANTAN":[158]MO[170]12,21,18,"TANTANTAN EXIT MENU TANTANTAN"
3090 [158]MO[170]6:[158]36864[170]12,2,2,18,21,37,17,3,1,133:[161]A$
3100 F%[178][194](781)[170][194](780)[172]17[170]1:[139]F%[178]34[167]F%[178]0:[142]
3105 [139]F%[179][177]34[175]F%[179][177]17[167]F%[178]F%[170]OF:[142]
3110 [139]F%[178]17[167][139]FI[177]32[167]OF[178]OF[170]32:[139]OF[177]FI[167]OF[178]0
3120 [139]F%[178]17[167]3050
4000 [153]"LOAD"
4010 [158]BO,0,39,0,4,0,2[170]16:[158]BO,0,39,5,20,0,15[170]16:[158]BO,0,39,21,24,0,7[170]16
4020 [142]
4100 [151]53248[170]21,0:[142]
4110 [151]53248[170]21,1:[142]
9999 [144]
10000 D[178][194](186)
10010 N$[178]"PARAPSYCHOLOGIST":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
10020 :
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40002 [151]53269,0:[158]MO[170]3
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOAD P(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]" RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
50000 [158]MO[170]12,15,10,"ONELETTWOLETTHREELETFOURLETFIVELETSIXLETSEVENLETEIGHTLETNINELETTEN
50005 SYSMO+12,22,10,"ONE[136]TWO[136]THREE[136]FOUR[136]FIVE[136]SIX[136]SEVEN[136]EIGHT[136]NINE[136]TEN
50010 [158]MO[170]6:[158]36864[170]12,10,14,19,21,35,10,14,1,133