/* --------------------------------------------------------------------
   Beispielprogramm fr Accessory-/Programmbetrieb

   - individuelle Routinen -

   Das Programm darf als Grundlage fr eigene Programme genutzt werden.

   Copyright 1992 by D. Rabich, Dlmen.
   Alle Rechte vorbehalten!
   -------------------------------------------------------------------- */

/* Headerdateien */
#include <wega.h>
#include "routines.h"

/* Info-Funktion */
VOID do_info(VOID)
{
	GDoAlert(GBitblkInformation(),
				"Information ber ACC_PRG...",
				" [OK ",
				0,
				TRUE);
}

/* Beispiel-Funktion */
VOID do_action(VOID)
{
	WORD	ret;

	for(;;)
	{
		ret	= GDoAlert(GBitblkAsterisk(),
						"Hier w„re was zu tun...",
						" [Info... |[OK",
						1,
						TRUE);
		if(ret == 1)
			break;
		do_info();
	}
}