home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 5
/
DATAFILE_PDCD5.iso
/
utilities
/
b
/
baslib2
/
!Yadfs
/
menus
< prev
next >
Wrap
Text File
|
1993-01-04
|
2KB
|
78 lines
# Menu for DFS Copy, version 2.0
# (c) Copyright 1991, Chris Corbett
DFScopy
Info !w_info%
Name Disc @Disc name
Parameters !w_main%
Format @Catalogue
Free \DiskFree
Quit \quit
Catalogue
Acorn 31 Files \FormatDisk("ACORN")
Watford 62 Files \FormatDisk("WATFORD")
Background
Display @
File '' {wimpflags% OR (1<<22)
Select All \SelectAll
Clear Selection {wimpflags% OR (1<<22)
Options {wimpflags% OR (1<<22)
New Directory @Dirname:
Open Parent {wimpflags% OR (1<<22)
Count \Count
Overfile
Display @
File @
Select All \SelectAll
Clear Selection \ClearSelection
Options {wimpflags% OR (1<<22)
New Directory @Dirname:
Open Parent {wimpflags% OR (1<<22)
Count \Count
SelectMenu
Display @
Selection @
Select All \SelectAll
Clear Selection \ClearSelection
Options {wimpflags% OR (1<<22)
New Directory @Dirname:
Open Parent {wimpflags% OR (1<<22)
Count \Count
Display
*Large Icons \ListDir("LARGE")
Small Icons \ListDir("SMALL")
-Full Info \ListDir("FULL")
*Sort By Name \SortDir("NAME")
Sort By Type \SortDir("TYPE")
Sort By Size \SortDir("SIZE")
Sort By Date {wimpflags% OR (1<<22)
File
Copy @Name:
Rename @Name:
Delete \DeleteFile
Access !w_access%
Count \Count
Selection
Copy {wimpflags% OR (1<<22)
Rename {wimpflags% OR (1<<22)
Delete \DeleteSelection
Access !w_access%
Count \Count
Dirname:
Null Entry *Newdir,_,AA-Z$+@#
Name:
xxxxxxxxxx *Fileop,_______,A0-9a-zA-Z
Disc name
xxxxxxxxxx *NameDisc,12,AA-Za-z0-9$+@#