Return to %uflis.m CVS log

Up to [Coherent Logic Development] / freem / contrib

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

1.1       snw         1: %uflis ; FreeM File List - version 0.5.0.1
                      2:  ; A.Trocha ; 01/29/1999 01:47/GMT+1
                      3:  ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%uflis.m,v $
                      4:  ; $Revision: 1.1 $ $Date: 2000/02/18 15:13:42 $
                      5:  N exec,fn
                      6:  ;
                      7:  w !,$t(+1),!,$$^%uxdat
                      8:  ;
                      9: query W !!,"Current Directory: ",$V(2)
                     10:  W !!,"File Name: "
                     11:  R fn I fn="" G end
                     12:  W !!
                     13:  S exec="!less "_fn
                     14:  X exec
                     15:  G query
                     16: end Q
                     17: