Return to %FLIST.m CVS log

Up to [Coherent Logic Development] / freem / contrib

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

1.1       snw         1: %FLIST ; A.Trocha; File List 01/29/1999 01:47/GMT+1
                      2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%FLIST.m,v $
                      3:        ; $Revision: 1.3 $ $Date: 2000/02/18 15:13:41 $
                      4:        N exec,fn
                      5:        W !!,?20,"FreeM - Host File Lister Utility"
                      6:        W !,?26,$ZD,"  ",$ZT
                      7: query  W !!,"Current Directory: ",$V(2)
                      8:        W !!,"File Name: "
                      9:        R fn I fn="" G ende
                     10:        W !!
                     11:        S exec="!less "_fn
                     12:        X exec
                     13:        G query
                     14: ende   Q