This Programs is from Silver Stone BBS
_________________________________________________________________________

                   SilverSTone BBS - Casio Support BBS

 SysOp: Magnus Werner, M.Werner@abc.se
                       Magnus.Werner@f345.n201.z2.fidonet.org
        Casio URL: http://www.abc.se/~m9935/casio.html
        Casio FTP: ftp://ftp.abc.se/pub/casio/
        FidoNet  : 2:201/345

 Open 24 hours/day on 28k8 V34/VFC, Phone +46-(0)8-6417838.
                                                                 951020
_________________________________________________________________________

           Titel: Alcotest
          Author: Erik Lakomaa
      Written by: Erik Lakomaa

     Description: Calculate the alcohollevel in your body.

_________________________________________________________________________

Command translation:

->              Single arrow (located on the keyboard)
=>              Double arrow (press: [shift] [prgm] [f1] [f1])
_               Display, -Disp- (press: [shift] [prgm] [f4])
<=              Less or equal (A <= B)
>=              Greater or equal (A >= B)
<>              Not equal (A <> B)
^               Raised to the power of
/               Division or fraction (explain which with a comment)

2rt()           Root (2rt(7) is the square root of 7)
4rt()           4th root
pi              pi (~3.14159265359, low case)
e()             e(1) (~2.7818281846, low case)
E               Exponent (5E4 gives 5*10^4) (located on the keyboard,
                [EXP])
_________________________________________________________________________

All commands which in ASCII-form are two or more characters are to be
seperated from other commands with a space (i.e. -> , => , <> or pi).
Refer to the command standard used in R20_CASIO and set by Magnus
Werner on SilverSTone BBS (2:201/345@fidonet.org).

Everything after a ; is a comment and should not be in the code.

_________________________________________________________________________

 Program:

'ALCOTEST'
FIX 2
"DIN VIKT (KG)"? -> V
V*1000 -> V
"VOLYM (CL)"? -> M
M*10 -> M
"ALKOHOLHALT (%)"? -> P
P/M/(V*0.68)*1000 -> H   ; 0.68 for Men, 0.56 for Women
"DIN PROMILLEHALT"
H_

_________________________________________________________________________

 If you need help or information concerning this file, please contact
 Magnus Werner at the addresses above, or the author if possible.

_________________________________________________________________________