Smart pascal source code


var music: String = #$266B' Music!';

WriteLn(music);
WriteLn(UpperCase(IntToHex(Ord(music[1]), 4)));

{<<<<<<<<< THE END >>>>>>>>>}

function IntToHex(v,d) { var r=v.toString(16); return "00000000".substr(0, d-r.length)+r }
var Exception={
	$ClassName: "Exception",
	$Parent: TObject,
	$Init: function () { FMessage="" },
	Create: function (s,Msg) { s.FMessage=Msg; return s }
}
function $SCodeIdx(s,i,z) {
	if (i<1) throw Exception.Create($New(Exception),"Lower bound exceeded! Index "+i.toString()+z);
	if (i>s.length) throw Exception.Create($New(Exception),"Upper bound exceeded! Index "+i.toString()+z);
	return s.charCodeAt(i-1);
}
var music = "";

/* <<< main JS >>> */

   music = "\u266B Music!";
   WriteLn(music);
   WriteLn((IntToHex($SCodeIdx(music,1,""),4)).toUpperCase());