'===========================================================================
' Subject: EZ-DOS                             Date: 07-11-97 (16:55)       
'  Author: Chris McKenzie                     Code: QB, QBasic, PDS        
'  Origin: mckenze@earthlink.net            Packet: DOS.ABC
'===========================================================================
'                               EZ-Dos
' mckenze@earthlink.com    ---------------   http://www.geociti
'                           Type in what     es.com/siliconvall
'                           you want in      ey/way/1790
'                           plain English.
'                          ----------------
'                          Chris McKenzie
'
DECLARE SUB par (keyword$, spec$, comnd$)
DECLARE SUB cmnd (keyword$, comnd$)
COMMON SHARED comand$
CLS
DO
COLOR 11
INPUT "Plain Sentance>", comand$
COLOR 12
'make LOWERCASE
comand$ = LCASE$(comand$)

'Advanced
'
'    Keyword         Command
'       ³   Parameter   ³       
'       Á       Á       Á
par "contain", ".", "find c:\"
par "find", ".", "dir /s /b /w /p c:\"
par "rid", ".", "del "
par "del", ".", "del "
par "debug", ".", "debug "
par "change dir", "\", "chdir "
par "dire", "\", "dir /b /p /on c:\"
par "type", "\", "chdir "
par "copy con", ".", "type "
par "show me", ".", "type "
par "print", ".", "print "

'Basic
'
'     Keyword      Command
'        ³            ³
'        Á            Á
cmnd "pictures", "dir *.jpg"
cmnd "ver", "ver"
cmnd "environment", "set"
cmnd "set ", "set"
cmnd "path ", "path"
cmnd "time", "time"
cmnd "date", "date"
cmnd "start", "type c:\autoexec.bat"
cmnd "system", "chkdsk"
cmnd "file", "dir /p"
cmnd "list", "dir /p"
cmnd "help", "print c:\windows\ezdos.bas"
cmnd "window", "win"
cmnd "stop", "echo Press [ctrl]+[scroll lock] to leave."
cmnd "quit", "echo Press [ctrl]+[scroll lock] to leave."
cmnd "exit", "echo Press [ctrl]+[scroll lock] to leave."
cmnd "dir", "chdir"
cmnd "clear", "cls"
cmnd "home", "cls"
cmnd "screen", "cls"
cmnd "text", "edit"
cmnd "edit", "edit"
cmnd "/?", "print c:\windows\ezdos.bas"

'ON ERROR:
IF comand$ <> "" THEN PRINT "Please rephrase your sentance"
LOOP

SUB cmnd (keyword$, comnd$)
h = INSTR(1, comand$, keyword$)
IF h > 0 THEN  'IF KEYWORD IS THERE
SHELL comnd$
comand$ = ""   'TRASH KEYWORD
END IF
END SUB

SUB par (keyword$, spec$, comnd$)
h = INSTR(1, comand$, keyword$)
IF h > 0 THEN                      'IF KEYWORD IS THERE THAN
h = 0
h = INSTR(1, comand$, spec$)
IF h > 0 THEN                      'IF PARAMETER IS THERE THAN
COLOR 28
PRINT "Working"
FOR d = 0 TO 10
IF MID$(comand$, h - d, 1) = " " THEN EXIT FOR     'GET PARAMETER
NEXT d
filespec$ = MID$(comand$, h - d + 1, h - 2)
com$ = comnd$ + filespec$                      'SLAP IT ONTO COMMAND
SHELL com$
comand$ = ""                                   'CLEAR COMMAND VARIABLE
END IF
END IF
END SUB