12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 |
- 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.
|