ON ERROR question

[Pete]

Gotcha...

So I thought I'd throw a skeleton together for myself, in case I ever want to take advantage of INCLUDE files.

Main:

Code: (Select All)

Dim Shared erh As Integer

Do

    Cls

    Input "Value for i:"; i

    pete1

    pete2 (i)

    Sleep 5

    If InKey$ = Chr$(27) Then Exit Do

Loop

End



handler:

erh = Err

Resume Next



'$Include: 'Pete1.bm'

'$Include: 'Pete2.bm'

Pete1 library:

Code: (Select All)

Sub pete1

    Print "Pete 1"

End Sub

Pete2 library:

Code: (Select All)

Sub pete2 (i)

    On Error GoTo handler

    Locate i, 20

    If erh Then Beep: Erh = 0: Exit Sub

    Print "Pete 2"

End Sub

Pete