program MyProgram;
//@use "system/str"
@use "system/screen"
var  
   i: integer; 
   l,j,k : byte;
	b : array[256] of byte = (75,75,75,75,75,75,75,75);
	p:^byte;
		chars : string="0123456789ABCDEF";

begin
//	b := "HELLO";
	i:=$135F;
	j:=0;
	b[0]:=71;
	p:=#b;
	str::itoh(i, #b);
//	p[j]:=0;
	Screen::PrintString(#b);


	loop();
end.
