home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR4
/
PCMPROGB.ZIP
/
DOS.BDF
< prev
next >
Wrap
Text File
|
1992-07-01
|
3KB
|
122 lines
PROGRAM "DOS"
MENU MAIN
OPTION FILE,"FILE HANDLING FUNCTIONS"
EXECUTE FILE
OPTION DISK,"DISK HANDLING FUNCTIONS"
EXECUTE DISK
OPTION SYSTEM,"SYSTEM MAINTENANCE"
EXECUTE SYSTEM
OPTION CLS,"CLEAR THE SCREEN"
TYPE "CLS{ENTER}"
MEND
MENU FILE
OPTION COPY,"COPY FILE(S)"
TYPE "COPY "
ASK "ENTER SOURCE FILE(S)"
INPUT
TYPE " "
ASK "COPY TO"
INPUT
CR
OPTION DIR,"DIRECTORY OF FILES"
TYPE "DIR "
ASK "WHAT DIRECTORY (ENTER = CURRENT)"
INPUT
CR
OPTION ERASE,"ERASE FILE(S)"
TYPE "ERASE "
ASK "ERASE WHAT FILE(S)"
INPUT
CR
OPTION RENAME,"RENAME FILE(S)"
TYPE "REN "
ASK "ENTER OLD FILE NAME"
INPUT
TYPE " "
ASK "ENTER NEW FILE NAME"
INPUT
CR
OPTION TYPE,"DISPLAY FILE(S)"
TYPE "TYPE "
ASK "DISPLAY WHAT FILE(S)"
INPUT
CR
MEND
MENU SYSTEM
OPTION DATE,"SET SYSTEM DATE"
TYPE "DATE "
ASK "ENTER DATE AS MM-DD-YY"
INPUT
CR
OPTION TIME,"SET SYSTEM TIME"
TYPE "TIME "
ASK "ENTER TIME AS HH:MM:SS"
INPUT
CR
OPTION PROMPT,"SET SYSTEM PROMPT"
TYPE "PROMPT "
ASK "ENTER NEW PROMPT"
INPUT
CR
OPTION VER,"SHOW DOS VERSION"
TYPE "VER{ENTER}"
MEND
MENU DISK
OPTION ASSIGN,"CHANGE DRIVE ASSIGNMENT"
TYPE "ASSIGN "
ASK "WHAT DRIVE LETTER IS REFERENCED"
INPUT
TYPE "="
ASK "WHAT DRIVE SHOULD BE SUBSTITUTED"
INPUT
CR
OPTION CHDIR,"CHANGE DIRECTORIES"
TYPE "CD "
EXECUTE CHDIR
OPTION FORMAT,"FORMAT A DISK"
TYPE "FORMAT "
ASK "FORMAT WHICH DRIVE"
INPUT
CR
OPTION LABEL,"LABEL A DISK"
TYPE "LABEL "
ASK "ENTER DRIVE TO LABEL"
INPUT
CR
ASK "ENTER NEW LABEL"
INPUT
CR
OPTION MKDIR,"CREATE A SUBDIRECTORY"
TYPE "MD "
ASK "ENTER NAME OF SUBDIRECTORY TO CREATE"
INPUT
CR
OPTION RMDIR,"REMOVE A SUBDIRECTORY"
TYPE "RD "
ASK "ENTER NAME OF SUBDIRECTORY TO REMOVE"
INPUT
CR
OPTION VOL,"DISPLAY DISK VOLUME LABEL"
TYPE "VOL "
ASK "SHOW VOLUME NAME OF WHICH DRIVE"
INPUT
CR
MEND
MENU CHDIR
OPTION PARENT,"CHANGE TO PARENT DIRECTORY"
TYPE "..{ENTER}"
OPTION ROOT,"CHANGE TO ROOT DIRECTORY"
TYPE "\{ENTER}"
OPTION OTHER,"SPECIFY SUBDIRECTORY"
ASK "ENTER SUBDIRECTORY"
INPUT
CR
MEND
END