proc main():int {.exportc.} =
  var videoRam = cast[TVidMem](0xB8000)
  for x in 0..75:
    for y in 0..25:
      cgaShow(videoRam, x, y, 'L', 0x07f'u8)
  return 0

###
_NIMCALL(NI, main)(void);
N_NIMCALL(NI, main)(void) {
	NI result_15044;
	cgachar15018* videoram;
	NI x_15057;
	NI res_15071;
	result_15044 = 0;
	videoram = ((cgachar15018*) 753664);
	x_15057 = 0;
	res_15071 = 0;
	while (1) {
		NI y_15067;
		NI res_15069;
		if (!(res_15071 <= 75)) goto LA1;
		x_15057 = res_15071;
		y_15067 = 0;
		res_15069 = 0;
		while (1) {
			char LOC3;
			if (!(res_15069 <= 25)) goto LA2;
			y_15067 = res_15069;
			LOC3 = int8tochar_15009(((NU8) 127));
			cgashow_15029(videoram, x_15057, y_15067, 76, LOC3);
			res_15069 += 1;
		} LA2: ;
		res_15071 += 1;
	} LA1: ;
	result_15044 = 0;
	goto BeforeRet;
	BeforeRet: ;
	return result_15044;
}