Attribute VB_Name = "MediumCharacterSet"
'MediumCharacterSet.bas
'Contains the drawing methods for the medium character set.

Public Sub hyphen()

Call CoreGraphics.dot             'line1

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

End Sub

Public Sub Cp()

Call CoreGraphics.dot             'line1

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

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

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

x = x - 90                     'line2
y = y + 45
Call CoreGraphics.dot

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

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

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

x = x - 120                      'line3
y = y + 45
Call CoreGraphics.dot

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

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

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

x = x - 120                      'line4
y = y + 45
Call CoreGraphics.dot

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

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

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

x = x - 120                      'line5
y = y + 45
Call CoreGraphics.dot

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

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

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

x = x - 90                      'line6
y = y + 45
Call CoreGraphics.dot

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

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

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

Public Sub Cc()

Call CoreGraphics.dot             'line1

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

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

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

x = x - 120                    'line2
y = y + 45
Call CoreGraphics.dot

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub a()

Call CoreGraphics.dot             'line1

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

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

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

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

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

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

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

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

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

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

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

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

x = x - 90                  'line5
y = y + 45
Call CoreGraphics.dot

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

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

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

End Sub

Public Sub a_del()

Call CoreGraphics.del             'line1

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

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

x = x                      'line2
y = y + 45
Call CoreGraphics.del

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

x = x - 90                  'line 3
y = y + 45
Call CoreGraphics.del

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

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

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

x = x - 120                 'line 4
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 90                  'line5
y = y + 45
Call CoreGraphics.del

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

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

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

End Sub

Public Sub b()

Call CoreGraphics.dot             'line1

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

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

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

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

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

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

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

x = x - 90                  'line4
y = y + 45
Call CoreGraphics.dot

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

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

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

x = x - 120                 'line5
y = y + 45
Call CoreGraphics.dot

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

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

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

x = x - 120                 'line6
y = y + 45
Call CoreGraphics.dot

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

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

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

x = x - 120                 'line7
y = y + 45
Call CoreGraphics.dot

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

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

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

End Sub

Public Sub b_del()

Call CoreGraphics.del             'line1

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

x = x - 30                 'line2
y = y + 45
Call CoreGraphics.del

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

x = x - 30                 'line3
y = y + 45
Call CoreGraphics.del

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

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

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

x = x - 90                  'line4
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120                 'line5
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120                 'line6
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120                 'line7
y = y + 45
Call CoreGraphics.del

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

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

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

End Sub

Public Sub m0()

Call CoreGraphics.dot             'line1

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

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

x = x - 90            'line2
y = y + 45
Call CoreGraphics.dot

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

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

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

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

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

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

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

x = x - 120             'line4
y = y + 45
Call CoreGraphics.dot

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub m1()

Call CoreGraphics.dot            'line 1

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

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

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

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

x = x - 30          '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 + 30
y = y + 15
Call CoreGraphics.dot

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

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

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

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

End Sub

Public Sub m2()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub m3()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

x = x + 30
y = y + 15
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 5
y = y + 45
Call CoreGraphics.dot

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

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

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

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

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

End Sub

Public Sub m4()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub m5()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

x = x + 30
y = y + 15
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 5
y = y + 45
Call CoreGraphics.dot

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

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

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

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

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

End Sub

Public Sub m6()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub m7()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub m8()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub m9()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub m0del()

Call CoreGraphics.del             'line1

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

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

x = x - 90            'line2
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120            'line 3
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120             'line4
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120             'line 5
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 90          'line 6
y = y + 45
Call CoreGraphics.del

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

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

End Sub

Public Sub m1del()

Call CoreGraphics.del            'line 1

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

x = x - 60          'line 2
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub m2del()

Call CoreGraphics.del            'line 1

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

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

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

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

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

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

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

x = x - 90          'line 4
y = y + 45
Call CoreGraphics.del

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

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

x = x - 90          'line 5
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

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

End Sub

Public Sub m3del()

Call CoreGraphics.del            'line 1

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

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

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

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

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

x = x - 90          'line 3
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

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

x = x - 120         'line 4
y = y + 45
Call CoreGraphics.del

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

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

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

End Sub

Public Sub m4del()

Call CoreGraphics.del            'line 1

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

x = x - 60          'line 2
y = y + 45
Call CoreGraphics.del

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

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

x = x - 90          'line 3
y = y + 45
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120          'line 4
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

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

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

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

End Sub

Public Sub m5del()

Call CoreGraphics.del            'line 1

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

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

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

x = x - 90          'line 2
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

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

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

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

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

x = x - 120          'line 6
y = y + 45
Call CoreGraphics.del

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

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

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

End Sub

Public Sub m6del()

Call CoreGraphics.del            'line 1

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

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

x = x - 90          'line 2
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

x = x - 90          'line 4
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120         'line 5
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 90          'line 6
y = y + 45
Call CoreGraphics.del

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

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

End Sub

Public Sub m7del()

Call CoreGraphics.del            'line 1

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

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

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

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

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

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

x = x - 60          'line 3
y = y + 45
Call CoreGraphics.del

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

x = x - 60          'line 4
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

End Sub

Public Sub m8del()

Call CoreGraphics.del            'line 1

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

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

x = x - 90          'line 2
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 90          'line 3
y = y + 45
Call CoreGraphics.del

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

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

x = x - 90          'line 4
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120          'line 5
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 90          'line 6
y = y + 45
Call CoreGraphics.del

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

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

End Sub

Public Sub m9del()

Call CoreGraphics.del            'line 1

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

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

x = x - 90          'line 2
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120         'line 3
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 90          'line 4
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

x = x - 90          'line 6
y = y + 45
Call CoreGraphics.del

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

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

End Sub

Public Sub Cr()

Call CoreGraphics.dot      'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Public Sub Cs()

Call CoreGraphics.dot      'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub Cs_del()

Call CoreGraphics.del      'line 1

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

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

x = x - 90          'line 2
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

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

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

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

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

x = x - 90          'line 7
y = y + 45
Call CoreGraphics.del

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

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

End Sub

Public Sub Cf()

Call CoreGraphics.dot      'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

x = x - 30          '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 + 30
y = y + 15
Call CoreGraphics.dot

End Sub
Public Sub Cv()

Call CoreGraphics.dot      'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

x = x - 60          '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 + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub Cw()

Call CoreGraphics.dot      'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub
Public Sub c()

Call CoreGraphics.dot      'line 1

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

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

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

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

x = x - 30          '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 + 30
y = y + 15
Call CoreGraphics.dot

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

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

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

End Sub

Public Sub c_del()

Call CoreGraphics.del      'line 1

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

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

x = x - 90          'line 2
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

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

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

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

End Sub

Public Sub t()

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 + 30
y = y + 15
Call CoreGraphics.dot

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub t_del()

Call CoreGraphics.del      'line 1

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

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

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

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

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

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

x = x - 60          'line 4
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

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

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

End Sub

Public Sub r()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

x = x - 90          '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 + 30
y = y + 15
Call CoreGraphics.dot

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

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

End Sub

Public Sub r_del()

Call CoreGraphics.del            'line 1

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

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x - 90          'line 2
y = y + 45
Call CoreGraphics.del

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

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

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

x = x - 90          'line 3
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

End Sub

Public Sub m_y()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub m_y_del()

Call CoreGraphics.del            'line 1

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120                 'line 2
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120                 'line 3
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 90                 'line 4
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

x = x - 90                 'line 6
y = y + 45
Call CoreGraphics.del

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

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

End Sub

Public Sub Ce()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

x = x - 30                 '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 + 30
y = y + 15
Call CoreGraphics.dot

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

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

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

End Sub

Public Sub Ce_del()

Call CoreGraphics.del            'line 1

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

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

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

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

x = x - 120                 'line 2
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

x = x - 90                 'line 4
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

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

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

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

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

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

End Sub
Public Sub s()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

x = x + 30
y = y + 15
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 + 30
y = y + 15
Call CoreGraphics.dot

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

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

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

End Sub

Public Sub s_del()

Call CoreGraphics.del            'line 1

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

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

x = x - 90                 'line 2
y = y + 45
Call CoreGraphics.del

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

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

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

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

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

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

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

x = x - 90                 'line 5
y = y + 45
Call CoreGraphics.del

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

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

End Sub

Public Sub p()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Public Sub p_del()

Call CoreGraphics.del            'line 1

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

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

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

x = x - 90               'line 2
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120               'line 3
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120               'line 4
y = y + 45
Call CoreGraphics.del

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

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

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

x = x - 90               'line 5
y = y + 45
Call CoreGraphics.del

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

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

x = x + 30
y = y + 15
Call CoreGraphics.del
End Sub

Public Sub Co()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Public Sub Co_del()

Call CoreGraphics.del            'line 1

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

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

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

x = x - 120               'line 2
y = y + 45
Call CoreGraphics.del

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

x = x + 90
y = y + 15
Call CoreGraphics.del

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

x = x - 150               'line 3
y = y + 45
Call CoreGraphics.del

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

x = x + 90
y = y + 15
Call CoreGraphics.del

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

x = x - 150               'line 4
y = y + 45
Call CoreGraphics.del

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

x = x + 90
y = y + 15
Call CoreGraphics.del

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

x = x - 150               'line 5
y = y + 45
Call CoreGraphics.del

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

x = x + 90
y = y + 15
Call CoreGraphics.del

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

x = x - 150               'line 6
y = y + 45
Call CoreGraphics.del

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

x = x + 90
y = y + 15
Call CoreGraphics.del

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

x = x - 120               'line 7
y = y + 45
Call CoreGraphics.del

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

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

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

End Sub
Public Sub i()

Call CoreGraphics.dot            'line 1

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

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

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

x = x - 30                 '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 + 30
y = y + 15
Call CoreGraphics.dot

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

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

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

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

End Sub

Public Sub i_del()

Call CoreGraphics.del            'line 1

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

x = x - 30                 'line 2
y = y + 90
Call CoreGraphics.del

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

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

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

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

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

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

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

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

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

End Sub
Public Sub Ca_del()

Call CoreGraphics.del            'line 1

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

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

x = x - 90                 'line 2
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120                 'line 3
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120                 'line 4
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120                 'line 5
y = y + 45
Call CoreGraphics.del

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

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

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

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

x = x - 120                 'line 6
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

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

x = x - 120                 'line 7
y = y + 45
Call CoreGraphics.del

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

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del
End Sub

Public Sub Cd()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

x = x + 30
y = y + 15
Call CoreGraphics.dot
End Sub
Public Sub Ca()

Call CoreGraphics.dot            'line 1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120                 'line 7
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot
End Sub

Public Sub o_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90          'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120          'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120          'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90           'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub

Public Sub o()

Call CoreGraphics.dot            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90          'line 2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120          'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120          'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90           'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub
Public Sub n_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90         'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120        'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120        'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120        'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub

Public Sub n()

Call CoreGraphics.dot            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90         'line 2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120        'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120        'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120        'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub e_del()

Call CoreGraphics.del          'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90        'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120        'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120        'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x              'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub
Public Sub e()

Call CoreGraphics.dot          'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90        'line 2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120        'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120        'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x              'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub d_del()

Call CoreGraphics.del          'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30        'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90        'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120        'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120        'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120        'line 6
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90         'line 7
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub
Public Sub d()

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 + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90        'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120        'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120        'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120        'line 6
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90         'line 7
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub k()

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 + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120          'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90          'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 60          'line 6
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90          'line 7
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub k_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120          'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90          'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 60          'line 6
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90          'line 7
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub
Public Sub l()

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 + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          '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 + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          '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 + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub l_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 6
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 7
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub

Public Sub h()

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 + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90          'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120          'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120          'line 6
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120          'line 7
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub h_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90          'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120          'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120          'line 6
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120          'line 7
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub
Public Sub f()

Call CoreGraphics.dot            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 60          'line 2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 60          'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          '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 + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub f_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 60          'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 60          'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 6
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 7
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub

Public Sub g()

Call CoreGraphics.dot            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120                'line2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120                'line3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90                  'line4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30                  'line5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90                  'line6
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub g_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120                'line2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120                'line3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90                  'line4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30                  'line5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90                  'line6
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub
Public Sub m()

Call CoreGraphics.dot            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 180          'line 2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 210          'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 210          'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 210          'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub m_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 180          'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 210          'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 210          'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 210          'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub

Public Sub Ci()

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 + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          '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 + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          '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 + 30
y = y + 15
Call CoreGraphics.dot
End Sub

Public Sub Ci_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 6
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 7
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del
End Sub

Public Sub Cm()

Call CoreGraphics.dot      'line 1

x = x + 180
y = y + 15
Call CoreGraphics.dot

x = x - 180         'line 2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 120
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 180         'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 180         'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 180         'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 180         'line 6
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 120
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 180         'line 7
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 120
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot
End Sub

Public Sub Cm_del()

Call CoreGraphics.del      'line 1

x = x + 180
y = y + 15
Call CoreGraphics.del

x = x - 180         'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 120
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 180         'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 180         'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 180         'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 180         'line 6
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 120
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 180         'line 7
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 120
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del
End Sub

Public Sub Cl_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 6
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 30          'line 7
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub
Public Sub Cl()

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 + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          '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 + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          '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 + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub
Public Sub u_del()

Call CoreGraphics.del            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120         'line 2
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120         'line 3
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 120         'line 4
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 60
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x - 90          'line 5
y = y + 45
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

x = x + 30
y = y + 15
Call CoreGraphics.del

End Sub

Public Sub m_x()

Call CoreGraphics.dot            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120         'line 2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90         'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90         'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120         'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub
Public Sub u()

Call CoreGraphics.dot            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120         'line 2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120         'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120         'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90          'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub w()

Call CoreGraphics.dot            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 120
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 180         'line 2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 180         'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 150         'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120         'line 5
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub v()

Call CoreGraphics.dot            'line 1

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 120         'line 2
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 60
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 90         'line 3
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 60         'line 4
y = y + 45
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x + 30
y = y + 15
Call CoreGraphics.dot

x = x - 30          'line 5
y = y + 45
Call CoreGraphics.dot

End Sub

