Return to %ug.m CVS log

Up to [Coherent Logic Development] / freem / contrib

FreeM

    1: %ug ; FreeM Global 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 ;Global Compare;^%ugcom
   21:  ;Global Copy;^%ugcop
   22:  ;Global Directory;^%ugdir
   23:  ;Global Delete;^%ugdel
   24:  ;Global Edit;^%ugedi
   25:  ;Global Export;^%ugexp
   26:  ;Global Import;^%ugimp
   27:  ;Global Lister;^%uglis
   28:  ;Alternative Global Lister;^%uglis2
   29:  ;Global Search/Replace;^%ugsea
   30:  q
   31: