From d89-mlt@sm.luth.se Thu Oct 4 14:08:38 1990 From: d89-mlt@sm.luth.se (Morgan Lindqvist) Newsgroups: comp.sys.handhelds Subject: Program HIDE ver. 2.0 for HP48sx Date: 30 Sep 90 17:09:26 GMT Distribution: comp Organization: University of Lulea, Sweden Here comes a hide program ver 2.0 for subdirectories and other object names, from M&M --------------------------------------------- | This version is much faster than ver 1.0 | --------------------------------------------- Mattias Dahl & Morgan Lindvqist d89-mdl@sm.luht.se d89-mlt@sm.luth.se University of Lulea, SWEDEN ------------------------------------------------------------------------- _ _ _ _ _ _ / \ / \ / \ / \ / \ | | | | | | | | | | | \ _ / | | | | \ _ / | | |_| | \ / | |_| | | | \ / | | | | / \ | | | | / \ | | | | | \ / | | / | | | X / | | \ _ / \_ \ _ _ _ / \ \ _ / \ _ ------------------------------------------------------------------------- Excuse for any grammar mistakes. First we would like to thank Rick Grevelle for the SYSEVAL's ---------------------------------------------------------------- You can hide all objectnames and use the "programs, directories, variables, ..." as usual. NOTE! These programs will not work on HOME directory. To hide a name(s) in a directory you must evaluate these programs like this. ex. { HOME APPL HIDE } RCL EVAL There "HOME APPL" is the path to the "HIDE"-programs directory. -------------------------------------------------------------- EXAMPLE. 4: 3: 2: 1:_ _ MAT EXCO U137 X _ To hide EXCO and the directory MAT. 4: 3: 2: { EXCO MAT } 1:_\<< { HOME_APPL HIDE } RCL EVAL \>> MAT EXCO U137 X Then press EVAL. 4: 3: 2: 1:_ U137 X _ You can still use EXCO or MAT by typeing in EXCO or MAT . --------------------------------------------------------- To unhide EXCO. 4: 3: 2: EXCO 1:_ \<< { HOME APPL UNHIDE } RCL EVAL \>> U137 X Then press EVAL 4: 3: 2: 1:_ U137 X EXCO --------------------------------------- To wake up all hided names. 4: 3: 2: 1:_ \<< { HOME APPL WAKEUP } RCL EVAL \>> U137 X EXCO Then press EVAL 4: 3: 2: 1:_ _ U137 X EXCO MAT --------------------------------------------------- USAGE: HIDE 1: { 'names' } -> none OR 1: 'name' -> none UNHIDE 1: { 'names' } -> none OR 1: 'name' -> none WAKEUP 1: none -> none -------------------------------------------------------------------- DIR HIDE \<< VARS "" # 05B15h SYSEVAL PURGE VARS \-> hideobj dirobj allobj \<< hideobj allobj dirobj SIZE 1 + allobj SIZE SUB + 'hideobj' STO \<< \>> "" # 05B15h SYSEVAL STO dirobj SIZE IF DUP THEN 1 FOR x 'dirobj' x GET DUP hideobj SWAP POS IF NOT THEN {} + ORDER ELSE DROP END -1 STEP ELSE DROP END \>> \>> UNHIDE \<< VARS SWAP + ORDER \>> WAKEUP \<< "" # 05B15h SYSEVAL PURGE \>> END