Компилятор языка Паскаль - планы на будущее

[Bolt]

const
	HERO_SPRITE:array [1..12] of byte = (1,0,0,71,$5a,$52,$3c,$10,$10,$18,$14,$14);
	DEVIL_SPRITE:array [1..12] of byte = (1,0,0,3,$5a,$52,$3c,$10,$10,$18,$14,$14);

begin
	...
	SpritePutClear(@HERO_SPRITE,x_hero-1,y_hero-1);
	for i:=1 to volume_devils do SpritePutClear(@DEVIL_SPRITE,devil[i,1]-1,devil[i,2]-1);
	...
end.

И это, блин, работает!