Return to %ur.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%ur.m, revision 1.1.1.1

1.1       snw         1: %ur ; FreeM Routine 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 ;Routine Compare;^%urcom
                     21:  ;Routine Copy;^%urcop
                     22:  ;Routine Directory;^%urdir
                     23:  ;Routine Delete;^%urdel
                     24:  ;Routine Edit;^%uredi
                     25:  ;Routine Export;^%urexp
                     26:  ;Routine Import;^%urimp
                     27:  ;Routine Lister;^%urlis
                     28:  ;Routine Search/Replace;^%ursea
                     29:  q
                     30: