Return to %ug.m CVS log

Up to [Coherent Logic Development] / freem / contrib

FreeM

%ug ; FreeM Global 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 ;Global Compare;^%ugcom
 ;Global Copy;^%ugcop
 ;Global Directory;^%ugdir
 ;Global Delete;^%ugdel
 ;Global Edit;^%ugedi
 ;Global Export;^%ugexp
 ;Global Import;^%ugimp
 ;Global Lister;^%uglis
 ;Alternative Global Lister;^%uglis2
 ;Global Search/Replace;^%ugsea
 q