OpenLib=-408
DisplayAlert=-90
CloseLib=-414

run:	move	#1,d1		;flash 7 times
delay0:	move	#5,d2
delay1:	move	#40000,d3
delay2:	dbf	d3,delay2
	dbf	d2,delay1
	bchg	#1,$bfe001	;flash led
	dbf	d1,delay0	;end of flash
strt:	move.l 	4,a6		;execbase
	lea 	intname(pc),a1	;intuition lib
	move.l	#0,d0		;version 0
	jsr 	Openlib(a6)
	cmp.l	#0,d0		;intuition.lib on disk?
	bne.s	cont
	rts			;no so stop
cont:	move.l	d0,a6		;intuitionbase
	move.l	#0,d0	;$80000000 for dead_end_alert
	lea	alert_message(pc),a0 ;message in alert
	move.l	#50,d1		;height in lines
	jsr	DisplayAlert(a6)		
	move.l	a6,a1
	move.l	4,a6		;execbase
	move.l	#0,d0		;no errors
	jsr	CloseLib(a6)	;close library
	move.l	#0,d0		;no errors
	rts
even
intname:dc.b	'intuition.library',0
alert_message:
even
	dc.w	52		;x coordinate 
	dc.b	10		;y coordinate
	dc.b	'Software from ANC. Press left mouse button to '
	dc.b	'continue.',0,1
even
	dc.w	15
	dc.b	20
	dc.b	'For software call: (0)50-778422 '
	dc.b	'(MIKE) or (0)3404-52987 (RON)',0,1
	dc.w	50
	dc.b	40
	dc.b	':not_mine/BIGBOOT.txt holds instruc'
	dc.b	'tions for BIGBOOT',0,0,0