/* FPrintf V37.3                                              */
 /* FREEWARE.                                                  */
 /* (c) 1993-94 by Andreas R. Kleinert.                        */
 /* Demonstrates use of the FPrintf()-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)
{
 AKCCBase = (struct AKCCBase *) OpenLibrary("akcc_gen0.library", 37);
 if(AKCCBase)
  {
   char parsed_string[256];
   ULONG fp_args[2];

   AKCC_FPrintf(Output(), "\nFPrintf V37.3, FREEWARE, (c) 1993-94 by Andreas R. Kleinert.\n", N);

   AKCC_ParseText("\nAll output is done via the \\B\\U%s\\N function"
                  "\ninstead of printf() and is parsed through the"
                  "\n\\B\\U%s\\N function for styling.\n", parsed_string);

   fp_args[0] = (ULONG) "AKCC_FPrintf()";
   fp_args[1] = (ULONG) "AKCC_ParseText()";

   AKCC_FPrintf(Output(), parsed_string, &fp_args[0]);

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

 exit(0);
}