home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / comms / m_z / riscbbs / !RiscBBS / Menus / Filebase / FileList < prev    next >
Encoding:
Text File  |  1992-02-24  |  419 b   |  26 lines
  1. {
  2.  report `Files list`
  3.  
  4.  defopt L= `Locally` 10 ``
  5.    a_reset B
  6.    menu Filebase.Browse
  7.  endopt
  8.  
  9.  defopt G= `Globally` 10 ``
  10.    a_reset `A0 B G`
  11.    f_list `1 G L`
  12.    if RET=0
  13.      menu Filebase.GlobBrowse
  14.    else
  15.      menu Filebase.Main
  16.    endif
  17.  endopt
  18.  
  19.  defopt A= `Abort` 10 ``
  20.    menu Filebase.Main
  21.  endopt
  22.  
  23.  attr 0 6
  24. }
  25. Filelist: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 eof}
  26.