
assign bsddir: ""
cd envoy:

echo "Building an Envoy Developer's Disk"
echo "From the most recent server disk"
echo ""
echo "Please Wait . . ."

delete >nil: t:buildnumberfile#?

date >env:EnvoyDate
type >env:EnvoyRevision disk_rev.rev

echo >t:buildnumberfile "This Disk is revision V37.$EnvoyRevision."
echo >>t:buildnumberfile "It was built on $EnvoyDate by $username."

makedir ram:EnvoyDevDisk >NIL:
cd ram:EnvoyDevDisk >NIL:

copy >nil: t:buildnumberfile ram:EnvoyDevDisk/ReadMe.BuildNumber
delete >nil: t:buildnumberfile#?

copy >nil: envoy:NewDisk ram:EnvoyDevDisk ALL CLONE

echo "Archiving . . ."
delete >nil: envoy:EnvoyBeta.lzh#?
cd ram:EnvoyDevDisk
lharc -x -r a envoy:EnvoyBeta.lzh *

cd bsddir:
assign bsddir: REMOVE

echo "All Done!"
echo "Archive is Envoy:EnvoyBeta.lzh"



