/* AssignName V37.3                                           */
 /* FREEWARE.                                                  */
 /* (c) 1993-94 by Andreas R. Kleinert.                        */
 /* Demonstrates use of the Assign()-Function.                 */
 /* Written in SAS/C V6.51.                                    */

#include <akcc_gen0/akcc_gen0_pragma.h>

#include <stdlib.h>

#include <proto/exec.h>


struct AKCCBase *AKCCBase = N;

void main(long argc, char **argv)
{
 printf("\nAssignName V37.3, FREEWARE, (c) 1993-94 by Andreas R. Kleinert.\n");

 AKCCBase = (struct AKCCBase *) OpenLibrary("akcc_gen0.library", 37);
 if(AKCCBase)
  {
   char assign_name[256], assign_path[256];

   printf("\nEnter Assign Name (with \42:\42) :");
   scanf("%s", assign_name);

   printf("Enter Assign Path :");
   scanf("%s", assign_path);

   if(AKCC_Assign(assign_name, assign_path) == AKCC_TRUE) printf("\nDone.\n");
    else                                                  printf("\nAn error occured.\n");

   CloseLibrary((APTR) AKCCBase);
  }else
  {
   printf("\n Can't open \42akcc_gen0.library\42 V37+ !\n");
  }

 exit(0);
}