$D LOCAL *.* ; set defaults $0 to LOCAL, $1 to *.*
xy=0 ; clear screen
LOOKUP $0.DIR/ ; does $0.dir exist?
GOTO BRANCH ; if not, branch
:<$0.DIR already exists. Try again with a different .DIR filename.
> ; it does, so print message and stop
EXIT
;BRANCH ; program label
:R ; activate terminal output
:<
MAKVER Utility
This is the MAKVER utility. $0.DIR will be created that contains all the
information necessary to VERIFY the integrity of the requested files at a
later time.
Now, I need to know what files to process. Enter below the full filespec(s)
to include. Feel free to use wildcards and/or ersatz names. Use a comma (,)
to separate multiple filespecs.
For example, if you wanted to include all of the programs and subroutines
found in the BAS: account, you would enter:
DSK0:*.SBR[7,6],DSK0:*.BAS[7,6] ... or ...
BAS:*.SBR,BAS:*.RUN
If you want to process all files in this account, just press [ENTER].
Press Control-C to exit without creating any files.
Enter the filespecs for building $0.DIR - >
:P ; PAUSE , take input from user, append to next line
DIR/D/V/H $0.DIR =
:K ; do it when user hits [ENTER]