move.l	$04,a6
	lea	gfxname,a1
	jsr	-408(a6)	;OldOpenLibrary
	move.l	d0,gfxbase
	move.l	d0,a0
	move.l	50(a0),oldclist		;remember CList
	move.l	#newclist,50(a0)	;setnew CList
	move.l	gfxbase,a6
	lea	bitmap,a0
	move.l	#$01,d0		;bitplanes
	move.l	#336,d1		;width
	move.l	#200,d2		;hight
	jsr	-390(a6)	;InitBitMap
	move.l	#$60000,plane1
	lea	rastport,a1
	jsr	-198(a6)	;InitRastPort
	move.l	#bitmap,r_bitmap
	lea	rastport,a1
	jsr	-48(a6)		;ClearScreen
	move.l	#scrollm,zeiger
	move.l	$6c,oldirq+2	;set backjump
	move.l	#newirq,$6c	;set new to jump
wait:	btst	#6,$bfe001
	bne.s	wait
	move.l	oldirq+2,$6c	;restore to jump
	move.l	gfxbase,a0
	move.l	oldclist,50(a0)	;restore old CList
	move.l	$04,a6
	move.l	gfxbase,a1
	jsr	-414(a6)	;CloseLibrary
	move.l	#0,d0
	rts

newirq:
	movem.l	d0-d7/a0-a6,-(sp)	;store registers
	move.l	gfxbase,a6
	lea	rastport,a1
	move.l	#01,d0		;delta X
	move.l	#00,d1		;delta Y
	move.l	#000,d2		;minX
	move.l	#000,d3		;minY
	move.l	#336,d4		;maxX
	move.l	#200,d5		;maxY
	jsr	-396(a6)	;ScrollRaster
	sub.b	#$01,rows
	bne.s	exit		;branch if no new char
	move.b	#$08,rows
	lea	rastport,a1
	move.l	#320,d0		;Xpos
	move.l	#110,d1		;Ypos
	jsr	-240(a6)	;Move
	lea	rastport,a1
	move.l	zeiger,a0	;pointer to tekst
	move.l	#$01,d0		;# of chars
	jsr	-60(a6)		;Text
	addq.l	#$01,zeiger
	cmp.l	#end,zeiger
	blt.s	exit		;do not zero ZEIGER
	move.l	#scrollm,zeiger
exit:	movem.l	(sp)+,d0-d7/a0-a6
oldirq:	jmp	$00000000

newclist:
	dc.w	$008e,$2c81,$0090,$f4f0,$0092,$0038,$0094,$00d0
	dc.w	$0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
	dc.w	$0100,$1200,$0180,$0000,$0182,$0fff
	dc.w	$00e0,$0006,$00e2,$0000
	dc.w	$900f,$fffe,$0180,$0f00,$910f,$fffe,$0180,$000f
	dc.w	$9e0f,$fffe,$0180,$0f00,$9f0f,$fffe,$0180,$0000
	dc.w	$ffff,$fffe

zeiger:		dc.l	0
oldclist:	dc.l	0
gfxbase:	dc.l	0
bitmap:		blk.l	2,0
plane1:		blk.l	20,0
rastport:	dc.l	0
r_bitmap:	blk.l	30,0
rows:		dc.b	2
gfxname:	dc.b	"graphics.library",0
scrollm:	dc.b	"    DAGGERS    PRESENTS    NEW    STUFF!!"
                DC.B    "    GREETINGS TO ALL OUR CONTACTS!!!"
                DC.B    "    CONTACT US:  DRAGON OF DAGGERS    "
                DC.B    "SLAGGVN.3    8616 BAASMOEN    NORWAY."
                DC.B    "    OR    UNINVITED OF DAGGERS "
                DC.B    "   FEISELBAKKEN.2    8616 BAASMOEN "
                DC.B    "   NORWAY.........              "
end: