home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / b / baslib2 / !Yadfs / menus < prev    next >
Text File  |  1993-01-04  |  2KB  |  78 lines
  1. # Menu for DFS Copy, version 2.0
  2. # (c) Copyright 1991, Chris Corbett
  3.  
  4. DFScopy
  5.  Info            !w_info%
  6.  Name Disc       @Disc name
  7.  Parameters      !w_main%
  8.  Format          @Catalogue
  9.  Free            \DiskFree
  10.  Quit            \quit
  11.  
  12. Catalogue
  13.  Acorn   31 Files    \FormatDisk("ACORN")
  14.  Watford 62 Files    \FormatDisk("WATFORD")
  15.  
  16. Background
  17.  Display         @
  18.  File ''         {wimpflags% OR (1<<22)
  19.  Select All      \SelectAll
  20.  Clear Selection {wimpflags% OR (1<<22)
  21.  Options         {wimpflags% OR (1<<22)
  22.  New Directory   @Dirname:
  23.  Open Parent     {wimpflags% OR (1<<22)
  24.  Count           \Count
  25.  
  26. Overfile
  27.  Display         @
  28.  File            @
  29.  Select All      \SelectAll
  30.  Clear Selection \ClearSelection
  31.  Options         {wimpflags% OR (1<<22)
  32.  New Directory   @Dirname:
  33.  Open Parent     {wimpflags% OR (1<<22)
  34.  Count           \Count
  35.  
  36. SelectMenu
  37.  Display         @
  38.  Selection       @
  39.  Select All      \SelectAll
  40.  Clear Selection \ClearSelection
  41.  Options         {wimpflags% OR (1<<22)
  42.  New Directory   @Dirname:
  43.  Open Parent     {wimpflags% OR (1<<22)
  44.  Count           \Count
  45.  
  46. Display
  47. *Large Icons     \ListDir("LARGE")
  48.  Small Icons     \ListDir("SMALL")
  49. -Full Info       \ListDir("FULL")
  50. *Sort By Name    \SortDir("NAME")
  51.  Sort By Type    \SortDir("TYPE")
  52.  Sort By Size    \SortDir("SIZE")
  53.  Sort By Date    {wimpflags% OR (1<<22)
  54.  
  55. File
  56.  Copy            @Name:
  57.  Rename          @Name:
  58.  Delete          \DeleteFile
  59.  Access          !w_access%
  60.  Count           \Count
  61.  
  62. Selection
  63.  Copy            {wimpflags% OR (1<<22)
  64.  Rename          {wimpflags% OR (1<<22)
  65.  Delete          \DeleteSelection
  66.  Access          !w_access%
  67.  Count           \Count
  68.  
  69. Dirname:
  70.  Null Entry      *Newdir,_,AA-Z$+@#
  71.  
  72. Name:
  73.  xxxxxxxxxx      *Fileop,_______,A0-9a-zA-Z
  74.  
  75. Disc name
  76.  xxxxxxxxxx      *NameDisc,12,AA-Za-z0-9$+@#
  77.  
  78.