#used for 5/21/03 Shannas'arrays
$XCENTER1 = 110185
$YCENTER1 = -122890
$XCENTER2 = 135408
$YCENTER2 = -97721
$XCENTER3 = 110121
$YCENTER3 = -72185
$XA=73412
$Y1=-35927
$XSQ=300
$YSQ=300
$XCLEAR=148000
$YCLEAR=-31318
$QINK=-77211
Speed,40000
Quill,-57035,-70079,-40000
Quill,clear
MoveAXY,XCLEAR,YCLEAR
$XCENTER = XCENTER1
$YCENTER = YCENTER1
Square,27,1,A,4
Square,28,1,A,4
Square,29,1,A,4
Square,30,1,A,4
$XCENTER = XCENTER2
$YCENTER = YCENTER2
Square,27,1,A,4
Square,28,1,A,4
Square,29,1,A,4
Square,30,1,A,4
$XCENTER = XCENTER3
$YCENTER = YCENTER3
Square,27,1,A,4
Square,28,1,A,4
Square,29,1,A,4
Square,30,1,A,4
$QINK=-75192
Pclean,P,17,10
Pclean,O,17,10
Pclean,N,17,10
Pclean,M,17,10
Pclean,L,17,10
Pclean,K,17,10
Pclean,J,17,10
Pclean,I,17,10
Pclean,H,17,10
Pclean,G,17,10
Pclean,F,17,10
Pclean,E,17,10
Pclean,D,17,10
Pclean,C,17,10
$QINK=-77211
# end of U338 section
$XCENTER = XCENTER1
$YCENTER = YCENTER1
Square,23,1,A,6
Square,26,1,A,6
Square,25,1,A,6
Square,22,1,A,6
Square,20,1,A,6
$XCENTER = XCENTER2
$YCENTER = YCENTER2
Square,23,1,A,6
Square,26,1,A,6
Square,25,1,A,6
Square,22,1,A,6
Square,20,1,A,6
$XCENTER = XCENTER3
$YCENTER = YCENTER3
Square,23,1,A,6
Square,26,1,A,6
Square,25,1,A,6
Square,22,1,A,6
Square,20,1,A,6
$QINK=-75192
Pclean,P,18,10
Pclean,O,18,10
Pclean,N,18,10
Pclean,M,18,10
Pclean,L,18,10
Pclean,K,18,10
Pclean,J,18,10
Pclean,I,18,10
Pclean,H,18,10
Pclean,G,18,10
Pclean,F,18,10
Pclean,E,18,10
Pclean,D,18,10
Pclean,C,18,10
$QINK=-77211
# end of B941 section
$XCENTER = XCENTER1
$YCENTER = YCENTER1
Square,31,1,A,8
Square,32,1,A,8
Square,34,1,A,8
Square,35,1,A,8
Square,36,1,A,8
$XCENTER = XCENTER2
$YCENTER = YCENTER2
Square,31,1,A,8
Square,32,1,A,8
Square,34,1,A,8
Square,35,1,A,8
Square,36,1,A,8
$XCENTER = XCENTER3
$YCENTER = YCENTER3
Square,31,1,A,8
Square,32,1,A,8
Square,34,1,A,8
Square,35,1,A,8
Square,36,1,A,8
$QINK=-75192
Pclean,P,19,10
Pclean,O,19,10
Pclean,N,19,10
Pclean,M,19,10
Pclean,L,19,10
Pclean,K,19,10
Pclean,J,19,10
Pclean,I,19,10
Pclean,H,19,10
Pclean,G,19,10
Pclean,F,19,10
Pclean,E,19,10
Pclean,D,19,10
Pclean,C,19,10
$QINK=-77211
#end of B1066 section
$XCENTER = XCENTER1
$YCENTER = YCENTER1
Square,33,1,A,10
Square,0,1,A,10
Square,15,1,A,10
Square,12,1,A,10
Square,10,1,A,10
$XCENTER = XCENTER2
$YCENTER = YCENTER2
Square,33,1,A,10
Square,0,1,A,10
Square,15,1,A,10
Square,12,1,A,10
Square,10,1,A,10
$XCENTER = XCENTER3
$YCENTER = YCENTER3
Square,33,1,A,10
Square,0,1,A,10
Square,15,1,A,10
Square,12,1,A,10
Square,10,1,A,10
$QINK=-75192
Pclean,P,20,10
Pclean,O,20,10
Pclean,N,20,10
Pclean,M,20,10
Pclean,L,20,10
Pclean,K,20,10
Pclean,J,20,10
Pclean,I,20,10
Pclean,H,20,10
Pclean,G,20,10
Pclean,F,20,10
Pclean,E,20,10
Pclean,D,20,10
Pclean,C,20,10
$QINK=-77211
#end of Pdiat4S section
$XCENTER = XCENTER1
$YCENTER = YCENTER1
Square,19,1,A,12
Square,21,1,A,12
Square,24,1,A,12
Square,16,1,A,12
Square,17,1,A,12
$XCENTER = XCENTER2
$YCENTER = YCENTER2
Square,19,1,A,12
Square,21,1,A,12
Square,24,1,A,12
Square,16,1,A,12
Square,17,1,A,12
$XCENTER = XCENTER3
$YCENTER = YCENTER3
Square,19,1,A,12
Square,21,1,A,12
Square,24,1,A,12
Square,16,1,A,12
Square,17,1,A,12
$QINK=-75192
Pclean,P,21,10
Pclean,O,21,10
Pclean,N,21,10
Pclean,M,21,10
Pclean,L,21,10
Pclean,K,21,10
Pclean,J,21,10
Pclean,I,21,10
Pclean,H,21,10
Pclean,G,21,10
Pclean,F,21,10
Pclean,E,21,10
Pclean,D,21,10
Pclean,C,21,10
$QINK=-77211
#end of M2B section
$XCENTER = XCENTER1
$YCENTER = YCENTER1
Square,6,1,A,14
Square,3,1,A,14
Square,1,1,A,14
Square,4,1,A,14
Square,7,1,A,14
$XCENTER = XCENTER2
$YCENTER = YCENTER2
Square,6,1,A,14
Square,3,1,A,14
Square,1,1,A,14
Square,4,1,A,14
Square,7,1,A,14
$XCENTER = XCENTER3
$YCENTER = YCENTER3
Square,6,1,A,14
Square,3,1,A,14
Square,1,1,A,14
Square,4,1,A,14
Square,7,1,A,14
$QINK=-75192
Pclean,P,22,10
Pclean,O,22,10
Pclean,N,22,10
Pclean,M,22,10
Pclean,L,22,10
Pclean,K,22,10
Pclean,J,22,10
Pclean,I,22,10
Pclean,H,22,10
Pclean,G,22,10
Pclean,F,22,10
Pclean,E,22,10
Pclean,D,22,10
Pclean,C,22,10
$QINK=-77211
#end of M2 section
$XCENTER = XCENTER1
$YCENTER = YCENTER1
Square,2,1,A,16
Square,5,1,A,16
Square,8,1,A,16
Square,9,1,A,16
$XCENTER = XCENTER2
$YCENTER = YCENTER2
Square,2,1,A,16
Square,5,1,A,16
Square,8,1,A,16
Square,9,1,A,16
$XCENTER = XCENTER3
$YCENTER = YCENTER3
Square,2,1,A,16
Square,5,1,A,16
Square,8,1,A,16
Square,9,1,A,16
$QINK=-75192
Pclean,P,23,10
Pclean,O,23,10
Pclean,N,23,10
Pclean,M,23,10
Pclean,L,23,10
Pclean,K,23,10
Pclean,J,23,10
Pclean,I,23,10
Pclean,H,23,10
Pclean,G,23,10
Pclean,F,23,10
Pclean,E,23,10
Pclean,D,23,10
Pclean,C,23,10
$QINK=-77211
#end of MALF section
$XCENTER = XCENTER1
$YCENTER = YCENTER1
Square,18,1,A,18
Square,14,1,A,18
Square,13,1,A,18
Square,11,1,A,18
$XCENTER = XCENTER2
$YCENTER = YCENTER2
Square,18,1,A,18
Square,14,1,A,18
Square,13,1,A,18
Square,11,1,A,18
$XCENTER = XCENTER3
$YCENTER = YCENTER3
Square,18,1,A,18
Square,14,1,A,18
Square,13,1,A,18
Square,11,1,A,18
$QINK=-75192
Pclean,P,24,10
Pclean,O,24,10
Pclean,N,24,10
Pclean,M,24,10
Pclean,L,24,10
Pclean,K,24,10
Pclean,J,24,10
Pclean,I,24,10
Pclean,H,24,10
Pclean,G,24,10
Pclean,F,24,10
Pclean,E,24,10
Pclean,D,24,10
Pclean,C,24,10
$QINK=-77211
#end of CYTO section
Quill,clear
MoveAXY,XCLEAR,YCLEAR
End