Smart pascal source code


var
s := 'banane';

var
ch := '';
for ch in s do
begin
  if ch = 'n' then
    Break;
  WriteLn(ch);
end;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------b
a
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

// inspired from 
// https://developer.mozilla.org/en/JavaScript/Reference/Global_Objects/String/charCodeAt
function $uniCharAt(str, idx) {
    var c = str.charCodeAt(idx);
    if (0xD800 <= c && c <= 0xDBFF) { // High surrogate
        return str.substr(idx, 2);
    }
    if (0xDC00 <= c && c <= 0xDFFF) { // Low surrogate
        return null;
    }
    return str.charAt(idx);
}function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var s = "",
   ch = "";

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

s = "banane";
ch = "";
for (var $temp1 = 0; $temp1 < s.length; $temp1++) {
	ch = $uniCharAt(s, $temp1);
	if (!ch)
		continue;
	if (ch == "n") {
		break;
	}
	WriteLn(ch);
}