VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "msdxm.ocx"
Object = "{4E3D9D11-0C63-11D1-8BFB-0060081841DE}#1.0#0"; "Xlisten.dll"
Begin VB.Form frmMain
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "&H0000FF00&"
   ClientHeight    =   9000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12000
   BeginProperty Font
      Name            =   "Times New Roman"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "frmMain.frx":0442
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer2
      Interval        =   3000
      Left            =   8880
      Top             =   840
   End
   Begin VB.CommandButton cmdPlay
      Caption         =   "Play"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   11160
      TabIndex        =   18
      TabStop         =   0   'False
      Top             =   1680
      Width           =   615
   End
   Begin VB.CommandButton cmdStop
      Caption         =   "Stop"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   11160
      TabIndex        =   17
      TabStop         =   0   'False
      Top             =   2040
      Width           =   615
   End
   Begin VB.TextBox Text1
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "Tahoma"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF80&
      Height          =   285
      Left            =   10440
      TabIndex        =   16
      Text            =   "1"
      Top             =   1680
      Width           =   375
   End
   Begin VB.CommandButton cmdTrackB
      Caption         =   "<<"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   10155
      TabIndex        =   15
      Top             =   2040
      Width           =   375
   End
   Begin VB.CommandButton cmdTrackF
      Caption         =   ">>"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   10515
      TabIndex        =   14
      Top             =   2040
      Width           =   375
   End
   Begin VB.CommandButton cmdMP3Stop
      Caption         =   "Stop"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   11115
      TabIndex        =   10
      Top             =   6765
      Width           =   660
   End
   Begin VB.CommandButton cmdMP3Browse
      Caption         =   "Browse"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   9630
      TabIndex        =   9
      Top             =   6765
      Width           =   735
   End
   Begin VB.Timer Timer1
      Interval        =   10
      Left            =   10455
      Top             =   7125
   End
   Begin VB.CommandButton cmdMP3Play
      Caption         =   "Play"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   10350
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   6765
      Width           =   765
   End
   Begin ACTIVELISTENPROJECTLibCtl.DirectSR DirectSR1
      Height          =   270
      Left            =   7530
      OleObjectBlob   =   "frmMain.frx":A1B0
      TabIndex        =   7
      Top             =   7425
      Visible         =   0   'False
      Width           =   255
   End
   Begin VB.Timer tmrTyping
      Enabled         =   0   'False
      Interval        =   50
      Left            =   9000
      Top             =   7860
   End
   Begin VB.TextBox ConOutput
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      BeginProperty Font
         Name            =   "OCR A Extended"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF80&
      Height          =   5280
      Left            =   390
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   1425
      Width           =   8415
   End
   Begin MSComDlg.CommonDialog dlgFile
      Left            =   8895
      Top             =   4155
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.TextBox ConInput
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      BeginProperty Font
         Name            =   "Xenotron"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF80&
      Height          =   465
      Left            =   360
      TabIndex        =   0
      Top             =   8370
      Width           =   8430
   End
   Begin VB.Label Label2
      BackStyle       =   0  'Transparent
      Caption         =   "Track:"
      BeginProperty Font
         Name            =   "Xenotron"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   135
      Left            =   9435
      TabIndex        =   19
      Top             =   1755
      Width           =   975
   End
   Begin VB.Label txtMP3Name
      BackStyle       =   0  'Transparent
      BeginProperty Font
         Name            =   "OCR A Extended"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF80&
      Height          =   2145
      Left            =   9480
      TabIndex        =   13
      Top             =   4590
      Visible         =   0   'False
      Width           =   2385
   End
   Begin VB.Label txtMP3SongName
      BackStyle       =   0  'Transparent
      BeginProperty Font
         Name            =   "OCR A Extended"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF80&
      Height          =   2190
      Left            =   9480
      TabIndex        =   12
      Top             =   4560
      Width           =   2385
   End
   Begin MediaPlayerCtl.MediaPlayer MediaPlayer1
      Height          =   180
      Left            =   9690
      TabIndex        =   11
      Top             =   6375
      Visible         =   0   'False
      Width           =   150
      AudioStream     =   -1
      AutoSize        =   0   'False
      AutoStart       =   -1  'True
      AnimationAtStart=   -1  'True
      AllowScan       =   0   'False
      AllowChangeDisplaySize=   0   'False
      AutoRewind      =   -1  'True
      Balance         =   0
      BaseURL         =   ""
      BufferingTime   =   5
      CaptioningID    =   ""
      ClickToPlay     =   0   'False
      CursorType      =   0
      CurrentPosition =   -1
      CurrentMarker   =   0
      DefaultFrame    =   ""
      DisplayBackColor=   0
      DisplayForeColor=   0
      DisplayMode     =   1
      DisplaySize     =   4
      Enabled         =   -1  'True
      EnableContextMenu=   -1  'True
      EnablePositionControls=   0   'False
      EnableFullScreenControls=   0   'False
      EnableTracker   =   0   'False
      Filename        =   ""
      InvokeURLs      =   0   'False
      Language        =   -1
      Mute            =   0   'False
      PlayCount       =   1
      PreviewMode     =   0   'False
      Rate            =   1
      SAMILang        =   ""
      SAMIStyle       =   ""
      SAMIFileName    =   ""
      SelectionStart  =   -1
      SelectionEnd    =   -1
      SendOpenStateChangeEvents=   -1  'True
      SendWarningEvents=   -1  'True
      SendErrorEvents =   -1  'True
      SendKeyboardEvents=   0   'False
      SendMouseClickEvents=   0   'False
      SendMouseMoveEvents=   0   'False
      SendPlayStateChangeEvents=   -1  'True
      ShowCaptioning  =   0   'False
      ShowControls    =   0   'False
      ShowAudioControls=   0   'False
      ShowDisplay     =   0   'False
      ShowGotoBar     =   0   'False
      ShowPositionControls=   0   'False
      ShowStatusBar   =   0   'False
      ShowTracker     =   0   'False
      TransparentAtStart=   0   'False
      VideoBorderWidth=   0
      VideoBorderColor=   0
      VideoBorder3D   =   0   'False
      Volume          =   -10
      WindowlessVideo =   -1  'True
   End
   Begin VB.Label lblTyping
      BackColor       =   &H00FF8080&
      Height          =   450
      Left            =   8940
      TabIndex        =   6
      Top             =   8340
      Visible         =   0   'False
      Width           =   150
   End
   Begin VB.Label lblCDTime
      BackStyle       =   0  'Transparent
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF80&
      Height          =   375
      Left            =   9345
      TabIndex        =   5
      Top             =   3285
      Width           =   2535
   End
   Begin VB.Label lblCloseCD
      BackStyle       =   0  'Transparent
      Caption         =   "Close CD"
      BeginProperty Font
         Name            =   "Xenotron"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   240
      Left            =   10560
      TabIndex        =   4
      Top             =   3120
      Width           =   1335
   End
   Begin VB.Label lblOpenCD
      BackStyle       =   0  'Transparent
      Caption         =   "Open CD"
      BeginProperty Font
         Name            =   "Xenotron"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   10560
      TabIndex        =   3
      Top             =   2835
      Width           =   1335
   End
   Begin VB.Label lblExit
      BackStyle       =   0  'Transparent
      BeginProperty Font
         Name            =   "OCR A Extended"
         Size            =   26.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   615
      Left            =   10140
      MousePointer    =   10  'Up Arrow
      TabIndex        =   2
      Top             =   8280
      Width           =   1575
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Dim snd As CDAudio
Dim str() As String, max As Integer, current As Integer
Public SwitchVal As Boolean
Dim GenresTypes
Dim Min As Integer
Dim Sec As Integer
Dim filename As String
Dim FileOpen As Boolean
Dim CurrentTag As TagInfo
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd&, ByVal wMsg&, ByVal wParam&, lParam As Any)
Private Declare Function ReleaseCapture Lib "user32" () As Long
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Dim BitD As Boolean, StartA%, StartB%, StartC%, StartD%, StartE%, StartF%, abc%, Abort As Boolean
Private Type TagInfo
    Tag As String * 3
    Songname As String * 30
    artist As String * 30
    album As String * 30
    year As String * 4
    comment As String * 30
    genre As String * 1
End Type

Private Function CheckCmd()
Dim comOK As Boolean
    If ConInput.Text = "help" Then
        frmHelp.Show vbModal
        ConInput.Text = ""
        ConInput.SetFocus
        ConOutput.Text = ConOutput.Text & vbCrLf & "Help Module Executed."
        comOK = True
    End If
    If ConInput.Text = "credits" Then
        frmCredits.Show vbModal
        ConInput.Text = ""
        ConInput.SetFocus
        ConOutput.Text = ConOutput.Text & vbCrLf & "Credits Module Executed."
        comOK = True
    End If
    If ConInput.Text = "chat /server" Then
        frmServer.Show
        ConInput.Text = ""
        ConOutput.Text = ConOutput.Text & vbCrLf & "Chat Server Executed."
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "time" Then
        ConInput.Text = ""
        ConInput.SetFocus
        ConOutput.Text = ConOutput.Text & vbCrLf & "The time is " & Format(Now, "Long Time")
        comOK = True
    End If
    If ConInput.Text = "date" Then
        ConInput.Text = ""
        ConInput.SetFocus
        ConOutput.Text = ConOutput.Text & vbCrLf & "Today is " & FormatDateTime(Now, vbLongDate)
        comOK = True
    End If
    If ConInput.Text = "dir" Then
        frmDir.Show vbModal
        ConInput.Text = ""
        ConOutput.Text = ConOutput.Text & vbCrLf & "Directory View Module Executed."
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "log" Then
        ConOutput.Text = ConOutput.Text & vbCrLf & "Please enter Password :"
        ConInput.PasswordChar = "*"
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "log-ok" Then
        frmLog.Show vbModal
        ConInput.PasswordChar = ""
        ConInput.Text = ""
        ConOutput.Text = ConOutput.Text & vbCrLf & "Log Editor Module Executed."
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "calc" Or ConInput.Text = "calculator" Then
        frmCalc.Show vbModal
        ConInput.Text = ""
        ConOutput.Text = ConOutput.Text & vbCrLf & "Calculator Module Executed."
        ConInput.SetFocus
        comOK = True
    End If
     If ConInput.Text = "encrypt" Then
        Dim filename As String
        filename = getfile()
        If filename <> "" Then
            If encrypt(filename) = False Then
                ConOutput.Text = ConOutput.Text & vbCrLf & "File not Encrypted"
            Else
                ConOutput.Text = ConOutput.Text & vbCrLf & "File Successfully Encrypted"
            End If
        End If
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "decrypt" Then
        Dim filenm As String
        filenm = getfile()
        If filenm <> "" Then
            If decrypt(filenm) = False Then
                ConOutput.Text = ConOutput.Text & vbCrLf & "File not Decrypted"
            Else
                ConOutput.Text = ConOutput.Text & vbCrLf & "File successfully Decrypted"
            End If
        End If
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "shut" Or ConInput.Text = "shutdown" Then
        frmShut.Show vbModal
        ConOutput.Text = ConOutput.Text & vbCrLf & "System Shutdown Averted."
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "tictactoe" Or ConInput.Text = "ttt" Then
        frmTicTacToe.Show vbModal
        ConOutput.Text = ConOutput.Text & vbCrLf & "TicTacToe Plugin Executed."
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "test" Then
        'frm<name>.Show vbModal
        ConOutput.Text = ConOutput.Text & vbCrLf & "System Testing Software Executed."
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "mail" Or ConInput.Text = "email" Or ConInput.Text = "e-mail" Then
        frmMail.Show vbModal
        ConOutput.Text = ConOutput.Text & vbCrLf & "E-Mail Module Executed."
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "clock" Then
        frmClock.Show vbModal
        ConOutput.Text = ConOutput.Text & vbCrLf & "Clock Module Executed."
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "groove" Then
        frmGroove.Show vbModal
        ConOutput.Text = ConOutput.Text & vbCrLf & "Audio Groove Module Executed."
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "admin" Or ConInput.Text = "administrator" Then
        frmAdmin.Show vbModal
        ConOutput.Text = ConOutput.Text & vbCrLf & "Administrator Module Executed."
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "vol" Then
        ConInput.Text = ""
        ConOutput.Text = ConOutput.Text & vbCrLf & "Warning: Obsolete Module NOT Executed."
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "cls" Or ConInput.Text = "clear" Then
        ConOutput.Text = ""
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "exit" Or ConInput.Text = "quit" Then
        frmExit.Show vbModal
        comOK = True
        ConInput.Text = ""
    End If
    If ConInput.Text = "pickup" Or ConInput.Text = "pick-up" Then
        current = 0
        Open_file
        Print_ChatupLine
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "textedit" Or ConInput.Text = "text" Then
        frmTextEditor.Show vbModal
        ConInput.SetFocus
        ConOutput.Text = ConOutput.Text & vbCrLf & "Text Editor Module Executed."
        ConInput.Text = ""
        ConInput.SetFocus
        comOK = True
    End If
    If ConInput.Text = "count" Then
    Dim A As Long
    For A = 1 To 270 Step 3
    On Error GoTo e
    ConOutput.Text = ConOutput.Text & vbCrLf & A & " " & Chr(A) & "       " & A + 1 & " " & Chr(A + 1) & "       " & A + 2 & " " & Chr(A + 2)
    Next
e:
    comOK = True
    End If
    If comOK = False Then
        ConOutput.Text = ConOutput.Text & vbCrLf & "Error in command!" & vbCrLf & "Please type 'help' for assistance"
        ConInput.Text = ""
        ConInput.PasswordChar = ""
        ConInput.SetFocus
    End If
End Function

Public Sub Print_ChatupLine()
X = Random_Num(max)
current = X
ConOutput.Text = ConOutput.Text & vbCrLf & str(X)
End Sub

Public Function Random_Num(ByVal max As Integer) As Integer
Randomize Timer
Random_Num = Int((max * Rnd) + 1)
End Function
Public Sub Open_file()
X = 0
Open App.Path & "\" & "pickup.dat" For Input As #1
Do While Not EOF(1)
   Input #1, tmps
   Debug.Print tmps
   X = X + 1
   ReDim Preserve str(X)
   str(X) = tmps
Loop
Close
max = UBound(str)
End Sub

Private Function getfile() As String
dlgFile.CancelError = True
On Error GoTo fileerr
dlgFile.DialogTitle = "Select a file..."
dlgFile.DefaultExt = "*.txt"
dlgFile.Filter = "Text File(*.txt)|*.txt|" & "All Files(*.*)|*.*"
dlgFile.FilterIndex = 1
dlgFile.ShowOpen
getfile = dlgFile.filename
Exit Function
fileerr:
getfile = ""
End Function

Private Function encrypt(infile As String) As Boolean
Dim fileno1 As Integer
Dim fileno2 As Integer
Dim outfile As String
Dim xpos As Long
Dim X As Byte
MousePointer = vbHourglass
xpos = 4
outfile = "c:\temp.enc"
fileno1 = 7
Open infile For Binary As fileno1
fileno2 = 8
Open outfile For Binary As fileno2
Put #fileno2, 1, 0
Put #fileno2, 2, 128
Put #fileno2, 3, 0
Put #fileno2, 4, 128
Do While Not EOF(fileno1)
    xpos = xpos + 1
    Get #fileno1, xpos - 4, X
    'MsgBox "Putting " & X & "  " & xpos
    Put #fileno2, xpos, X + 128
Loop
Close fileno2
Close fileno1
Kill infile
FileCopy outfile, infile
Kill outfile
encrypt = True
MousePointer = vbNormal
End Function

Private Function decrypt(infile As String) As Boolean
On Error GoTo err3
Dim fileno1 As Integer
Dim fileno2 As Integer
Dim outfile As String
Dim xpos As Long
Dim X As Byte
Dim t(3) As Byte
MousePointer = vbHourglass
xpos = 4
outfile = "c:\temp.enc"
fileno1 = 5
Open infile For Binary As fileno1
fileno2 = 6
Get #fileno1, 1, t(0)
Get #fileno1, 2, t(1)
Get #fileno1, 3, t(2)
Get #fileno1, 4, t(3)
If (t(0) = 0 And t(1) = 128 And t(2) = 0 And t(3) = 128) Then
    Open outfile For Binary As fileno2
    Do While Not EOF(fileno1)
        xpos = xpos + 1
        Get #fileno1, xpos, X
        If (X - 128) >= 0 Then
            'MsgBox "Getting " & X - 128 & "  " & xpos
            Put #fileno2, xpos - 4, X - 128
        End If
    Loop
    Close fileno2
    Close fileno1
    decrypt = True
Else
    decrypt = False
    ConOutput.Text = ConOutput.Text & vbCrLf & "File not Originally Encrypted"
End If
If decrypt Then
    Kill infile
    FileCopy outfile, infile
    Kill outfile
End If
err3:
MousePointer = vbNormal
End Function



Private Sub cmdTrackB_Click()
If Text1.Text > 1 Then
Text1.Text = Text1.Text - 1
End If
ConInput.SetFocus
End Sub

Private Sub cmdTrackF_Click()
Text1.Text = Text1.Text + 1
ConInput.SetFocus
End Sub

Private Sub ConInput_KeyPress(KeyAscii As Integer)
lblTyping.Visible = True
tmrTyping.Enabled = True
If KeyAscii = 27 Then
    ConInput.Text = ""
    ConInput.SetFocus
End If
If KeyAscii = 13 Then
    ConInput.Text = LCase(ConInput.Text)
    CheckCmd
End If
End Sub
Private Sub cmdPlay_Click()
    snd.SeekCDtoX Val(Text1)
    s$ = snd.GetCDLength
    lblCDTime.Caption = " Total length of CD: " & s
    ConInput.SetFocus
End Sub


Private Sub ConOutput_GotFocus()
ConInput.SetFocus
End Sub

Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
Select Case (Phrase)
Case "quit": End
Case "d i r": ConInput.Text = "dir"
            CheckCmd
Case "clear": ConInput.Text = "clear"
            CheckCmd
Case "c l s": ConInput.Text = "clear"
            CheckCmd
Case "editor": ConInput.Text = "text"
            CheckCmd
Case "credits": ConInput.Text = "credits"
            CheckCmd
Case "mail": ConInput.Text = "email"
            CheckCmd
Case "shutdown": ConInput.Text = "shutdown"
            CheckCmd
Case "admin": ConInput.Text = "admin"
        &nbs