s:
move.l	#$60000,$dff0a0	
move.w	#[41112/2],$dff0a4 
move.w	#358,$dff0a6	
move.w	#65,$dff0a8	
move.w	#$83a1,$dff096	
move.l	$04,a6
move.l   #size,d0
moveq   #2,d1
jsr     -198(a6)
move.l  d0,cladr
beq.L   error
lea	gfxname,a1
jsr	-408(a6)
move.l	d0,gfxbase
lea	diskfontname,a1
jsr	-408(a6)	
beq.L	error
move.l	d0,fontlbase	
move.l	fontlbase,a6	
lea	textattr,a0
jsr	-30(a6)		
beq.L	error		
move.l	d0,fontbase	
move.l	$2230,oldclist
move.l	#newclist,$2230
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)
lea	rastport,a1
move.l	fontbase,a0
jsr	-66(a6)
move.l	#bitmap,r_bitmap
lea	rastport,a1
jsr	-48(a6)
move.l	#text,taller
move.l  #hoptext,hoptal
move.l  #flimstart,flimtal
lea     sint,a6
move.l	$6c,oldirq+2
move.l	#newirq,$6c
wait:
cmpi.b #$ff,$dff006
bne wait
btst #6,$bfe001
beq slut
add.w #$111,f1+6
add.w #$111,f2+6
add.w #$111,f3+6
add.w #$111,f4+6
add.w #$111,f5+6
add.w #$111,f6+6
add.w #$111,f7+6
add.w #$111,f8+6
add.w #$111,f9+6
add.w #$111,fa+6
add.w #$111,fb+6
add.w #$111,fc+6
add.w #$111,fd+6
add.w #$111,fe+6
add.w #$111,ff+6
add.w #$111,fg+6
add.w #$111,fh+6
move.b (a6)+,l1
move.b l1,get
add.b #$01,get
move.b get,l2
add.b #$01,get
move.b get,l3
add.b #$01,get
move.b get,l4
add.b #$01,get
move.b get,l5
add.b #$01,get
move.b get,l6
add.b #$01,get
move.b get,l7
add.b #$01,get
move.b get,l8
add.b #$01,get
move.b get,l9
add.b #$01,get
move.b get,la
add.b #$01,get
move.b get,lb
add.b #$01,get
move.b get,lc
add.b #$01,get
move.b get,ld
add.b #$01,get
move.b get,le
cmp.l #endsin,a6
bne wait
lea   sint,a6
bra wait
newirq:
movem.l	d0-d7/a0-a6,-(sp)
move.l	gfxbase,a6
cmp.b #$e8,l1
beq newtex
move.l flimtal,a4
move.w (a4)+,hopflim
move.l a4,flimtal
cmp.l #endflim,a4
bne tilb
move.l #flimstart,flimtal
bra tilb
newtex:
lea	rastport,a1
move.l	#215,d0
move.l	#122,d1
jsr	-240(a6)
lea	rastport,a1
move.l	hoptal,a0
move.l	#14,d0
jsr	-60(a6)
add.l	#14,hoptal
cmp.l	#endhop,hoptal
blt.s	tilb
move.l	#hoptext,hoptal
tilb:
add.w #$0002,label1
add.w #$0002,label5
cmp.b #$cf,label1+1
beq norstreg
bra wait2
norstreg:
move.w #$8d05,label1
move.w #$a305,label5
wait2:
lea rastport,a1
move.l #4,d0
clr.l d1
clr.l d2
move.l #100,d3
move.l #336,d4
move.l #116,d5
jsr -396(a6)
sub.b	#1,rows
bne.s	exit
move.b	#6,rows
lea	rastport,a1
move.l	#312,d0
move.l	#100,d1
jsr	-240(a6)
lea	rastport,a1
move.l	taller,a0
move.l	#1,d0
jsr	-60(a6)
addq.l	#1,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 #3,$dff096
move.l 4,a6
move.l cladr,a1
move.l  #size,d0
jsr    -210(a6)
move.l oldirq+2,$6c
move.l gfxbase,a0
move.l oldclist,50(a0)
move.l $04,a6
jsr -414(a6)
move.l		gfxbase,a6	
move.l		fontbase,a1	
jsr		-78(a6)	
move.l		$04,a6	
move.l		fontlbase,a1	
jsr		-414(a6)
move.l		gfxbase,a1
jsr		-414(a6)
error:
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
label1:
dc.w    $8d01,$fffe,$180,$000,$180,$100,$180,$200,$180,$300,$180,$400
dc.w    $180,$500,$180,$600,$180,$700,$180,$800,$180,$900
dc.w    $180,$a00,$180,$b00,$180,$c00,$180,$d00,$180,$e00
dc.w    $180,$f00,$180,$0
f1:
dc.w    $9011,$fffe,$182,$111
f2:
dc.w    $9111,$fffe,$182,$222
f3:
dc.w    $9211,$fffe,$182,$333
f4:
dc.w    $9311,$fffe,$182,$444
f5:
dc.w    $9411,$fffe,$182,$555
f6:
dc.w    $9511,$fffe,$182,$666
f7:
dc.w    $9611,$fffe,$182,$777
f8:
dc.w    $9711,$fffe,$182,$888
f9:
dc.w    $9811,$fffe,$182,$999
fa:
dc.w    $9911,$fffe,$182,$aaa
fb:
dc.w    $9a11,$fffe,$182,$bbb
fc:
dc.w    $9b11,$fffe,$182,$ccc
fd:
dc.w    $9c11,$fffe,$182,$ddd
fe:
dc.w    $9d11,$fffe,$182,$eee
ff:
dc.w    $9e11,$fffe,$182,$fff
fg:
dc.w    $9f11,$fffe,$182,$111
fh:
dc.w    $a011,$fffe,$182,$222
label5:
dc.w    $a301,$fffe,$180,$000,$180,$01,$180,$02,$180,$03,$180,$04
dc.w    $180,$05,$180,$06,$180,$07,$180,$08,$180,$09
dc.w    $180,$0a,$180,$0b,$180,$0c,$180,$0d,$180,$0e
dc.w    $180,$0f,$180,$000
dc.w    $0100,$0200
l1:
dc.w    $b011,$fffe,$180,$001
l2:
dc.w    $b111,$fffe,$180,$002
l3:
dc.w    $b211,$fffe,$180,$003
l4:
dc.w    $b311,$fffe,$180,$004
l5:
dc.w    $b411,$fffe,$180,$005
l6:
dc.w    $b511,$fffe,$180,$006
l7:
dc.w    $b611,$fffe,$180,$007
l8:
dc.w    $b711,$fffe,$180,$006
l9:
dc.w    $b811,$fffe,$180,$005
la:
dc.w    $b911,$fffe,$180,$004
lb:
dc.w    $ba11,$fffe,$180,$003
lc:
dc.w    $bb11,$fffe,$180,$002
ld:
dc.w    $bc11,$fffe,$180,$001
le:
dc.w    $bd11,$fffe,$180,$000
dc.w	$8e,$2c81,$90,$f4c1,$92,$38,$94,$d0
dc.w	$102,$24,$104,24,$108,$2,$10a,$2
dc.w	$100,$1200,$182
hopflim:
dc.w    $fff
dc.w	$e0,$6,$e2,$1350
dc.w    $fe11,$fffe
dc.w	$ffff,$fffe
endl:
even
size=endl-newclist
even
cladr:
dc.l  0
even
text:
dc.b	"DANISH DEMO DUO INTRO II !!!"
dc.b    "!!!!!                         "
end:
hoptext:
dc.b    "    DANISH    "
dc.b    "     DEMO     "
dc.b    "     DUO      "
dc.b    "     ARE:     "
dc.b    "  PET & TOX.  "
dc.b    "--------------"
dc.b    " GREETINGS TO "
dc.b    "    REFLEX    "
dc.b    "   ANTITRAX   "
dc.b    "    R.B.B.    "
dc.b    "    H.Q.C.    "
dc.b    "    DEXION    "
dc.b    " LORD BLITTER "
dc.b    " SODAN & M.42 "
dc.b    "  VORTEX 42.  "
dc.b    "    T.U.S.    "
dc.b    "     1001     "
dc.b    "    T.L.C.    "
dc.b    "OUT OF MEMORY!"
dc.b    " BUT ANYWAY : "
dc.b    "KILL THE MOUSE"
dc.b    "--------------"
dc.b    "              "
endhop:
even
flimstart:
dc.w    $111,$222,$333,$444,$555,$666,$777,$888,$999
endflim:
even
flimtal:
dc.l 0
even
sint:
dc.b   $b0,$b0,$b1,$b1,$b1,$b1,$b2
dc.b   $b2,$b2,$b3,$b3,$b3,$b4,$b4,$b5,$b5
dc.b   $b6,$b6,$b7,$b7,$b8,$b9,$ba,$bb,$bd,$c0,$c3,$c6,$ca,$ce,$d3,$d8
dc.b   $de,$e4,$e8,$e4,$de,$d8,$d3,$ce,$ca,$c6,$c3,$c0,$bd,$bb
dc.b   $ba,$b9,$b8,$b7,$b7,$b6,$b6,$b5,$b5,$b4,$b4,$b3,$b3
dc.b   $b3,$b2,$b2,$b2,$b1,$b1,$b1,$b1
dc.b   $b0,$b0,$b0
endsin:
even
hoptal:
dc.l    0
even
taller:
dc.l	0
even
get:
dc.b $0
even
oldclist:
dc.l	0
gfxbase:
dc.l	0
gfxname:
dc.b	"graphics.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	3
even
kurt:
dc.l 	0
even		
diskfontname:	
dc.b 	"diskfont.library",0
even
; -------------------
fontname:	
dc.b 	"high.font",0
even
textattr:
dc.l	fontname
dc.w	17
dc.w	0
; -------------------
fontlbase:
dc.l	0		
; -------------------
fontbase:
dc.l	0