home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 2
/
crawlyvol2.bin
/
utility
/
misc
/
master
/
batch
/
chdir.bat
< prev
next >
Wrap
DOS Batch File
|
1990-03-25
|
1KB
|
67 lines
if exec "alias foreach" {
rem macros.bat required
quit 1
}
module => module
if not "MENU" in module {
module popup
if err {quit -1;}
}
set home H
set up A
set down B
set right C
set left D
set invon p
set invoff q
set cleol K
alldrives => drives
setenv DELIMITER \| ;
foreach drive in drives do
ifempty drv {
set drv $drive;
} else {
printf "%s | %s" drv drive ==> dru
cdr -0 dru => drv
}
endfor
cls
rem $home $invon please select a new folder ... $invoff
rem
loop {
cd => current
rem actual directory: ${cleol}$current
rem $up
files -ad => directs
car directs => firstdir
if firstdir = "." {
cdr -2 directs => directs
}
ifempty directs {
newdrv:
menu [ $drv ]
eval $? 2 * 1 - => selected
car -o$selected drv => selected
$selected: > NUL:
continue
} else {
menu [ new drive | $directs ]
}
if "$?" = "-1" {
noDelimiter
quit
}
if "$?" = "1" {
goto newdrv
}
eval $? 1 - 2 * 1 - => selected
car -o$selected directs => selected
cd $selected > NUL:
}