home *** CD-ROM | disk | FTP | other *** search
/ Avalon 6 / Avalon_06_1995_Avalon_Side_B.d64 / esp-test (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  104 lines
  1. 0 poke53272,21:poke53280,0:poke53281,0:print"[152]":poke808,234
  2. 500 print"[147]"spc(11)"*** esp test ***
  3. 510 [153]"this program tests one variety of
  4. 520 print"extra-sensory perception: the ability topredict future events.
  5. 530 [153]"i will select one of five symbols
  6. 540 print"randomly but will not disclose it until
  7. 550 [153]"you have recorded your prediction.
  8. 560 print"the five symbols are diamond, parallels,"
  9. 570 print"[145]cross, triangle, and square.
  10. 580 [153]"sketch them on a piece of paper or
  11. 590 print"remember the word 'depicts', which has
  12. 600 [153]"the initial consonants in order.
  13. 605 hc=0:cc=0
  14. 610 print"do you wish to see the symbols before
  15. 620 [153]"starting? press 'y' for yes, 'n' for no.
  16. 630 input y$: if y$="y" then f=1:goto1500
  17. 640 if y$="n" then 650
  18. 645 print" wrong key: try again.": goto 630
  19. 650 print"how many trials do you wish to make? i
  20. 660 [153]"suggest a minimum of 25 for statistical significance.
  21. 670 input n1
  22. 680 print"ok. enter your selection (d,p,c,t,or s)": goto 690
  23. 685 print"enter your next selection (d,p,t,c,or s)
  24. 690 [133] g$:[139] g$[178]"d" [167] g[178]1:[137] 1000
  25. 700 [139] g$[178]"p" [167] g[178]2:[137] 1000
  26. 710 [139] g$[178]"c" [167] g[178]3:[137] 1000
  27. 720 [139] g$[178]"t" [167] g[178]4:[137]1000
  28. 730 [139] g$[178]"s" [167] g[178]5:[137] 1000
  29. 740 [153]"wrong key: try again.": [137] 690
  30. 1000 d[178][181]([187](5)[172]5)[170]1
  31. 1020 [139] d[178]1 [137] 1070
  32. 1030 [139] d[178]2 [137] 1170
  33. 1040 [139] d[178]3 [137] 1200
  34. 1050 [139] d[178]4 [137] 1290
  35. 1060 [139] d[178]5 [137] 1400
  36. 1065 [144]: [143]: temp
  37. 1070 [153]"load"[166]19)"step(NULL)
  38. 1080 printspc(18)"[169][146][169][223][223]
  39. 1090 [153][166]17)"stepwaitstep  (NULL)(NULL)
  40. 1100 printspc(16)"[169][146][169]    [223][223]
  41. 1110 [153][166]15)"stepwaitstep      (NULL)(NULL)
  42. 1120 printspc(15)"[223][223][146]      [169][146][169]
  43. 1130 [153][166]16)"(NULL)(NULL)wait    stepwaitstep
  44. 1140 printspc(17)"[223][223][146]  [169][146][169]
  45. 1150 [153][166]18)"(NULL)(NULL)stepwaitstep
  46. 1160 printspc(19)"[223][169]
  47. 1165 [153]"print#":[139] f[178]1 [167] 1520
  48. 1166 [137] 1600
  49. 1170 [153]"load"[166]15)"usrusrusrusrusrusrusrusrusrusr
  50. 1180 printspc(15)"[175][175][175][175][175][175][175][175][175][175]
  51. 1190 [153]"print#":[139] f[178]1 [167] 1520
  52. 1191 [137] 1600
  53. 1200 [153]"loadfor"[166]19)" "
  54. 1210 [153][166]19)" "
  55. 1220 [153][166]19)" "
  56. 1230 [153][166]15)"newnewnewnew waitnewnewnewnew"
  57. 1240 [153][166]15)"frefrefrefreclosewaitfrefrefrefre"
  58. 1250 [153][166]19)" "
  59. 1260 [153][166]19)" "
  60. 1270 [153][166]19)" "
  61. 1280 [153]"print#":[139] f[178]1 [167] 1520
  62. 1281 [137] 1600
  63. 1290 [153]"loadverify"[166]19)"step(NULL)
  64. 1300 printspc(18)"[169][146][169][223][223]
  65. 1310 [153][166]17)"stepwaitstep  (NULL)(NULL)
  66. 1320 printspc(16)"[169][146][169]    [223][223]
  67. 1330 [153][166]15)"stepwaitstep      (NULL)(NULL)
  68. 1340 printspc(14)"[169][146][169]        [223][223]
  69. 1350 [153][166]14)"andandandandandandandandandandandand
  70. 1360 print"[152]":if f=1 then 1520
  71. 1361 goto1600
  72. 1400 print"[147]"spc(16)"[183][183][183][183][183][183][183][183]
  73. 1410 [129] w[178]1[164]6:[153][166]16)" wait       "
  74. 1420 [130] w
  75. 1430 [153][166]16)"andandandandandandandand
  76. 1440 print"[152]":if f=1 then 1520
  77. 1441 goto 1600
  78. 1500 for k=1 to 5
  79. 1501 d=k
  80. 1505 t=ti: goto1020
  81. 1520 if ti<>t+120 then 1520
  82. 1530 t=ti
  83. 1535 next k
  84. 1540 f=0: goto 650
  85. 1600 cc=cc+1
  86. 1610 if g=d then hc=hc+1: print"right!";: goto 1630
  87. 1620 print"wrong. ";
  88. 1630 printhc"correct out of"cc"trials."
  89. 1640 if cc=n1 goto1710
  90. 1700 goto685
  91. 1710 print"your predictions were"hc/cc*100"% correct.
  92. 1720 [153]"chance results would give 20% correct.
  93. 1730 print"your predictions had a critical ratio of";
  94. 1740 print(5*hc-n1)/(2*sqr(n1))"standard deviations."
  95. 1750 print"a figure greater than +2.7 s.d. would be";
  96. 1760 print"significantly high for a run of 25 or   more."
  97. 1770 print"another run? ('y' or 'n')";
  98. 1775 input y$
  99. 1780 if y$="y" goto 605
  100. 1790 if y$= "n" goto 1810
  101. 1800 print"wrong key: try again": goto 1775
  102. 1810 print"ok. it's been a pleasure to compute for"
  103. 1820 print"you. try me again soon!"
  104.