move.l	$04,a6
 lea	gfxname,a1
 jsr	-408(a6)
 move.l	d0,gfxbase
 move.l	d0,a0
 move.l	50(a0),oldclist
 move.l	#newclist,50(a0)
 move.l	gfxbase,a6
 lea	bitmap,a0
 move.l	#$01,d0
 move.l	#336,d1
 move.l	#200,d2
 jsr	-390(a6)
 move.l	#$60000,plane1
 lea	rastport,a1
 jsr	-198(a6)
 move.l	#bitmap,r_bitmap
 lea	rastport,a1
 jsr	-48(a6)
 move.l	#scrollm,zeiger
 lea     rastport,a1
 move.l  #90,d0
 move.l  #50,d1
 jsr     -240(a6)
 lea     rastport,a1
 move.l  zeiger,a0
 move.l  #$10,d0
 jsr     -60(a6)
 lea     rastport,a1
 move.l  #90,d0
 move.l  #100,d1
 jsr     -240(a6)
 lea     rastport,a1
 move.l  zeiger,a0
 move.l  #$10,d0
 jsr     -60(a6)
 lea     rastport,a1
 move.l  #90,d0
 move.l  #150,d1
 jsr     -240(a6)
 lea     rastport,a1
 move.l  zeiger,a0
 move.l  #$10,d0
 jsr     -60(a6)
 move.l	$6c,oldirq+2
 move.l	#newirq,$6c
 wait:
 btst	#6,$bfe001
 bne.s	wait
 move.l	oldirq+2,$6c
 move.l	gfxbase,a0
 move.l	oldclist,50(a0)
 move.l	$04,a6
 move.l	gfxbase,a1
 jsr	-414(a6)
 rts
 
 newirq:
 movem.l	d0-d7/a0-a6,-(sp)
 move.l	gfxbase,a6
 lea	rastport,a1
 move.l	#$01,d0
 clr.l	d1
 clr.l	d2
 move.l	#192,d3
 move.l	#320,d4
 move.l	#200,d5
 jsr	-396(a6)
 lea	rastport,a1
 move.l	#$01,d0
 clr.l	d1
 move.l  #10,d2
 move.l	#192,d3
 move.l	#336,d4
 move.l	#200,d5
 jsr	-396(a6)
 lea	rastport,a1
 move.l	#$00,d0
 move.l  #$01,d1
 clr.l	d2
 move.l	#10,d3
 move.l	#10,d4
 move.l	#200,d5
 jsr	-396(a6)
 lea	rastport,a1
 move.l	#$01,d0
 move.l  #$00,d1
 move.l  #300,d2
 move.l	#180,d3
 move.l	#336,d4
 move.l	#190,d5
 jsr	-396(a6)
 lea	rastport,a1
 move.l	#$00,d0
 move.l  #$01,d1
 move.l  #310,d2
 move.l	#00,d3
 move.l	#320,d4
 move.l	#190,d5
 jsr	-396(a6)
 lea	rastport,a1
 move.l	#$01,d0
 move.l  #$00,d1
 move.l  #00,d2
 move.l	#00,d3
 move.l	#320,d4
 move.l	#10,d5
 jsr	-396(a6)
 lea	rastport,a1
 move.l	#$01,d0
 move.l  #$00,d1
 move.l  #00,d2
 move.l	#00,d3
 move.l	#310,d4
 move.l	#10,d5
 jsr	-396(a6)
 lea	rastport,a1
 move.l	#$01,d0
 move.l  #$00,d1
 move.l  #00,d2
 move.l	#10,d3
 move.l	#10,d4
 move.l	#20,d5
 jsr	-396(a6)
 sub.b	#$01,rows
 bne.s	exit
 move.b	#$08,rows
 lea	rastport,a1
 move.l	#320,d0
 move.l	#198,d1
 jsr	-240(a6)
 lea	rastport,a1
 move.l	zeiger,a0
 move.l	#$01,d0
 jsr	-60(a6)
 lea	rastport,a1
 move.l	#321,d0
 move.l	#188,d1
 jsr	-240(a6)
 lea	rastport,a1
 move.l	zeiger,a0
 move.l	#$01,d0
 jsr	-60(a6)
 addq.l	#$01,zeiger
 cmp.l	#end,zeiger
 blt.s	exit
 move.l	#scrollm,zeiger
 exit:
 movem.l	(sp)+,d0-d7/a0-a6
 oldirq:
 jmp	$00000000
 section copper,code_C
 newclist:
 dc.w	$008e,$2c81,$0090,$f4c1,$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    $2209,$fffe,$0180,$0030
 dc.w    $2309,$fffe,$0180,$0060
 dc.w    $2409,$fffe,$0180,$0090
 dc.w    $2509,$fffe,$0180,$00c0
 dc.w    $2609,$fffe,$0180,$00f0
 dc.w    $2709,$fffe,$0180,$00f0
 dc.w    $2809,$fffe,$0180,$00c0
 dc.w    $2909,$fffe,$0180,$0090
 dc.w    $2a09,$fffe,$0180,$0060
 dc.w    $2b09,$fffe,$0180,$0030
 dc.w    $2c09,$fffe,$0180,$0000
 dc.w    $2c09,$fffe,$0182,$0f00
 dc.w    $3009,$fffe,$0182,$0f30
 dc.w    $4009,$fffe,$0182,$0f60
 dc.w    $5009,$fffe,$0182,$0f90
 
 dc.w    $5509,$fffe,$0180,$0003
  dc.w    $5609,$fffe,$0180,$0006
 dc.w    $5709,$fffe,$0180,$0009
 dc.w    $5809,$fffe,$0180,$000c
 dc.w    $5909,$fffe,$0180,$000f
 dc.w    $5a09,$fffe,$0180,$003f
 dc.w    $5b09,$fffe,$0180,$004f
 dc.w    $5c09,$fffe,$0180,$003f
 dc.w    $5d09,$fffe,$0180,$000f
 dc.w    $5e09,$fffe,$0180,$000c
 dc.w    $5f09,$fffe,$0180,$0009
 dc.w    $6009,$fffe,$0180,$0006
 dc.w    $6109,$fffe,$0180,$0003
 dc.w    $6209,$fffe,$0180,$0000
 dc.w    $6009,$fffe,$0182,$0fc0
 dc.w    $7009,$fffe,$0182,$0ff0
 dc.w    $8009,$fffe,$0182,$0cf0
 dc.w    $8709,$fffe,$0180,$0003
 dc.w    $8809,$fffe,$0180,$0006
 dc.w    $8909,$fffe,$0180,$0009
 dc.w    $8a09,$fffe,$0180,$000c
 dc.w    $8b09,$fffe,$0180,$000f
 dc.w    $8c09,$fffe,$0180,$003f
 dc.w    $8d09,$fffe,$0180,$004f
 dc.w    $8e09,$fffe,$0180,$003f
 dc.w    $8f09,$fffe,$0180,$000f
 dc.w    $9009,$fffe,$0180,$000c
 dc.w    $9009,$fffe,$0182,$0cf0
 dc.w    $9109,$fffe,$0180,$0009
 dc.w    $9209,$fffe,$0180,$0006
 dc.w    $9309,$fffe,$0180,$0003
 dc.w    $9409,$fffe,$0180,$0000
 dc.w    $a009,$fffe,$0182,$09f0
 dc.w    $b809,$fffe,$0182,$06f0
 dc.w    $b909,$fffe,$0180,$0003
 dc.w    $ba09,$fffe,$0180,$0006
 dc.w    $bb09,$fffe,$0180,$0009
 dc.w    $bc09,$fffe,$0180,$000c
 dc.w    $bd09,$fffe,$0180,$000f
 dc.w    $be09,$fffe,$0180,$003f
 dc.w    $bf09,$fffe,$0180,$004f
 dc.w    $c009,$fffe,$0180,$003f
 dc.w    $c009,$fffe,$0182,$03f0
 dc.w    $c109,$fffe,$0180,$000f
 dc.w    $c209,$fffe,$0180,$000c
 dc.w    $c309,$fffe,$0180,$0009
 dc.w    $c409,$fffe,$0180,$0006
 dc.w    $c509,$fffe,$0180,$0003
 dc.w    $c609,$fffe,$0180,$0000
 
 dc.w    $d009,$fffe,$0182,$00c0
 dc.w    $e009,$fffe,$0182,$0090
 dc.w    $f509,$fffe,$0180,$0000
 dc.w    $f609,$fffe,$0180,$0300
 dc.w    $f709,$fffe,$0180,$0600
 dc.w    $f809,$fffe,$0180,$0900
 dc.w    $f909,$fffe,$0180,$0c00
 dc.w    $fa09,$fffe,$0180,$0f33
 dc.w    $fb09,$fffe,$0180,$0c00
 dc.w    $fc09,$fffe,$0180,$0900
 dc.w    $fd09,$fffe,$0180,$0600
 dc.w    $fe09,$fffe,$0180,$0300
 dc.w    $ff09,$fffe,$0180,$0000
 dc.w	$ffff,$fffe
 scrollm:
 dc.b	"THE FATBOYS PRESENTING NEW STUFF IN THE YEAR 1990"
 dc.b    " WITH A BRAND NEW DEMO....."
 dc.b    "GREETINGS TO ALL OR FREND OVER THE WORLD......."
 end:
 even
 zeiger:
 dc.l	0
 oldclist:
 dc.l	0
 gfxbase:
 dc.l	0
 gfxname:
 dc.b	"graphics.library",0
 even
 bitmap:
 dcb.w	4,0
 plane1:
 dcb.l	20,0
 rastport:
 dc.l	0
 r_bitmap:
 dcb.l	30,0
 rows:
 dc.b	2