Attribute VB_Name = "LargeCharacterSet"
'LargeCharacterSet.bas
'Contains the drawing methods for the large character set.

Public Sub bstar()

Call CoreGraphics.dot        'line 1

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

End Sub

Public Sub bhash()

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           '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 - 150             '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
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           '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 - 150             '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

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           'line7
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           'line8
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           'line9
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 b0()

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 - 150            'line2
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            'line3
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            'line4
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            'line5
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            'line6
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            'line7
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            'line8
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            'line9
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            'line10
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 - 150            'line11
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 b9()

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 - 150            'line2
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            'line3
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            'line4
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            'line5
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            'line6
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 - 150             '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

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

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

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

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

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

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

x = x - 180             'line10
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 - 150             'line11
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 b8()

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 - 150            'line2
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            'line3
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            'line4
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 - 150             '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 + 30
y = y + 15
Call CoreGraphics.dot

x = x - 150            'line6
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            'line7
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            'line8
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            'line9
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            'line10
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 - 150             'line11
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 b7()

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 - 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 - 60            '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 - 60            '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

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

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

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

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

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

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

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

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

End Sub

Public Sub b6()

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 - 150            'line2
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             '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
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             'line6
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             'line7
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             'line8
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             'line9
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             'line10
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 - 150             'line11
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 b5()

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 - 150         'screen_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
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         'line6
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 - 30          'line7
y = y + 45
Call CoreGraphics.dot

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

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

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

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

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

x = x - 180         'line10
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 - 150         'line11
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 b4()

Call CoreGraphics.dot        'line 1

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

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

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

End Sub
Public Sub b3()

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 - 150           '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 - 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 - 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                   '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              'line 8
y = y + 45
Call CoreGraphics.dot

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

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

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

x = x - 180              'line 10
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 - 150                'line 11
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 b2()

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 - 150             'line2
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             'line3
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 - 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 - 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 - 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 - 90              'line8
y = y + 45
Call CoreGraphics.dot

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

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

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

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

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

x = x - 30              'line11
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

End Sub
Public Sub b1()

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 + 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 + 60
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

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

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

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

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

End Sub

Public Sub a()

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 - 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 - 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 - 150      'line 7
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 8
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 b()

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
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 + 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 - 150     'line 7
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 8
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 9
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 10
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 11
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 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 + 90
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     '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 + 90
y = y + 15
Call CoreGraphics.dot

x = x - 90     'line 8
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 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 - 30      'line 3
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

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 - 150      'line 7
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 8
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 9
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 10
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 11
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 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 + 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 + 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 - 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 + 120
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 f()

Call CoreGraphics.dot      'line 1

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

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

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

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

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

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

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

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

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

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

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

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 + 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 - 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 - 150     'line 7
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 8
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 9
y = y + 45
Call CoreGraphics.dot

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

x = x - 120     'line 10
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 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      '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 + 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 - 150     'line 7
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 8
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 9
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 10
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 11
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

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 + 45
Call CoreGraphics.dot

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

x = x - 30      'line 3
y = y + 75
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      'line 8
y = y + 45
Call CoreGraphics.dot

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

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

Public Sub j()

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 + 75
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      'line 8
y = y + 45
Call CoreGraphics.dot

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

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

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

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

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

x = x - 60       'line 8
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 9
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 10
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 11
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

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

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

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

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

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

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

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

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

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

x = x - 210     '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

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

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

x = x - 210     'line 8
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 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 + 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 - 150     'line 7
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 8
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

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 + 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 - 150      'line 7
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 8
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 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 + 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 - 150     'line 7
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 8
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         'line9
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 + 30
y = y + 15
Call CoreGraphics.dot

End Sub

Public Sub q()

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 - 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 - 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 - 150      'line 7
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 8
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 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 + 30
y = y + 15
Call CoreGraphics.dot
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 + 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
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 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       'line 8
y = y + 45
Call CoreGraphics.dot

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

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 + 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       '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

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

x = x - 60      '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      'line 8
y = y + 45
Call CoreGraphics.dot

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

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

x = x       'line 11
y = y + 45
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 + 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 - 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 - 150         'line 7
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 8
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 v()

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 - 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 - 120         'line 5
y = y + 45
Call CoreGraphics.dot

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

End Sub
