program beeb_detect;
@projectsettings "system" BBCM
@use "text/txt"

var  
   i: byte; 
   r,c: byte;
   zp: pointer;

begin

	txt::cls();
	txt::screen_mode(6);
	
	_A:=0;
	_X:=1;
	call(txt::OSBYTE);
	txt::print_string("Electron = 0, BBC = 1-5: ",False);
	txt::print_dec(_X, True);
	txt::print_string("SCREEN MODE ",False);	
	txt::print_dec(peek(^$355,0), True);
	

	
end.
