(4,4,4,4,7,4,4,4,4,4));
Const p> StoneHgt = 8;
StoneWdt = 8;
StoneSpr: Array [1 .. StoneHgt, 1 .. StoneWdt] of Byte =
((0,0,8,8,8,8,0,0),
(0,8,7,7,8,8,8,0),
(8,7,8,8,8,8,8,8),
(8,7,8,8,8,8,8,8),
(8,8,8,8,8,8,8,8),
(8,8,8,8,8,8,8,8),
(0,8,8,8,8,8,8,0),
(0,0,8,8,8,8,0,0));
Const p> ManHgt = 20;
ManWdt = 16;
ManSpr: Array [1 .. 2,1 .. ManHgt, 1 .. ManWdt] of Byte =
(((00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(00,00,00,00,00,00, 7, 7, 7, 7,00,00,00,00,00,00),
(00,00,00,00,00, 7, 7, 7, 7, 7, 7,00,00,00,00,00),
(00,00,00,00,00, 7,15,15,15,15, 7,00,00,00,00,00),
(00,00,00,00,00,15, 3, 1, 1, 3,15,00,00,00,00,00),
(00,00,00,00,00,15,15,15,15,15,15,00,00,00,00,00),
(00,00,00,00,00,15,15, 8, 8,15,15,00,00,00,00,00),
(00,00,00,00,00,15,15,13,13,15,15,00,00,00,00,00),
(00,00,00,00,00,00,15,15,15,15,00,00,00,00,00,00),
(00,00,00,00,12,12,15,15,15,15,12,12,00,00,00,00),
(00,12,12,12,12,12,12,14,14,12,12,12,12,12,12,00),
(12,12,12,12,12,12,12,14,14,12,12,12,12,12,12,12),
(12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12),
(12,12, 8,12,12,12,12,12,12,12,12,12,12, 8,12,12),
(12,12, 8,12,12,12,12,12, 8,12,12,12,12, 8,12,12),
(12,12, 8,12,12,12,12,12,12,12,12,12,12, 8,12,12),
(12,12, 8,12,12,12,12,12, 8,12,12,12,12, 8,12,12)),
((00,00,00,15,00,00,00,00,00,00,00,00,15,00,00,00),
(00,00,00,15,00,00,00,00,00,00,00,00,15,00,00,00),
(00,00,12,12,00,00,00,00,00,00,00,00,12,12,00,00),
(00,00,12,12,00,00,00,00,00,00,00,00,12,12,00,00),
(00,00,12,12,00,00, 7, 7, 7, 7,00,00,12,12,00,00),
(00,00,12,12,00, 7, 7, 7, 7, 7, 7,00,12,12,00,00),
(00,12,12,00,00, 7,15,15,15,15, 7,00,00,12,12,00),
(00,12,12,00,00,15, 3, 1, 1, 3,15,00,00,12,12,00),
(00,12,12,00,00,15,15,15,15,15,15,00,00,12,12,00),
(00,12,12,00,00,15,15, 8, 8,15,15,00,00,12,12,00),
(00,12,12,00,00,15,15,13,13,15,15,00,00,12,12,00),
(00,12,12,12,00,00,15,15,15,15,00,00,12,12,12,00),
(00,00,12,12,12,12,15,15,15,15,12,12,12,12,00,00),
(00,00,12,12,12,12,12,14,14,12,12,12,12,12,00,00),
(00,00,12,12,12,12,12,14,14,12,12,12,12,12,00,00),
(00,00,12,12,12,12,12,12,12,12,12,12,12,12,00,00),
(00,00,00,12,12,12,12,12,12,12,12,12,12,00,00,00),
(00,00,00,12,12,12,12,12, 8,12,12,12,12,00,00,00),
(00,00,00,12,12,12,12,12,12,12,12,12,12,00,00,00),
(00,00,00,12,12,12,12,12, 8,12,12,12,12,00,00,00)));
Const p> EnemyHgt = 42;
EnemyWdt = 16;
EnemySpr: Array [1 .. 2,1 .. E...