From helens!shelby!rutgers!ucsd!ucbvax!ndsuhp.UUCP!hernes Tue May 15 16:35:55 PDT 1990
Status: RO

Article 1639 of comp.sys.handhelds:
Path: helens!shelby!rutgers!ucsd!ucbvax!ndsuhp.UUCP!hernes
>From: hernes@ndsuhp.UUCP
Newsgroups: comp.sys.handhelds
Subject: hp-48 clean-up programs
Message-ID: <9005152123.AA24267@plains.NoDak.edu>
Date: 15 May 90 21:23:15 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: inet
Organization: The Internet
Lines: 30


Someone asked for programs that "cleaned" up the stuff in the hp.
The following program purges all of the variables used in the current
equation.  It is easy and painless to run, just press the PURGEQ button,
(or alternatively, bind it to a key, for example, the user-purge, key).

PURGEQ
%%HP: T(3)A(D)F(.);
\<< DEPTH \->LIST \-> a
  \<< EQ DUP TYPE
    IF 5 SAME
    THEN EVAL
    END
    WHILE DEPTH
    REPEAT DUP TYPE
      CASE DUP 6
SAME
        THEN DROP
PURGE
        END 9 SAME
        THEN OBJ\->
DROP DROP
        END DROP
      END
    END a OBJ\-> DROP
  \>>
\>>

Eric L. Hernes I.
hernes@ndsuhp.uucp => H,E,R,N,E,S,at,N,D,S,U,H,P,dot,U,U,C,P