REM Alert
'Creates a System AutoRequestor alert with 3 lines of text
'msg1$ through msg3$ are the text lines
'pos$ = text for Positive response button
'neg$ = text for Negative response button
'res& = returns result 0=negative, 1=positive
'
SUB Alert(msg1$,msg2$,msg3$,pos$,neg$,res&)
	SHARED add&,st$,offs%
	bt%=3
	Quest$(1)=msg1$
	Quest$(2)=msg2$
	Quest$(3)=msg3$
	yes$=pos$
	no$=neg$
	wid%=8*38
	hi%=8*9
	offs%=0
	opt&=2^0+2^16
	req&=AllocRemember&(0,400,opt&)
	if req&=0 THEN ERROR 7
	add&=req&
	t1&=add&
	FOR loop2=1 to bt%-1
		st$=Quest$(loop2)
		MakeHeader add&,st$,1,5,offs%+3
		offs%=offs%+8
	NEXT loop2
	st$=Quest$(bt%)
	MakeHeader add&,st$,0,5,offs%+3
	st$=yes$
	t2&=add&
	MakeHeader add&,st$,0,5,3
	st$=no$
	t3&=add&
	MakeHeader add&,st$,0,5,3
	res&=AutoRequest&(WINDOW(7),t1&,t2&,t3&,0,0,wid%,hi%)
	CALL FreeRemember(0,-1)
END SUB
SUB MakeHeader(ptr&,txt$,md%,le%,te%) STATIC
	SHARED add&
	txt$=txt$+CHR$(0)
	POKE ptr&,1
	POKE ptr&+1,0
	POKE ptr&+2,2
	POKEW ptr&+4,le%
	POKEW ptr&+6,te%
	POKEL ptr&+8,0
	POKEL ptr&+12,SADD(txt$)
	IF md%=0 THEN
		POKEL ptr&+16,0
	ELSE
		POKEL ptr&+16,ptr&+20
	END IF
	add&=ptr&+20
END SUB