program Rasters;
var

@define kernal "1"

interrupt IRQ1();

interrupt IRQ0();
begin
	StartIRQ(@kernal);
	screen_bg_col := red;
	RasterIRQ(IRQ1(), $11, @kernal);
	CloseIRQ();
end;

interrupt IRQ2();
begin
	StartIRQ(@kernal);
	screen_bg_col := yellow;
	RasterIRQ(IRQ0(), $fe, @kernal);
	CloseIRQ();
end;

interrupt IRQ1();
begin
	StartIRQ(@kernal);
	screen_bg_col := green;
	RasterIRQ(IRQ2(), $51, @kernal);
	CloseIRQ();
end;

begin
	StartRasterChain(IRQ0(), $fe, @kernal);
	Loop(); 
end.
