Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav » reaction

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 » Commodore tapes » Commodore_16 » drawer_br_tape03b_c16_basic2.wav
Filename: reaction
Read OK: ✔
File size: 0263 bytes
Load address: 1001
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    10 REM REACTION TIME PROGRAM
    20 PRINT"<clr><black>"
    30 PRINT"TO MEASURE YOUR REACTION TIME HIT ANY"
    40 PRINT"KEY, AND THEN WAIT FOR THE TONE."
    50 PRINT"WHEN YOU HEAR IT, STRIKE ANY KEY AS"
    60 PRINT"FAST AS YOU CAN.  GOOD LUCK!"
    70 REM WAIT FOR ANY KEY
    80 GET A$
    90 IF A$=""THEN80
   100 REM WAIT A RANDOM TIME
   110 PRINT
   120 PRINT"WAIT FOR IT!"
   130 PRINT
   140 Q=TI+INT(60+301*RND(0))
   150 GET A$
   160 IFA$<>""THEN 310
   170 IF TI<Q THEN 150
   180 REM START TONE AND NOTE TIME
   190 VOL 7
   200 SOUND1,950,4
   210 X=TI
   220 REM WAIT FOR ANY KEY
   230 GET A$
   240 IFA$=""THEN230
   250 REM GET RESULT
   260 R=TI
   270 REM DISPLAY RESULT
   280 PRINT"YOUR REACTION TIME IS"
   290 PRINT(R-X)/60;"SECONDS"
   300 STOP
   310 PRINT"TOO SOON"
   320 STOP



� REACTION TIME PROGRAM'�"��"T�"TO MEASURE YOUR REACTION TIME HIT ANY"|(�"KEY, AND THEN WAIT FOR THE TONE."�2�"WHEN YOU HEAR IT, STRIKE ANY KEY AS"�<�"FAST AS YOU CAN.  GOOD LUCK!"�F� WAIT FOR ANY KEY�P� A$�Z� A$�""�80d� WAIT A RANDOM TIMEn�-x�"WAIT FOR IT!"3��K�Q�TI��(60�301��(0))T�� A$e��A$��""� 310v�� TI�Q � 150��� START TONE AND NOTE TIME��� 7���1,950,4��X�TI��� WAIT FOR ANY KEY��� A$���A$�""�230��� GET RESULT�R�TI� DISPLAY RESULT.�"YOUR REACTION TIME IS"F"�(R�X)�60;"SECONDS"L,�\6�"TOO SOON"b@�
]PJ@. reaction time program@'PT@.".."@tP.@."to measure your reaction time hit any"@.P(@."key, and then wait for the tone."@.P2@."when you hear it, strike any key as"@.P<@."fast as you can.  good luck!"@.Pf@. wait for any key@.Pp@. a$@.Pz@. a$."".80@SQD@. wait a random time@YQN@.@-QX@."wait for it!"@3Q.@.@kQ.@q.ti..(60.301..(0))@tQ.@. a$@EQ.@.a$.."". 310@VQ.@. ti.q . 150@.Q.@. start tone and note time@.Q.@. 7@.Q.@.1,950,4@.Q.@x.ti@.Q.@. wait for any key@.Q.@. a$@.Q.@.a$."".230@.Q.@. get result@.QDAr.ti@QRNA. display result@.RXA."your reaction time is"@fR"A.(r.x).60;"seconds"@lR,A.@£R6A."too soon"@BR@A.@@@
00000000  1d 10 0a 00 8f 20 52 45  41 43 54 49 4f 4e 20 54  |..... REACTION T|
00000010  49 4d 45 20 50 52 4f 47  52 41 4d 00 27 10 14 00  |IME PROGRAM.'...|
00000020  99 22 93 90 22 00 54 10  1e 00 99 22 54 4f 20 4d  |."..".T...."TO M|
00000030  45 41 53 55 52 45 20 59  4f 55 52 20 52 45 41 43  |EASURE YOUR REAC|
00000040  54 49 4f 4e 20 54 49 4d  45 20 48 49 54 20 41 4e  |TION TIME HIT AN|
00000050  59 22 00 7c 10 28 00 99  22 4b 45 59 2c 20 41 4e  |Y".|.(.."KEY, AN|
00000060  44 20 54 48 45 4e 20 57  41 49 54 20 46 4f 52 20  |D THEN WAIT FOR |
00000070  54 48 45 20 54 4f 4e 45  2e 22 00 a7 10 32 00 99  |THE TONE."...2..|
00000080  22 57 48 45 4e 20 59 4f  55 20 48 45 41 52 20 49  |"WHEN YOU HEAR I|
00000090  54 2c 20 53 54 52 49 4b  45 20 41 4e 59 20 4b 45  |T, STRIKE ANY KE|
000000a0  59 20 41 53 22 00 cb 10  3c 00 99 22 46 41 53 54  |Y AS"...<.."FAST|
000000b0  20 41 53 20 59 4f 55 20  43 41 4e 2e 20 20 47 4f  | AS YOU CAN.  GO|
000000c0  4f 44 20 4c 55 43 4b 21  22 00 e2 10 46 00 8f 20  |OD LUCK!"...F.. |
000000d0  57 41 49 54 20 46 4f 52  20 41 4e 59 20 4b 45 59  |WAIT FOR ANY KEY|
000000e0  00 eb 10 50 00 a1 20 41  24 00 fa 10 5a 00 8b 20  |...P.. A$...Z.. |
000000f0  41 24 b2 22 22 a7 38 30  00 13 11 64 00 8f 20 57  |A$."".80...d.. W|
00000100  41 49 54 20 41 20 52 41  4e 44 4f 4d 20 54 49 4d  |AIT A RANDOM TIM|
00000110  45 00 19 11 6e 00 99 00  2d 11 78 00 99 22 57 41  |E...n...-.x.."WA|
00000120  49 54 20 46 4f 52 20 49  54 21 22 00 33 11 82 00  |IT FOR IT!".3...|
00000130  99 00 4b 11 8c 00 51 b2  54 49 aa b5 28 36 30 aa  |..K...Q.TI..(60.|
00000140  33 30 31 ac bb 28 30 29  29 00 54 11 96 00 a1 20  |301..(0)).T.... |
00000150  41 24 00 65 11 a0 00 8b  41 24 b3 b1 22 22 a7 20  |A$.e....A$.."". |
00000160  33 31 30 00 76 11 aa 00  8b 20 54 49 b3 51 20 a7  |310.v.... TI.Q .|
00000170  20 31 35 30 00 95 11 b4  00 8f 20 53 54 41 52 54  | 150...... START|
00000180  20 54 4f 4e 45 20 41 4e  44 20 4e 4f 54 45 20 54  | TONE AND NOTE T|
00000190  49 4d 45 00 9d 11 be 00  db 20 37 00 aa 11 c8 00  |IME...... 7.....|
000001a0  da 31 2c 39 35 30 2c 34  00 b3 11 d2 00 58 b2 54  |.1,950,4.....X.T|
000001b0  49 00 ca 11 dc 00 8f 20  57 41 49 54 20 46 4f 52  |I...... WAIT FOR|
000001c0  20 41 4e 59 20 4b 45 59  00 d3 11 e6 00 a1 20 41  | ANY KEY...... A|
000001d0  24 00 e2 11 f0 00 8b 41  24 b2 22 22 a7 32 33 30  |$......A$."".230|
000001e0  00 f3 11 fa 00 8f 20 47  45 54 20 52 45 53 55 4c  |...... GET RESUL|
000001f0  54 00 fc 11 04 01 52 b2  54 49 00 11 12 0e 01 8f  |T.....R.TI......|
00000200  20 44 49 53 50 4c 41 59  20 52 45 53 55 4c 54 00  | DISPLAY RESULT.|
00000210  2e 12 18 01 99 22 59 4f  55 52 20 52 45 41 43 54  |....."YOUR REACT|
00000220  49 4f 4e 20 54 49 4d 45  20 49 53 22 00 46 12 22  |ION TIME IS".F."|
00000230  01 99 28 52 ab 58 29 ad  36 30 3b 22 53 45 43 4f  |..(R.X).60;"SECO|
00000240  4e 44 53 22 00 4c 12 2c  01 90 00 5c 12 36 01 99  |NDS".L.,...\.6..|
00000250  22 54 4f 4f 20 53 4f 4f  4e 22 00 62 12 40 01 90  |"TOO SOON".b.@..|
00000260  00 00 00                                          |...|
00000263

© Dominic Ford 2021–2024.

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