home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR22
/
JORF21_2.ZIP
/
DOS.J
< prev
next >
Wrap
Text File
|
1993-07-05
|
2KB
|
63 lines
Dos:Start
Win:Add("Jo's DOS Function Utility", 0, 0, 20, 44)
This program allows the user to &
select special DOS commands.
Place your mouse over the desired &
selection and click the Left Mouse &
Button or you may use the up and down &
arrow keys to select the desired command.
{Group:"DOS Commands" Row:9 Col:5 Len:10 Wid:30}
{Prompt:"&Memory Stats " Row:11 Col:7 Wid:25 Action:"Dos:Cmd('Mem')"}
{Prompt:"&Command Shell " Row:12 Col:7 Wid:25 Action:"Dos:Cmd('Shell')"}
{Prompt:"Directory by &Date" Row:13 Col:7 Wid:25 Action:"Dos:Cmd('DirDate')"}
{Prompt:"Directory by &Size" Row:14 Col:7 Wid:25 Action:"Dos:Cmd('DirSize')"}
{Prompt:"&Type in a Command" Row:15 Col:7 Wid:25 Action:"Dos:Cmd('TypeIt')"}
{Prompt:"&Windows Program " Row:16 Col:7 Wid:25 Action:"Dos:Cmd('Windows')"}
{Prompt:"E&xit " Row:18 Col:7 Wid:25 Action:"Return(Null)"}
Return (Ok)
Dos:Cmd(Action)
New (Command, Flags, Message)
Switch (Action)
Case 'Mem'
Command = "Mem /c | More"
Flags = "CP"
Case 'Shell'
Command = Null
Flags = "C"
Message = "Type 'EXIT' to return to JORF"
Case 'DirDate'
Command = "Dir /o-d | More"
Flags = "CP"
Message = "Sorting . . ."
Case 'DirSize'
Command = "Dir /o-s | More"
Flags = "CP"
Message = "Sorting . . ."
Case 'TypeIt'
Win:Add
Input:"Command to execute:", Field:"Command"
If (Kbd:Got=='Esc_Key')
Return
Flags = "C"
Case 'Windows'
If (Jorf:Info("Windows")==False)
Msg:Add
This option only works in the &
Windows version of the JORF interpreter.
Return
Win:Add
Input:"Windows program:", Field:"Command"
If (Kbd:Got=='Esc_Key')
Return
Flags = "W"
Else
Msg:Add
Illegal DOS Command "{Action}".
Return (Ok)
Jorf:System (Command, Flags, Message)
Return (Ok)