*+*+*+*++*+*+*+*+*+*+*+*+*+*+*+*+*+*+
*+*
*+
*   SCROLLER 2 : MR.MIRACLE
*
* INSTRUCTIES:   A (2 X RETURN)
*		 Y (1 X RETURN) !¡ data inlezen
*
* 		G  (2 X RETURN) OM HET TE BEKIJKEN
*
*               WO (RETURN) OM HET TE SAVEN

openlibrary= 	-408
closelibrary= 	-414
forbid= 	-132
permit= 	-138

;-------

MAIN_begin:

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

	move.l	$4.w,a6
	move.l	#gfxname,a1
	jsr	openlibrary(a6)
	beq.L	einde
	move.l	d0,gfxbase


Clear:
	move.l	#$70000,a0
	move.l	#$70000+[[320/8]*296],a1
clsloop:move.l	#0,(a0)+
	cmp.l	a0,a1
	bne.s	clsloop

	move.l	#tekst,tpointer
	jsr	poker

Copper_aan:

	move.l	gfxbase,a0
	move.w	#$0080,$dff096
	move.l  $32(a0),oldcopper
	move.l  #newcopper,$32(a0)
	move.w	#$8080,$dff096

	move.w	#$4000,$dff09a
	move.l	$6c,oldirq
	move.l	#interrupt,$6c	
	move.w	#$c000,$dff09a
	move.w	$dff01c,intsave
	move.w	#$3fd7,$dff09a

Mouse_test:
	
	btst	#6,$bfe001
	beq.s	copper_uit
	btst	#10,$dff016
	beq.s	copper_uit
	bra.s	mouse_test

Copper_uit:

	move.w	#$4000,$dff09a
	move.l	oldirq,$6c
	move.w	#$c000,$dff09a
	move.w	intsave,d0
	add.w	#$8000,d0
	move.w	d0,$dff09a

	move.l	gfxbase,a0
	move.w	#$0080,$dff096
	move.l	oldcopper,$32(a0)
	move.w	#$8080,$dff096

	move.l	4,a6
	move.l	gfxbase,a1
	jsr	closelibrary(a6)

einde:

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

;*+*+*+*+*+*+ ENIGE DATA *+*+*+*+

newcopper:			

dc.w	$0180,$0000,$0182,$0000
dc.w	$0122,$0000

dc.w	$0100,$1a00,$0108,$0000,$0102,$0000,$0104,$0000
dc.w	$0092,$0038,$0094,$00d0,$008e,$2e81,$0090,$30c1
dc.w	$010a,$0000
dc.w    $00e0,$0007,$00e2,$0000

dc.w	$200f,$fffe,$0180,$100,$0182,$111
dc.w	$240f,$fffe,$0182,$222
dc.w	$280f,$fffe,$0180,$200,$0182,$333
dc.w	$2c0f,$fffe,$0182,$444,$0102,$000
dc.w	$300f,$fffe,$0180,$300,$0182,$555,$0102,$111
dc.w	$340f,$fffe,$0182,$666,$0102,$222
dc.w	$380f,$fffe,$0180,$400,$0182,$777,$0102,$333
dc.w	$3c0f,$fffe,$0182,$888,$0102,$444
dc.w	$400f,$fffe,$0180,$500,$0182,$999,$0102,$555
dc.w	$440f,$fffe,$0182,$aaa,$0102,$666
dc.w	$480f,$fffe,$0180,$600,$0182,$bbb,$0102,$666
dc.w	$4c0f,$fffe,$0182,$ccc,$0102,$777
dc.w	$500f,$fffe,$0180,$700,$0182,$ddd,$0102,$777
dc.w	$540f,$fffe,$0182,$eee,$0102,$777
dc.w	$580f,$fffe,$0180,$800,$0182,$fff,$0102,$888
dc.w	$600f,$fffe,$0180,$900,$0102,$888
dc.w	$680f,$fffe,$0180,$a00,$0102,$888
dc.w	$700f,$fffe,$0180,$900,$0102,$888
dc.w	$740f,$fffe,$0182,$eee,$0102,$888
dc.w	$780f,$fffe,$0180,$800,$182,$ddd,$0102,$777
dc.w    $7c0f,$fffe,$0182,$ccc,$0102,$777
dc.w	$800f,$fffe,$0180,$700,$182,$bbb,$0102,$777
dc.w	$840f,$fffe,$0182,$aaa,$0102,$666
dc.w	$880f,$fffe,$0180,$600,$182,$999,$0102,$666
dc.w	$8c0f,$fffe,$0182,$888,$0102,$555
dc.w	$900f,$fffe,$0180,$500,$182,$777,$0102,$555
dc.w	$940f,$fffe,$0182,$666,$0102,$444
dc.w	$980f,$fffe,$0180,$400,$0182,$555,$0102,$333
dc.w	$9c0f,$fffe,$0182,$444,$0102,$222
dc.w	$a00f,$fffe,$0180,$300,$0182,$300,$0102,$111
dc.w	$a40f,$fffe,$0182,$200,$0102,$000
dc.w	$a80f,$fffe,$0180,$200,$182,$100
dc.w	$ac0f,$fffe,$0182,$000
dc.w	$b00f,$fffe,$0180,$100
dc.w	$b80f,$fffe,$0180,$000
dc.w	$b40f,$fffe,$0180,$000,$0182,$000



dc.w	$bc0f,$fffe

dc.w	$0100,$3a00

dc.w	$00e0,$0006,$00e2,$0000
dc.w	$00e4,$0006,$00e6,$1f40
dc.w	$00e8,$0006,$00ea,$3e80


dc.w  $0180,$0000,$0182

color1: dc.w $0777,$0184
color2: dc.w $0fff,$0186
color3: dc.w $0000,$0188
color4: dc.w $0000,$018a
color5: dc.w $0000,$018c
color6: dc.w $0000,$018e,$0f00

dc.w	$eb0f,$fffe,$018e,$008
dc.w	$ec0f,$fffe,$018e,$009
dc.w	$ed0f,$fffe,$018e,$00a
dc.w	$ee0f,$fffe,$018e,$00b
dc.w	$ef0f,$fffe,$018e,$00c
dc.w	$f00f,$fffe,$018e,$00d
dc.w	$f10f,$fffe,$018e,$00e
dc.w	$f20f,$fffe,$018e,$00f
dc.w	$f30f,$fffe,$018e,$22f
dc.w	$f40f,$fffe,$018e,$66f
dc.w	$f50f,$fffe,$018e,$99f
dc.w	$f60f,$fffe,$018e,$bbf
dc.w	$f70f,$fffe,$018e,$ccf
dc.w	$f80f,$fffe,$018e,$fff

dc.w $ffff,$fffe

gfxbase:	dc.l 	0			
oldcopper:	dc.l 	0
gfxname:	dc.b 	"graphics.library",0
even


;20 letters

Ctabel:

dc.w	"A",0000,"B",0002,"C",0004,"D",0006,"E",0008,"F",0010
dc.w	"G",0012,"H",0014,"I",0016,"J",0018,"K",0020,"L",0022
dc.w	"M",0024,"N",0026,"O",0028,"P",0030,"Q",0032,"R",0034
dc.w	"S",0036,"T",0038

dc.w    "U",0640,"V",0642,"W",0644,"X",0646,"Y",0648,"Z",0650
dc.w    "0",0652,"1",0654,"2",0656,"3",0658,"4",0660,"5",0662
dc.w    "6",0664,"7",0666,"8",0668,"9",0670

dc.w	"!",1280,"-",1282,".",1284,"/",1286,"(",1288,")",1290
dc.w	":",1292,";",1294,"?",1296,",",1298,"'",1300

spatie: dc.w " ",0672

dc.l	$ffffffff
Chareinde:


Charsdata:

DC.W	$07C0,$7FF0,$3FFC,$7FF8,$7FFC,$7FFC,$3FFC,$3C1E,$3E00,$3FFC
DC.W	$787C,$7C00,$7C7C,$7FF8,$7FFC,$7FF8,$7FFC,$7FF8,$3FFC,$7FFC
DC.W	$1FF0,$FFF8,$7FFE,$FFFC,$FFFE,$FFFE,$7FFE,$7E3F,$7F00,$7FFE
DC.W	$FCFC,$FE00,$FEFE,$FFFC,$FFFE,$FFFC,$FFFE,$FFFC,$7FFE,$FFFE
DC.W	$3FF8,$FFFC,$7FFE,$FFFC,$FFFE,$FFFE,$7FFE,$7E3F,$7F00,$7FFE
DC.W	$FCFC,$FE00,$FFFE,$FFFC,$FFFE,$FFFC,$FFFE,$FFFC,$7FFE,$FFFE
DC.W	$7FFC,$FFFC,$FFFE,$FFFE,$FFFE,$FFFE,$FFFE,$7E3F,$7F00,$7FFE
DC.W	$FCFC,$FE00,$FFFE,$FFFE,$FFFE,$FFFE,$FFFE,$FFFE,$FFFE,$FFFE
DC.W	$7FFC,$7FFC,$FFFE,$7FFE,$FFFC,$FFFC,$FFFE,$7E3F,$7F00,$3FFE
DC.W	$FCFC,$FE00,$FFFE,$FFFE,$FFFE,$7FFE,$FFFE,$7FFE,$FFFC,$FFFE
DC.W	$FFFE,$00FC,$FFFC,$007E,$0000,$0000,$FFFC,$7E3F,$7F00,$00FE
DC.W	$FDFC,$FE00,$FFFE,$FFFE,$007E,$003E,$007E,$003E,$FF00,$7FFC
DC.W	$FEFE,$787C,$FE00,$787E,$7F80,$7F80,$FC00,$7EFF,$7F00,$007E
DC.W	$FFF8,$FE00,$FFFE,$FCFE,$F87E,$7FFE,$F87E,$7FFE,$7FF8,$0000
DC.W	$FC7E,$FCFA,$FE00,$FC7E,$FFC0,$FFC0,$FC7C,$7EFF,$7F00,$007E
DC.W	$FFFC,$FE00,$FFFE,$FC7E,$FC7E,$FFFC,$FC7E,$FFFC,$7FFC,$07C0
DC.W	$FC7E,$FDFE,$FE00,$FC7E,$FFC0,$FFC0,$FC7E,$7EFF,$7F00,$787E
DC.W	$FFFE,$FE00,$FFFE,$FC7E,$FC7E,$FFFC,$FC7E,$FFFC,$3FFC,$0FE0
DC.W	$FDFE,$FDFE,$FDFC,$FC7E,$FF80,$FF80,$FC7E,$7E3F,$7F00,$FC7E
DC.W	$FBFE,$FE00,$FFFE,$FC7E,$FC7E,$FFF8,$FC7E,$FFF8,$00FE,$0FE0
DC.W	$FDFE,$FC7E,$FFFE,$FC7E,$FC00,$FC00,$FE3E,$7E3F,$7F00,$FC7E
DC.W	$FCFE,$FDFC,$FBBE,$FC7E,$FC7E,$FFF0,$FC7E,$FDFC,$7F7E,$0FE0
DC.W	$FC7E,$FC7E,$FFFE,$FFFE,$FFFC,$FC00,$FFDE,$7E3F,$7F00,$FFFE
DC.W	$FC7E,$FFFE,$FD7E,$FC7E,$FFFE,$FE00,$FFF6,$FEFE,$FFFE,$0FE0
DC.W	$FC7E,$FFFE,$FFFE,$FFFE,$FFFE,$FC00,$FFFE,$7E3F,$7F00,$FFFE
DC.W	$FC7E,$FFFE,$FC7E,$FC7E,$FFFE,$FE00,$FF7A,$FEFE,$FFFE,$0FE0
DC.W	$FC7E,$FFFE,$7FFE,$FFFC,$FFFE,$FC00,$7FFE,$7E3F,$7F00,$FFFE
DC.W	$FC7E,$FFFE,$FC7E,$FC7E,$FFFE,$FE00,$FF7C,$FEFE,$FFFC,$0FE0
DC.W	$FC7E,$FFFE,$7FFE,$FFFC,$FFFE,$FC00,$7FFE,$7E3F,$7F00,$7FFE
DC.W	$FC7E,$FFFE,$FC7E,$FC7E,$FFFE,$FE00,$FFBE,$FE7E,$FFFC,$0FE0
DC.W	$783C,$7FFC,$3FFC,$FFF8,$7FFC,$7800,$3FFC,$3C1E,$3E00,$3FFC
DC.W	$783C,$7FFC,$783C,$783C,$7FFC,$7C00,$7FBC,$7C3C,$7FF8,$07C0
DC.W	$783C,$783C,$783C,$783C,$783C,$7FFC,$3FF8,$03F0,$3FFC,$3FFC
DC.W	$01BC,$FFFC,$1FF8,$7FFC,$3FF8,$1FF8,$0000,$0000,$0000,$0000
DC.W	$FC7E,$FC7E,$FC7E,$FC7E,$FC7E,$FFFE,$7FFC,$07F8,$7FFE,$7FFE
DC.W	$03BC,$FFFE,$3FFC,$FFFE,$7FFC,$3FFC,$0000,$0000,$0000,$0000
DC.W	$FC7E,$FC7E,$FC7E,$FC7E,$FC7E,$FFFE,$7FFC,$0FF8,$FFFE,$FFFE
DC.W	$07BC,$FFFE,$7FFE,$FFFE,$7FFC,$3FFC,$0000,$0000,$0000,$0000
DC.W	$FC7E,$FC7E,$FC7E,$FEFE,$FC7E,$FFFE,$FFFE,$1FF8,$FFFE,$FFFE
DC.W	$0FBC,$FFFE,$7FFE,$FFFE,$FFFE,$7FFE,$0000,$0000,$0000,$0000
DC.W	$FC7E,$FC7E,$FC7E,$FFFE,$FEFE,$FFFE,$FFFE,$3FF8,$FFFE,$FFFE
DC.W	$1FBC,$FFFC,$FFFE,$7FFE,$FC7E,$7E7E,$0000,$0000,$0000,$0000
DC.W	$FC7E,$FC7E,$FC7E,$7FFC,$FFFE,$7FFE,$FCFE,$7FF8,$FCFE,$7FFE
DC.W	$3F3C,$FF00,$FE3C,$007E,$FC7E,$7C7E,$0000,$0000,$0000,$0000
DC.W	$FC7E,$FC7E,$FC7E,$3FF8,$7FFC,$01FE,$FC7E,$7FF8,$79FC,$01FE
DC.W	$7EFC,$FF80,$FC00,$007C,$FFFA,$7EFE,$0000,$0000,$0000,$0000
DC.W	$FC7E,$FEFE,$FD7E,$1FF0,$3FF8,$07FC,$FC7E,$7FF8,$03FC,$03FC
DC.W	$FFFE,$7FF8,$FCFC,$07FE,$7FFC,$7FFE,$0000,$0000,$0000,$0000
DC.W	$FEFE,$FFFE,$FBBE,$1FF0,$1FF0,$1FF8,$FC7E,$3DF8,$0FF8,$07F8
DC.W	$FFFE,$1FFE,$FFFE,$07FE,$BFFE,$3FFE,$0000,$0000,$0000,$0000
DC.W	$FFFE,$FFFE,$FFFE,$3FF8,$0FE0,$7F80,$FC7E,$03F8,$1FC0,$07FC
DC.W	$FFFC,$03FE,$FFFE,$03FC,$FFFE,$3FFE,$0000,$0000,$0000,$0000
DC.W	$FFFE,$7FFC,$FFFE,$7FFC,$07C0,$FFFC,$FC7E,$03F8,$3FFC,$7BFE
DC.W	$7FF8,$78FE,$FE3E,$01F8,$FC7E,$1FBE,$0000,$0000,$0000,$0000
DC.W	$FFFE,$7FFC,$FFFE,$FFFE,$07C0,$FFFE,$FE7E,$03F8,$7FFE,$FFFE
DC.W	$01F8,$FFFE,$FC3E,$03F0,$FC7E,$007C,$0000,$0000,$0000,$0000
DC.W	$FFFE,$3FF8,$FFFE,$FEFE,$07C0,$FFFE,$FFFE,$03F8,$FFFE,$FFFE
DC.W	$01F8,$FFFE,$7C7E,$03F0,$FFFE,$1FFC,$0000,$0000,$0000,$0000
DC.W	$7FFC,$3FF8,$FFFE,$FC7E,$07C0,$FFFE,$7FFC,$03F8,$FFFE,$FFFE
DC.W	$01F8,$FFFE,$7FFC,$07E0,$7FFC,$3FF8,$0000,$0000,$0000,$0000
DC.W	$7FFC,$1FF0,$FEFE,$FC7E,$07C0,$FFFE,$7FFC,$03F8,$FFFE,$FFFE
DC.W	$01F8,$7FFE,$3FFC,$07E0,$7FFC,$3FF8,$0000,$0000,$0000,$0000
DC.W	$3FF8,$0FE0,$7C7C,$783C,$0380,$7FFC,$3FF8,$01F0,$7FFC,$7FFC
DC.W	$00F0,$3FFC,$1FF8,$03C0,$3FF8,$1FE0,$0000,$0000,$0000,$0000
DC.W	$0000,$0000,$0000,$001E,$0E00,$0E00,$0000,$0000,$1FF0,$0000
DC.W	$01C0,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0078,$0000,$0000,$003F,$1F00,$1F00,$0000,$0000,$7FFC,$0000
DC.W	$03E0,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$00FC,$0000,$0000,$007E,$1F00,$1F00,$0000,$0000,$7FFE,$0000
DC.W	$03E0,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$01F8,$0000,$0000,$007E,$3E00,$0F80,$3C00,$3C00,$FFFE,$0000
DC.W	$01E0,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$01F8,$0000,$0000,$00FC,$3C00,$0780,$3C00,$3C00,$FFFE,$0000
DC.W	$00C0,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$03F0,$0000,$0000,$00FC,$7C00,$07C0,$3C00,$3C00,$FCFE,$0000
DC.W	$0180,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$03F0,$0000,$0000,$01F8,$7800,$03C0,$3000,$1C00,$F87E,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$07E0,$1FFE,$0000,$01F8,$7800,$03C0,$0000,$0000,$70FC,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$03C0,$3FFE,$0000,$03F0,$7800,$03C0,$0000,$0000,$00F8,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0000,$7FFC,$0000,$03F0,$7800,$03C0,$3C00,$3C00,$01F0,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0F00,$7FF8,$0780,$07E0,$7C00,$07C0,$3C00,$3C00,$01F0,$0380
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$1F80,$0000,$0FC0,$07E0,$3C00,$0780,$3C00,$3C00,$01E0,$07C0
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$1F80,$0000,$0FC0,$0FC0,$3E00,$0F80,$3000,$1C00,$0000,$07C0
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$1F80,$0000,$0FC0,$0FC0,$1F00,$1F00,$0000,$0C00,$01E0,$03C0
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0F00,$0000,$0780,$1F80,$1F00,$1F00,$0000,$1800,$01E0,$0180
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0000,$0000,$0000,$0F00,$0E00,$0E00,$0000,$0000,$01E0,$0300
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
DC.W	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	
newchar:
	move.l	#1,yo

	cmp.l	#tekste,tpointer
	bne.s	kok
	move.l	#tekst,tpointer
kok:	move.l	tpointer,a0
	move.l	#0,d0
	move.b	(a0),d0
	ext.w	d0

	lea	Ctabel,a0
	add.l	#$1,tpointer
	move.l	#0,d1
tok:	
	move.w	(a0),d1
	cmp.w	d0,d1
	beq.L	print
	add.l	#0,(a0)+
	cmp.w	#$ffff,(a0)
	bne	tok
space:	move.l	#spatie,a0

print:

	add.w	#0,(a0)+
	move.w	(a0),d0
	move.l	#charsdata,a0
	add.l	d0,a0
		
	lea	$715e0,a1
	move.l	tellerplaats,d0
	add.l	d0,a1

Blitrout: 
	move.l	a0,$dff050
	move.l	a1,$dff054
	move.l	#$ffffffff,$dff044
	move.l	#$ffffffff,$dff048
	move.l	#$09f00000,$dff040
	move.w	#[320-16]/8,$dff064      
	move.w	#[320-16]/8,$dff066
	move.w	#[16*64]+1,$dff058
btest:	btst	#$6,$dff002
	bne	btest

	add.l	#2,tellerplaats
	cmp.l	#40,tellerplaats
	beq.s	voorbij

	cmp.l	#1,yo
	beq.L	newchar

	rts

voorbij: move.l #0,yo
         move.l	#0,tellerplaats
	 rts
oker:
	movem.l	(a7)+,d0-d7/a0-a6
	rts

;--------------

scroll2:

	move.l	#$70028,$dff050
	move.l	#$6ffd8,$dff054
	move.l	#$ffffffff,$dff044
	move.l	#$ffffffff,$dff048
	move.l	#$09f00000,$dff040
	move.w	#000,$dff064      
	move.w	#000,$dff066
	move.w	#[290*64]+[320/16],$dff058
bbtest2:btst	#$6,$dff002
	bne	bbtest2
	rts

;------------------

cpointer: blk.l 4,0
tpointer: blk.l 4,0

;---
pauze:

	move.l	#$3333,d0
llll:	dbra	d0,llll
	rts


Interrupt:

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

	jsr	chcolor

	jsr	scroll2
	jsr	waitaminute
	jsr	waitaminute
	jsr	waitaminute
	jsr	waitaminute
	jsr	waitaminute
	jsr	waitaminute
	jsr	waitaminute
	jsr	waitaminute
	jsr	waitaminute
	jsr	waitaminute

	cmp.l	#20,check
	beq.s	nieuw
	add.l	#1,check

	bra.s	oker2
	
nieuw:	jsr	newchar
	move.l	#0,check
	bra.s	oker2
	

oker2:	movem.l	(a7)+,d0-d7/a0-a6

	dc.w	$4ef9
oldirq: dc.l    $0

waitaminute: 

	lea	colors,a0
	lea	colors,a0
	lea	colors,a0
	lea	colors,a0
	lea	colors,a0
	lea	colors,a0

	rts

colors: dc.w 0 ;opslagje
colors2:dc.w 0
chcolor:


	move.w	color1,colors
	move.w	color6,color1
	move.w	color2,colors2
	move.w	colors,color2
	move.w	color3,colors
	move.w	colors2,color3
	move.w	color4,colors2
	move.w	colors,color4
	move.w	color5,colors2
	move.w	colors,color5
	move.w	color6,color1
	move.w	colors2,color6
	rts

;----
check: dc.l 0
stophalt:dc.l 0
vteller: dc.l 0
tellerstop: dc.l 0
intsave:dc.l 0
tellerplaats:blk.l 2,0
yo:blk.l 2,00

poker:
	lea	piccie,a0
	lea	$60000,a1
ha:	move.l	(a0)+,(a1)+
	cmp.l	#$60000+24000,a1
	bne	ha
	rts

>extern "starpic",piccie,24000


Tekst:

; --- REGEL LENGTE -------|

dc.b " CONTACT EXTREME HQ "
dc.b "                    "
dc.b "    PO.BOX 9023     "
dc.b "  1800 GA ALKMAAR   "
dc.b "  THE NETHERLANDS   "
dc.b "                    "
DC.B "                    "
DC.B " MEMBER OF EXTREME: "
DC.B "                    "
DC.B "SICO  WOLC MAMAMIGA "
DC.B "MR.MIRACLE DOUBLE B "
DC.B "ZIGHY  THE ALLROUND "
DC.B "TESTED DESIGN  EDDY "
DC.B "DRAGONSOFT  MISTRAL "
DC.B "CHEZ    BEASTMASTER "
DC.B "                    "
DC.B "                    "
dc.b "  GREETZ TO:        "
dc.b "                    "
dc.b "LEVEL 4 / ROGI      "
dc.b "NEW ORDER           "
DC.B "INFOCORNER          "
DC.B "PHAZE 101           "
DC.B "TELSTAR             "
DC.B "THE BAND            "
DC.B "QUARTEX             "
DC.B "DESTINY SEVEN       "
DC.B "VISION FACTORY      "
DC.B "TTA                 "
DC.B "ACES HIGH           "
DC.B "POWERSLAVES         "
DC.B "THE OUTSIDER        "
DC.B "VISION              "
DC.B "THE RISING FORCE    "
DC.B "TACS                "
DC.B "CRIME               "
DC.B "AMIGA VISION        "
DC.B "BILLY JOHN          "
DC.B "TWA                 "
DC.B "DREAM WARRIORS      "
DC.B "LION                "
DC.B "DEATHSTAR           "
DC.B "ABANDON             "
dc.b "BILLY-JOHN          " 
DC.B "FREEDOM FORCE       "
DC.B "THE BEST ONES       "
DC.B "SYSTEM Z            "
DC.B "ACS                 "
DC.B "EMC                 "
DC.B "SUPPLEX             "
DC.B "NEMESIS             "
DC.B "AMPEX               "
DC.B "FCM                 "
DC.B "CYBORG POWERSYSTEMS "
DC.B "SBB                 "
DC.B "DYNASTY             "
DC.B "JB                  "
DC.B "EXEC                "
DC.B "VANGUARD            "      
DC.B "XYMEX               "
DC.B "EUROPE              "
DC.B "ASIA                "
DC.B "ITALIAN BAD BOYS    "
DC.B "NEW FRONTIER        "
DC.B "CRIONICS            "
DC.B "DARKNESS            "
DC.B "IRIS                "
DC.B "ECS                 "
DC.B "ALIBI               "
DC.B "UGA                 "
DC.B "ATLANTIS            "
DC.B "LUKE                "
DC.B "JUNGLE COMMAND      "
DC.B "AMITECH             "
DC.B "DIGITAL CRUSADERS   "
DC.B "QUADRAM             "
DC.B "CUADRAM             "
DC.B "DOXOS               "
DC.B "SPREADING FACTORY   "
DC.B "ANDROMEDA CREW      "
DC.B "UNIQUE              "
DC.B "TEBM                "
DC.B "HEADWAVE            "
DC.B "STEALTH             "
DC.B "THE BEAM            "
DC.B "HIGH VOLTAGE        "
DC.B "JOKER CREW          "
DC.B "TRIANGLE            "
DC.B "  VJU^(*            "
DC.B "     &^H            "
DC.B "    #$^%            "
DC.B "      ..            "
DC.B "                    "
DC.B "  OUT OF GREETINGS  "
DC.B "                    "
DC.B "       ERROR        "
DC.B "                    "
DC.B "                    "
DC.B "                    "
DC.B "           BYE!     "
DC.B "                    "
DC.B "                    "
dc.b "                    "

even
tekste:


piccie:

blk.b	24000,0