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