#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Chrvect; Endoper; Execqex; Execute; Quadout;
     #include "aplinit.h"

     avail("a");
     endoper(execute(chrvect("L # a # I5")));
     avail("a");
     endoper(quadout(execqex(chrvect("a"))));
     avail("a");
}

avail(name)
char *name;
{
     Chrvect; Execqnc; Ivalue;

     switch(ivalue(execqnc(chrvect(name)))) {
       case 0: 
         printf("Name '%s' is available for use.\n",name);
         break;
       case 1:
         printf("Name '%s' is a label name.\n",name);
         break;
       case 2:
         printf("Name '%s' is a variable name.\n",name);
         break;
       case 3:
         printf("Name '%s' is a function.\n",name);
         break;
     }
}