Return to %u.m CVS log

Up to [Coherent Logic Development] / freem / contrib

FreeM

%u ; FreeM Utility menu - version 0.5.0.1
 ; Jon Diamond - 1999-03-31
 ; 
 ; This is one approach, probably not the best one, but it works
 ; for now and is easily maintainable - copes with the named routines not existing!
 ; 
 n a,z,error
 s a=$$init^%uxxxx
 ; 
%disp s error=$$writen^%uxxxx($t(+1)_"  "_$$^%uxdat)
 s error=$$writep^%uxxxx("Option")
 ;
 f z=1:1 s a=$t(%menu+z) q:a=" q"  i $t(@$p(a,";",3))'="" s error=$$writep^%uxxxx(z_"~"_$p(a,";",2))
%read s a="",error=$$readn^%uxxxx("Choose option ",.a) i error<0 q
 i a="" q
 i a?1.2n s a=$p($t(%menu+a),";",3) i a?1"^".e,$t(@a)'="" d @a g %disp
 s error=$$rerror^%uxxxx("??")
 g %read
 ; 
%menu ;Character Definition Manipulation Utilities;^%uc
 ;File Manipulation utilities;^%uf
 ;Global Manipulation Utilities;^%ug
 ;Job Manipulation Utilities;^%uj
 ;Lock Manipulation Utilities;^%uk
 ;Library Manipulation Utilities;^%ul
 ;Namespace Manipulation Utilities;^%un
 ;Routine Manipulation Utilities;^%ur
 ;System Manipulation Utilities;^%us
 ;Other (General) Manipulation Utilities;^%ux
 q