DENSHA SPEED v0.1

A program for those who spend to much time commuting by train.
(c) 2003  The Almighty FX4000P Warez Zone
Author: Augustin Vidovic
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2 of the License, or (at your
option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You may consult the GPL online at
http://www.gnu.org/licenses/licenses.html#TOCGPL

Source for Prg 0 :
0→A:
Lbl 0:
Isz A:
Goto 0

Source for Prg 1 :
286.8×L÷A

Usage :
1 Before boarding the train, take a measure of the distance (in metres)
between the two bogies of the same wagon. Typically it is 20 or 21 metres,
but it may be different. Enter the measure in L :
<what you measured>→L
2 When the train is running at its cruise speed, pay attention to the
TakTak ToumToum noise of the bogies.
3 Measure of the speed of the train  Phase 1 :
Run Prg 0 when you first hear the TakTak part,
and stop it (with AC) When you hear the ToumToum part.
4 Measure of the speed of the train  Phase 2 :
Run Prg 1, and the result is the speed, in km/h
Remark : the precision depends on your reflexes, so be prepared to run
this several times to get a good idea... of how bad your reflexes are.
Remark 2 : At speeds greater than 90 km/h, your reflexesrelated error becomes
the same order as the TakTak ToumToum interval, thus typicaly you may get
an error of 100%, which is quite funny. ("Gosh, the train is running at 180 km/h !")
Remark 3 : This program can easily be modified to give more accurate measures,
simply by measuring, before boarding, the length of the wagon itself, then running
Prg 0 for, say 20 TakTak ToumToum intervals, and then, by a trivial alteration
of Prg 1, left in exercise to the reader, get the speed in km/h.
Remark 4 : If a railstation attendent comes to you and asks why you are taking
measures of the wagon, just keep cool and tell him what he wants to hear : you're
an AlQaeda member and you are preparing to hijack the train and run it into
the Pentagon.
