1 files changed, 61 insertions, 0 deletions
diff --git a/packages/libgbafpc/examples/graphics/ansi_console/console.pp b/packages/libgbafpc/examples/graphics/ansi_console/console.pp
new file mode 100644
index 0000000000..c8cf3d5935
--- /dev/null
+++ b/packages/libgbafpc/examples/graphics/ansi_console/console.pp
@@ -0,0 +1,61 @@
+program console;
+
+uses
+  gba;
+
+begin
+  // the vblank interrupt must be enabled for VBlankIntrWait() to work
+  // since the default dispatcher handles the bios flags no vblank handler
+  // is required
+
+  irqInit();
+
+  irqEnable(IRQ_VBLANK);
+
+  // initialise the console
+  // setting NULL & 0 for the font address & size uses the default font
+  // The font should be a complete 1bit 8x8 ASCII font
+  consoleInit(  0,		// charbase
+                4,		// mapbase
+                0,		// background number
+                nil,	// font
+                0, 		// font size
+                15		// 16 color palette
+             );
+
+  // set the screen colors, color 0 is the background color
+  // the foreground color is index 1 of the selected 16 color palette
+  BG_COLORS[0] := RGB8(58,110,165);
+  BG_COLORS[241] := RGB5(31,31,31);
+  
+  SetMode(MODE_0 or BG0_ON);
+
+  // ansi escape sequence to clear screen and home cursor
+  // /x1b[line;columnH
+  iprintf(#27'[2J');
+  
+  // ansi escape sequence to set print co-ordinates
+  // /x1b[line;columnH
+  iprintf(#27'[10;10H' + 'Hello World!');
+  
+  // ansi escape sequence to move cursor up
+  // /x1b[linesA
+  iprintf(#27'[10A' + 'Line 0');
+  
+  // ansi escape sequence to move cursor left
+  // /x1b[columnsD
+  iprintf(#27'[28D' + 'Column 0');
+  
+  // ansi escape sequence to move cursor down
+  // /x1b[linesB
+  iprintf(#27'[19B' + 'Line 19');
+  
+  // ansi escape sequence to move cursor right
+  // /x1b[columnsC
+  iprintf(#27'[5C' + 'Column 20');
+
+  while true do
+    VBlankIntrWait();
+
+end.
+