Return to %u.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%u.m, revision 1.1

1.1     ! snw         1: %u ; FreeM Utility menu - version 0.5.0.1
        !             2:  ; Jon Diamond - 1999-03-31
        !             3:  ; 
        !             4:  ; This is one approach, probably not the best one, but it works
        !             5:  ; for now and is easily maintainable - copes with the named routines not existing!
        !             6:  ; 
        !             7:  n a,z,error
        !             8:  s a=$$init^%uxxxx
        !             9:  ; 
        !            10: %disp s error=$$writen^%uxxxx($t(+1)_"  "_$$^%uxdat)
        !            11:  s error=$$writep^%uxxxx("Option")
        !            12:  ;
        !            13:  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))
        !            14: %read s a="",error=$$readn^%uxxxx("Choose option ",.a) i error<0 q
        !            15:  i a="" q
        !            16:  i a?1.2n s a=$p($t(%menu+a),";",3) i a?1"^".e,$t(@a)'="" d @a g %disp
        !            17:  s error=$$rerror^%uxxxx("??")
        !            18:  g %read
        !            19:  ; 
        !            20: %menu ;Character Definition Manipulation Utilities;^%uc
        !            21:  ;File Manipulation utilities;^%uf
        !            22:  ;Global Manipulation Utilities;^%ug
        !            23:  ;Job Manipulation Utilities;^%uj
        !            24:  ;Lock Manipulation Utilities;^%uk
        !            25:  ;Library Manipulation Utilities;^%ul
        !            26:  ;Namespace Manipulation Utilities;^%un
        !            27:  ;Routine Manipulation Utilities;^%ur
        !            28:  ;System Manipulation Utilities;^%us
        !            29:  ;Other (General) Manipulation Utilities;^%ux
        !            30:  q
        !            31: