l0014	equ	zuend+0
	text
begin
	bra	l000d
	dc.b	'GB10'
l0000	dc.b	'@',$f9
	dc.l	l000b
	dc.b	'F',$fc,$27,0,'H',$f9,1,7
	dc.l	l000c
	dc.b	'0',$17,2,'@',0,$17,$c,'@'
	dc.b	0,$16,'f',0,0,$aa,' /'
	dc.b	0,2,$90,$af,0,$a,'e',0
	dc.b	0,$9e,$c,$80,0,0,0,$b
	dc.b	'd',0
	ori.l	#$223c00ff,(a4)
	or.b	d0,d5
	moveq	#7,d2
l0001	andi.w	#$fff8,l0002
	or.w	d2,l0002
	nop
	nop
l0002	move.l	a0,d0
	andi.l	#$ffffff,d0
	sub.l	d1,d0
	bcs.s	l0003
	cmpi.l	#$3f,d0
	bcs.s	l0006
l0003	dbf	d2,l0001
	moveq	#$e,d2
	movea.l	10(a7),a0
l0004	move.l	-8(a0,d2.w),d0
	andi.l	#$ffffff,d0
	sub.l	d1,d0
	bcs.s	l0005
	cmpi.l	#$3f,d0
	bcs.s	l0006
l0005	subq.w	#2,d2
	bpl.s	l0004
	bra.s	l0009
l0006	lea	l000b(pc),a0
	move.l	$4ba.w,d2
	move.l	d2,d1
	sub.l	18(a0),d1
	move.l	d2,18(a0)
	subq.l	#3,d1
	bcc.s	l0007
	move.l	d2,d1
	sub.l	22(a0),d1
	cmpi.l	#$7d0,d1
	bcs.s	l0008
	tst.l	22(a0)
	bne.s	l0009
l0007	move.l	d2,22(a0)
l0008	move.l	2(a7),10(a7)
	addq.l	#8,a7
	movem.l	l000c(pc),a0/d0-d2
	rte

l0009	dc.b	'L',$fa,1,7,0,$e,'F',$fa
	dc.b	0,8,'N',$f9
l000a	dc.b	$ff,$ff,$ff,$ff
l000b	dc.b	0,0
l000c	dcb.w	12
l000d	movea.l	a7,a6
	lea	l0014,a7
	movea.l	4(a6),a6
	movea.l	12(a6),a4
	adda.l	20(a6),a4
	adda.l	28(a6),a4
	pea	256(a4)
	pea	(a6)
	clr.w	-(a7)
	move.w	#$4a,-(a7)		;mshrink
	trap	#1
	lea	12(a7),a7
	pea	l000f(pc)
	move.w	#$26,-(a7)		;supexec
	trap	#$e
	addq.l	#6,a7
	move.w	l0012(pc),d0
	bne.s	l000e
	move.w	#0,-(a7)
	trap	#1
l000e	pea	l0013(pc)
	move.w	#9,-(a7)		;cconws
	trap	#1
	addq.l	#6,a7
	clr.w	-(a7)
	pea	$1fa.w
	move.w	#$31,-(a7)		;ptermres
	trap	#1
l000f	ori.w	#$700,sr
	moveq	#0,d1
	moveq	#$28,d0
	lea	l0013(pc),a1
l0010	add.b	0(a1,d0.w),d1
	roxl.l	d0,d1
	move	sr,d2
	add.w	d2,d1
	dbf	d0,l0010
	addi.l	#$712c612f,d1
	movea.l	d1,a1
	movea.l	(a1),a0
	cmpi.l	#$47423130,-(a0)
	beq.s	l0011
	lea	l000a(pc),a0
	move.l	(a1),(a0)
	move.l	#l0000,(a1)
	st	l0012
l0011	rts

l0012	dc.b	0,0
l0013	dc.b	$1b,'EGOOD B'
	dc.b	'LIT !  ',$bd
	dc.b	' 1988 by'
	dc.b	' IMAGIC '
	dc.b	'Grafik.',0
	dc.b	0,0
	bss
	ds.b	256
zuend	end