#Reaction4
new
grline 4,19,152,120,4
op "ds","  L  O  A  D  I  N  G ",2020,60
op "ds","    R E A C T I O N  ",9001,01
op "ds","P l e a s e   W a i t",1037,85

1  o=fn(42):dim k(100):k=100
2  a=4:b=25:c=30: o=fn(42)
4  if k>100 then k=100
6 for n=1 to 30

10 op "ds","By T J Livett  v1.0",9077,01

12 d=rnd(3)+1
14 e=rnd(3)+1
16 if d=1 then let g=20
18  if d=2 then let g=60
20 if d=3 then let g=100

22 if e=1 then let h=25
24 if e=2 then let h=65
26 if e=3 then let h=105

28 k$="Reaction Time"
30 op "ds", (k$),44,51
32 op "ds", str$(k),104,51

34 if k=100 then k$="Tap Black square to start"
36 if k=100 then op "ds", (k$),25,91

38 if k>100 then k$="Try to hit black square"
40 if k>100 then op "ds", (k$),33,91
41 op "it", ""

42 if k<100 then k$="Level One": op "ds", (k$),55,91
44 if k=80 then ?"    You Have Normal Reactions":k=79

49 if k<80 then k$="Level Two": op "ds", (k$),55,91
50 if k=60 then ?"            Fast Response Time":k=59

52 if k<60 then k$="Level Three": op "ds", (k$),55,91
54 if k=45then ? "You Have Very Quick Reactions":k=44

56 if k<45 then k$=" Level Four   ": op "ds", (k$),55,91
58 if k=30 then ?"Supper Fast Reactions":k=29

60 if k<30 then k$="Level Five ": op "ds", (k$),55,91
61 if k=24 then ?"You Have Totally Amazing Speed": k=100

62 for n=0 to 100 step 40
64 grline 20,25,c,b,a
66 grline 20,65,c,b,a
68 grline 20,105,c,b,a

70 grline 60,25,c,b,a
72 grline 60,105,c,b,a
74 grline 60,65,c,b,a

76 grline 100,25,c,b,a
78 grline 100,65,c,b,a
80 grline 100,105,c,b,a

82 for p=1 to  k
84 grline g,h,30,25,7
86 next p
88 next n

90 t1=fn 34
92 t2=fn 34
94 x=peek(0x1c4,2)
96 y=peek(0x1c6,2)
98 a=4:b=25:c=30

100 if (x<60) and (y<50) then goto 120
101 if (x<100)  and (y<50) then goto 122
102 if (x<140)  and (y<50) then goto 124

103 if (x<60)  and (y<90) then goto 130
104 if (x<100)  and (y<90) then goto 132
105 if (x<140)  and (y<90) then goto 134

106 if (x<60)  and (y<130) then goto 140
108 if (x<100)  and (y<130) then goto 142
110 if (x<140)  and (y<130) then goto 144
112 goto 2
120 if h=25 and g=20 then k=k-1:goto 2
121 k=k+1: goto 2
122 if h=25 and g=60 then k=k-1:goto 2
123  k=k+1: goto 2
124 if h=25 and g=100 then k=k-1:goto 2
125  k=k+1: goto 2
130 if h=65 and g=20 then k=k-1:goto 2
131  k=k+1: goto 2
132 if h=65 and g=60 then k=k-1:goto 2
133  k=k+1: goto 2
134 if h=65 and g=100 then k=k-1:goto 2
135  k=k+1: goto 2
140 if h=105 and g=20 then k=k-1:goto 2
141  k=k+1: goto 2
142 if h=105 and g=60 then k=k-1:goto 2
143  k=k+1: goto 2
144 if h=105 and g=100 then k=k-1:goto 2
150 k=k+1:goto 2

run