ZXTape! 0Created with Ramsoft MakeTZXprog2  PSI-Q V1.0 7/12/84 37:7::7:"mchars"63232  1:236077\,246 L$="7 6: pq5atbatbefgatbsttefgatt4t 9; omnr5c12c12h ic12uvwh ic1 5 8 o][r5dy3dy3jkldy3112jkld 5  " (1:1:1: 2's$=" " 4):y=3+9 *(l>4): 91:7:1:470:''':x=1mn >'(3);" ";x;" ";(8);m$(x,2̯m$(x)):x Q21,3;"Enter choice:";:p$="1234567"(mn):len=1:270: 'i$="":q=1:23560\,0 ?li=23689\:co=23688\:q=01,10 Y9 ;1;"?";:23684\,23684\-1:23688\,co:0:f$= "f$=13 Ʊi$340T ,f$=12 Ʊi$330J 6{q=0:x=1̱p$:f$=p$(x)(p$="@"Ưf$32 Ưf$122z)q=x:x=p$:i$=i$+f$:9 ;f$;:co=co-1 @x:i$len275 E q=0 Jpi$=i$(̱i$-1):" ";:23689\,li:23688\,co+1:23684\,23684\-2:275 T" ": ^,x2=0:g=0:g1=0:4 h9x1=x+3-odds+x2:j+1,x1;7;124| m$23560\,0:0:g= rg=32 x2=x2+1 |x2>oddsx2=0 x2<0x2=odds 3j+1,x1;0;" ":g13 360h f0:j,x;" ";7;1;c$(x2*3+1x2*3+3);0;4;" " ej+1,x;" ":7:1:odds=3x2=suithit=hit+1:rt+10 +l,1 Podds=1(x2=suitsuit+x2=3)hit=hit+1:rt+10 +l,1  (23659k\,0:22,0 /game=10 " SPACE BAR moves";:460 #game=1"Cursor keys move"; ", ENTER selects ": 0:1:top=0:bot=2:100d 1,6;k$  0: 470:'''" Are you in a good mood?"'" (y/n) ";:270:e(1)=q-1:''" Is it morning or afternoon?"'" (m/a) ";:p$="ma":len=1:270:e(2)=q-1:e(3)=relax: 470:10 ,0;" Please insert and rewind your"'" data cassette.":130:470:10 ,1;"Now press  PLAY  on your"'" cassette recorder.";15,1;" LOADING DATA - Please wait "''' n$s()  hf=1: 470:6,1;"Your results file is now going"'" to be saved."''" Insert your data cassette and"'" rewind the tape."''" Remove the EAR plug from the"'" recorder and press the"'"  RECORD  and  PLAY  buttons"'" together." 130:470:6,1;"When you see the message"'" ""Start tape ....."", press any"'" key on the keyboard to start"'" saving your data."  ti=t() t()0))+.5*(psi<0) b$psi=psi/(try*prob*(1-prob)) lsgn=psi:psi=psi v;score=(psi1.96zG)+(psi2.58%R)+(psi3.3S333): T1:7:1:470:600X:h$=" hit":tot1h$=h$+"s" Ŧ''" You scored ";tot;h$;" out of ";try;".":try<502" The number of guesses you made"'" is not large enough to give"'" you an accurate psi rating.":736 ep$="This shows"+q$(score+1,2̯q$(score+1)):sgn=-1scorep$=p$+" negative" "p$=p$+" psi ability.":160 scorep$="":772 *psi<.4Lp$="Bad luck! ":772 Tp$="However, you are on your way to having some ":sgn=-1p$=p$+"negative " p$=p$+"psi potential. " gp$=p$+"Your score is ":p=m(psi):p$=p$+r$(p,2̯r$(p)):sgn=-1p>1p$=p$+" below"  'sgn=1p>1p$=p$+" above" Zp$=p$+" what we would expect from pure guesswork."::160:130:lt=0  gs(1,ch)=s(1,ch)+1:s(2,ch)=s(2,ch)+try:s(3,ch)=s(3,ch)+tot *.i=14:cn=3+i*2+e(i) 4~s(1,cn)=s(1,cn)+1:s(2,cn)=s(2,cn)+try:s(3,cn)=s(3,cn)+tot*(1+(ch=1)) >i: 470:'''" To allow for an adequate"'" sample size, and hence a more"'" accurate assessment of your"'" psi ability, you should try"'" at least 50 guesses." p$="1234567890":len=4 G11 ,1;"How many guesses "'':game=10 " (multiple"; game=1" (minimum"; " of 10)";:270:try=i$:try<10 try>1000(game=10 try/10 ɺ(try/10 ))1,10 :13 ,16;" ":920 game=1'" Would you like to try a"'" test for clairvoyance or"'" precognition ? (c/p)";:p$="cp":len=1:270:pre=q-1:e(4)=pre tot=0: ^y,x;0;2(suit=1suit=2);¨f(card);y+1,x;(102f+suit); b1:k=card*15-108l:j=15:y+j,x+1;:k=kk+2:k;:k:j 2(suit=1suit=2);(102f+suit);y+j,x+4;0;¨f(card):1:(x+1)*8,(22-y)*8-5:28,0:0,-33!:(x*8)+4,(20-y)*8-3:0,-33!:26,0 0y+3,x+1;1;"   ";: Q236066\,al:236077\,ah:p$=(480+card):card=1p$=65A >card=10 p$=115s:236066\,bl:236077\,bh o0:2(suit=1suit=2):y,x;p$;y+6,x+4;p$:236066\,bl:236077\,bh :y+1,x;(116t+suit):card*10 +1090B 1char=102f:x1,y1:x1=9991050  card>8char %y+y1,x+x1;(char+suit):1030 *y+5,x+4;(116t+suit): L%2,3,999,999 V52,2,2,4,999,999 `E2,1,2,3,2,5,999,999 jU1,1,3,1,1,5,3,5,999,999 te1,1,3,1,1,5,3,5,2,3,999,999 ~u1,1,3,1,1,3,3,3,1,5,3,5,999,999 1,1,3,1,1,3,3,3,2,4,1,5,3,5,999,999 1,1,3,1,1,3,3,3,2,2,2,4,1,5,3,5,999,999 31,1,102f,3,1,102f,1,2,106j,3,2,106j,1,3,120x,2,3,102f,3,3,120x,1,4,110n,3,4,110n,1,5,102f,3,5,102f,999,999 1,1,102f,2,1,106j,3,1,102f,1,2,106j,2,2,110n,3,2,106j,1,3,120x,3,3,120x,1,4,110n,2,4,106j,3,4,110n,1,5,102f,2,5,110n,3,5,102f,999,999 ch=41250 y1,x1;6;"# ";y1+1,x1;"$%":n=15:m=n*6n*6+12 2:.01z# =,m:m:y1,x1;1;n+1;" ";y1+1,x1;" ";:n Ry1-1,x1;6;" + ";y1,x1-1;"* ,";y1+1,x1;2;"~" (n=m6-2:.01z# =,n:n: gy1-1,x1;6;"-./";y1,x1;"012";y1+1,x1;"345":.3,18:.8L,12  cch=3y1,x1;7;"&'";y1+1,x1;"()":m=261-1:.02{# =,m:m `ch=4y1-1,x1;5;"-./";y1,x1;"012";y1+1,x1;"678":1,-30   470:6,0; @i=18:b(i)=0:i:i=511 2 ~pn=s(1,i):pt=s(2,i):ps=s(3,i):nn=s(1,i+1):nt=s(2,i+1):ns=s(3,i+1) ̠diff=(ps-pt/2)-(ns-nt/2):fl=(diff<0):nn>0pn>0tot=diff+(pt+nt)/2:try=pt+nt:600X:b(fl+i-4)=score+1 <i:fl=0:i=18:b(i)<23050 lp$=e$(i,2̯e$(i))+q$(b(i),2̯q$(b(i)))+" effect on your psi ability.":fl=1:160: 8i:fl=1130:470:6,0; hi=511 2:b(i-4)=s(1,i)-s(1,i+1):i:x=0:y=-999 Ai=172:b(i)>xx=b(i):y=i+(b(i)>0) i:" You should play the games"'" again, the accuracy of the"'" scoring increases with the"'" number of games played."'':y=-9993100 Gp$="Why not try the games again "+g$(y,2̯g$(y))+"?":160  130  ogame=10 :ch=1odds=3:c$=""+102f+""+103g+""+104h+""+105i @ch=2odds=1:c$=""+143+""+143  900 a=0:pre=0 ҩi=1try/10 :hit=0:0:4::1:1:7:(32 -m$(ch))/2;m$(ch,2̯m$(ch));32 ;1;s$:440 8l=019:rt+l,0:l:l=09 Kcard=(*524)+1:m=0l-1:card=(rt+m)4070 'm:rt+l,card:suit=(card/13.1Q) +230:236066\,bl:236077\,bh M2:j=yy+6:j,x;"rrrrr":j:j,x+3-odds;c$:350^:l ^l=09 :230:card=(rt+l):suit=(card/13.1Q):card=card-suit*13 )j=y+6y-1:j,x;" ":j &card>10 970:4135' " 1000 '<(rt+10 +l)=1y,x+4;4;125} ,l:236066\,al:236077\,ah:7:0:21,5;" You scored ";hit;" hit";:"s"hit1;:" ":tot=tot+hit:1:7:130 6i:700: Bgame=1:odds=1:ch=3pap=1:ink=5 &ch=4pap=2:ink=6  900 ee=0:p=0:top=0:bot=2:pap:pap::7:pap:100d:1,(32 -m$(ch))/2;m$(ch,2̯m$(ch)) 440:pap:ink @x=8248480:x,16:0,128:x @y=1615032 :8,y:240,0:y  236066\,bl:236077\,bh >x=0:y=3:i=1try:zap=0:g1=0 1m=rtrt+39':m,0:m:pre190  236066\,bl:236077\,bh y1=y*4+5:x1=x*6+3:y1-1,x1-1;7;" ";y1,x1-1;" !"" ";y1+1,x1;"""! " $23560\,0:0:g= g=535x=x-1 g=568x=x+1  g=546y=y+1 g=557y=y-1 x<0x=0 (y<0y=0 2y>3y=3 <x>4x=4 F,y1,x1;1;"!""";y1+1,x1;"""!" P0l=20+x+5*y:g13 5090 Z (rt+l),1:pre190 dD(rt+l)=(rt+l-20)tot=tot+1:zap=1:1200 nzap1270 xo$=" "+tot+" ":p$=" "+(i-tot)+" ":236066\,al:236077\,ah:2-(ch=4):7:1:21,1;" hits:";o$(tot);21,18;:4:" misses:";p$((i-tot)); 0:pap:i &pap:7:130:700: An=(h+v):inc=2*/n:c=inc:s=inc:r=h/v:x=h:y=0 .i=1n:xt=x:x=x*c-y*s*r:y=y*c+xt*s/r xc,yc:8;x,y:i: prelax=1: 1:5:470:6,0;:p$="I would like to know your present pulse rate. Can you find your pulse, and when you are ready to start counting ..........":160:130:470 z?5,4;1;"START COUNTING NOW......":ti=t() }t()13015,27;" ":6030 int=3000 /(pulse*1.08 =p):xfer=int*40(:64513,int:64514,0:64517,xfer-(xfer/256)*256:64518,(xfer/256):64485  :ti=t(): <ink=(*8):ink=1ƨt()ti+30ݺ(*2) eink:xc=(*200)+28:h=(*100d)+20:xc+h>255xc-h<06066 _yc=(*140)+18:v=(*70F)+10 :yc+v>175yc-v<06067 +5800:t()0600X psi>4.1333psi=4.1333 sgn=-1psi=-psi bpsi=16.5+psi*3.765p:1+i*4,psi;7;2;1;124|:i 4236066\,al:236077\,ah:7:130 Г7:1:470:'''" Your cumulative scores so far:"'''16;1;4;"GUESSES";0;" ";1;2;"HITS" ڽi=14:'1;m$(i,2̯m$(i));19;:p$=" "+s(2,i):4;p$(p$-3);26;:p$=" "+s(3,i):2;p$(p$-3):i:130  /23730\,87W:23731\,251: s(3,12 ):b(8):e(4):r$(4,18):q$(4,14):e$(8,26):g$(8,33!):m$(7,24) &lt=0:k$="Know your own Psi-Q" Mbl=87W:bh=251:rt=64343W:al=236066\:ah=236077\ "chars"64485 r9000(#:i=14:p$:r$(i)=(p$+1)+p$:i:i=14:p$:q$(i)=(p$+1)+p$:i  i=15:p$:g$(i)=(p$+1)+p$:i:g$(6)=(p$+5)+"not "+p$:i=78:p$:g$(i)=(p$+1)+p$:i:i=18:p$:e$(i)=(p$+1)+p$:i 6relax=0:s$=" " @{9100#:23624H\,79O:1:i=17:p$:m$(i)=(p$+1)+p$:i:mn=7:240:ch=q J!q=1q=24000 ^!q=3q=45000 rq=58100 |q=66000p  q=7  8000@  hf=0:game=0:lt=1:470:'''" Your name is used when saving"'" your scores on the history"'" data file, so please ensure"'" that you spell it the same way"'" every time you use the"'" program." J'" Enter your"'" name please: ";:len=16:p$="@":270:n$=i$ =i=13:j=112 :s(i,j)=0:j:i y''" Would you like to load an"'" existing history file? (y/n) ";:p$="yn":len=1:270:q=1510  500 ̩m$(5)=24+"Display Psi-Q Barcharts":m$(6)=20+"Return to Main Menu":mn=6:240:ch=q:q=0:ch=1ch=24000 #ch=3ch=45000 ch=57000X 4ch=6game7000X:530:3000 ch=6lt=0:  8140 #(x"no different from","slightly","significantly","substantially"," no"," some"," a good"," an excellent","when in a good mood","when in a bad mood","tomorrow morning","tomorrow evening","using the relaxation section","using clairvoyance","using precognition","A good mood has","A bad mood has","Mornings have","Evenings have","Consciously relaxing has","Your normal state has" #2'"Clairvoyance has","Precognition has" #t"Guess the suit","Guess the colour","Hunt the Psi-Psub","Find the face","Long term Psi-testing","Relaxation","End" chars rBt*"*">G^V>?G 'u*+" > :<2*":=2<:2!͵?o?"!D#!Dx@`? 99~ww{;=~};;pPPQ@ PPPPPS_WŅB<<< QX__|a8>={__SPQPPP<<GQ!g<<<<<0QHFGGGO_|a8>=b <<<<<Á|@??R<<<)(///|a8>=w//+()((8<<>>>>*"w>>*>>>B$$B.j***.66>>>>>**>"w>>>>>\p  ?