HP50g small tips and trick

[grsbanks]

(01-11-2017 11:41 PM)Vtile Wrote:  PS. While re-reading my previous post I see that I were a bit unclear, I need to modify the statement closer to the truth (= based on my knowledge). I would needed to state something like purge non-empty directories in same lists as other objects .. or something on those lines.

Yep. You'd need to iterate through all of the elements in the list thrown up by VARS, run VTYPE on each and use PGDIR if you get 15. or PURGE otherwise, skipping 'DELT' if BYTES returns the same data as on your program (there might be a different DELT somewhere else that you don't mind nuking!)

(01-11-2017 11:41 PM)Vtile Wrote:  PPS. Here is the program listing of snippet that clears all objects from the current directory as long there is no non-empty directories on that directory. Where the 'DELT' were the name of the program itself stored also in current directory.

Code:

<< 'DELT' DUP RCL VARS PURGE SWAP STO>>

This code assumes, of course, that DELT is in the directory that you want to remove. The RCL will bomb out if not.

Another option is to create a library attached to your HOME and have your DELT in there. That way it's no longer a variable so you can PURGE/PGDIR to your heart's content without having to worry about deleting it...

G. Stewart