{* White square, invert Black square *} WHITE_SQUARE : TChessman = ( $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF, $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF, $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$ff ); {* White pawn on black, invert Black pawn on white *} PAWN_SE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$18,$00,$00, $3C,$00,$00,$3C,$00,$00,$18,$00,$00,$3C,$00,$00,$7E,$00,$00,$7E,$00,$00,$3C, $00,$00,$18,$00,$00,$18,$00,$00,$3C,$00,$00,$3C,$00,$01,$FF,$80,$01,$FF,$80 ); {* Black pawn on black, invert White pawn on white *} PAWN_EE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$18,$00,$00,$24,$00,$00, $42,$00,$00,$42,$00,$00,$24,$00,$00,$42,$00,$00,$81,$00,$00,$81,$00,$00,$42, $00,$00,$24,$00,$00,$24,$00,$00,$42,$00,$01,$C3,$80,$02,$00,$40,$02,$00,$40 ); {* White king on black, invert Black king on white *} KING_SE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$18,$00,$00,$18,$00,$00,$18,$00,$00,$7E,$00,$00, $7E,$00,$06,$18,$60,$0F,$18,$F0,$1F,$DB,$F8,$1F,$C3,$F8,$1E,$FF,$78,$0D,$7E, $B0,$06,$FF,$60,$07,$FF,$E0,$02,$00,$40,$03,$FF,$C0,$01,$00,$80,$01,$FF,$80 ); {* Black king on black, invert White king on white *} KING_EE : TChessman = ( $00,$00,$00,$00,$18,$00,$00,$24,$00,$00,$24,$00,$00,$66,$00,$00,$81,$00,$06, $81,$60,$09,$24,$90,$10,$E7,$08,$20,$24,$04,$20,$3C,$04,$21,$00,$84,$12,$81, $48,$09,$00,$90,$08,$00,$10,$05,$FF,$A0,$04,$00,$20,$02,$FF,$40,$02,$00,$40 ); {* White queen on black, invert Black queen on white *} QUEEN_SE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$81,$00,$09,$C3,$90,$1C,$81,$38,$0A, $81,$50,$0A,$C3,$50,$0D,$E7,$B0,$0D,$E7,$B0,$0F,$FF,$F0,$0F,$FF,$F0,$0F,$FF, $F0,$0C,$00,$30,$07,$FF,$E0,$06,$00,$60,$03,$FF,$C0,$03,$00,$C0,$01,$FF,$80 ); {* Black queen on black, invert White queen on white *} QUEEN_EE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$81,$00,$09,$42,$90,$16,$24,$68,$23,$42,$C4,$15, $42,$A8,$15,$24,$A8,$12,$18,$48,$12,$18,$48,$10,$00,$08,$10,$00,$08,$10,$00, $08,$13,$FF,$C8,$08,$00,$10,$09,$FF,$90,$04,$00,$20,$04,$FF,$20,$02,$00,$40 ); {* White rook on black, invert Black rook on white *} ROOK_SE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$03,$99,$C0,$03,$99,$C0,$03, $99,$C0,$03,$FF,$C0,$01,$FF,$80,$00,$FF,$00,$00,$FF,$00,$00,$FF,$00,$00,$FF, $00,$00,$FF,$00,$00,$FF,$00,$01,$FF,$80,$01,$FF,$80,$07,$FF,$E0,$07,$FF,$E0 ); {* Black rook on black, invert White rook on withe *} ROOK_EE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$BD,$E0,$04,$A5,$20,$04,$A5,$20,$04, $E7,$20,$06,$00,$60,$03,$00,$C0,$01,$00,$80,$01,$00,$80,$01,$00,$80,$01,$00, $80,$01,$00,$80,$03,$00,$C0,$02,$00,$40,$0E,$00,$70,$08,$00,$10,$08,$00,$10 ); {* White knight on black, invert Black knight on white *} KNIGHT_SE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$48,$00,$00,$6C,$00,$00,$FE,$00,$01, $BD,$00,$01,$FE,$80,$03,$FE,$80,$07,$FE,$80,$06,$DE,$80,$05,$BE,$80,$03,$7E, $80,$00,$7E,$C0,$00,$FF,$40,$00,$FF,$40,$01,$FF,$60,$03,$FF,$E0,$03,$FF,$E0 ); {* Black knight on black, invert White knight on withe *} KNIGHT_EE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$48,$00,$00,$B4,$00,$00,$92,$00,$01,$01,$00,$02, $42,$80,$02,$01,$40,$04,$01,$40,$08,$01,$40,$09,$21,$40,$0A,$41,$40,$04,$81, $40,$03,$81,$20,$01,$00,$A0,$01,$00,$A0,$02,$00,$90,$04,$00,$10,$04,$00,$10 ); {* White bishop on black, invert Black bishop on white *} BISHOP_SE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3C,$00,$00,$7E,$00,$00,$66,$00,$00, $E7,$00,$01,$E7,$80,$03,$E7,$C0,$03,$18,$C0,$03,$E7,$C0,$01,$E7,$80,$00,$E7, $00,$00,$E7,$00,$00,$7E,$00,$00,$66,$00,$00,$7E,$00,$0F,$66,$F0,$19,$DB,$98 ); {* Black bishop on black, invert White bishop on withe *} BISHOP_EE : TChessman = ( $00,$00,$00,$00,$00,$00,$00,$3C,$00,$00,$42,$00,$00,$81,$00,$00,$99,$00,$01, $18,$80,$02,$18,$40,$04,$18,$20,$04,$E7,$20,$04,$18,$20,$02,$18,$40,$01,$18, $80,$01,$18,$80,$00,$81,$00,$00,$99,$00,$0F,$81,$F0,$10,$99,$08,$26,$24,$64 ); CHESSBOARD : array[0..32] of word = ( WHITE_SQUARE, ROOK_SE,KNIGHT_EE,BISHOP_SE,QUEEN_EE,KING_SE,BISHOP_EE,KNIGHT_SE,ROOK_EE, PAWN_EE,PAWN_SE,PAWN_EE,PAWN_SE,PAWN_EE,PAWN_SE,PAWN_EE,PAWN_SE, PAWN_EE,PAWN_SE,PAWN_EE,PAWN_SE,PAWN_EE,PAWN_SE,PAWN_EE,PAWN_SE, ROOK_SE,KNIGHT_EE,BISHOP_SE,QUEEN_EE,KING_SE,BISHOP_EE,KNIGHT_SE,ROOK_EE );