Super Net 1/SUPERNET_1.iso/PC/OTROS/EXTRAS/WINWAIS/VB/WSRC.FRM

Visual Basic Form | 1994-02-07 | 32.5 KB | 988 lines

VERSION 2.00
Begin Form wsrc_form
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FFFFFF&
   Caption         =   "View"
   ClientHeight    =   4395
   ClientLeft      =   -30
   ClientTop       =   1995
   ClientWidth     =   9525
   DrawMode        =   6  'Invert
   FontBold        =   0   'False
   FontItalic      =   0   'False
   FontName        =   "Terminal"
   FontSize        =   9
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   5085
   Left            =   -90
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MinButton       =   0   'False
   ScaleHeight     =   4395
   ScaleWidth      =   9525
   Top             =   1365
   Width           =   9645
   Begin VScrollBar wsrc_scroll
      Height          =   945
      Left            =   9210
      TabIndex        =   25
      Top             =   540
      Width           =   285
   End
   Begin SSPanel wsrc_frame
      Align           =   2  'Align Bottom
      Alignment       =   0  'Left Justify - TOP
      BackColor       =   &H00C0C0C0&
      BevelInner      =   1  'Inset
      Caption         =   " Potential New WAIS Source"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   2880
      Left            =   0
      Outline         =   -1  'True
      TabIndex        =   10
      Top             =   1515
      Width           =   9525
      Begin SSPanel Panel3D2
         Alignment       =   6  'Center - TOP
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Caption         =   "Panel3D2"
         Font3D          =   1  'Raised w/light shading
         ForeColor       =   &H00000000&
         Height          =   2595
         Left            =   7080
         Outline         =   -1  'True
         TabIndex        =   32
         Top             =   150
         Width           =   2325
         Begin CommandButton add_source
            Caption         =   "Add This Source"
            Height          =   405
            Left            =   360
            TabIndex        =   24
            Top             =   1950
            Width           =   1605
         End
         Begin Label Label1
            BackColor       =   &H00C0C0C0&
            Caption         =   "This is a new WAIS information source.  Press the button below to add this source to your list of available sources.  You may edit the entries to the left prior to pressing the ADD button."
            Height          =   1725
            Left            =   60
            TabIndex        =   26
            Top             =   60
            Width           =   2265
         End
      End
      Begin SSPanel Panel3D1
         Alignment       =   6  'Center - TOP
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Font3D          =   1  'Raised w/light shading
         ForeColor       =   &H00000000&
         Height          =   465
         Left            =   1110
         Outline         =   -1  'True
         TabIndex        =   30
         Top             =   810
         Width           =   855
         Begin TextBox s_add_prefix
            BackColor       =   &H00FFFFFF&
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "Terminal"
            FontSize        =   9
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   345
            Left            =   60
            TabIndex        =   31
            Top             =   60
            Width           =   735
         End
      End
      Begin SSPanel Panel3D14
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Caption         =   "Source Group"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   435
         Left            =   150
         Outline         =   -1  'True
         TabIndex        =   29
         Top             =   390
         Width           =   975
      End
      Begin SSPanel Panel3D15
         Alignment       =   6  'Center - TOP
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Font3D          =   1  'Raised w/light shading
         ForeColor       =   &H00000000&
         Height          =   435
         Left            =   1110
         Outline         =   -1  'True
         TabIndex        =   27
         Top             =   390
         Width           =   5925
         Begin ComboBox source_groups
            Height          =   300
            Left            =   60
            TabIndex        =   28
            Text            =   "source_groups"
            Top             =   60
            Width           =   5775
         End
      End
      Begin SSPanel Panel3D3
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Caption         =   "Source Name"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   465
         Left            =   150
         Outline         =   -1  'True
         TabIndex        =   23
         Top             =   810
         Width           =   975
      End
      Begin SSPanel Panel3D4
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Caption         =   "Port"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   465
         Left            =   150
         Outline         =   -1  'True
         TabIndex        =   22
         Top             =   1260
         Width           =   975
      End
      Begin SSPanel Panel3D5
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Caption         =   "Server"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   465
         Left            =   150
         Outline         =   -1  'True
         TabIndex        =   20
         Top             =   1710
         Width           =   975
         Begin SSPanel Panel3D9
            BackColor       =   &H00C0C0C0&
            BevelOuter      =   1  'Inset
            Caption         =   "Panel3D9"
            Font3D          =   1  'Raised w/light shading
            ForeColor       =   &H00000000&
            Height          =   195
            Left            =   1020
            Outline         =   -1  'True
            TabIndex        =   21
            Top             =   60
            Width           =   5955
         End
      End
      Begin SSPanel Panel3D6
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Caption         =   "Database Name"
         Font3D          =   0  'None
         ForeColor       =   &H00000000&
         Height          =   465
         Left            =   150
         Outline         =   -1  'True
         TabIndex        =   19
         Top             =   2160
         Width           =   975
      End
      Begin SSPanel Panel3D7
         Alignment       =   6  'Center - TOP
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Font3D          =   1  'Raised w/light shading
         ForeColor       =   &H00000000&
         Height          =   495
         Left            =   1950
         Outline         =   -1  'True
         TabIndex        =   17
         Top             =   780
         Width           =   5085
         Begin TextBox s_add_title
            BackColor       =   &H00FFFFFF&
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "Terminal"
            FontSize        =   9
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   345
            Left            =   30
            TabIndex        =   18
            Top             =   90
            Width           =   4995
         End
      End
      Begin SSPanel Panel3D8
         Alignment       =   6  'Center - TOP
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Font3D          =   1  'Raised w/light shading
         ForeColor       =   &H00000000&
         Height          =   465
         Left            =   1110
         Outline         =   -1  'True
         TabIndex        =   15
         Top             =   1260
         Width           =   855
         Begin TextBox s_add_port
            BackColor       =   &H00FFFFFF&
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "Terminal"
            FontSize        =   9
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   375
            Left            =   60
            TabIndex        =   16
            Top             =   30
            Width           =   735
         End
      End
      Begin SSPanel Panel3D10
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Caption         =   "Panel3D10"
         Font3D          =   1  'Raised w/light shading
         ForeColor       =   &H00000000&
         Height          =   465
         Left            =   1110
         Outline         =   -1  'True
         TabIndex        =   13
         Top             =   1710
         Width           =   5925
         Begin TextBox s_add_server
            BackColor       =   &H00FFFFFF&
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "Terminal"
            FontSize        =   9
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   345
            Left            =   60
            TabIndex        =   14
            Top             =   60
            Width           =   5805
         End
      End
      Begin SSPanel Panel3D11
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Inset
         Caption         =   "Panel3D11"
         Font3D          =   1  'Raised w/light shading
         ForeColor       =   &H00000000&
         Height          =   465
         Left            =   1110
         Outline         =   -1  'True
         TabIndex        =   11
         Top             =   2160
         Width           =   5925
         Begin TextBox s_add_database
            BackColor       =   &H00FFFFFF&
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "Terminal"
            FontSize        =   9
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   345
            Left            =   60
            TabIndex        =   12
            Top             =   30
            Width           =   5805
         End
      End
   End
   Begin SSPanel button_frame
      Align           =   1  'Align Top
      BackColor       =   &H00808080&
      Font3D          =   1  'Raised w/light shading
      ForeColor       =   &H00000000&
      Height          =   555
      Left            =   0
      Outline         =   -1  'True
      TabIndex        =   0
      Top             =   0
      Width           =   9525
      Begin SSCommand add_section_bbox
         AutoSize        =   1  'Adjust Picture Size To Button
         BevelWidth      =   1
         Font3D          =   0  'None
         Height          =   420
         Left            =   4110
         Picture         =   WSRC.FRX:0000
         TabIndex        =   9
         Top             =   90
         Width           =   450
      End
      Begin SSCommand copy_bbox
         AutoSize        =   1  'Adjust Picture Size To Button
         BevelWidth      =   1
         Font3D          =   0  'None
         Height          =   390
         Left            =   3570
         Picture         =   WSRC.FRX:0182
         TabIndex        =   8
         Top             =   90
         Width           =   420
      End
      Begin SSCommand prev_in_order_bbox
         AutoSize        =   1  'Adjust Picture Size To Button
         BevelWidth      =   1
         Font3D          =   0  'None
         Height          =   390
         Left            =   3030
         Picture         =   WSRC.FRX:0304
         TabIndex        =   7
         Top             =   90
         Width           =   420
      End
      Begin SSCommand prev_listed_bbox
         AutoSize        =   1  'Adjust Picture Size To Button
         BevelWidth      =   1
         Font3D          =   0  'None
         Height          =   390
         Left            =   2610
         Picture         =   WSRC.FRX:0486
         TabIndex        =   6
         Top             =   90
         Width           =   420
      End
      Begin SSCommand next_in_order_bbox
         AutoSize        =   1  'Adjust Picture Size To Button
         BevelWidth      =   1
         Font3D          =   0  'None
         Height          =   390
         Left            =   2130
         Picture         =   WSRC.FRX:0608
         TabIndex        =   5
         Top             =   90
         Width           =   420
      End
      Begin SSCommand next_listed_bbox
         AutoSize        =   1  'Adjust Picture Size To Button
         BevelWidth      =   1
         Font3D          =   0  'None
         Height          =   390
         Left            =   1710
         Picture         =   WSRC.FRX:078A
         TabIndex        =   4
         Top             =   90
         Width           =   420
      End
      Begin SSCommand find_bbox
         AutoSize        =   1  'Adjust Picture Size To Button
         BevelWidth      =   1
         Font3D          =   0  'None
         Height          =   390
         Left            =   1140
         Picture         =   WSRC.FRX:090C
         TabIndex        =   3
         Top             =   90
         Width           =   420
      End
      Begin SSCommand print_bbox
         AutoSize        =   1  'Adjust Picture Size To Button
         BevelWidth      =   1
         Font3D          =   0  'None
         Height          =   390
         Left            =   570
         Picture         =   WSRC.FRX:0A8E
         TabIndex        =   2
         Top             =   90
         Width           =   420
      End
      Begin SSCommand save_bbox
         AutoSize        =   1  'Adjust Picture Size To Button
         BevelWidth      =   1
         Font3D          =   0  'None
         Height          =   390
         Left            =   120
         Picture         =   WSRC.FRX:0C10
         TabIndex        =   1
         Top             =   90
         Width           =   420
      End
   End
   Begin Menu file_menu
      Caption         =   "&File"
      Begin Menu menu_save
         Caption         =   "&Save as..."
      End
      Begin Menu menu_print
         Caption         =   "&Print"
      End
      Begin Menu s1
         Caption         =   "-"
      End
      Begin Menu menu_done
         Caption         =   "&Done"
         Shortcut        =   {F3}
      End
   End
   Begin Menu menu_edit
      Caption         =   "&Edit"
      Begin Menu menu_find_key
         Caption         =   "&Find key"
         Shortcut        =   {F5}
      End
      Begin Menu s2
         Caption         =   "-"
      End
      Begin Menu menu_next
         Caption         =   "View &next document"
         Begin Menu menu_next_in_order
            Caption         =   "&In order"
            Shortcut        =   {F8}
         End
         Begin Menu menu_next_listed
            Caption         =   "&Listed in questions"
            Shortcut        =   +{F8}
         End
      End
      Begin Menu menu_prev
         Caption         =   "View &prev document"
         Begin Menu menu_prev_in_order
            Caption         =   "&In order"
            Shortcut        =   {F7}
         End
         Begin Menu menu_prev_listed
            Caption         =   "&Listed in questions"
            Shortcut        =   +{F7}
         End
      End
      Begin Menu s3
         Caption         =   "-"
      End
      Begin Menu menu_copy
         Caption         =   "&Copy"
         Shortcut        =   +{F6}
      End
      Begin Menu s4
         Caption         =   "-"
      End
      Begin Menu menu_add_section
         Caption         =   "&Add section"
         Shortcut        =   {F6}
      End
   End
Const FORM_OFFSET = 3 ' offset from top of form for button bar
Dim rec As String * MAX_TEXT_LENGTH
Dim tmp_handle As Integer
Dim recno As Integer
Dim doc_lines As Integer
Dim lines_per_page As Integer
Dim line_size As Single
Dim wdno As Integer
Dim box_top As Single
Dim box_bottom As Single
Dim box_drawn As Integer
Dim button_down As Integer
Dim form_cancelled As Integer
Sub add_section_bbox_Click ()
    menu_add_section_click
End Sub
Sub add_source_Click ()
    Dim pfx As String * 4
    If Trim$(source_groups.Text) = "" Or Trim$(s_add_port) = "" Or Trim$(s_add_server) = "" Or Trim$(s_add_database) = "" Then
      MsgBox ("A source field entry is missing, please enter it")
      Exit Sub
    End If
    If source_groups.Text <> current_group Then
      save_source_group
      current_group = UCase$(Trim$(source_groups.Text))
      sources_are_loaded = False
      load_source_group
    End If
    src = sources_form.s_source_list.ListCount
    s_port(src) = Val(s_add_port.Text)
    s_service(src) = Trim$(s_add_server.Text)
    s_database(src) = Trim$(s_add_database.Text)
    pfx = s_add_prefix.Text
    s_add_prefix.Text = pfx
    sources_form.s_source_list.AddItem pfx + " " + s_add_title.Text
    sources_have_changed = True
    s_add_prefix.Enabled = False
    s_add_title.Enabled = False
    s_add_port.Enabled = False
    s_add_server.Enabled = False
    s_add_database.Enabled = False
    add_source.Enabled = False
    source_groups.Enabled = False
End Sub
Sub copy_bbox_Click ()
    menu_copy_click
End Sub
Sub find_bbox_Click ()
    menu_find_key_click
End Sub
Sub Form_Load ()
    tmp_handle = FreeFile
    Open temp_path + "\WAIS.$$$" For Random As tmp_handle Len = MAX_TEXT_LENGTH
    form_cancelled = False
    If question_form.max_displays.Checked Then
      wsrc_form.WindowState = MAXIMIZED
    End If
    caption = viewed_headline
    load_group_list wsrc_form, READWRITE
    init_find = False
    doc_selected = NONE
    If viewed_docno <> CURRDOC Then
      If viewed_docno = 0 Then
        menu_prev_listed.Enabled = False
        prev_listed_bbox.Enabled = False
      End If
      If viewed_docno > question_form.title.ListCount - 2 Then
        menu_next_listed.Enabled = False
        next_listed_bbox.Enabled = False
      End If
    End If
    line_size = TextHeight("A")
    lines_per_page = wsrc_form.ScaleHeight / line_size - 22
    wsrc_scroll.LargeChange = lines_per_page
    wsrc_scroll.Min = 1
    box_top = -1
    box_drawn = False
    button_down = False
    s_add_prefix.Text = ""
    s_add_title.Text = ""
    s_add_port.Text = ""
    s_add_server.Text = ""
    s_add_database.Text = ""
    doc_lines = LOF(tmp_handle) / MAX_TEXT_LENGTH
    If doc_lines <= lines_per_page Then
        wsrc_scroll.Max = 1
    Else
        wsrc_scroll.Max = doc_lines - lines_per_page
    End If

    wsrc_scroll.Min = 1
    For x = 1 To doc_lines

      Get #tmp_handle, x, rec

      If InStr(LCase$(rec), ":ip-name") And ip_number_found = False Then
        c1 = InStr(rec, Chr$(34))
        c2 = InStr(c1 + 1, rec, Chr$(34))
        If c2 = 0 Then
          c2 = Len(RTrim$(rec))
        End If
        s_add_server.Text = LTrim$(Mid$(rec, c1 + 1, c2 - c1 - 1))
        'wsrc_scroll.Min = x
      End If
      If InStr(LCase$(rec), ":ip-address") Then
        c1 = InStr(rec, Chr$(34))
        c2 = InStr(c1 + 1, rec, Chr$(34))
        If c2 = 0 Then
          c2 = Len(RTrim$(rec))
        End If
        s_add_server.Text = LTrim$(Mid$(rec, c1 + 1, c2 - c1 - 1))
        ip_number_found = True
        'wsrc_scroll.Min = x
      End If
      If InStr(LCase$(rec), ":tcp-port") > 1 Then
        i = InStr(LCase$(rec), ":tcp-port") + 9
        port$ = Str$(Val(Mid$(rec, i, 70)))
        s_add_port.Text = Right$(port$, Len(port$) - 1)
        'wsrc_scroll.Min = x
      End If

      If InStr(LCase$(rec), ":database-name") Then
        c1 = InStr(rec, Chr$(34))
        c2 = InStr(c1 + 1, rec, Chr$(34))
        If c2 = 0 Then
          c2 = Len(RTrim$(rec))
        End If
        s_add_database.Text = LTrim$(Mid$(rec, c1 + 1, c2 - c1 - 1))
        'wsrc_scroll.Min = x
      End If

      'If InStr(LCase$(rec), ":description") Then
      '  wsrc_scroll.Min = x
      'End If

    Next x

    s_add_prefix.Text = Mid$(question_form.title.Text, 18, 4)
    s_add_title.Text = Right$(question_form.title.Text, Len(question_form.title.Text) - 17)
    recno = wsrc_scroll.Min
    z = show_page()
End Sub
Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
    If Y < line_size * (FORM_OFFSET + 1) Then
      Exit Sub
    End If
    button_down = True
    If box_drawn Then
        wsrc_form.Line (0, box_top)-(wsrc_form.ScaleWidth, box_bottom), , BF
        box_drawn = False
    End If
    box_top = Int(Y / line_size) * line_size
End Sub
Sub Form_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
    If button_down Then
        If box_drawn Then
            wsrc_form.Line (0, box_top)-(wsrc_form.ScaleWidth, box_bottom), , BF
        End If
        box_bottom = Int(Y / line_size) * line_size + line_size
        wsrc_form.Line (0, box_top)-(wsrc_form.ScaleWidth, box_bottom), , BF
        box_drawn = True
    End If
End Sub
Sub form_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)
    button_down = False
End Sub
Sub form_resize ()
    If Not form_cancelled Then
      wsrc_scroll.Height = wsrc_form.Height - button_frame.Height - wsrc_frame.Height - 675
      wsrc_scroll.Left = wsrc_form.Width - 400
      wsrc_scroll.Refresh
      lines_per_page = wsrc_form.ScaleHeight / line_size - 22

      wsrc_scroll.LargeChange = lines_per_page
      If doc_lines <= lines_per_page Then
        wsrc_scroll.Max = 1
      Else
        wsrc_scroll.Max = doc_lines - lines_per_page
      End If
      z = show_page()
    End If
End Sub
Sub Form_Unload (Cancel As Integer)
    form_cancelled = True
    If doc_selected = NORMAL Then
      doc_selected = NONE
    End If
    Close (tmp_handle)
End Sub
Sub menu_add_section_click ()
Dim DocID As REF
    If box_top < 0 Then
      MsgBox "You haven't selected a section to add", MB_INFO
      Exit Sub
    End If
    z = get_docid(viewed_docno, DocID)
    refno = question_form.reference.ListCount
    ref_doc_size(refno) = DocID.doc_size
    ref_doc_bytes(refno) = Left$(DocID.doc_bytes, DocID.doc_size)
    ref_type(refno) = DocID.type
    ref_start(refno) = Int(box_top / line_size) + recno - FORM_OFFSET - 1
    ref_end(refno) = Int(box_bottom / line_size) + recno - (FORM_OFFSET + 2)
    ref_line$ = "[" + LTrim$(Str$(ref_start(refno))) + "," + LTrim$(Str$(ref_end(refno))) + "]" + viewed_headline
    question_form.reference.AddItem ref_line$
    wsrc_form.DrawMode = 7
    wsrc_form.Line (0, box_top)-(wsrc_form.ScaleWidth, box_bottom), &HFFFF&, BF
    wsrc_form.DrawMode = 6
    box_drawn = False
    box_top = -1
    box_bottom = 0
End Sub
Sub menu_copy_click ()
    If box_top < 0 Then
        MsgBox "You haven't selected a section to copy to the clipboard", MB_INFO
        Exit Sub
    End If
    REF = question_form.reference.ListCount
    title = question_form.title.ListIndex
    first_line = Int(box_top / line_size) + recno
    last_line = Int(box_bottom / line_size) + recno
    wsrc_form.DrawMode = 6
    wsrc_form.Line (0, box_top)-(wsrc_form.ScaleWidth, box_bottom), &HFFFF&, BF
    wsrc_form.DrawMode = 6
    box_drawn = False
    box_top = -1
    box_bottom = 0
    For x = first_line To last_line
        Get #1, x, rec
        cliptext$ = cliptext$ + RTrim$(rec) + Chr$(10) + Chr$(13)
    Next x
    clipboard.SetText cliptext$, 1
End Sub
Sub menu_done_Click ()
    doc_selected = NONE
    wsrc_form.Hide
End Sub
Sub menu_find_key_click ()
    If word(0) = "" Then
        MsgBox "No key words were used for this search", MB_INFO
    End If
    If doc_lines <= lines_per_page Then
        Exit Sub
    End If
    If wsrc_scroll.Value >= doc_lines - lines_per_page Then
        Exit Sub
    End If
    recno = recno + lines_per_page
    While Not show_page()
        recno = recno + lines_per_page
    Wend
    If doc_lines - lines_per_page > recno Then
        wsrc_scroll.Value = recno
    Else
        wsrc_scroll.Value = doc_lines - lines_per_page
    End If
    wsrc_scroll.Refresh
End Sub
Sub menu_next_in_order_click ()
    doc_selected = DOC_NEXT_INORDER
    wsrc_form.Hide
End Sub
Sub menu_next_listed_click ()
    doc_selected = DOC_NEXT_LISTED
    wsrc_form.Hide
End Sub
Sub menu_prev_in_order_click ()
    doc_selected = DOC_PREV_INORDER
    wsrc_form.Hide
End Sub
Sub menu_prev_listed_click ()
    doc_selected = DOC_PREV_LISTED
    wsrc_form.Hide
End Sub
Sub menu_print_click ()
Dim rec As String * MAX_TEXT_LENGTH
    question_form.file_dialog.CancelError = True
    question_form.file_dialog.FilterIndex = 1
    question_form.file_dialog.Flags = PD_HIDEPRINTTOFILE Or PD_NOPAGENUMS
    On Error Resume Next
    question_form.file_dialog.Action = 5
    Select Case Err
      Case 0
        mousepointer = HOURGLASS
        linecnt = 99
        pagecnt = 0
        For x = 1 To doc_lines
            If linecnt > 55 Then
                GoSub header
            End If
            Get #1, x, rec
            printer.Print RTrim$(rec)
        Next x
        printer.EndDoc
        Close (2)
        mousepointer = DEFAULT
      Case 32755
        z = show_page()
        Exit Sub
      Case Else
        msg$ = "Print failed with code" + Str$(Err) + ", print cancelled."
        MsgBox msg$, MB_WARN
    End Select
    z = show_page()
Exit Sub
header:
    printer.NewPage
    heading$ = Right$(question_form.title.List(view_docno), Len(question_form.title.List(docno)) - 17)
    If Len(heading$) > xx Then
        heading$ = Left$(heading$, xx)
    End If
    pagecnt = pagecnt + 1
    linecnt = 0
    printer.Print heading$; Format$(Now, "ddddd tttt"); "Page"; Str$(pagecnt)
    printer.Print
Return
End Sub
Sub menu_save_click ()
Dim rec As String * MAX_TEXT_LENGTH
    ip_number_found = False
    If InStr(title_type(docno), "WSRC") Then
    Else

      cur_dir$ = CurDir$

      On Error Resume Next
      question_form.file_dialog.Action = 2
      Select Case Err
        Case 0
          mousepointer = HOURGLASS
          save_handle = FreeFile
          Open question_form.file_dialog.Filename For Output As save_handle
          For x = 1 To doc_lines

            Get #tmp_handle, x, rec
            Print #save_handle, RTrim$(rec)
          Next x
          Close (save_handle)
          mousepointer = DEFAULT
        Case 32755
          z = show_page()
          Exit Sub
        Case Else
          msg$ = "Save failed with code" + Str$(Err) + ", save cancelled."
          MsgBox msg$, MB_WARN
      End Select
      ChDir cur_dir$
      z = show_page()
    End If
End Sub
Sub next_in_order_bbox_Click ()
    menu_next_in_order_click
End Sub
Sub next_listed_bbox_Click ()
    menu_next_listed_click
End Sub
Sub prev_in_order_bbox_Click ()
    menu_prev_in_order_click
End Sub
Sub prev_listed_bbox_Click ()
    menu_prev_listed_click
End Sub
Sub print_bbox_Click ()
    menu_print_click
End Sub
Sub save_bbox_Click ()
    menu_save_click
End Sub
Function show_page () As Integer
Static pos As Integer
    show_page = False
    If Not init_find Then
        GoSub first_find
    End If
    wsrc_form.Cls
    For x = 0 To FORM_OFFSET
      wsrc_form.Print
    Next x
    ln = x - 1
    For x = recno To recno + lines_per_page

      If x <= doc_lines Then

        Get #tmp_handle, x, rec
        currentx = 0
        wsrc_form.Print " "; rec
        ln = ln + 1

        If question_form.keywords.Text <> "" Then
          rec = LCase$(rec)

          For Y = 0 To wdno
            pos = 1
            While pos > 0
              pos = InStr(pos, rec, word(Y))
              If pos > 0 Then
                If test_for_word(word(Y), pos) Then
                  show_page = True
                  wsrc_form.DrawMode = 9
                  wd_left = pos * wsrc_form.TextWidth("A")
                  wd_right = (pos + Len(word(Y))) * wsrc_form.TextWidth("A")
                  wd_top = ln * wsrc_form.TextHeight("A")
                  wd_bottom = wd_top + wsrc_form.TextHeight("A")
                  wsrc_form.Line (wd_left, wd_top)-(wd_right, wd_bottom), &HFF00&, BF
                  wsrc_form.DrawMode = 6
                End If
                pos = pos + Len(word(Y))
              End If
            Wend
          Next Y
        End If
      Else
        show_page = True
      End If
    Next x
Exit Function
first_find:
    For c1 = 0 To 19
      word(c1) = ""
    Next c1
    words$ = LCase$(question_form.keywords.Text)
    For c1 = 1 To Len(words$)
      letter$ = Mid$(words$, c1, 1)
      If letter$ < "0" Or (letter$ > "9" And letter$ < "a") Or (letter$ > "z") Then
        Mid$(words$, c1, 1) = " "
      End If
    Next c1
    c1 = 1
    For wdno = 0 To 19
        c2 = InStr(c1, words$, " ")
        If c2 = 0 Then
            word(wdno) = Trim$(Mid$(words$, c1, Len(words$) - c1 + 1))
            Exit For
        End If
        word(wdno) = Trim$(Mid$(words$, c1, c2 - c1))
        c1 = c2 + 1
        If word(wdno) = "and" Or word(wdno) = "" Or word(wdno) = Space$(Len(word(wdno))) Then
            wdno = wdno - 1
        End If
    Next wdno
    If word(wdno) = "" Then
      wdno = wdno - 1
    End If
    init_find = True
Return
End Function
Sub source_groups_Click ()
    switch_source_group
End Sub
Sub source_groups_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
    switch_source_group
    keyascii = 0
  End If
End Sub
Sub source_groups_LostFocus ()
    switch_source_group
End Sub
Sub switch_source_group ()
    If source_groups.Text = "" Then
      MsgBox ("Please enter a NEW or EXISTING source group name")
      Exit Sub
    End If
    If source_groups.Text <> current_group Then
      save_source_group
      sources_are_loaded = False
      current_group = UCase$(source_groups.Text)
      load_source_group
    End If
End Sub
Function test_for_word (word As String, pos As Integer) As Integer
    If pos > 1 Then
      Select Case Mid$(rec, pos - 1, 1)
        Case "1" To "9"
          test_for_word = False
          Exit Function
        Case "a" To "z"
          test_for_word = False
          Exit Function
      End Select
    End If
    wdend = pos + Len(word)
    If wdend < 81 Then
      Select Case Mid$(rec, wdend, 1)
        Case "1" To "9"
          test_for_word = False
          Exit Function
        Case "a" To "z"
          test_for_word = False
          Exit Function
      End Select
    End If
    test_for_word = True
End Function
Sub wsrc_scroll_Change ()
    If recno <> wsrc_scroll.Value Then
        recno = wsrc_scroll.Value
        z = show_page()
    End If
    box_drawn = False
    box_top = -1
    box_bottom = 0
End Sub