Smart pascal source code


var crlf: String = #13#10;
WriteLn(Ord(crlf[1]));
WriteLn(Ord(crlf[2]));
WriteLn(#$21#$22#$030#$0031#50#051 + crlf);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
13
10
!"0123

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

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);
}
function $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var crlf = "";

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

   crlf = "\r\n";
   WriteLn($SCodeIdx(crlf,1,""));
   WriteLn($SCodeIdx(crlf,2,""));
   WriteLn(("!\"0123"+crlf));