Try this

#pragma intrinsic HPGETPROCPLABEL

typedef  short (*i2funcptr)();

i2funcptr pASCII;

void *load () {
   int pLabel;
   HPGETPROCPLABEL ("%ASCII%", &pLabel );
   return (void*) pLabel;
}

void main () {
   pASCII = (i2funcptr) load ();
}


+=====================================
 Keven Miller   KC7LYD
 [log in to unmask]   (Salt Lake City, Utah, USA)
+=====================================