move.l	#introlength,d0
	lea	#address,d1
	move.l	4.w,a6
	jsr	-$cc(a6)
	tst.l	d0
	beq	fel

	lea	dosname(pc),a1
	moveq	#0,d0
	jsr	-408(a6)
	move.l	d0,dosbase
	beq.L	exit
			;öppnat dos.library
	move.l	d0,a6
	move.l	#introname,d1
	move.l	#1005,d2
	jsr	-30(a6)
	move.l	d0,filehd
	beq.L	fileerr
			;öppnat fil
	move.l	d0,d1
	move.l	#address,d2
	move.l	#introlength,d3
	jsr	-42(a6)
			;läst fil
	movem.l	d0-d7/a0-a6,-(sp)
	move.l	#address,a0
	jsr	(a0)

	movem.l	(sp)+,d0-d7/a0-a6

	move.l	dosbase,a6
	move.l	filehd,d1
	jsr	-36(a6)
	bsr	freemem
	rts
			;stängt fil
fileerr:
	move.l	4,a6
	move.l	dosbase,a1
	jsr	-414(a6)
Exit:	rts
fel:	move.l	#$ff,d1
	rts

freemem:
	move.l	#introlength,d0
	lea	address,a6
	move.l	4.w,a6
	jsr	-$d2(a6)
	tst.l	d0
	beq	fel
	rts

dosbase:dc.l	0
filehd:	dc.l	0
dosname:dc.b	"dos.library",0

introname:	dc.b	"Intro",0
introlength:	dc.l	$
address:	dc.l	$e0000