/************************************
 * LIGHTPEN - Test lgtpen() function *
 ************************************/

//use -h option on command line
#include <lgtpen.h02>

char aa,xx,yy;

void prtlbl(aa,yy,xx) {
  setpos(aa,yy);
  putchr(xx); putchr(':');
}

void prtbyt(aa,yy,xx) {
  setpos(aa,yy);
  prbyte(xx);
}

char px,py,pt;

main:
  clrscr();

  if (!#LGTPNS) goto exit;

  prtlbl(1,1,'X');
  prtlbl(1,2,'Y');
  prtlbl(1,3,'T');
  
loop:
  if (getkey() == #ESCKEY) goto exit;
  px,py,pt = lgtpen();
  prtbyt(4,1,px);
  prtbyt(4,2,py);
  prtbyt(4,3,pt);
  goto loop;