$m6000

ap_id&=APPL_INIT()

IF ap_id& = -1
	~APPL_EXIT()
ENDIF

a& = DPEEK(GB+6)

IF a& = -1
	~MENU_REGISTER(ap_id&,"  My Program");
ENDIF

REPEAT
!  Just a simple pause
UNTIL INKEY$<>0

appl_exit();