Email
   From: hpcvra!colbach%nessie.cs.id.ethz.ch (Philippe Colbach)
   Date: Wed, 3 Jul 91 09:49:02 CED

  Hi Joe!

Here is my SHORT program:

SHORT program cuts: 1. [IF] THEN ELSE END
                    2. DO [UNTIL] END
                    3. the program markers << and >>
                    4. Nullprograms (I did not rewrite the SHORT
                       program when I transfered it from my HP28S
                       to my HP48SX; HP48SX's RPL does not contain
                       nullprograms ...)

TAKE CARE: 1. the program *MUST* be named SHORT because it's recursive
              (is that the correct term for a program that calls itself?)
           2.  SHORT calls OUT-> and ->PRG 

I know that the program is not quite perfect :-)
Use it at your own risk (I never got a problem!) ...

                      ... enjoy it ...      Philippe


------------------------------------------------------------------------------
Philippe Colbach    Civil Eng Student    Swiss Federal Institute of Technology
------------------------------------------------------------------------------
Lerchenrain 13/04, CH-8046 Zurich     |   36b, rue A. Meyer, L-2153 Luxembourg
Voice: +41/1/3718539                  |   Voice: +352/443590  [Fax: hand over
Email: colbach@nessie.cs.id.ethz.ch   |   Fax:   +352/446931   to Jos Colbach]
------------------------------------------------------------------------------