VERSION 2.00
Begin Form Awk 
   BackColor       =   &H00C0C0C0&
   Caption         =   "AWKsome Demo"
   Height          =   4245
   Left            =   1155
   LinkTopic       =   "Form1"
   ScaleHeight     =   3780
   ScaleWidth      =   7485
   Top             =   1230
   Width           =   7665
   Begin VideoSoftElastic VSElastic1 
      Align           =   5  'Fill Container
      AutoSizeChildren=   4  'Uneven Vertically
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   2  'Raised Outlined
      BevelOuterWidth =   2
      BorderWidth     =   6
      Caption         =   ""
      CaptionPos      =   1  'Left Center
      ChildSpacing    =   6
      FloodColor      =   &H000000C0&
      FloodDirection  =   0  'None
      FloodPercent    =   0
      Height          =   3270
      Left            =   0
      Splitter        =   0  'No
      TabIndex        =   0
      Top             =   0
      Width           =   7485
      Begin ListBox List1 
         Height          =   2370
         Left            =   90
         TabIndex        =   1
         Top             =   810
         Width           =   7305
      End
      Begin VideoSoftElastic VSElastic2 
         Align           =   0  'None
         AutoSizeChildren=   1  'Even Horizontally
         BackColor       =   &H00C0C0C0&
         BevelInner      =   3  'Inset
         BevelInnerWidth =   1
         BevelOuter      =   0  'None
         BevelOuterWidth =   2
         BorderWidth     =   6
         Caption         =   ""
         CaptionPos      =   1  'Left Center
         ChildSpacing    =   6
         FloodColor      =   &H000000C0&
         FloodDirection  =   0  'None
         FloodPercent    =   0
         Height          =   630
         Left            =   90
         Splitter        =   0  'No
         TabIndex        =   3
         Top             =   90
         Width           =   7305
         Begin CommandButton Command1 
            Caption         =   "Get AUTOEXEC.BAT"
            Height          =   450
            Index           =   1
            Left            =   3690
            TabIndex        =   5
            Top             =   90
            Width           =   3525
         End
         Begin CommandButton Command1 
            Caption         =   "Get CONFIG.SYS"
            Height          =   450
            Index           =   0
            Left            =   90
            TabIndex        =   4
            Top             =   90
            Width           =   3510
         End
      End
   End
   Begin VideoSoftElastic StatusBar 
      Align           =   2  'Align Bottom
      AutoSizeChildren=   0  'None
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   1
      BorderWidth     =   6
      Caption         =   ""
      CaptionPos      =   4  'Center Center
      ChildSpacing    =   6
      FloodColor      =   &H0080FFFF&
      FloodDirection  =   1  'Right
      FloodPercent    =   0
      Height          =   510
      Left            =   0
      Splitter        =   0  'No
      TabIndex        =   2
      Top             =   3270
      Width           =   7485
   End
   Begin VideoSoftAwk VSAwk 
      Case            =   2  'to lower
      FS              =   " ="
      Left            =   45
      Top             =   2790
   End
End
Option Explicit
Const Blank = 0

Sub Command1_Click (Index%)
  List1.Clear

  Select Case Index
    Case 0
          vsawk.FileName = "c:\config.sys"
    Case 1
          vsawk.FileName = "c:\autoexec.bat"
  End Select

  ' start parsing
  vsawk.Action = 0
End Sub

Sub Form_Resize ()
  VSElastic1.Top = 0
End Sub

Sub VSAwk_Begin ()
  mousepointer = 11
End Sub

Sub VSAwk_End ()
  StatusBar = "FILE: " & vsawk.FileName & "    LINES: " & vsawk.RN
  mousepointer = 0
  StatusBar.FloodPercent = 0
End Sub

Sub VSAwk_Scan ()

  StatusBar.FloodPercent = vsawk.PercentDone
  StatusBar = Format(vsawk.PercentDone) & " %"
  StatusBar.Refresh

  'add scanned line to the list
  List1.AddItem vsawk.F(0)

End Sub