home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 161 / 161.d81 / parapsychologist (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1997-01-01  |  9.5 KB  |  285 lines
  1. 10 poke51,0:poke52,144:poke55,0:poke56,144:clr:ft=2048:sp=8192
  2. 20 cd=4712:mo=49152:v=mo+111:rd=mo+1361:hi=int(rd/256):lo=rd-hi*256:cm=mo+1588
  3. 30 mx=250:mt=36864:dimx(25),s(25),r(25),ms(4),is(mx,2),f$(297):box=mo+30
  4. 40 sd=54272:ps=5:dv=peek(186):ifdv<8thendv=8
  5. 50 sys57812"mou-rnd-copym",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  6. 60 sysmo+54,"para.font",dv,ft
  7. 62 sysmo+54,"para.tile",dv,ft+250*8
  8. 70 sysmo+54,"para.spr",dv,sp
  9. 80 sysmo+54,"para.cards",dv,cd
  10. 85 sysmo+54,"toolkit 9000",dv,36864
  11. 86 sysmo+54,"input dir 9600",dv,36864+6*256
  12. 87 pokev+11,64:pokev+12,64:pokev+13,93:pokev+14,93:pokev+10,0
  13. 88 pokev+15,112:pokev+16,110:pokev+17,109:pokev+18,125
  14. 90 sysmo:pokev,31:poke53280,0:poke53281,0
  15. 100 s$="-stats.":co(1)=15:co(2)=5:co(3)=2:
  16. 110 p1$="date  subject  random  expectation":yn$="[y] yes / [n] no"
  17. 120 gosub2210:pokesd+24,15:poke53371,0
  18. 130 forr=1to5:poke2040+r,127+r:next
  19. 140 t$="p a r a p s y c h o l o g i[160]s t":a$(1)="precognition (rhine)"
  20. 150 a$(2)="precognition (modified)":a$(3)="telepathy (rhine)"
  21. 160 a$(4)="telepathy (modified)":a$(5)="review stats"
  22. 170 a$(6)="quit to loadstar":a$(7)="[168]123456"
  23. 190 print"[147]"chr$(142)chr$(8):poke53272,19
  24. 192 sysbo,0,39,0,24,0,7+16:sysbo,4,36,2,4,160,7
  25. 193 sysbo,1,38,1,23,250,3+32:sysbo,7,33,7,16,160,7+16
  26. 194 sysbo,8,32,8,15,160,3
  27. 195 fori=1to6:sysmo+12,9,8+i,"[159]"+a$(i):next:sysbo,4,36,3,3,160,3
  28. 196 sysbo,3,37,2,4,160,7+16
  29. 197 print"[159]";:sys36864+9,3,t$
  30. 198 sys36864+9,22," crsr/return or click to select "
  31. 200 syscm,3072,4096,616
  32. 210 sysmo+39,208
  33. 220 sysmo+42,208:sysmo+18,0,39,0,24:sysmo+6:sys36864,9,8,32,6,3,1,0:getf%
  34. 230 ifdt$=""andf%<6thentp=f%:gosub960:f%=tp
  35. 240 onf%goto260,340,420,500,580,930
  36. 250 :
  37. 260 m$="1":m=1:bc=2:gosub1020:ifflthen220
  38. 270 gosub1040:gosub1390
  39. 280 gosub1870:sysmt+9,22,"[146]visualize the deck and attempt":print
  40. 290 print"to identify the order of the cards."
  41. 300 gosub1110:gosub1870
  42. 310 gosub1160
  43. 320 oncr%goto270,220
  44. 330 :
  45. 340 n=5:m$="2":m=2:bc=10:gosub1020:ifflthen220
  46. 350 gosub1040
  47. 360 gosub1870:sysmt+9,22,"[146]visualize the card and attempt":print
  48. 370 printtab(8)"to identify the symbol."
  49. 380 gosub1110:gosub1870
  50. 390 gosub1160
  51. 400 oncr%goto350,220
  52. 410 :
  53. 420 m$="3":m=3:bc=14:gosub1020:ifflthen220
  54. 430 gosub1040:gosub1390
  55. 440 gosub1870:sysmt+9,22,"[146] concentrate on the displayed symbol":print
  56. 450 print"and record the subject's response."
  57. 460 gosub1110:gosub1870
  58. 470 gosub1160
  59. 480 oncr%goto270,220
  60. 490 :
  61. 500 n=5:m$="4":m=4:bc=14:gosub1020:ifflthen220
  62. 510 gosub1040
  63. 520 gosub1870:sysmt+9,22,"[146] concentrate on the displayed symbol":print
  64. 530 print"and record the subject's response."
  65. 540 gosub1110:gosub1870
  66. 550 gosub1160
  67. 560 oncr%goto510,220
  68. 570 :
  69. 580 m=5:bc=5:gosub1360
  70. 590 fl=0:wc$="$0:1-s*,2-s*,3-s*,4-s*":gosub3000:gosub4000:iff%>0then610
  71. 600 sysmo+12,13,22,"[146][159]no files found":gosub1910:goto220
  72. 610 w$=f$(f%)
  73. 630 remsysmt+9,7,"[156]prefixes":print:forr=1to4:printtab(6)r"= "a$(r):next
  74. 650 m$=left$(w$,1):m=val(m$):w$="m-stats."+mid$(w$,9,8):gosub1560:ifflthen220
  75. 660 gosub1840:sysmt+9,22,"send output to:"
  76. 670 sysmt+9,23,"[s] screen / [p] printer":sysmt+3,"sp":getf%:x=0:onf%goto680,780
  77. 680 gosub1870:sysmt+9,7,""+mid$(w$,9,16)+" / "+a$(m):print"":print""p1$
  78. 690 sysmo+12,0,9,"":forr=1to8:ifr+x*8>nsthenr=8:next:goto750
  79. 700 iflen(str$(is(r+x*8,0)))=7then720
  80. 710 print"0"right$(str$(is(r+x*8,0)),5);:goto730
  81. 720 print""right$(str$(is(r+x*8,0)),6);
  82. 730 print"   "is(r+x*8,1),is(r+x*8,2)," 5":next:ifr-1+x*8=nsthen750
  83. 740 sysmt+9,22,"[154]more":sysmt+9,23,yn$:sysmt+3,"yn":getf%:x=x+1:xx=1
  84. 745 onf%goto770,220
  85. 750 print:printtab(11)is(0,1),is(0,2),ns*5:gosub1870:xx=2
  86. 760 sysmt+9,22,"[154]again":sysmt+9,23,yn$:sysmt+3,"yn":getf%:x=0:onf%goto770,220
  87. 770 tr=9:br=19:gosub1860:gosub1870:onxxgoto680,660
  88. 780 gosub1870:sysmt+9,12,"[158]check printer and paper supply":print
  89. 790 printtab(10)"[p] print / [^] abort":sysmt+3,"p^":getf%:onf%goto800,220
  90. 800 gosub4100
  91. 805 open4,4,0:forr=1toint(18-(len(mid$(w$,9,16)+a$(m))/2)):print#4," ";:next
  92. 810 :print#4,mid$(w$,9,16)" / "a$(m):print#4:print#4:print#4,"  "p1$:print#4
  93. 820 forr=1tons:iflen(str$(is(r,0)))=7then840
  94. 830 print#4,"0"right$(str$(is(r,0)),5);:goto850
  95. 840 print#4,right$(str$(is(r,0)),6);
  96. 850 print#4,"    "is(r,1);:print#4,"     ";:ifis(r,1)<10thenprint#4," ";
  97. 860 print#4,is(r,2);:print#4,"       ";:ifis(r,2)<10thenprint#4," ";
  98. 870 print#4,"5":next:print#4:print#4,"          "is(0,1);
  99. 880 print#4,"     ";:ifis(0,1)<10thenprint#4," ";
  100. 890 print#4,is(0,2);:print#4,"      ";:ifis(o,2)<10thenprint#4," ";
  101. 900 print#4,ns*5:print#4:print#4:print#4:close4:gosub4110
  102. 910 poke186,dv:tr=9:br=19:gosub1860:goto760
  103. 920 :
  104. 930 sysbo,9,31,10,15,32,0:sysbo,9,31,10,15,0,7+16:print"[146]":poke646,1
  105. 940 sysmt+9,12,"quit":sysmt+9,13,yn$:sysmt+3,"yn":getf%:onf%goto40000,220
  106. 950 :
  107. 960 sysbo,9,31,10,15,32,0:sysbo,9,31,10,15,0,7+16:print"[146]":poke646,1
  108. 970 sysmt+9,11,"enter today's date":sysmt+9,12,"mmddyy"
  109. 980 print:printtab(17):sysmo+51,3,3,6:dt$=w$:
  110. 990 forr=1to6:ifmid$(dt$,r,1)<"0"ormid$(dt$,r,1)>"9"thenr=6:next:goto930
  111. 1000 next:return
  112. 1010 :
  113. 1020 gosub1360:gosub1430:return
  114. 1030 :
  115. 1040 gosub1850:print"sets:"spc(8)"expectation:"
  116. 1050 print"hits/"sn$"       hits/rnd:[158]":cc=29:cr=6
  117. 1060 sysmo+12,9,2,str$(ms(m)):sysmo+12,29,2,str$(ms(m)*5)
  118. 1070 sysmo+12,16,3,str$(is(0,1)):sysmo+12,32,3,str$(is(0,2))
  119. 1080 forr=1to25:s(r)=0:r(r)=0:next:sysmo+12,2,6,"[155]         1111111111222222"
  120. 1090 print:print"1234567890123456789012345":gosub1960:return
  121. 1100 :
  122. 1110 forrp=1to25:onmgosub2260,2310,2260,2310
  123. 1120 ifrp>1thengosub1870:d=2:gosub1920:sysmt+9,22,"next"
  124. 1130 gosub2010:x(rp)=dk:s(rp)=cr%:sysmo+12,1+rp,11,"\":
  125. 1140 r(rp)=int(rnd(0)*5)+1:sysmo+12,1+rp,12,"\":next:return
  126. 1150 :
  127. 1160 sh=0:rh=0:gosub2060
  128. 1170 forrp=1to25:gosub1200:next
  129. 1180 gosub2060:gosub1870:gosub1270:gosub1330:return
  130. 1190 :
  131. 1200 dk=x(rp):gosub2080:poke646,7:sysmo+12,1+rp,10,right$(str$(x(rp)),1)
  132. 1210 co=1:ifs(rp)=dkthenco=2:sh=sh+1
  133. 1220 poke646,co(co):sysmo+12,1+rp,11,right$(str$(s(rp)),1)
  134. 1230 oncogosub2170,2190
  135. 1240 co=1:ifr(rp)=dkthenco=3:rh=rh+1
  136. 1250 poke646,co(co):sysmo+12,1+rp,12,right$(str$(r(rp)),1):gosub1920:return
  137. 1260 :
  138. 1270 poke646,co(2):sysmo+12,1+rp,11," ="+str$(sh)
  139. 1280 poke646,co(3):sysmo+12,1+rp,12," ="+str$(rh)
  140. 1290 ns=ms(m)+1:ms(m)=ns:is(0,1)=is(0,1)+sh:is(0,2)=is(0,2)+rh
  141. 1300 is(ns,0)=val(dt$):is(ns,1)=sh:is(ns,2)=rh
  142. 1310 gosub1660:syscm,4096,3072,616:return
  143. 1320 :
  144. 1330 gosub1870:sysmt+9,22,"[146][159]another?   1= yes 2= no":gosub2230:ps=2
  145. 1340 gosub2010:poke53269,0:ps=5:return
  146. 1350 :
  147. 1360 print"[147]":sysbo,0,39,0,4,0,bc+16
  148. 1370 sysbo,0,39,5,20,0,31:sysbo,0,39,21,24,0,7+16:sysmt+9,1,""+a$(m):return
  149. 1380 :
  150. 1390 gosub1870:sysmt+9,22,"[159]shuffling":sysmt+9,23,"deck  ":n=25:gosub1890
  151. 1400 gosub2210:fori=1ton:pokesd+4,0:pokesd+5,17
  152. 1410 pokesd,50:pokesd+1,58:pokesd+24,15:pokesd+4,129:next:poke53371,0:return
  153. 1420 :
  154. 1430 fl=0:wc$="$0:m"+s$+"*":gosub3000:gosub4000:w$=f$(f%):iff%>0then1530
  155. 1440 sysmo+12,13,22,"[146][159]no files found":gosub1910:gosub1870
  156. 1450 sysmo+12,2,22,"[159]enter [158]filename[159] or press [158][^][159] to abort"
  157. 1460 sysmt+9,23,"  press [158][return][159] when done
  158. 1470 [158]mo[170]12,12,7,"m-stats.":[153];
  159. 1480 [158]mo[170]51,1,1,8:n$[178]w$:[139]w$[178]"^"[176]w$[178]""[167]fl[178]1:[142]
  160. 1490 sn$[178][200](n$[170]":       ",9):[142]
  161. 1500 :
  162. 1530 [139][200](w$,2)[178]"m-"[167]1550
  163. 1540 [141]1840:[137]1450
  164. 1550 n$[178][202](w$,9,8):[141]1490
  165. 1560 [141]4100:[159]15,dv,15:[159]8,dv,8,"0:"[170]w$[170]",s,r":[141]1750
  166. 1570 [139]en[179][177]0[175]en[179][177]63[167][141]1810:[137]1730
  167. 1580 [132]8,ms(1),ms(2),ms(3),ms(4):[160]8:[160]15:ns[178]ms([197](m$))
  168. 1590 [139]ns[167]1620
  169. 1600 [141]1870:[158]mt[170]9,22,"clrinitializing, please wait...."
  170. 1610 [129]i[178]0[164]mx:[129]j[178]0[164]2:is(i,j)[178]0:[130]:[130]:[137]1730
  171. 1620 [141]4100:[159]15,dv,15:[159]8,dv,8,"0:"[170]m$[170][202](w$,2,15)[170]",s,r":[141]1750
  172. 1630 [139]en[179][177]0[175]en[179][177]63[167][141]1810:[137]1730
  173. 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
  174. 1650 :
  175. 1660 [151]53269,0:[141]1860:[158]mt[170]9,22,"opensaving stats":[141]1910
  176. 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
  177. 1680 [139]en[179][177]0[175]en[179][177]63[167][141]1810:[137]1730
  178. 1690 [152]8,ms(1):[152]8,ms(2):[152]8,ms(3):[152]8,ms(4):[160]8:[160]15
  179. 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
  180. 1710 [139]en[179][177]0[175]en[179][177]63[167][141]1810:[137]1730
  181. 1720 [129]r[178]0[164]ns:[152]8,is(r,0):[152]8,is(r,1):[152]8,is(r,2):[130]
  182. 1730 [160]8:[160]15:[142]
  183. 1740 :
  184. 1750 [132]15,en,em$,et,es:[141]1870
  185. 1760 [158]mo[170]12,2,22,"disk status: ":[153][163]3)en;em$;et;es:[142]
  186. 1770 :
  187. 1780 [153]"load":[158]bo,0,39,0,2,14[170]16:[158]bo,1,38,1,1,160,1
  188. 1790 [158]mo[170]12,tb,1,""[170]ms$:[158]bo,0,39,3,24,14[170]16:[153]:[142]
  189. 1800 :
  190. 1810 [153]"":[158]mo[170]12,7,23,"press any key to continue"
  191. 1820 [151]198,0:[146]198,1:[151]198,0
  192. 1830 :
  193. 1840 [141]1870
  194. 1850 tr[178]6:br[178]19
  195. 1860 [158]bo,1,38,tr,br,32,1:[142]
  196. 1870 tr[178]22:br[178]23:[141]1860:[142]
  197. 1880 :
  198. 1890 [151]176,lo:[151]177,hi:[151]178,n:[158]rd:[142]
  199. 1900 :
  200. 1910 d[178]5:[141]1920
  201. 1920 [151]53370,0:[129]t[178]1[164]d[172]100:[130]:[151]53371,0:[142]
  202. 1930 :
  203. 1940 d[178]2:[141]1920:[158]bo,cc,cc[170]8,cr[170]1,cr[170]7,102,7:[142]
  204. 1950 :
  205. 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]
  206. 1970 [158]mo[170]12,11,18,"list(NULL)(NULL)(NULL)(NULL)getwait"
  207. 1980 [151]v[170]1,0:[158]mo[170]18,11,36,16,16:[158]mo[170]21,30,16:[158]mo[170]6
  208. 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]
  209. 2000 :
  210. 2010 [161]a$:[139]a$[177][178]"1"[175]a$[179][178]"5"[167]cr%[178][197](a$):[137]2020
  211. 2015 [158]mo[170]9:[139]cr%[178]0[167]2010
  212. 2020 [139]cr%[177]ps[167]2010
  213. 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
  214. 2040 [151]sd[170]4,33:[151]53371,0:[142]
  215. 2050 :
  216. 2060 [158]bo,cc,cc[170]9,cr,cr[170]7,32,1:[142]
  217. 2070 :
  218. 2080 [141]2060:[158]cm,4096[170]dk[172]616,3072,616
  219. 2090 [158]mo[170]12,cc,cr,"printabcdefghi":[153]
  220. 2100 [153][163]cc)"lmnopqrst"
  221. 2110 [153][163]cc)"wxyz[\]^_"
  222. 2120 [153][163]cc)""[199](34)"#$%&'()*"
  223. 2130 [153][163]cc)"-./012345"
  224. 2140 [153][163]cc)"89:;<=>?tan"
  225. 2150 [153][163]cc)"lenstr$valascchr$left$right$mid$(NULL)":[142]
  226. 2160 :
  227. 2170 [141]2210:[151]sd[170]24,15:[151]sd,169:[151]sd[170]6,240
  228. 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]
  229. 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
  230. 2200 [151]sd[170]4,17:[151]sd[170]4,16:[151]53371,0:[142]
  231. 2210 [129]j[178]sd[164]sd[170]23:[151]j,0:[130]:[151]53370,0:[142]
  232. 2220 :
  233. 2230 [151]v[170]1,0:[158]mo[170]18,22,29,22,22:[158]mo[170]21,23,22:[158]mo[170]6
  234. 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]
  235. 2250 :
  236. 2260 dk[178][194](rd[170]94[170]rp)
  237. 2270 [139]dk[177]5[167]dk[178]dk[171]5:[137]2270
  238. 2280 [139]m[178]3[167]2340
  239. 2290 [141]2060:[141]1940:[142]
  240. 2300 :
  241. 2310 [141]1400:[141]1890:dk[178][194](rd[170]95)
  242. 2320 [139]dk[177]5[167]dk[178]dk[171]5:[137]2320
  243. 2330 [139]m[178]2[167][141]2060:[141]1940:[142]:
  244. 2340 [141]2080:[142]
  245. 2350 :
  246. 3000 [151]53248[170]21,0
  247. 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$
  248. 3010 [132]15,en,em$,et,es:[160]15:[151]53248[170]21,1:[139]en[167]f%[178]0:[142]
  249. 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
  250. 3030 [139]fi[179]1[167][142]
  251. 3040 [158]bo,0,39,0,20,0,7[170]16:[158]bo,1,38,1,19,160,3:of[178]0
  252. 3050 [158]bo,2,18,2,17,32,0:[158]bo,21,37,2,17,32,0
  253. 3055 [153]"open";:[158]36864[170]9,1,f$(0)
  254. 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)
  255. 3070 [130]
  256. 3080 [158]mo[170]12,2,18,"tantantan next page tantantan":[158]mo[170]12,21,18,"tantantan exit menu tantantan"
  257. 3090 [158]mo[170]6:[158]36864[170]12,2,2,18,21,37,17,3,1,133:[161]a$
  258. 3100 f%[178][194](781)[170][194](780)[172]17[170]1:[139]f%[178]34[167]f%[178]0:[142]
  259. 3105 [139]f%[179][177]34[175]f%[179][177]17[167]f%[178]f%[170]of:[142]
  260. 3110 [139]f%[178]17[167][139]fi[177]32[167]of[178]of[170]32:[139]of[177]fi[167]of[178]0
  261. 3120 [139]f%[178]17[167]3050
  262. 4000 [153]"load"
  263. 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
  264. 4020 [142]
  265. 4100 [151]53248[170]21,0:[142]
  266. 4110 [151]53248[170]21,1:[142]
  267. 9999 [144]
  268. 10000 d[178][194](186)
  269. 10010 n$[178]"parapsychologist":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  270. 10020 :
  271. 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
  272. 40002 [151]53269,0:[158]mo[170]3
  273. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  274. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  275. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  276. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  277. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  278. 40060 [130]:[142]
  279. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  280. 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
  281. 40090 [153]" run:":[151]631,13:[151]632,13:[151]198,2:[128]
  282. 50000 [158]mo[170]12,15,10,"onelettwoletthreeletfourletfiveletsixletsevenleteightletnineletten
  283. 50005 sysmo+12,22,10,"one[136]two[136]three[136]four[136]five[136]six[136]seven[136]eight[136]nine[136]ten
  284. 50010 [158]mo[170]6:[158]36864[170]12,10,14,19,21,35,10,14,1,133
  285.