#include <stdio.h>
/*
 * Routine to test out AST's
 *
 * Marks time for 2 sec. and says "beep"
 */
#pragma ident "X0.0"
#pragma ast

extern char* $$pfil;

void astsrv(efn)
int efn;
   {
   printf("Beep\07  EFN = %d. Callout:\n", efn);
   calltr(stdout);
   setf(4);
   return 1;
   }

#pragma noast

main()
   {
   $$pfil = "ti:";
   puts("Hello");                      /* Say hello */
   clef(4);
   mrkt(5,2,2,astsrv);                 /* Kick off a 2 sec mrkt on EFN 5 */
   stse(4);                            /* Stop on the event flag */
   puts("Bye");                        /* Say byebye */
   }