X=0:Y=0
DIM D(16)
D(0)= &B0000111111110000
D(1)= &B0001000000001000
D(2)= &B0010000000000100
D(3)= &B0100000000000010
D(4)= &B1000000000000001
D(5)= &B1000000000000001
D(6)= &B1001100000011001
D(7)= &B1001100000011001
D(8)= &B1000000000000001
D(9)= &B1000000000000001
D(10)= &B1010000000001001
D(11)= &B1001000000010001
D(12)= &B1000111111100001
D(13)= &B1100000000000010
D(14)= &B0010000000001100
D(15)= &B0001111111110000
CLS
BITMAP D,X,Y,16
