Date: Wed, 3 Apr 1991 13:16 CST
Subject: Re: hp48sx: variable rename?
Lines: 27

>Heres a quick program to retain the prior order.  Its kind of slow.
>
>\<< \-> src dst
>  \<< VARS src RCL src PURGE dst STO OBJ\-> { } SWAP 1 SWAP
>    START SWAP DUP
>      IF src SAME
>      THEN DROP dst
>      END SWAP +
>    NEXT
>  \>> ORDER
>\>>
>Robert
>brunner@uirvld.csl.uiuc.edu

  One way to speed this program up would be to use the POS and PUT
commands built into the calculator (Instead of building another list).

The following is a little shorter and most likely faster.

\<< \-> src dst
  \<< VARS src RCL src PURGE dst STO
      DUP src POS dst PUT
  \>> ORDER
\>>
----------
       Darren Freimuth (Electro)
             <90731919@wsuvm1.csc.wsu.edu>
Acknowledge-To: <90731919@WSUVM1>