Attribute VB_Name = "SidebarGraphics"
'SidebarGraphics.bas
'Contains the drawing methods for the menu screen sidebars.

Public Sub sidebar1()

Call CoreGraphics.dot        'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 7
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub sidebar2()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x - 60      'line 9
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30      'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub sidebar3()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 12
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub sidebar4()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 15
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub sidebar5()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 18
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub sidebar6()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 21
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub sidebar7()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 24
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub sidebar8()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 27
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub sidebar9()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 30
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub phonebook1()

Call CoreGraphics.dot        'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 7
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub phonebook2()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x - 60      'line 9
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30      'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub phonebook3()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30         'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 12
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub phonebook4()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 15
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub phonebook5()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 18
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub phonebook6()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 21
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub phonebook7()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 24
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub phonebook8()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 27
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub messages1()

Call CoreGraphics.dot        'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 7
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub messages2()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x - 60      'line 9
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30      'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub messages3()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30         'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 12
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub messages4()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 15
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub messages6()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 21
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub messages7()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 27
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub callregister1()

Call CoreGraphics.dot        'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 7
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub callregister2()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x - 60      'line 9
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30      'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub callregister3()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30         'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 12
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub callregister4()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 21
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub callregister5()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 27
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub settings1()

Call CoreGraphics.dot        'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30      'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 7
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

x = x           'line 29
y = y + 45
Call CoreGraphics.dot

x = x           'line 30
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub settings2()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30         'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 12
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x           'line 27
y = y + 45
Call CoreGraphics.dot

x = x           'line 28
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub settings3()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 18
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

End Sub

Public Sub settings4()

Call CoreGraphics.dot        'line 1

x = x           'line 2
y = y + 45
Call CoreGraphics.dot

x = x           'line 3
y = y + 45
Call CoreGraphics.dot

x = x           'line 4
y = y + 45
Call CoreGraphics.dot

x = x           'line 5
y = y + 45
Call CoreGraphics.dot

x = x           'line 6
y = y + 45
Call CoreGraphics.dot

x = x           'line 7
y = y + 45
Call CoreGraphics.dot

x = x           'line 8
y = y + 45
Call CoreGraphics.dot

x = x           'line 9
y = y + 45
Call CoreGraphics.dot

x = x           'line 10
y = y + 45
Call CoreGraphics.dot

x = x           'line 11
y = y + 45
Call CoreGraphics.dot

x = x           'line 12
y = y + 45
Call CoreGraphics.dot

x = x           'line 13
y = y + 45
Call CoreGraphics.dot

x = x           'line 14
y = y + 45
Call CoreGraphics.dot

x = x           'line 15
y = y + 45
Call CoreGraphics.dot

x = x           'line 16
y = y + 45
Call CoreGraphics.dot

x = x           'line 17
y = y + 45
Call CoreGraphics.dot

x = x           'line 18
y = y + 45
Call CoreGraphics.dot

x = x           'line 19
y = y + 45
Call CoreGraphics.dot

x = x           'line 20
y = y + 45
Call CoreGraphics.dot

x = x           'line 21
y = y + 45
Call CoreGraphics.dot

x = x           'line 22
y = y + 45
Call CoreGraphics.dot

x = x           'line 23
y = y + 45
Call CoreGraphics.dot

x = x           'line 24
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 45
Call CoreGraphics.dot

x = x           'line 25
y = y + 45
Call CoreGraphics.dot

x = x           'line 26
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x
y = y + 45
Call CoreGraphics.dot

x = x - 30      'line 27
y = y + 45
Call CoreGraphics.dot

x = x - 30
y = y + 15
Call CoreGraphics.dot

End Sub

