section	lard,code

start:	IncDir	"DH0:Include/"
	include	"sc:MyReq.ii"
	
	move.w	#FANCY_ON,My_Fancy

	bsr	_OpenMyReqs
	beq	Error

	lea	test_text,a2
	bsr	setup_alert

	move.w	#0,attempts

.loop	lea	scan_text,a2
	bsr	setup_alert

	move.l	#$c0000,d0
.loop2	lsr.l	#1,d7
	sub.l	#1,d0
	bne	.loop2

	bsr	finish_alert

	add.w	#1,attempts
	cmp.w	#4,attempts
	beq	Slagging

	lea	Error_text,a2
	bsr	setup_alert

	cmp.l	#MY_OK,d7
	beq	.loop

CloseInt	Bsr	_CloseMyReqs

Error	Moveq	#0,D0
	Rts

Slagging:	lea	oktext,a0
	bsr	_SetOkMsg

	lea	slag_text,a2
	bsr	setup_alert

	bra	CloseInt

	*-------------------------------*

attempts:	dc.w	0

	*-------------------------------*

oktext:	dc.b	"STUPIDSTUPID"
	
test_text:	dc.b	3
	dc.b	"No Fax Virus By Torch/LSD",0
	dc.b	0
	dc.b	"Version 1.0",0
	dc.b	0
	dc.b	"This program kills the FAX VIRUS",0
	dc.b	"and all mutant strains",0
	dc.b	0
	dc.b	"Connect your FAX to Amiga via",0
	dc.b	"serial cable (see documentation",0
	dc.b	"for wiring details)",0

Error_text:	dc.b	2
	dc.b	"NO FAX VIRUS - Version 1.0",0
	dc.b	"Cannot connect to FAX",0
	dc.b	"Check connections and try again",0

scan_text:	dc.b	0
	dc.b	"NO FAX VIRUS - Version 1.0",0
	dc.b	0
	dc.b	"Connecting with FAX",0

slag_text:	dc.b	3
	dc.b	"Fax Virus?",0
	dc.b	0
	dc.b	"If you think a fax can catch a ",0
	dc.b	"virus and beleive you can connect",0
	dc.b	"it to an Amiga via the serial",0
	dc.b	"port you must be more stupid",0
	dc.b	"than me for writing this!!",0
	dc.b	0
	dc.b	0
	dc.b	0

;junk:	incbin	"dh0:storage/propacker/mod.heatbeat"
	
	*-------------------------------*

	include	"sc:myreq.i"


	end