**********************************************************
*	MINI INTRO   WRITTEN BY KONGOMAN  1988
*	MUSIC BY LORD PERFORMER
*	DEBUGGING HAEGAR  (IMPLEMENTING OF SOUND
*	ROUTINE BY PHIL)
*
*  'RI'  'MINIDAT'  'PICPUF2'
*  'RI'  'MSONG'    'SOUND'
*
*		COPYRIGHT 1988 BY THRUST
********************************************************** 

SPRITES = 1			;1 = 12   2 = 6 ;CopperOBjectS
ABSTAND = 20			;Abstand der COBS zueinander
STARS = 100			;Sterne (in diesem Intro Max. 190)
LAENGE = 12			;Länge des Gamenamens

P2X = 640
P2Y = 98
P2D = 3
P2  = P2X/8*P2Y
P5X = 400
P5Y = 200
P5D = 2
P5  = P5X/8*P5Y
P6X = 400
P6Y = 150
P6D = 2
P6 = P6X/8*P6Y

ExecBase = 4
InitBitMap = -390
InitRastPort = -198
AllocMem = -198
FreeMem = -210
OpenLibrary = -408
CloseLibrary = -414
Open = -30
Close = -36
Read = -42
ForBid = -132

o:
movem.l	d0-d7/a0-a6,-(a7)
move.b	#2,rows
move.l	#scrolltext,c_ptr
jsr	OpenLibs

lea	Jumptab,a0
move.l	#$400f,d1
move.l	#127,d0
move.l	#$100,d3
move.l	#$f00,d4
colooper:
move.w	d1,(a0)+
add.w	#$100,d1
move.w	#$fffe,(a0)+
move.w	#$180,(a0)+
move.w	#0,(a0)+
dbra	d0,colooper
lea	waittab,a0
move.l	#$d10f,d1
move.l	#13,d0
move.l	#$200,d3
move.l	#$000,d4
coloop2:
move.w	d1,(a0)+
move.w	#$fffe,(a0)+
move.w	#$182,(a0)+
move.w	d3,(a0)+
move.w	#$184,(a0)+
move.w	d4,(a0)+
add.w	#$200,d1
add.w	#$100,d3
sub.w	#$100,d4
dbra	d0,coloop2
lea	waittab2,a0
move.l	#$000f,d1
move.l	#13,d0
move.l	#$2,d3
move.l	#$f,d4
coloop3:
move.w	d1,(a0)+
move.w	#$fffe,(a0)+
move.w	#$182,(a0)+
move.w	d3,(a0)+
move.w	#$184,(a0)+
move.w	d4,(a0)+
add.w	#$200,d1
add.w	#$1,d3
sub.w	#$1,d4
dbra	d0,coloop3
jsr	Alloc
move.l	ExecBase,a6
jsr	forbid(a6)
jsr 	s

move.l	GfxBase,a6
move.l	#0,d0
lea	RastPort2,a1
jsr	-342(a6)
jsr	mt_init
jsr	NewDisplay
LOPER:
jsr	WC
move.l	$6c,oldirq
move.l	#irq,$6c
LOPPER:
move.l	JUMPSLIDER,d0
add.l	d0,JUMPER
cmp.l	#15,JUMPER
bne	DOIT
neg.l	JUMPSLIDER
bra	DOIT2
DOIT:
cmp.l	#0,JUMPER
bne	DOIT2
neg.l	JUMPSLIDER

DOIT2:
lea	jumptab+[8*32],a0
jsr	FUCKCOPPERROUT
lea	Jumptab+[13*32]+8,a0
jsr	FUCKCOPPERROUT
jsr	WC
jsr	mt_newirq
btst	#6,$bfe001
bne	LOPPER

jsr	OldDisplay
move.l	oldirq,$6c
jsr	Delloc
jsr	CloseLibs
movem.l	(a7)+,d0-d7/a0-a6             
rts

Even
IRQ:
movem.l	d0-d7/a0-a6,-(a7)
cmp.b	#0,STOPBIT
bne	WAA
bra	WTRT
WAA:
sub.b	#1,STOPBIT
bra	continue1
WTRT:
move.l	GfxBase,a6
lea	RastPort6,a1
move.l	#8,d0
clr.w	d1
move.w	#20,d2
clr.w	d3
move.l	#399,d4
move.l	#23,d5
jsr	-396(a6)
sub.b	#1,rows
bne	continue1
move.b	#4,rows
bsr.s	printchar
continue1:

movem.l	(a7)+,d0-d7/a0-a6
dc.w	$4ef9
oldirq:	dc.l	0
Even

FUCKCOPPERROUT:
		;a0 = ADDRESSE
add.l	#6,a0
move.l	a0,a1
move.l	#64,d0
clealoop:
clr.b	(a0)
add.l	#8,a0
dbra	d0,clealoop

move.l	JUMPER,d0
move.l	a1,a0
add.l	#4*32,a0
move.l	a0,a1			;a0 oben a1 unten
FUCKCOPPERROUTLOOP:
move.w	d0,(a0)
move.w	d0,(a1)
add.l	#16,a1
sub.l	#16,a0
dbra	d0,FUCKCOPPERROUTLOOP
rts
Even

;ColorPrintOrgan V2.0
;Copyright in 1988 By Thrust (Haegar&KongoMan)

;Tut Farbig Printen aus Kongofontraster

Printchar:
move.l	C_ptr,a4
moveq	#0,d0
move.b	(a4),d0
cmp.b	#200,d0
bne	WWWWER
move.b	#100,STOPBIT
jmp	WE
WWWWER:
cmp.b	#32,d0
beq	WE
cmp.b	#0,d0
bne	EE

move.l	#SCROLLTEXT,C_PTR
bra	WE
EE:
bsr.l	LPO
WE:
add.l	#1,C_PTR
rts
LPO:			
sub.b	#33,d0
ext d0
ext d0
divu	#12,d0
move.w	d0,d1
clr.w	d0
swap	d0
;d0 = X d1 = Y
mulu	#32,d0
mulu	#24,d1
move.l	GfxBase,a6
lea	RastPort5,a0
lea	RastPort6,a1
move.l	#366,d2
clr.l	d3
move.l	#32,d4
move.l	#24,d5
move.l	#196,d6
jsr	-552(a6)
rts

STEXT:	;EINE WEITERE ROUTINE DER ZUKUNFT
	;d0 = Länge
	;a0 = Addresse
	;d1 = X-start
	;d3 = Y POS
sub.l	#1,d0
STEXTLOOP:
clr.l	d2
clr.l	d4
move.b	(a0)+,d2
cmp.b	#32,d2
beq	EEND
sub.b	#33,d2

ext d2
ext d2
divu	#12,d2
move.w	d2,d4
clr.w	d2
swap	d2
mulu	#32,d2
mulu	#24,d4
;d0 = X d1 = Y
movem.l	d0-d7/a0-a6,-(a7)
move.l	GfxBase,a6
lea	RastPort5,a0
lea	RastPort6,a1
move.l	d2,d0
move.l	d1,d2
move.l	d4,d1
move.l	#32,d4
move.l	#24,d5
move.l	#196,d6
jsr	-552(a6)
movem.l	(a7)+,d0-d7/a0-a6
EEND:
add.l	#32,d1
dbra	d0,STEXTLOOP
rts

WC:
cmp.b	#$a5,$dff006
bne	WC
rts

Alloc:

	move.l	#P5*P5D,d0
	move.l	#$10000,d1
	jsr	AllocMem(a6)
	move.l	d0,MemPointer5
	move.l	d0,BitMap5+8
	add.l	#P5,d0
	move.l	d0,BitMap5+12

	move.l	#P6*P6D,d0
	move.l	#$10000,d1
	jsr	AllocMem(a6)
	move.l	d0,MemPointer6
	move.l	d0,BitMap6+8
	move.w	d0,LO11
	swap	d0
	move.w	d0,HI11
	swap	d0
	add.l	#P6,d0
	move.l	d0,BitMap6+12
	move.w	d0,LO22
	swap	d0
	move.w	d0,HI22	

	move.l	#P2*P2D,d0
	move.l	#$10000,d1
	jsr	AllocMem(a6)
	move.l	d0,MemPointer2
	move.l	d0,BitMap2+8
	move.w	d0,LO1
	swap	d0
	move.w	d0,HI1
	swap	d0
	add.l	#P2,d0
	move.l	d0,BitMap2+12
	move.w	d0,LO2
	swap	d0
	move.w	d0,HI2
	swap	d0
	add.l	#P2,d0
	move.l	d0,BitMap2+16
	move.w	d0,LO3
	swap	d0
	move.w	d0,HI3
	move.l	GfxBase,a6
	lea	BitMap2,a0
	move.l	#P2D,d0
	move.l	#P2X,d1
	move.l	#P2Y,d2
	jsr	InitBitMap(a6)
	lea	BitMap5,a0
	move.l	#P5D,d0
	move.l	#P5X,d1
	move.l	#P5Y,d2
	jsr	InitBitMap(a6)
	lea	BitMap6,a0
	move.l	#P6D,d0
	move.l	#P6X,d1
	move.l	#P6Y,d2
	jsr	InitBitMap(a6)
	
	lea	RastPort1,a1
	jsr	InitRastPort(a6)
	move.l	#BitMap1,RastPort1+4
	lea	RastPort2,a1
	jsr	InitRastPort(a6)
	move.l	#BItMap2,RastPort2+4
	lea	RastPort3,a1
	jsr	InitRastPort(a6)
	move.l	#BitMap3,RastPort3+4
	lea	RastPort5,a1
	jsr	InitRastPort(a6)
	move.l	#BitMap5,RastPort5+4
	lea	RastPort6,a1
	jsr	InitRastPort(a6)
	move.l	#BitMap6,RastPort6+4
rts
Delloc:
	move.l	ExecBase,a6
	move.l	#P2*P2D,d0
	move.l	MemPointer2,a1
	jsr	FreeMem(a6)
	move.l	#P5*P5D,d0
	move.l	MemPointer5,a1
	jsr	FreeMem(a6)
	move.l	#P6*P6D,d0
	move.l	MemPointer6,a1
	jsr	FreeMem(a6)
	rts
NewDisplay:	
	move.l	GfxBase,a0
	add.l	#$32,a0
	move.w	#$0080,$dff096
	move.l	(a0),oldcopper
	move.l	#newcopper,(a0)
	move.w	#$8080,$dff096
	rts
OldDisplay:	
	move.l	GfxBase,a0
	add.l	#$32,a0
	move.w	#$0080,$dff096
	move.l	oldcopper,(a0)
	move.w	#$80a0,$dff096
	rts
OpenLibs:
	move.l	ExecBase,a6
	lea	GfxName,a1
	clr.l	d0
	jsr	OpenLibrary(a6)
	move.l	d0,GfxBase
rts
CloseLibs:
	move.l	ExecBase,a6
	move.l	GfxBase,a1
	jsr	CloseLibrary(a6)
	rts

;>>>> COPPERLISTE

NewCopper:

dc.w	$96,$20
dc.w	$008e,$4454,$0090,$a6d1
dc.w	$0092,$003c,$0094,$00d4
dc.w	$0108
dc.w $0,$010a
	dc.w $0
dc.w	$0100,%1011000000000000
dc.w	$00e0
HI1:	dc.w	$0000,$00e2
LO1:	dc.w	$0000,$00e4
HI2:	dc.w	$0000,$00e6
LO2:	dc.w	$0000,$00e8
HI3:	dc.w	$0000,$00ea
LO3:	dc.w	$0000
dc.w	$180,$000
dc.w	$182,$555
dc.w	$184,$777
dc.w	$186,$888
dc.w	$188,$aaa
dc.w	$18a,$ccc
dc.w	$18c,$ddd
dc.w	$18e,$fff
JumpTab:	blk.w	4*128,0
dc.w	$d00f,$fffe
dc.w	$100,%0010000000000000
dc.w	$108
KRIK:	dc.w $2
dc.w	$10a
KRAK:	dc.w $2
dc.w	$0e0
HI11:	dc.w	$0,$e2
LO11:	dc.w	$0,$e4
HI22:	dc.w	$0,$e6
LO22:	dc.w	$0
dc.w	$8e,$d064,$90,$27d1
dc.w	$92,$20,$094,$d8
dc.w	$186,$ff0
waittab:
blk.w	56+28,0
dc.w	$ffdf,$fffe
dc.w	$186,$dd0
waittab2:
blk.w	56+28,0
dc.w	$190f,$fffe
dc.w	$186
INT:	dc.w	$0
dc.w	$270f,$fffe
dc.w	$fffe,$fffe
Even
picpuf:
;KONGOMANS
;MEGAMIGHTYTURBOEXTREMFONT V2.0
;ONLY FOR THRUSTINTERNAL USE!

	dc.l	$b524c7f0,$0322b064,$12916833,$22706201
	dc.l	$40c26181,$a7e503c8,$2b3e3036,$322062f8
	dc.l	$e0f90281,$b234d248,$7281bf82,$82fc7714
	dc.l	$43801034,$c00815c0,$50910438,$60c60081
	dc.l	$93030304,$c2069f50,$41482605,$03b004d7
	dc.l	$44009902,$67033d68,$605034c2,$a08508a0
	dc.l	$26281a10,$282a6930,$2819b0b0,$47a8a0c9
	dc.l	$80a18802,$35981f86,$2831a490,$698110d0
	dc.l	$e44c0819,$7c906042,$2618197c,$783b80a0
	dc.l	$6985010a,$859c4c1c,$0c100614,$44723307
	dc.l	$a8606130,$20cd2081,$dc05034c,$2fffd8fa
	dc.l	$13008182,$0fc0be08,$1c850509,$8617c181
	dc.l	$83b84304,$4d2a4c11,$0c4ca080,$2fa84402
	dc.l	$30436240,$42698001,$0202013b,$34498261
	dc.l	$8e204118,$5fc00d5e,$214d0014,$44603098
	dc.l	$24180d04,$1fe341a6,$030309a8,$80143b87
	dc.l	$ac411422,$000e0860,$380040d3,$0341f905
	dc.l	$03260606,$69140c4e,$001cf01f,$8c548930
	dc.l	$302080f9,$65c100ec,$8204c060,$7425d998
	dc.l	$0a9005f0,$a06985ae,$a2074d08,$1f2ac408
	dc.l	$91302818,$480a0286,$26051860,$03cf91b4
	dc.l	$298060ca,$87c09c45,$09953422,$0c898981
	dc.l	$a8a07890,$3b841306,$d6f80260,$503e0026
	dc.l	$1424281c,$5550004c,$33f36020,$858888fb
	dc.l	$930081b4,$65030202,$06985200,$36448269
	dc.l	$0c0d3008,$1a20102a,$611c0422,$460c26c0
	dc.l	$503071c1,$c4794e14,$81420010,$271c1026
	dc.l	$05070424,$00661e4e,$82013231,$61d8181a
	dc.l	$05b7d80a,$08080fc0,$1fc42003,$85800828
	dc.l	$45401033,$ee0033ec,$204e004c,$b000609d
	dc.l	$33704130,$1818e009,$a1c05050,$17f02506
	dc.l	$061c7104,$c0507f97,$0dd6840d,$08060991
	dc.l	$0904378b,$c0220284,$885a0606,$4c140c20
	dc.l	$0980a0f8,$0fe1c360,$03c39a40,$70ff45a4
	dc.l	$40400c8c,$24606990,$380a8341,$870130a0
	dc.l	$0410f809,$0790258c,$40cbe881,$88150042
	dc.l	$1c658801,$06040506,$0180ff3f,$4780483c
	dc.l	$810ba207,$60020f00,$7ff11c5d,$500e07fc
	dc.l	$070800bc,$7c026444,$0f001711,$80303402
	dc.l	$8110831c,$29061812,$0f822602,$06e324c1
	dc.l	$c8dc1220,$ad840dc0,$17118030,$3050200b
	dc.l	$ed434941,$90928311,$a2066094,$0d30251f
	dc.l	$0498040e,$3e530121,$b4108321,$cd07c10a
	dc.l	$c1032490,$62e06180,$40c35181,$9124830c
	dc.l	$0107a926,$16008383,$d07f0046,$440d3008
	dc.l	$18695830,$98d06825,$0b220654,$2a0529a8
	dc.l	$608f5503,$0986063d,$540cd238,$1ea54a2a
	dc.l	$4b002614,$02392692,$997e00be,$2080a211
	dc.l	$2b48221a,$9302830b,$2a603033,$329315a4
	dc.l	$38188010,$32602069,$8040c241,$ef0c0f52
	dc.l	$4a853008,$1e001647,$74446081,$9015f6aa
	dc.l	$b2a001e6,$606980c0,$f52a0444,$0d007605
	dc.l	$40098208,$05aa9977,$034c2b25,$e5d40d30
	dc.l	$281a8146,$24ca7afd,$a12530af,$804c0e06
	dc.l	$20040d30,$47c09814,$0ef8b09d,$e01b08f8
	dc.l	$7684df08,$1e042004,$0c4c041a,$c4261c0e
	dc.l	$f6181c9c,$a115c380,$4c2828e4,$3027f008
	dc.l	$104a0006,$17c01f74,$40081f80,$08209013
	dc.l	$0083342c,$80a808a0,$13008182,$0168a411
	dc.l	$305032d2,$60698040,$dfb081df,$c7031cc0
	dc.l	$0742608c,$0a6083e0,$40d2a284,$40c10001
	dc.l	$d100a069,$8380047e,$dfc70362,$eb482a3b
	dc.l	$f9047081,$301837c2,$9303c314,$07408481
	dc.l	$40c06400,$015087d2,$06814828,$13044018
	dc.l	$18a95034,$c0506db0,$c0d30291,$d6541009
	dc.l	$50c0f47a,$63520c03,$88188030,$36e2a069
	dc.l	$8140e2cb,$f8077118,$0207e103,$8052a41f
	dc.l	$f83c063a,$20140c54,$a8186966,$3180e06e
	dc.l	$81e0c40a,$b0520050,$6644c0c9,$80c18c12
	dc.l	$83320e06,$4c0e0eb0,$460381f0,$010321ce
	dc.l	$07c02205,$58290048,$372e9002,$1c460281
	dc.l	$b8c30304,$ce06fe04,$c0e07680,$4c0f070f
	dc.l	$0c010334,$8e060070,$148348a0,$6820580a
	dc.l	$07482871,$20d50281,$c3c30040,$c9804184
	dc.l	$0098181e,$281022a6,$a0606050,$e8d27035
	dc.l	$000d2503,$182a1c10,$34012817,$c50343a8
	dc.l	$080c0400,$8196ca91,$004833cb,$fffe05f0
	dc.l	$40c26a98,$0c0c2608,$197c3036,$e2801002
	dc.l	$a024b818,$611037c6,$a0613020,$d30a2603
	dc.l	$48606132,$51500a08,$08ca8007,$4a81c828
	dc.l	$783fc820,$03b08718,$1898083c,$084c2819
	dc.l	$a41034c1,$98040240,$e97034c0,$a0608026
	dc.l	$0e870807,$09622611,$80134980,$c0df0098
	dc.l	$140c98a1,$3213dc0d,$3063e181,$bb89b740
	dc.l	$3a01d05a,$940c08b8,$1a763033,$48607c93
	dc.l	$000c68d2,$281a888f,$41030802,$4c3e0151
	dc.l	$b097c012,$9103401c,$83ba3034,$c0207683
	dc.l	$00200484,$c0a07380,$40834b00,$16f88176
	dc.l	$9066e440,$c1000120,$9d260206,$e00b4a00
	dc.l	$0c3904c1,$40d4447a,$b00190c0,$7851a206
	dc.l	$2c241783,$f84a0039,$079181a0,$0a413044
	dc.l	$01682040,$4c112a08,$144a8c4c,$040c201a
	dc.l	$04c140ca,$4981ac91,$03188905,$300818e0
	dc.l	$05043804,$c298040d,$b2692a00,$2aa0a026
	dc.l	$0103062f,$e4a001a8,$05c20d21,$40fc6b11
	dc.l	$52084054,$1c06000a,$2040d301,$81b4c08d
	dc.l	$60f00498,$b7106083,$82904e00,$983fdff0
	dc.l	$508140e1,$13174840,$c058440c,$982418e0
	dc.l	$1eaa0968,$01032105,$20900441,$30281e08
	dc.l	$00a90000,$50060208,$42402d21,$06f5040c
	dc.l	$80170298,$120e9078,$03e0e814,$0d040980
	dc.l	$20c08098,$0e0fc848,$5281d595,$30141868
	dc.l	$1038d620,$64404121,$0626140e,$c0498bd0
	dc.l	$140e902c,$199551d4,$0cb48419,$e0830937
	dc.l	$28325294,$640020fe,$2700a07a,$0500ff07
	dc.l	$40a95033,$091fc081,$c9103112,$e064c1b0
	dc.l	$df2281f2,$481d5032,$60106400,$20cb4981
	dc.l	$f856dd09,$0490501c,$20846157,$0705090c
	dc.l	$091a1890,$834c0d86,$0804c0a0,$67b440c4
	dc.l	$4098160d,$11b81930,$5834001b,$0a417007
	dc.l	$609822e0,$4c050640,$020d425f,$8980c18c
	dc.l	$21034c10,$502608a0,$08f041d4,$4401c0fc
	dc.l	$00082980,$60cbe530,$28183813,$04700624
	dc.l	$20c10500,$0c1e4510,$34c0e062,$004c0d06
	dc.l	$6d9c0ea2,$20020655,$2097fbf8,$82010a98
	dc.l	$1c0cd253,$02419008,$89303260,$386e9260
	dc.l	$343201ad,$22067729,$8160c1c0,$98090c10
	dc.l	$081900c8,$01034111,$22607402,$08010196
	dc.l	$1c0830b8,$19213034,$80020db1,$10390286
	dc.l	$408040f4,$07fc1c05,$f305020e,$0101001f
	dc.l	$8260b90b,$10ca43e0,$4c020640,$040e4008
	dc.l	$19801032,$60907413,$d0910898,$10301890
	dc.l	$6082405c,$004a5211,$04311a93,$034c9de2
	dc.l	$087008e0,$40dc1c20,$202610c9,$50337a90
	dc.l	$05031810,$40206980,$c0c100e0,$5001082c
	dc.l	$010318c2,$06d45192,$20718270,$040d30a0
	dc.l	$8040d301,$81fe00e4,$881b800c,$2ff7f014
	dc.l	$16b468a3,$2540e305,$a4261a84,$d2120c10
	dc.l	$0d2160ce,$22602860,$e0302a80,$0982818d
	dc.l	$03032602,$0670040d,$304c0281,$c800d4a4
	dc.l	$1a802409,$e081848a,$41aa5404,$20b9140c
	dc.l	$6a081a60,$4c31f94c,$0286281c,$0cc03819
	dc.l	$3e083300,$e060651b,$a81e1032,$60106282
	dc.l	$601c0cd4,$84198070,$33a2b908,$89503552
	dc.l	$ac6401a0,$c60a800c,$0dffc07f,$030410f8
	dc.l	$08041fc1,$fd064560,$c9823190,$0683182a
	dc.l	$00303509,$084a4410,$a0080416,$420fc53d
	dc.l	$4f06e80a,$0d300d18,$c01034c0,$c86a2890
	dc.l	$c99281a8,$0060a261,$a0c04186,$29851490
	dc.l	$4c306401,$40ffc013,$23054401,$07a0bf02
	dc.l	$09c00072,$60103fc0,$02668340,$09063022
	dc.l	$80690e06,$682a0a10,$48903804,$0dd20289
	dc.l	$04c0d072,$0008129a,$c8607fbf,$ffcbd218
	dc.l	$a180c0dc,$1c208760,$000e01fc,$832dfeef
	dc.l	$04c06864,$c0a0ce05,$3044c381,$c98de886
	dc.l	$07034c06,$06845529,$3004193c,$cc44c020
	dc.l	$ff200078,$26048308,$02067029,$8040cec5
	dc.l	$00a19165,$5e008182,$00a6081a,$04980a0d
	dc.l	$004224c0,$e070c241,$264b503b,$80fa0404
	dc.l	$700410e0,$1a0b556d,$44c0e0c8,$044c0419
	dc.l	$30103561,$10136b82,$3a2fd0e1,$c283402c
	dc.l	$808ac930,$e0481540,$098150a3,$941fc005
	dc.l	$c302357c,$00fc404c,$28340284,$15525302
	dc.l	$81824a80,$8200c808,$18802104,$40141020
	dc.l	$040ea4c0,$50641045,$5d0e4840,$40530081
	dc.l	$e003c2d4,$10702c44,$1008e03a,$0780fd36
	dc.l	$207c0074,$3480435b,$9302c1d8,$4610281a
	dc.l	$40e183b8,$40982c1e,$00080e00,$e9098081
	dc.l	$ac44c1e0,$c20081a8,$014a9001,$c1424131
	dc.l	$14142230,$10494024,$14914089,$85090604
	dc.l	$a004c0f0,$63801814,$c0d06e00,$309c1c20
	dc.l	$980d0c20,$081a0430,$3d05280a,$06112840
	dc.l	$22080800,$20808802,$001e8063,$c5000981
	dc.l	$20c20081,$a0430380,$5280a061,$10f80c21
	dc.l	$fc07fff0,$7fc7ff0e,$500c05fe,$ff0c18f9
	dc.l	$6196f7f7,$f81314cb,$33fa18d7,$f464042c
	dc.l	$0a1ababf,$6661c700,$82302a19,$64186704
	dc.l	$cb031803,$b3181026,$06e40dc9,$13299016
	dc.l	$09899991,$960e2603,$430c3b0c,$3fc264f9
	dc.l	$fc00f98c,$0bb333f1,$12100cc3,$c80307c7
	dc.l	$cccfcb0c,$074c0987,$36670ac8,$c001bb3b
	dc.l	$bb3b3abb,$f7740673,$03a61776,$73050981
	dc.l	$d0e38ce3,$accfc03f,$8f00003a,$059dfdfd
	dc.l	$1d3b3a03,$f83a00e1,$393bfbfa,$e3c1e003
	dc.l	$fdc007fb,$800ff700,$1fee003f,$dc007fb8
	dc.l	$00ff7001,$fee003fd,$c007fb80,$0ff7001f
	dc.l	$ee003fdc,$007fb0e2,$d1698158,$fc0381e4
	dc.l	$050341cd,$0695960c,$9e841a60,$123bb670
	dc.l	$6993d408,$3439f049,$06a28a0d,$300e1e50
	dc.l	$503882a6,$00c3fce1,$0f421c50,$3c814397
	dc.l	$f8b21a4a,$06870e0c,$e2841f21,$530341f8
	dc.l	$60400360,$be2819a4,$783778a0,$6be120fc
	dc.l	$3ce19853,$09a10460,$3e00028f,$555f0506
	dc.l	$98070f83,$00387e02,$30258980,$88d7eb0a
	dc.l	$ba0d882c,$13269020,$6981c8fe,$08c1cef0
	dc.l	$98010c5a,$241a6030,$35f0a07c,$dda59c08
	dc.l	$d1825000,$04181038,$02780d9e,$bf813018
	dc.l	$19785034,$c0887804,$48c18800,$944c0187
	dc.l	$c007a0a0,$69852082,$07c30c3c,$20cc0035
	dc.l	$02304603,$ccf7a1b2,$9540d30a,$00fd04c0
	dc.l	$e86a5002,$b01f044c,$0707c003,$314c0a07
	dc.l	$ca1c0fff,$fc7f031e,$e440c084,$10099401
	dc.l	$00423804,$b20ca804,$78129c40,$ec0a9803
	dc.l	$0e000a10,$08241301,$e1c00fc2,$a87fc158
	dc.l	$27ff90f0,$0a060c0e,$02e00132,$4d6207e0
	dc.l	$0c0f8009,$4c40d303,$a1fc0380,$081a6064
	dc.l	$3fe1f878,$0483c82b,$33103d00,$1061fe10
	dc.l	$f9830602,$0800cb69,$8098e000,$98140c00
	dc.l	$0981b4e7,$e514a07f,$e5492a06,$18040d60
	dc.l	$ac1a605e,$32442078,$03472781,$40d30281
	dc.l	$9005834c,$06c7de1c,$0e7c48e8,$81a20103
	dc.l	$74220680,$2f55182a,$0654540d,$7c081a60
	dc.l	$4e39f1ec,$b0079a08,$1a60393d,$22ea167c
	dc.l	$4a2cf02e,$7503082e,$049e040d,$63b81ac0
	dc.l	$a471034c,$0dc701ff,$09f932c3,$0260103f
	dc.l	$49302418,$804834c0,$bc6905e0,$1f826146
	dc.l	$05304b0a,$818a1103,$56620620,$140d78a8
	dc.l	$1a601e37,$414c0da7,$cd5d468c,$0103f080
	dc.l	$c0fb520d,$33881880,$303482a0,$700026d3
	dc.l	$03f1f962,$83580e06,$980e0f80,$5300a1c2
	dc.l	$0ac0503b,$40260243,$180a063e,$0c0cf514
	dc.l	$18814a20,$2021c503,$51430608,$040d303c
	dc.l	$18f01300,$41e50a60,$78324020,$6981c0cb
	dc.l	$e1419805,$037a2b06,$4cc40d30,$2a19d010
	dc.l	$34c0186f,$51c0cd20,$219d8703,$212d0669
	dc.l	$040d3032,$19a41035,$80206040,$260c2698
	dc.l	$0f0c1009,$8110d7c0,$41d0142c,$670081a6
	dc.l	$0a387034,$42606ab9,$40ced081,$9261034c
	dc.l	$0f067450,$c0606981,$10d3d081,$a616d0a2
	dc.l	$054c0606,$6e1c0d30,$241a897c,$003c8c0d
	dc.l	$30021fc0,$0c098241,$a6044302,$6d00cdd4
	dc.l	$03820983,$f0ff0c09,$30241840,$172841af
	dc.l	$e103fc0f,$82603437,$e0260123,$f00040c0
	dc.l	$03c2d028,$1a604832,$60f07702,$98050c78
	dc.l	$098020c4,$0098110d,$b5281f05,$5c59c1e3
	dc.l	$b3037821,$06be140f,$10211900,$0c4b95a6
	dc.l	$069369aa,$07801e00,$85802069,$81b8c800
	dc.l	$41bc1303,$4c0906b8,$230040d6,$07fc0a28
	dc.l	$c0d20981,$a607a314,$0d069816,$0c77a985
	dc.l	$f00260e1,$80800a18,$515034c0,$44640020
	dc.l	$de0a81a6,$00835f14,$c0907132,$e67034c0
	dc.l	$2a68c4c0,$d3037190,$01039002,$06182d04
	dc.l	$c0ce040c,$05023994,$0f3cfe04,$029c8c0d
	dc.l	$05081a60,$693ff01a,$0a6143c0,$06540d30
	dc.l	$37190010,$31810402,$06980c0c,$0c040440
	dc.l	$c3c0b004,$0d30081b,$20a01103,$4c0f27e0
	dc.l	$04c01262,$81c0cc03,$81b41083,$300e069e
	dc.l	$57cea7e1,$03552d36,$98152c80,$3418c153
	dc.l	$00a18263,$834c0f46,$401c0d80,$a3054c09
	dc.l	$06000208,$be158206,$e93ea683,$4c06c660
	dc.l	$040fbc28,$1a600830,$f0f80b48,$f8914cf8
	dc.l	$5834c0e2,$67039e7f,$04c09071,$12601e30
	dc.l	$80206501,$40d54081,$a0145257,$0a06ce2a
	dc.l	$8040e2aa,$d21e0d30,$231a15b1,$740a6008
	dc.l	$3449f8a0,$3178a608,$07f81a2d,$2141a602
	dc.l	$63402b40,$948a6050,$35c29fff,$c1604824
	dc.l	$c2800352,$000204a9,$260413f0,$0f826058
	dc.l	$3e42bc49,$81c4c200,$81a04303,$d05280a0
	dc.l	$611605f8,$1e007ff8,$07e07f80,$01e807f3
	dc.l	$fffcff1b,$f5fec10a,$196f7f7f,$81314cb3
	dc.l	$3fa18d7f,$464042c0,$a1ababf6,$661c7008
	dc.l	$2302a196,$4186704c,$b031803b,$31810260
	dc.l	$6e40dc91,$32990160,$98999919,$60e26034
	dc.l	$30c3b0c3,$fc264f9f,$c00f98c0,$bb333f11
	dc.l	$2100cc3c,$80307c7c,$ccfcb0c0,$74c09873
	dc.l	$6670ac8c,$001bb3bb,$b3b3abbf,$77406730
	dc.l	$3a617767,$3050981d,$0e38ce3a,$ccfc03f8
	dc.l	$f00003a0,$59dfdfd1,$d3b3a03f,$83a00e13
	dc.l	$93bfbfae,$3c1e003f,$dc007fb8,$00ff7001
	dc.l	$fee003fd,$c007fb80,$0ff7001f,$ee003fdc
	dc.l	$007fb800,$ff7001fe,$e003fdc0,$07fb8002
	dc.l	$14600010,$99c793dc,$00004e20

picpufend:
Even
picpuf2:	blk.b	$20e0,0
picpufend2:

Adder:	dc.l	0

Even
GfxName:	dc.b	"graphics.library",0
Even
;>>>> STRUCTURES

BitMap1:	blk.l	12,0
BitMap2:	blk.l	12,0
BitMap3:	blk.l	12,0
BitMap5:	blk.l	12,0
BitMap6:	blk.l	12,0
RastPort1:	blk.l	27,0
RastPort2:	blk.l	27,0
RastPort3:	blk.l	27,0
RastPort5:	blk.l	27,0
RastPort6:	blk.l	27,0
;>>>> VARIS

Even
GfxBase:	dc.l	0
DosBase:	dc.l	0
OldCOpper:	dc.l	0
MemPointer2:	dc.l	0
MemPointer5:	dc.l	0
MemPointer6:	dc.l	0
OTTO:		dc.l	0
;>>>> TABELLEN

NUMBER:	dc.l	1
ODEL:	dc.l	0
R1:	dc.l	0
R2:	dc.l	0
RC:	dc.l	0
RA:	dc.l	200
RB:	dc.l	130
STARW:	dc.l	0
STARC:	dc.l	0
SPEED:	dc.w	1
MAXW:	dc.w    10
s:
move.l	#PICPUFEND,a0
move.l	MemPointer5,a1
jsr	ss
ss2:
move.l	#PICPUFEND2,a0
move.l	MemPointer2,a1
jsr	ss
rts
ss:
move.l -(a0),a2		
add.l a1,a2		
move.l -(a0),d5		
move.l -(a0),d0		
eor.l d0,d5		

notfinished:
lsr.l #1,d0
bne.S notempty1
bsr getnextlwd
notempty1:
bcs.S bigone		

moveq #8,d1	
moveq #1,d3	
lsr.l #1,d0
bne.S notempty2
bsr getnextlwd
notempty2:
bcs.S dodupl	

moveq #3,d1	
clr.w d4	

dojmp:		
		
bsr rdd1bits	
move.w d2,d3	
add.w d4,d3	

getd3chr:

moveq #7,d1	
get8bits:
lsr.l #1,d0
bne.S notempty3
bsr getnextlwd
notempty3:
roxl.l #1,d2
dbf d1,get8bits	

move.b d2,-(a2)
dbf d3,getd3chr	
bra nextcmd

bigjmp:
moveq #8,d1	
moveq #8,d4	

bra dojmp

bigone:
moveq #2,d1	
bsr rdd1bits
cmp.b #2,d2	
blt.S midjumps	
cmp.b #3,d2	
beq.S bigjmp	

moveq #8,d1	
bsr rdd1bits	
move.w d2,d3	
move.w #12,d1	
bra dodupl	

midjumps:
move.w #9,d1	
add.w d2,d1
addq #2,d2
move.w d2,d3	

dodupl:
bsr rdd1bits	

copyd3bytes:
subq #1,a2
move.b (a2,d2.w),(a2)
dbf d3,copyd3bytes

nextcmd:
cmp.l a2,a1
blt.L notfinished
tst.l d5
rts

getnextlwd:
move.l -(a0),d0
eor.l d0,d5
move.w #$10,ccr
roxr.l #1,d0
rts

rdd1bits:	
subq.w #1,d1
clr.w d2

getbits:
lsr.l #1,d0
bne.S notempty
move.l -(a0),d0
eor.l d0,d5
move.w #$10,ccr
roxr.l #1,d0

notempty:
roxl.l #1,d2
dbf d1,getbits
rts

C_PTR:	dc.l	0
Even
Rows:	dc.l	0
Test:	dc.l	0
KX:	dc.w	4
KY:	dc.w	1
ADE:	dc.w	0
UMTABLE:	
	dc.w    0,4
	dc.w	1,3
	dc.w	2,2
	dc.w	3,1
	dc.w	4,0
	dc.w	5,-1
	dc.w	6,-2
	dc.w	7,-3
	dc.w	8,-4
even
FX:	blk.w	20,200
FY:	blk.w	20,140
FC:	dc.w	0,20,40,60,80,100,120,140,320,360,400,440,480
	blk.w	20,0
PX:	blk.w	20,0
PY:	blk.w	20,0
PUC:	blk.w	20,0
FIP:	dc.w	0
B1:	dc.w	0
B2:	dc.w	0
V1:	dc.l	0
V2:	dc.l	0
V3:	dc.l	0
Farb:	dc.l	0
FileName:	dc.b	"egal",0
Even
FileName2:	dc.b	"auch egal",0
Even
Lsung:	dc.b	0
Even
AAdder1:	dc.l	abstand*2
AAdder2:	dc.l	Abstand
AAdder3:	dc.l	0
AAdder4:	dc.l	126+[Abstand*2]
AAdder5:	dc.l	126+Abstand
AAdder6:	dc.l	126+0
Text:	dc.b	"W"
Lsu:	dc.b	0
Lsi:	dc.b	0
SCOLZ:	dc.b	0
AETZ:	dc.b	0
STOPBIT:	dc.b	0
Even

;*********************
;	soundplay
;*********************

mt_speed=$0f4
mt_init:

move.l	#sound,a0
move.l	#mt_sample1,a1
move.w	#14,d0
move.l	a0,d1
add.l	#64,d1
mt_loop:
move.l	d1,(a1)+
add.l	(a0)+,d1
dbra	d0,mt_loop
move.l	d1,mt_sampleinfo	

move.l		#mt_sample1,a0
clr.l		d0
mt_clear:
move.l		(a0,d0),a1
clr.l		(a1)
addq		#4,d0
cmp.l		#$3c,d0
bne.s		mt_clear

move.w		#0,$dff0a8
move.w		#0,$dff0b8
move.w		#0,$dff0c8
move.w		#0,$dff0d8
eor.w		#$c000,mt_voice0+12
clr.l		mt_partnrplay
clr.l		mt_partnote
clr.l		mt_partpoint

move.l		mt_sampleinfo,a0
move.b		$1d6(a0),mt_maxpart+1
move.b		$1d7(a0),mt_kn1+1
rts

mt_newirq:
movem.l		d0-d7/a0-a6,-(a7)
bsr		mt_music
movem.l		(a7)+,d0-d7/a0-a6

rts

mt_music:
addq.l		#1,mt_counter
cmp.l		#6,mt_counter
bne.s		mt_notsix
clr.l		mt_counter
bra.L		mt_rout2

mt_notsix:
lea		mt_aud1temp,a6
tst.b		3(a6)
beq.s		mt_arp1
move.l		#$dff0a0,a5		
bsr.s		mt_arprout

mt_arp1:
lea		mt_aud2temp,a6
tst.b		3(a6)
beq.s		mt_arp2
move.l		#$dff0b0,a5
bsr.s		mt_arprout

mt_arp2:
lea		mt_aud3temp,a6
tst.b		3(a6)
beq.s		mt_arp3
move.l		#$dff0c0,a5
bsr.s		mt_arprout

mt_arp3:
lea		mt_aud4temp,a6
tst.b		3(a6)
beq.s		mt_arp4
move.l		#$dff0d0,a5
bsr.s		mt_arprout
mt_arp4:
bra.L		mt_stop


mt_arprout:
tst.w	24(a6)
beq.s	mt_noslide

clr.w	d0
move.b	25(a6),d0
lsr.b	#4,d0
tst.b	d0
beq.s	mt_voldwn2
bsr.L	mt_pushvol1
bra.s	mt_noslide

mt_voldwn2:
clr.w	d0
move.b	25(a6),d0
bsr.L	mt_pushvol2

mt_noslide:
move.b	2(a6),d0
and.b	#$0f,d0
tst.b	d0
beq.L	mt_arpegrt
cmp.b	#3,d0
beq.L	mt_arpegrt
cmp.b	#4,d0
beq.L	mt_arpegrt
cmp.b	#5,d0
beq.L	mt_arpegrt
cmp.b	#1,d0
beq.s	mt_portup
cmp.b	#6,d0
beq.s	mt_portup
cmp.b	#7,d0
beq.s	mt_portup
cmp.b	#8,d0
beq.s	mt_portup
cmp.b	#2,d0
beq.s	mt_portdwn
cmp.b	#9,d0
beq.s	mt_portdwn
cmp.b	#10,d0
beq.s	mt_portdwn
cmp.b	#11,d0
beq.s	mt_portdwn
cmp.b	#13,d0
beq.s	mt_volup
rts

mt_portup:
clr.w	d0
move.b	3(a6),d0
sub.w	d0,22(a6)
cmp.w	#$71,22(a6)
bpl.s	mt_ok1
move.w	#$71,22(a6)
mt_ok1:
move.w	22(a6),6(a5)
rts

mt_portdwn:
clr.w	d0
move.b	3(a6),d0
add.w	d0,22(a6)
cmp.w	#$358,22(a6)
bmi.s	mt_ok2
move.w	#$358,22(a6)
mt_ok2:
move.w	22(a6),6(a5)
rts

mt_volup:
clr.w	d0
move.b	3(a6),d0
lsr.b	#4,d0
tst.b	d0
beq.s	mt_voldwn
mt_pushvol1:
add.w	d0,$12(a6)
cmp.w	#$40,$12(a6)
bmi.s	mt_ok3
move.w	#$40,$12(a6)
mt_ok3:
move.w	$12(a6),8(a5)
rts

mt_voldwn:
clr.w	d0
move.b	3(a6),d0
mt_pushvol2:
and.b	#$0f,d0
sub.w	d0,$12(a6)
bpl.s	mt_ok4
clr.w	$12(a6)
mt_ok4:
move.w	$12(a6),8(a5)
rts

mt_arpegrt:
cmp.l		#1,mt_counter
beq.s		mt_loop2
cmp.l		#2,mt_counter
beq.s		mt_loop3
cmp.l		#3,mt_counter
beq.s		mt_loop4
cmp.l		#4,mt_counter
beq.s		mt_loop2
cmp.l		#5,mt_counter
beq.s		mt_loop3
rts

mt_loop2:
clr.l		d0
move.b		3(a6),d0
lsr.b		#4,d0
bra.s		mt_cont

mt_loop3:
clr.l		d0
move.b		3(a6),d0
and.b		#$0f,d0
bra.s		mt_cont

mt_loop4:
move.w		16(a6),d2
bra.s		mt_endpart

mt_cont:
lsl.w		#1,d0
clr.l		d1
move.w		16(a6),d1
lea		mt_arpeggio,a0
mt_loop5:
move.w		(a0,d0),d2
cmp.w		(a0),d1
beq.s		mt_endpart
addq.l		#2,a0
bra.s		mt_loop5

mt_endpart:
move.w		d2,6(a5)
rts

mt_rout2:
move.l		mt_sampleinfo,a0
move.l		a0,a3
add.l		#$0c,a3
move.l		a0,a2
add.l		#$1d8,a2
add.l		#$258,a0
move.l		mt_partnrplay,d0
clr.l		d1
move.b		(a2,d0),d1
mulu		#$0400,d1
add.l		mt_partnote,d1
move.l		d1,mt_partpoint
clr.w		mt_dmacon

move.l		#$dff0a0,a5
lea		mt_aud1temp,a6
bsr.L		mt_playit

move.l		#$dff0b0,a5
lea		mt_aud2temp,a6
bsr.L		mt_playit

move.l		#$dff0c0,a5
lea		mt_aud3temp,a6
bsr.L		mt_playit

move.l		#$dff0d0,a5
lea		mt_aud4temp,a6
bsr.L		mt_playit

move.l		#mt_speed,d0
mt_rls:
dbf		d0,mt_rls

move.l		#$8000,d0
add.w		mt_dmacon,d0
move.w		d0,$dff096

move.l		#mt_aud4temp,a6
cmp.w		#1,14(a6)
bne.s		mt_voice3
move.l		10(a6),$dff0d0
move.w		#1,$dff0d4
mt_voice3:
move.l		#mt_aud3temp,a6
cmp.w		#1,14(a6)
bne.s		mt_voice2
move.l		10(a6),$dff0c0
move.w		#1,$dff0c4
mt_voice2:
move.l		#mt_aud2temp,a6
cmp.w		#1,14(a6)
bne.s		mt_voice1
move.l		10(a6),$dff0b0
move.w		#1,$dff0b4
mt_voice1:
move.l		#mt_aud1temp,a6
cmp.w		#1,14(a6)
bne.s		mt_voice0
move.l		10(a6),$dff0a0
move.w		#1,$dff0a4

mt_voice0:
lea		mt_modulate,a0
move.l		mt_partnote,d0
lsl.b		#7,d0
add.l		#$10,d0
move.l		d0,mt_partnote
cmp.l		#$400,d0
bne.s		mt_stop
clr.l		mt_partnote
addq.l		#1,mt_partnrplay
clr.l		d0
move.w		mt_maxpart,d0
move.l		mt_partnrplay,d1
cmp.l		d0,d1
bne.s		mt_stop
clr.l		mt_partnrplay
mt_stop:
rts


mt_playit:
move.l		(a0,d1),(a6)
addq.l		#4,d1
clr.l		d2
move.b		2(a6),d2
and.b		#$f0,d2
lsr.b		#4,d2
tst.b		d2
beq.s		mt_nosamplechange

clr.l		d3
lea		mt_samples,a1
move.l		d2,d4
asl		#2,d2
mulu		#$1e,d4
move.l		(a1,d2),4(a6)
move.w		(a3,d4),8(a6)
move.w		2(a3,d4),18(a6)
move.w		4(a3,d4),d3
tst.w		d3
beq.s		mt_displace
move.l		4(a6),d2
add.l		d3,d2
move.l		d2,4(a6)
move.l		d2,10(a6)
move.w		6(a3,d4),8(a6)
move.w		6(a3,d4),14(a6)
move.w		18(a6),8(a5)
bra.s		mt_nosamplechange
mt_displace:
move.l		4(a6),d2
add.l		d3,d2
move.l		d2,10(a6)
move.w		6(a3,d4),14(a6)
move.w		18(a6),8(a5)
mt_nosamplechange:
tst.w		(a6)
beq.s		mt_retrout
move.w		(a6),16(a6)
move.w		20(a6),$dff096
move.l		4(a6),(a5)
move.w		8(a6),4(a5)
move.w		(a6),6(a5)
move.w		20(a6),d0
or.w		d0,mt_dmacon

mt_retrout:
move.w	20(a6),d0
lsl.w	#4,d0
add.w	20(a6),d0
move.w	d0,$dff09e

tst.w	(a6)
beq.s	mt_nonewper
move.w	(a6),22(a6)
mt_nonewper:

move.b	2(a6),d0
and.b	#$0f,d0
cmp.b	#14,d0
bne.s	mt_noset
move.w	2(a6),24(a6)
rts
mt_noset:
tst.b	3(a6)
bne.s	mt_noclr
clr.w	24(a6)
mt_noclr:
cmp.b	#3,d0
beq.s	mt_modvol
cmp.b	#6,d0
beq.s	mt_modvol
cmp.b	#9,d0
beq.s	mt_modvol
cmp.b	#4,d0
beq.s	mt_modper
cmp.b	#7,d0
beq.s	mt_modper
cmp.b	#10,d0
beq.s	mt_modper
cmp.b	#5,d0
beq.s	mt_modvolper
cmp.b	#8,d0
beq.s	mt_modvolper
cmp.b	#11,d0
beq.s	mt_modvolper
cmp.b	#12,d0
bne.s	mt_nochnge
move.b	3(a6),8(a5)
mt_nochnge:
rts

mt_modvol:
move.w	20(a6),d0
bra.s	mt_push

mt_modper:
move.w	20(a6),d0
lsl.w	#4,d0
bra.s	mt_push

mt_modvolper:
move.w	20(a6),d0
lsl.w	#4,d0
add.w	20(a6),d0

mt_push:
add.w	#$8000,d0
move.w	d0,$dff09e
rts

mt_aud1temp:
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0001,$0000,$0000
mt_aud2temp:
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0002,$0000,$0000
mt_aud3temp:
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0004,$0000,$0000
mt_aud4temp:
dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
dc.w $0000,$0000,$0008,$0000,$0000
mt_partnote:
dc.l 0
mt_partnrplay:
dc.l 0
mt_counter:
dc.l 0
mt_partpoint:
dc.l 0
mt_samples:
dc.w $0000,$0000
mt_sample1:
dc.l 0
mt_sample2:
dc.l 0
mt_sample3:
dc.l 0
mt_sample4:
dc.l 0
mt_sample5:
dc.l 0
mt_sample6:
dc.l 0
mt_sample7:
dc.l 0
mt_sample8:
dc.l 0
mt_sample9:
dc.l 0
mt_sample10:
dc.l 0
mt_sample11:
dc.l 0
mt_sample12:
dc.l 0
mt_sample13:
dc.l 0
mt_sample14:
dc.l 0
mt_sample15:
dc.l 0
mt_maxpart:
dc.w $0000
mt_kn1:
dc.w $0000
mt_dmacon:
dc.w $0000

mt_modulate:
dc.w $0c39,$0039,$00bf,$ec01,$6630,$0839,$0007,$00bf
dc.w $e001,$6626,$2c79,$0000,$0004,$43fa,$0020,$4eae
dc.w $fe68,$2c40,$4280,$41fa,$0026,$223c,$0000,$0032
dc.w $4eae,$ffa6,$60ee,$0000,$0000,$4e75,$696e,$7475
dc.w $6974,$696f,$6e2e,$6c69,$6272,$6172,$7900,$0104
dc.w $1753,$6f75,$6e64,$5472,$6163,$6b65,$7220,$5632
dc.w $0063,$00f0,$20a9,$2054,$6865,$204a,$756e,$676c
dc.w $6520,$436f,$6d6d,$616e,$6400,$0000

mt_arpeggio:
dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c
dc.w $023a,$021a,$01fc,$01e0,$01c5,$01ac,$0194,$017d
dc.w $0168,$0153,$0140,$012e,$011d,$010d,$00fe,$00f0
dc.w $00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097
dc.w $008f,$0087,$007f,$0078,$0071,$0000,$0000,$0000

mt_sampleinfo:
dc.l	0
mt_music_pointer:
dc.l	0
SCROLLTEXT:	dc.b	" ";	Wichtig! ,200 =STOP

DC.B "   THRUST  ",200,"     PRESENT          NEW  STUFF",200
DC.B "     CALL OUR BBS IN CANADA ...      4164819455",200,"     "
DC.B "24 H  ONLINE ...   300 / 1200 / 2400 AND 9600  BAUD !   "
DC.B "           "
DC.B "IF YOU WANT TO CONTACT US WRITE TO:        PLK007553D",200
DC.B "   8510FUERTH",200,"            W. GERMANY",200
DC.B "        "
R > GREETS > to this place !
endmsg:
dc.b	0
EVEN
JUMPER:	dc.l	5
JUMPSLIDER:	dc.l	1
sound:
blk.b	31590,0
end: