git.sur5r.net Git - cc65/blob - testcode/lib/apple2/hgrtest.c

   1 // cl65 -t apple2 -C apple2-hgr.cfg hgrtest.c werner.s
   2
   3 #include <tgi.h>
   4 #include <conio.h>
   5
   6 #pragma code-name (push, "LOWCODE")
   7
   8 void say (const char* text)
   9 {
  10     tgi_setcolor (TGI_COLOR_BLACK);
  11     tgi_outtextxy (41, 33, text);
  12 }
  13
  14 #pragma code-name (pop)
  15
  16 void main (void)
  17 {
  18     tgi_install (a2_hi_tgi);
  19     tgi_init ();
  20     cgetc ();
  21
  22     say ("Hi Dude !");
  23     cgetc ();
  24
  25     tgi_uninstall ();
  26 }