Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!nstn.ns.ca!news.cs.indiana.edu!noose.ecn.purdue.edu!en.ecn.purdue.edu!blair
From: blair@en.ecn.purdue.edu (Marc E Blair)
Newsgroups: comp.sys.handhelds
Subject: Re: hidden variable utility for HP48
Summary: Re: Hidden Variable Utility, fix
Keywords: hidden variable
Message-ID: <1991Jun11.192719.11856@en.ecn.purdue.edu>
Date: 11 Jun 91 19:27:19 GMT
References: <1991Jun11.053031.12123@en.ecn.purdue.edu>
Organization: Purdue University Engineering Computer Network
Lines: 31

It seems you can't find all the bugs in a program until after you
post it! It turns out that the null variable must contain something different
for each directory in order for the program to work properly. So I just changed
5 NULL STO to PATH NULL STO. Here is the correct 'HIDE' program, and sorry for
the inconvenience.
-------------------->8
%%HP: T(3)A(D)F(.);
    \<<
      IF DUP TYPE 6
==
      THEN 1 \->LIST
      END \-> L
      \<< VARS L SIZE
1 SWAP
        FOR A L A
GET DELIT
        NEXT
        IF PATH {
HOME } \=/
        THEN PATH NULL
STO NULL 1 \->LIST +
ORDER
        ELSE DROP
"NOT ALLOWED AT HOME"
DOERR
        END
      \>>
    \>>
--------------------->8

blair@en.ecn.purdue.edu