incdir "asm:include/"
	include "intuition/intuition.i"
	include "misc/measystart.i"
aaa	move.b	(a0)+,d0
	cmpi.b	#" ",d0
	beq	aaa
	cmpi.b	#"?",d0
	beq	help
	cmpi.b	#13,d0
	beq	nothing
	move.b	d0,d2
	move.b	(a0)+,d3
	sub.b	#"0",d2
	sub.b	#"0",d3
	cmp.b	d2,d3
	beq	nothing
fgh	move.l	4,a6
	move.l	#iname,a1
	jsr	-408(a6)
	tst.l	d0
	beq	quit2
	move.l	d0,ibase
	move.l	d0,a6
	move.l	ib_activewindow(a6),a6
;	move.l	sc_firstwindow(a6),a6
	move.l	a6,d1
	tst.l	d1
	beq	quit
	move.b	d2,wd_detailpen(a6)
	move.b	d3,wd_blockpen(a6)
	move.l	a6,a1
	move.l	ibase,a6
	jsr	-456(a6)
quit	move.l	ibase,a1
	move.l	4,a6
	jsr	-414(a6)
quit2	rts
help	rts
nothing	move.b	#3,d2
	move.b	#2,d3
	jmp	fgh
ibase 	dc.l	0
iname	dc.b	"intuition.library",0