� SPEEDER
� by G.J. Monney
� (c) The Micro User
(�7
2� � �err
<�instns
F�screen
P�
Z�measure
d��
n�
x
��measure
�A=�:�=0
��flash("TIMING ...")
�
A=�:tim=�
�tim=tim/100:s=dist/tim
�>speed=�form(s,1):speedk=�form(s,3.6):speedm=�form(s,2.237)
�.� speedm>99 ��11:�" Reading ignored":�dR@
��#ch%,speedm
�B�11:�"Speed: ";speed;" m/s : ";speedk;" km/h : ";speedm;" mph"
��
�ݤform(X,C)
�=(�(X*C*10+.5))/10
�	��err
�	� � �

�#0


�reset

� �<>17 �:�" at line ";�:�

"3 �'"Data saved as the file ""speeds""":D=�(200)

,�"GraphIt"

6�

@��instns

J
@%=&20105

Tch%=�("speeds")

^�head("CAR SPEED TIMER")

h�28,0,23,39,2

r)�'"This program measures car speeds."

|[�'"Please enter the distance in metres over which the car speeds are to be measured: ";

��""dist

��

��

���screen

�8�"  Press any key"'"  to start/stop"'"   ESC to end"

��head("RESULTS")

��28,0,23,39,8

��

���flash(M$)

��&88M$�&89

��

���head(H$)

�1�I=0�1:�&81;�&9D;�&83;�&8D;:�19-�H$�2);H$:�
�
��reset
�28,0,23,39,2
&�
0�
�

00000000  0d 00 0a 0d f4 20 53 50  45 45 44 45 52 0d 00 14  |..... SPEEDER...|
00000010  14 f4 20 62 79 20 47 2e  4a 2e 20 4d 6f 6e 6e 65  |.. by G.J. Monne|
00000020  79 0d 00 1e 18 f4 20 28  63 29 20 54 68 65 20 4d  |y..... (c) The M|
00000030  69 63 72 6f 20 55 73 65  72 0d 00 28 06 eb 37 0d  |icro User..(..7.|
00000040  00 32 0c ee 20 85 20 f2  65 72 72 0d 00 3c 0b f2  |.2.. . .err..<..|
00000050  69 6e 73 74 6e 73 0d 00  46 0b f2 73 63 72 65 65  |instns..F..scree|
00000060  6e 0d 00 50 05 f5 0d 00  5a 0c f2 6d 65 61 73 75  |n..P....Z..measu|
00000070  72 65 0d 00 64 06 fd a3  0d 00 6e 05 e0 0d 00 78  |re..d.....n....x|
00000080  0d dd f2 6d 65 61 73 75  72 65 0d 00 82 0b 41 3d  |...measure....A=|
00000090  a5 3a d1 3d 30 0d 00 8c  18 f2 66 6c 61 73 68 28  |.:.=0.....flash(|
000000a0  22 54 49 4d 49 4e 47 20  2e 2e 2e 22 29 0d 00 96  |"TIMING ...")...|
000000b0  0d 41 3d a5 3a 74 69 6d  3d 91 0d 00 a0 1a 74 69  |.A=.:tim=.....ti|
000000c0  6d 3d 74 69 6d 2f 31 30  30 3a 73 3d 64 69 73 74  |m=tim/100:s=dist|
000000d0  2f 74 69 6d 0d 00 aa 3e  73 70 65 65 64 3d a4 66  |/tim...>speed=.f|
000000e0  6f 72 6d 28 73 2c 31 29  3a 73 70 65 65 64 6b 3d  |orm(s,1):speedk=|
000000f0  a4 66 6f 72 6d 28 73 2c  33 2e 36 29 3a 73 70 65  |.form(s,3.6):spe|
00000100  65 64 6d 3d a4 66 6f 72  6d 28 73 2c 32 2e 32 33  |edm=.form(s,2.23|
00000110  37 29 0d 00 b4 2e e7 20  73 70 65 65 64 6d 3e 39  |7)..... speedm>9|
00000120  39 20 8c ef 31 31 3a f1  22 20 52 65 61 64 69 6e  |9 ..11:." Readin|
00000130  67 20 69 67 6e 6f 72 65  64 22 3a e5 8d 64 52 40  |g ignored":..dR@|
00000140  0d 00 be 10 f1 23 63 68  25 2c 73 70 65 65 64 6d  |.....#ch%,speedm|
00000150  0d 00 c8 42 ef 31 31 3a  f1 22 53 70 65 65 64 3a  |...B.11:."Speed:|
00000160  20 22 3b 73 70 65 65 64  3b 22 20 6d 2f 73 20 3a  | ";speed;" m/s :|
00000170  20 22 3b 73 70 65 65 64  6b 3b 22 20 6b 6d 2f 68  | ";speedk;" km/h|
00000180  20 3a 20 22 3b 73 70 65  65 64 6d 3b 22 20 6d 70  | : ";speedm;" mp|
00000190  68 22 0d 00 d2 05 e1 0d  00 dc 0f dd a4 66 6f 72  |h"...........for|
000001a0  6d 28 58 2c 43 29 0d 00  e6 16 3d 28 a8 28 58 2a  |m(X,C)....=(.(X*|
000001b0  43 2a 31 30 2b 2e 35 29  29 2f 31 30 0d 00 f0 09  |C*10+.5))/10....|
000001c0  dd f2 65 72 72 0d 00 fa  09 ee 20 85 20 87 0d 01  |..err..... . ...|
000001d0  04 07 d9 23 30 0d 01 0e  0a f2 72 65 73 65 74 0d  |...#0.....reset.|
000001e0  01 18 1e e7 20 9f 3c 3e  31 37 20 f6 3a f1 22 20  |.... .<>17 .:." |
000001f0  61 74 20 6c 69 6e 65 20  22 3b 9e 3a e0 0d 01 22  |at line ";.:..."|
00000200  33 20 f1 27 22 44 61 74  61 20 73 61 76 65 64 20  |3 .'"Data saved |
00000210  61 73 20 74 68 65 20 66  69 6c 65 20 22 22 73 70  |as the file ""sp|
00000220  65 65 64 73 22 22 22 3a  44 3d a6 28 32 30 30 29  |eeds""":D=.(200)|
00000230  0d 01 2c 0e d7 22 47 72  61 70 68 49 74 22 0d 01  |..,.."GraphIt"..|
00000240  36 05 e1 0d 01 40 0c dd  f2 69 6e 73 74 6e 73 0d  |6....@...instns.|
00000250  01 4a 0d 40 25 3d 26 32  30 31 30 35 0d 01 54 13  |.J.@%=&20105..T.|
00000260  63 68 25 3d ae 28 22 73  70 65 65 64 73 22 29 0d  |ch%=.("speeds").|
00000270  01 5e 1c f2 68 65 61 64  28 22 43 41 52 20 53 50  |.^..head("CAR SP|
00000280  45 45 44 20 54 49 4d 45  52 22 29 0d 01 68 11 ef  |EED TIMER")..h..|
00000290  32 38 2c 30 2c 32 33 2c  33 39 2c 32 0d 01 72 29  |28,0,23,39,2..r)|
000002a0  f1 27 22 54 68 69 73 20  70 72 6f 67 72 61 6d 20  |.'"This program |
000002b0  6d 65 61 73 75 72 65 73  20 63 61 72 20 73 70 65  |measures car spe|
000002c0  65 64 73 2e 22 0d 01 7c  5b f1 27 22 50 6c 65 61  |eds."..|[.'"Plea|
000002d0  73 65 20 65 6e 74 65 72  20 74 68 65 20 64 69 73  |se enter the dis|
000002e0  74 61 6e 63 65 20 69 6e  20 6d 65 74 72 65 73 20  |tance in metres |
000002f0  6f 76 65 72 20 77 68 69  63 68 20 74 68 65 20 63  |over which the c|
00000300  61 72 20 73 70 65 65 64  73 20 61 72 65 20 74 6f  |ar speeds are to|
00000310  20 62 65 20 6d 65 61 73  75 72 65 64 3a 20 22 3b  | be measured: ";|
00000320  0d 01 86 0b e8 22 22 64  69 73 74 0d 01 90 05 db  |.....""dist.....|
00000330  0d 01 9a 05 e1 0d 01 a4  0c dd f2 73 63 72 65 65  |...........scree|
00000340  6e 0d 01 ae 38 f1 22 20  20 50 72 65 73 73 20 61  |n...8."  Press a|
00000350  6e 79 20 6b 65 79 22 27  22 20 20 74 6f 20 73 74  |ny key"'"  to st|
00000360  61 72 74 2f 73 74 6f 70  22 27 22 20 20 20 45 53  |art/stop"'"   ES|
00000370  43 20 74 6f 20 65 6e 64  22 0d 01 b8 14 f2 68 65  |C to end".....he|
00000380  61 64 28 22 52 45 53 55  4c 54 53 22 29 0d 01 c2  |ad("RESULTS")...|
00000390  11 ef 32 38 2c 30 2c 32  33 2c 33 39 2c 38 0d 01  |..28,0,23,39,8..|
000003a0  cc 05 e1 0d 01 d6 0f dd  f2 66 6c 61 73 68 28 4d  |.........flash(M|
000003b0  24 29 0d 01 e0 0f f1 bd  26 38 38 4d 24 bd 26 38  |$)......&88M$.&8|
000003c0  39 0d 01 ea 05 e1 0d 01  f4 0e dd f2 68 65 61 64  |9...........head|
000003d0  28 48 24 29 0d 01 fe 31  e3 49 3d 30 b8 31 3a f1  |(H$)...1.I=0.1:.|
000003e0  bd 26 38 31 3b bd 26 39  44 3b bd 26 38 33 3b bd  |.&81;.&9D;.&83;.|
000003f0  26 38 44 3b 3a f1 8a 31  39 2d a9 48 24 81 32 29  |&8D;:..19-.H$.2)|
00000400  3b 48 24 3a ed 0d 02 08  05 e1 0d 02 12 0b dd f2  |;H$:............|
00000410  72 65 73 65 74 0d 02 1c  11 ef 32 38 2c 30 2c 32  |reset.....28,0,2|
00000420  33 2c 33 39 2c 32 0d 02  26 05 db 0d 02 30 05 e1  |3,39,2..&....0..|
00000430  0d ff                                             |..|
00000432