Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF » GAMES2/REACTION

GAMES2/REACTION

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF
Filename: GAMES2/REACTION
Read OK: ✔
File size: 069E bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10 REM (C) ELECTRON USER
   20 REM BY PETE DAVIDSON
   30MODE4:DIMM$(7):VDU19,0,4,0,0,0:PROCINIT  
   40PROCWAIT
   50PROCTEST
   60PROCMESSAGE
   70*FX15,1
   80A=GET:RUN
   90END
  100DEFPROCINIT
  110CLS:PRINT''"          REACTION  TESTER"
  120PRINT"          ________________"
  130PRINT'"     Use this program to test your"
  140PRINT"reactions."
  150PRINT"                                        ";
  160PRINT'"     The white bar which will appear on"
  170PRINT"the left of the screen will change"
  180PRINT"colour. It will follow the sequence of"
  190PRINT"traffic lights (red, yellow, green)."
  200PRINT"Each time the colour changes, you will"
  210PRINT"hear a beep."
  220PRINT"                                        ";
  230PRINT'"     Press the space bar as soon as the"
  240PRINT"colour changes to green (at the third"
  250PRINT"beep)."
  260PRINT"                                        ";
  270PRINT'"     Your time and rating will then be"
  280PRINT"given."
  290PRINT"                                        ";
  300PRINT'"     Press any key to start the test!";
  310*FX15,1
  320A=GET:CLS
  330VDU20,23,255,255,255,255,255,255,255,255,255
  340A$=CHR$255+CHR$255+CHR$255:B$=CHR$32+CHR$32+CHR$32
  350FORI%=1TO30:PRINTTAB(8)A$:NEXT
  360FORI=0TO7:READM$(I):NEXT
  370I%=0:X=RND(-TIME)
  380*FX15,1
  390ENDPROC
  400DEFPROCWAIT
  410N%=1:PROCCOLOUR:N%=3:PROCCOLOUR:*FX15,1
  420N%=2:PROCCOLOUR
  430ENDPROC
  440DEFPROCTEST
  450IFINKEY(0)<>-1THENPROCTOOSOON:RUN
  460PRINTTAB(18,8)"Time="TAB(12,12)"Hundredths of a second"TAB(0,0);
  470TIME=0:REPEATPRINTTAB(8,I%)B$:PRINTTAB(12,10)TIME:I%=I%+1:UNTILI%=30ORINKEY(-99):T%=TIME
  480ENDPROC
  490DEFPROCCOLOUR
  500FORI=1TO1000+RND(3000):NEXT:VDU19,1,N%,0,0,0,7
  510ENDPROC
  520DEFPROCTOOSOON
  530CLS:PRINTTAB(1,10)"WAIT FOR THE GREEN LIGHT!!!!":FORI=1TO1000:NEXT:*FX15,1
  540A=INKEY(3000)
  550ENDPROC
  560DEFPROCMESSAGE
  570CLS:PRINTTAB(0,10)"You took "STR$(T%-1)" hundredths of a second"''"you are "M$(T%/10)
  580FORI=1TO1000:NEXT:*FX15,1
  590PRINT''''''"          PRESS ANY KEY"
  600ENDPROC
  610DATAEXCELLENT,VERY GOOD,GOOD,RATHER POOR,POOR,DISGRACEFUL,NEARLY ASLEEP,ASLEEP


 � (C) ELECTRON USER
 � BY PETE DAVIDSON
#�4:�M$(7):�19,0,4,0,0,0:�INIT  
(	�WAIT
2	�TEST
<�MESSAGE
F*FX15,1
P	A=�:�
Z�
d
��INIT
n%�:�''"          REACTION  TESTER"
x!�"          ________________"
�*�'"     Use this program to test your"
��"reactions."
�0�"                                        ";
�/�'"     The white bar which will appear on"
�)�"the left of the screen will change"
�-�"colour. It will follow the sequence of"
�+�"traffic lights (red, yellow, green)."
�-�"Each time the colour changes, you will"
��"hear a beep."
�0�"                                        ";
�/�'"     Press the space bar as soon as the"
�,�"colour changes to green (at the third"
�
�"beep)."
0�"                                        ";
.�'"     Your time and rating will then be"

�"given."
"0�"                                        ";
,.�'"     Press any key to start the test!";
6*FX15,1
@	A=�:�
J.�20,23,255,255,255,255,255,255,255,255,255
T$A$=�255+�255+�255:B$=�32+�32+�32
^�I%=1�30:�8)A$:�
h�I=0�7:�M$(I):�
rI%=0:X=�(-�)
|*FX15,1
��
�
��WAIT
�%N%=1:�COLOUR:N%=3:�COLOUR:*FX15,1
�N%=2:�COLOUR
��
�
��TEST
��(0)<>-1��TOOSOON:�
�7�18,8)"Time="�12,12)"Hundredths of a second"�0,0);
�7�=0:��8,I%)B$:�12,10)�:I%=I%+1:�I%=30��(-99):T%=�
��
���COLOUR
�(�I=1�1000+�(3000):�:�19,1,N%,0,0,0,7
��

��TOOSOON
?�:�1,10)"WAIT FOR THE GREEN LIGHT!!!!":�I=1�1000:�:*FX15,1

A=�(3000)
&�
0
��MESSAGE
:M�:�0,10)"You took "�(T%-1)" hundredths of a second"''"you are "M$(T%/10)
D�I=1�1000:�:*FX15,1
N$�''''''"          PRESS ANY KEY"
X�
bO�EXCELLENT,VERY GOOD,GOOD,RATHER POOR,POOR,DISGRACEFUL,NEARLY ASLEEP,ASLEEP
�
00000000  0d 00 0a 18 20 f4 20 28  43 29 20 45 4c 45 43 54  |.... . (C) ELECT|
00000010  52 4f 4e 20 55 53 45 52  0d 00 14 17 20 f4 20 42  |RON USER.... . B|
00000020  59 20 50 45 54 45 20 44  41 56 49 44 53 4f 4e 0d  |Y PETE DAVIDSON.|
00000030  00 1e 23 eb 34 3a de 4d  24 28 37 29 3a ef 31 39  |..#.4:.M$(7):.19|
00000040  2c 30 2c 34 2c 30 2c 30  2c 30 3a f2 49 4e 49 54  |,0,4,0,0,0:.INIT|
00000050  20 20 0d 00 28 09 f2 57  41 49 54 0d 00 32 09 f2  |  ..(..WAIT..2..|
00000060  54 45 53 54 0d 00 3c 0c  f2 4d 45 53 53 41 47 45  |TEST..<..MESSAGE|
00000070  0d 00 46 0b 2a 46 58 31  35 2c 31 0d 00 50 09 41  |..F.*FX15,1..P.A|
00000080  3d a5 3a f9 0d 00 5a 05  e0 0d 00 64 0a dd f2 49  |=.:...Z....d...I|
00000090  4e 49 54 0d 00 6e 25 db  3a f1 27 27 22 20 20 20  |NIT..n%.:.''"   |
000000a0  20 20 20 20 20 20 20 52  45 41 43 54 49 4f 4e 20  |       REACTION |
000000b0  20 54 45 53 54 45 52 22  0d 00 78 21 f1 22 20 20  | TESTER"..x!."  |
000000c0  20 20 20 20 20 20 20 20  5f 5f 5f 5f 5f 5f 5f 5f  |        ________|
000000d0  5f 5f 5f 5f 5f 5f 5f 5f  22 0d 00 82 2a f1 27 22  |________"...*.'"|
000000e0  20 20 20 20 20 55 73 65  20 74 68 69 73 20 70 72  |     Use this pr|
000000f0  6f 67 72 61 6d 20 74 6f  20 74 65 73 74 20 79 6f  |ogram to test yo|
00000100  75 72 22 0d 00 8c 11 f1  22 72 65 61 63 74 69 6f  |ur"....."reactio|
00000110  6e 73 2e 22 0d 00 96 30  f1 22 20 20 20 20 20 20  |ns."...0."      |
00000120  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000140  20 20 22 3b 0d 00 a0 2f  f1 27 22 20 20 20 20 20  |  ";.../.'"     |
00000150  54 68 65 20 77 68 69 74  65 20 62 61 72 20 77 68  |The white bar wh|
00000160  69 63 68 20 77 69 6c 6c  20 61 70 70 65 61 72 20  |ich will appear |
00000170  6f 6e 22 0d 00 aa 29 f1  22 74 68 65 20 6c 65 66  |on"...)."the lef|
00000180  74 20 6f 66 20 74 68 65  20 73 63 72 65 65 6e 20  |t of the screen |
00000190  77 69 6c 6c 20 63 68 61  6e 67 65 22 0d 00 b4 2d  |will change"...-|
000001a0  f1 22 63 6f 6c 6f 75 72  2e 20 49 74 20 77 69 6c  |."colour. It wil|
000001b0  6c 20 66 6f 6c 6c 6f 77  20 74 68 65 20 73 65 71  |l follow the seq|
000001c0  75 65 6e 63 65 20 6f 66  22 0d 00 be 2b f1 22 74  |uence of"...+."t|
000001d0  72 61 66 66 69 63 20 6c  69 67 68 74 73 20 28 72  |raffic lights (r|
000001e0  65 64 2c 20 79 65 6c 6c  6f 77 2c 20 67 72 65 65  |ed, yellow, gree|
000001f0  6e 29 2e 22 0d 00 c8 2d  f1 22 45 61 63 68 20 74  |n)."...-."Each t|
00000200  69 6d 65 20 74 68 65 20  63 6f 6c 6f 75 72 20 63  |ime the colour c|
00000210  68 61 6e 67 65 73 2c 20  79 6f 75 20 77 69 6c 6c  |hanges, you will|
00000220  22 0d 00 d2 13 f1 22 68  65 61 72 20 61 20 62 65  |"....."hear a be|
00000230  65 70 2e 22 0d 00 dc 30  f1 22 20 20 20 20 20 20  |ep."...0."      |
00000240  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000260  20 20 22 3b 0d 00 e6 2f  f1 27 22 20 20 20 20 20  |  ";.../.'"     |
00000270  50 72 65 73 73 20 74 68  65 20 73 70 61 63 65 20  |Press the space |
00000280  62 61 72 20 61 73 20 73  6f 6f 6e 20 61 73 20 74  |bar as soon as t|
00000290  68 65 22 0d 00 f0 2c f1  22 63 6f 6c 6f 75 72 20  |he"...,."colour |
000002a0  63 68 61 6e 67 65 73 20  74 6f 20 67 72 65 65 6e  |changes to green|
000002b0  20 28 61 74 20 74 68 65  20 74 68 69 72 64 22 0d  | (at the third".|
000002c0  00 fa 0d f1 22 62 65 65  70 29 2e 22 0d 01 04 30  |...."beep)."...0|
000002d0  f1 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |."              |
000002e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002f0  20 20 20 20 20 20 20 20  20 20 22 3b 0d 01 0e 2e  |          ";....|
00000300  f1 27 22 20 20 20 20 20  59 6f 75 72 20 74 69 6d  |.'"     Your tim|
00000310  65 20 61 6e 64 20 72 61  74 69 6e 67 20 77 69 6c  |e and rating wil|
00000320  6c 20 74 68 65 6e 20 62  65 22 0d 01 18 0d f1 22  |l then be"....."|
00000330  67 69 76 65 6e 2e 22 0d  01 22 30 f1 22 20 20 20  |given.".."0."   |
00000340  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000360  20 20 20 20 20 22 3b 0d  01 2c 2e f1 27 22 20 20  |     ";..,..'"  |
00000370  20 20 20 50 72 65 73 73  20 61 6e 79 20 6b 65 79  |   Press any key|
00000380  20 74 6f 20 73 74 61 72  74 20 74 68 65 20 74 65  | to start the te|
00000390  73 74 21 22 3b 0d 01 36  0b 2a 46 58 31 35 2c 31  |st!";..6.*FX15,1|
000003a0  0d 01 40 09 41 3d a5 3a  db 0d 01 4a 2e ef 32 30  |..@.A=.:...J..20|
000003b0  2c 32 33 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |,23,255,255,255,|
000003c0  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
000003d0  32 35 35 2c 32 35 35 0d  01 54 24 41 24 3d bd 32  |255,255..T$A$=.2|
000003e0  35 35 2b bd 32 35 35 2b  bd 32 35 35 3a 42 24 3d  |55+.255+.255:B$=|
000003f0  bd 33 32 2b bd 33 32 2b  bd 33 32 0d 01 5e 15 e3  |.32+.32+.32..^..|
00000400  49 25 3d 31 b8 33 30 3a  f1 8a 38 29 41 24 3a ed  |I%=1.30:..8)A$:.|
00000410  0d 01 68 13 e3 49 3d 30  b8 37 3a f3 4d 24 28 49  |..h..I=0.7:.M$(I|
00000420  29 3a ed 0d 01 72 10 49  25 3d 30 3a 58 3d b3 28  |):...r.I%=0:X=.(|
00000430  2d 91 29 0d 01 7c 0b 2a  46 58 31 35 2c 31 0d 01  |-.)..|.*FX15,1..|
00000440  86 05 e1 0d 01 90 0a dd  f2 57 41 49 54 0d 01 9a  |.........WAIT...|
00000450  25 4e 25 3d 31 3a f2 43  4f 4c 4f 55 52 3a 4e 25  |%N%=1:.COLOUR:N%|
00000460  3d 33 3a f2 43 4f 4c 4f  55 52 3a 2a 46 58 31 35  |=3:.COLOUR:*FX15|
00000470  2c 31 0d 01 a4 10 4e 25  3d 32 3a f2 43 4f 4c 4f  |,1....N%=2:.COLO|
00000480  55 52 0d 01 ae 05 e1 0d  01 b8 0a dd f2 54 45 53  |UR...........TES|
00000490  54 0d 01 c2 18 e7 a6 28  30 29 3c 3e 2d 31 8c f2  |T......(0)<>-1..|
000004a0  54 4f 4f 53 4f 4f 4e 3a  f9 0d 01 cc 37 f1 8a 31  |TOOSOON:....7..1|
000004b0  38 2c 38 29 22 54 69 6d  65 3d 22 8a 31 32 2c 31  |8,8)"Time=".12,1|
000004c0  32 29 22 48 75 6e 64 72  65 64 74 68 73 20 6f 66  |2)"Hundredths of|
000004d0  20 61 20 73 65 63 6f 6e  64 22 8a 30 2c 30 29 3b  | a second".0,0);|
000004e0  0d 01 d6 37 d1 3d 30 3a  f5 f1 8a 38 2c 49 25 29  |...7.=0:...8,I%)|
000004f0  42 24 3a f1 8a 31 32 2c  31 30 29 91 3a 49 25 3d  |B$:..12,10).:I%=|
00000500  49 25 2b 31 3a fd 49 25  3d 33 30 84 a6 28 2d 39  |I%+1:.I%=30..(-9|
00000510  39 29 3a 54 25 3d 91 0d  01 e0 05 e1 0d 01 ea 0c  |9):T%=..........|
00000520  dd f2 43 4f 4c 4f 55 52  0d 01 f4 28 e3 49 3d 31  |..COLOUR...(.I=1|
00000530  b8 31 30 30 30 2b b3 28  33 30 30 30 29 3a ed 3a  |.1000+.(3000):.:|
00000540  ef 31 39 2c 31 2c 4e 25  2c 30 2c 30 2c 30 2c 37  |.19,1,N%,0,0,0,7|
00000550  0d 01 fe 05 e1 0d 02 08  0d dd f2 54 4f 4f 53 4f  |...........TOOSO|
00000560  4f 4e 0d 02 12 3f db 3a  f1 8a 31 2c 31 30 29 22  |ON...?.:..1,10)"|
00000570  57 41 49 54 20 46 4f 52  20 54 48 45 20 47 52 45  |WAIT FOR THE GRE|
00000580  45 4e 20 4c 49 47 48 54  21 21 21 21 22 3a e3 49  |EN LIGHT!!!!":.I|
00000590  3d 31 b8 31 30 30 30 3a  ed 3a 2a 46 58 31 35 2c  |=1.1000:.:*FX15,|
000005a0  31 0d 02 1c 0d 41 3d a6  28 33 30 30 30 29 0d 02  |1....A=.(3000)..|
000005b0  26 05 e1 0d 02 30 0d dd  f2 4d 45 53 53 41 47 45  |&....0...MESSAGE|
000005c0  0d 02 3a 4d db 3a f1 8a  30 2c 31 30 29 22 59 6f  |..:M.:..0,10)"Yo|
000005d0  75 20 74 6f 6f 6b 20 22  c3 28 54 25 2d 31 29 22  |u took ".(T%-1)"|
000005e0  20 68 75 6e 64 72 65 64  74 68 73 20 6f 66 20 61  | hundredths of a|
000005f0  20 73 65 63 6f 6e 64 22  27 27 22 79 6f 75 20 61  | second"''"you a|
00000600  72 65 20 22 4d 24 28 54  25 2f 31 30 29 0d 02 44  |re "M$(T%/10)..D|
00000610  17 e3 49 3d 31 b8 31 30  30 30 3a ed 3a 2a 46 58  |..I=1.1000:.:*FX|
00000620  31 35 2c 31 0d 02 4e 24  f1 27 27 27 27 27 27 22  |15,1..N$.''''''"|
00000630  20 20 20 20 20 20 20 20  20 20 50 52 45 53 53 20  |          PRESS |
00000640  41 4e 59 20 4b 45 59 22  0d 02 58 05 e1 0d 02 62  |ANY KEY"..X....b|
00000650  4f dc 45 58 43 45 4c 4c  45 4e 54 2c 56 45 52 59  |O.EXCELLENT,VERY|
00000660  20 47 4f 4f 44 2c 47 4f  4f 44 2c 52 41 54 48 45  | GOOD,GOOD,RATHE|
00000670  52 20 50 4f 4f 52 2c 50  4f 4f 52 2c 44 49 53 47  |R POOR,POOR,DISG|
00000680  52 41 43 45 46 55 4c 2c  4e 45 41 52 4c 59 20 41  |RACEFUL,NEARLY A|
00000690  53 4c 45 45 50 2c 41 53  4c 45 45 50 0d ff        |SLEEP,ASLEEP..|
0000069e
GAMES2/REACTION.m0
GAMES2/REACTION.m1
GAMES2/REACTION.m2
GAMES2/REACTION.m4
GAMES2/REACTION.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .