const apple : array[0..143] of byte =( $00,$00,$00,$00,$00,$00,$30,$02,$00,$00,$00,$00, $00,$00,$00,$00,$00,$30,$02,$00,$00,$00,$00,$00, $00,$00,$0C,$0C,$0C,$30,$02,$0C,$0C,$0C,$00,$00, $00,$0C,$0C,$0F,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$00, $0C,$0C,$0F,$0C,$0C,$0C,$0C,$0C,$0C,$70,$0C,$0C, $0C,$0F,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$70, $0C,$0F,$0C,$0C,$0C,$0C,$0C,$0C,$70,$0C,$70,$70, $00,$0C,$0C,$0C,$0C,$0C,$70,$0C,$0C,$0C,$70,$00, $00,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$70,$70,$70,$00, $00,$00,$0C,$0C,$0C,$0C,$0C,$70,$0C,$70,$00,$00, $00,$00,$00,$0C,$0C,$0C,$70,$70,$70,$00,$00,$00, $00,$00,$00,$00,$00,$30,$30,$00,$00,$00,$00,$00); pear : array[0..131] of byte =( $00,$00,$00,$00,$00,$00,$30,$30,$30,$00,$00, $00,$00,$00,$00,$2C,$30,$30,$00,$00,$30,$00, $00,$00,$00,$2C,$2C,$2C,$2B,$00,$00,$00,$30, $00,$00,$00,$2C,$2C,$2C,$2C,$00,$00,$00,$30, $00,$00,$2C,$2C,$2C,$2C,$2C,$2B,$00,$00,$00, $00,$2C,$2C,$2C,$2C,$2C,$2C,$2C,$2B,$00,$00, $2C,$2C,$2C,$2C,$2C,$2C,$2C,$2B,$2A,$2B,$00, $2C,$2C,$2C,$2C,$2C,$2B,$2B,$2B,$2B,$2A,$00, $2C,$2C,$2C,$2C,$2B,$2C,$2B,$2A,$2B,$2A,$00, $2C,$2C,$2C,$2C,$2C,$2B,$2B,$2B,$2A,$2A,$00, $00,$2C,$2C,$2B,$2B,$2B,$2A,$2A,$2A,$00,$00, $00,$00,$00,$2B,$2B,$2B,$2A,$00,$00,$00,$00);