The Almighty FX-4000P Warez Zone

Submit your program! 

DENSHA SPEED v0.1
-----------------

A program for those who spend to much time commuting by train.

(c) 2003 - The Almighty FX-4000P 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
   Tak-Tak Toum-Toum noise of the bogies.

3- Measure of the speed of the train - Phase 1 :
   Run Prg 0 when you first hear the Tak-Tak part,
   and stop it (with AC) When you hear the Toum-Toum 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 reflexes-related error becomes
the same order as the Tak-Tak Toum-Toum 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 Tak-Tak Toum-Toum 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 Al-Qaeda member and you are preparing to hijack the train and run it into
the Pentagon.