s:
openlibrary=-408
closelibrary=-414
opendiskfont=-30
move.l		#$50100,$dff0a0	
move.w		#[37560/2],$dff0a4 
move.w		#360,$dff0a6	
move.w		#64,$dff0a8	
move.w		#$8201,$dff096	
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     FontLName,a1
jsr     OpenLibrary(a6)
move.l  d0,DiskfontBase
beq     FontErr
move.l  d0,a6
lea     textattr,a0
jsr     OpenDiskFont(a6)
move.l  d0,FontBase
beq     FontErr
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	#text,taller
move.l	$6c,oldirq+2
move.l	#newirq,$6c
wait:
btst	#6,$bfe001
bne	wait
jmp	 slut
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	#01,d3
move.l	#336,d4
move.l	#200,d5
jsr	-396(a6)
sub.b	#$01,rows
bne.s	exit
move.b	#$8,rows
lea	rastport,a1
move.l	#320,d0
move.l	#108,d1
jsr	-240(a6)
lea	rastport,a1
move.l	taller,a0
move.l	#$01,d0
jsr	-60(a6)
addq.l	#$01,taller
cmp.l	#end,taller
blt.s	exit
move.l	#text,taller
exit:
movem.l	(sp)+,d0-d7/a0-a6
oldirq:
jmp	$00000000
slut:
move.w #$0001,$dff096
move.l oldirq+2,$6c
move.l gfxbase,a0
move.l oldclist,50(a0)
move.l $04,a6
jsr    closelibrary(a6)
rts

FontErr:
move.l  initialSP,sp
rts

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	$ffff,$fffe
text:
dc.b	"REFLEX CRACKING SQUAD                      "        

len:  equ *
  even
FontName:   dc.b  'afl.font',0
  even
Textattr:  
dc.l  Fontname
dc.w  20
dc.w  0 
end:
even
FontBase:
blk.l   1,0
taller:
dc.l	0
oldclist:
dc.l	0
gfxbase:
dc.l	0
DiskFontBase: blk.l  1,0
initialSP: blk.l  1,0
gfxname:
dc.b	"graphics.library",0
even
FontLName:
dc.b    "diskfont.library",0
even
bitmap:
blk.w	4,0
plane1:
blk.l	20,0
rastport:
dc.l	0
r_bitmap:
blk.l	30,0
rows:
dc.b	2