;+++++++++++++++++++ DEFAULTVALUES  ADS/CDM ++++++++++++++++++++++

execbase     =  4
Forbid       = -132
Permit       = -138
OpenLibrary  = -408
CloseLibrary = -414
Allocmem     = -30-168
Freemem      = -30-180 


JoyTest = $036
Joy1Dat = $00C
Potgor  = $016

VHPOSR = $6

COP1LC  = $080
COP2LC  = $084
COPJMP1 = $088
COPJMP2 = $08A
DIWSTRT = $08E
DIWSTOP = $090
DDFSTRT = $092
DDFSTOP = $094
DMACON  = $096
INTENA  = $09A
INTREQ  = $09C
BPL1PTH = $0E0
BPL1PTL = $0E2
BPL2PTH = $0E4
BPL2PTL = $0E6
BPL3PTH = $0E8
BPL3PTL = $0EA
BPL4PTH = $0EC
BPL4PTL = $0EE
BPLCON0 = $100
BPLCON1 = $102
BPLCON2 = $104
BPL1MOD = $108
BPL2MOD = $10A
COLOR00 = $180
COLOR01 = $182
COLOR16 = $1A0
COLOR17 = $1A2
COLOR18 = $1A4
COLOR19 = $1A6

;Blitter Register

BLTCON0 = $040
BLTCON1 = $042
BLTAFWM = $044
BLTALWM = $046
BLTCPTH = $048
BLTCPTL = $04A
BLTBPTH = $04C
BLTBPTL = $04E
BLTAPTH = $050
BLTAPTL = $052
BLTDPTH = $054
BLTDPTL = $056
BLTSIZE = $058
BLTCMOD = $060
BLTBMOD = $062
BLTAMOD = $064
BLTDMOD = $066

CIAAPRA = $BFE001

GFXStartList = 38

Planesize = 54*256

Chip = 2
Clear = Chip + $10000
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


ORG $438D2
LOAD $438D2

Start:
MOVE.L Execbase,a6
LEA $dff000,a5
MOVE.L #$7FFF,$DFF09E 
BSR SetUpBaarPlaats
BSR SetUpLogoPlaats
BSR StarSet
BSR SetUpSprites
JSR Forbid(a6)
BSR SetUpBitplanes

MOVE.W #$87E0,DMACON(a5)

BSR IntInit
BSR Mt_Init
MOVE.L #Clstart,COP1LC(a5)
CLR.W COPJMP1(a5)

Loop:
Wait_rast:
MOVE.W $dff006,d0
AND.W #$f400,d0
CMP.W #$f400,d0
BNE Wait_Rast
BSR StarLight
BTST #6,CIAAPRA
BNE.S Loop

MOVE.L #GRname,a1
CLR.L d0
JSR Openlibrary(a6)
MOVE.L d0,a4
MOVE.L GfxStartList(a4),COP1LC(a5)

BSR OldInt
BSR Mt_End

CLR.W COPJMP1(a5)
MOVE.W #$8060,DMACON(a5)
JSR Permit(a6)

Einde:
CLR.L d0
RTS

;++++++++++++++++++++++++++++++++++++++++++++++
SetUpSprites:
LEA SpriteCopper+2,a0
LEA SpriteTable,a1
MOVE.L #7,d5
CopySpritesInCopperList:
MOVE.L (a1)+,d0
swap d0
MOVE.W d0,(a0)
ADDQ.L #4,a0
swap d0
MOVE.W d0,(a0)
ADDQ.L #4,a0
DBF d5,CopySpritesInCopperList
RTS
;+++++++++++++++++++++++++++++++++++++++


;+++++++++++++++++++++++++++++++++++++++++++++++
SetUpBitPlanes:
MOVE.L #screen,PlaneAdr
MOVEQ #4,d4
MOVE.L #Clstart,a0
MOVE.L Planeadr,d1
MOVE.W #BPL1PTH,d3

MakeCl:
MOVE.W d3,(a0)+
ADDQ.W #2,d3
SWAP d1
MOVE.W d1,(a0)+
MOVE.W d3,(a0)+
ADDQ.W #2,d3
SWAP d1
MOVE.W d1,(a0)+
ADD.L #Planesize,d1

DBF d4,Makecl

LEA $dff000,a5
MOVE.W #$3081,DIWSTRT(a5)
MOVE.W #$30c1,DIWSTOP(a5)
MOVE.W #$0038,DDFSTRT(a5)
MOVE.W #$00d0,DDFSTOP(a5)
MOVE.W #%0101000100000000,BPLCON0(a5)
CLR.W BPLCON1(a5)
CLR.W BPLCON2(a5)
MOVE.W #14,BPL1MOD(a5)
MOVE.W #14,BPL2MOD(a5)

RTS
;++++++++++++++++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++
StarSet:
MOVEM.L  a0-a6,-(SP) ;Save Old Regs !
CLR.L d0
LEA SpriteTable+16,a0		;16 --> Sprite4 !!!
LEA Xpos,a3
LEA SpriteVert,a4
LEA HowLongVert,a5
CLR.L d2
CLR.L d7

MOVE.L #3,d5
SetUpStar:
MOVE.L (a0)+,a1			;Adress Star
CLR.L d4
MOVE.B (a5)+,d4
SetOneStar:
LEA SpriteForm4,a2
CLR.L d0
MOVE.B (a4)+,d0			
ADD.B #$2F,d0
MOVE.B d0,(a1)+			;VSTART
CMP.W #$FF,d0
BMI StarNoBit
MOVE.B #4,d7
StarNoBit:  
MOVE.B (a3)+,(a1)+		;HSTART
ADD.B #11,d0			;Lenght Start Vert
CMP.W #$FE,d0
BMI StarNobit2
MOVE.B #6,d7
StarNoBit2:
MOVE.B d0,(a1)+			;VSTOP
MOVE.B d7,(a1)+			;Attached, E8, L8, H0 ???
MOVE.L #10,d6
CopySpriteData:
MOVE.L (a2)+,(a1)+
DBF d6,CopySpriteData
DBF d4,SetOneStar
DBF d5,SetUpStar 
MOVEM.L (SP)+,a0-a6
RTS
;++++++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++++++++++++++
IntInit:
StartInterrupt:
	move.w	#$4000,$DFF09A
	move.w	$DFF01C,OldIntBits
	move.l	$6C,OldInter
	move.l	#NewIrq,$6C
	move.w	#$7FFF,$DFF09A
	move.w	#$C020,$DFF09A
	rts
OldInt:
StopInterrupt:
	move.w	#$4000,$DFF09A
	bset	#15,OldIntBits
	move.w	OldIntBits,$DFF09A
	move.l	OldInter,$6C
	move.w	#$C000,$DFF09A
	rts

OldInter:	dc.l	0
OldIntBits:	dc.w	0

;+++++++++++++++++++++++++++++++++++++++++++++


Newirq:
MOVEM.L  d0-d6/a0-a6,-(SP) ;Save Old Regs !
LEA $dff000,a5
BTST #10,PotGor(a5)
BEQ ContinueInt
BSR ScrollWholeText
MOVE.B Speedy,d0
MOVE.L Intcounter,d1
SUB.B d0,d1
MOVE.L d1,Intcounter
CMP.B #0,d1
BNE ContinueInt
BSR AddScrollText
ContinueInt:
MOVE.B BCFlag,d0
BEQ L1
BSR DoBounce
L1:
MOVE.B WVFlag,d0
BEQ L2
BSR DoWave
L2:
MOVE.B LNFlag,d0
BEQ L3
BSR Doline
L3:
BSR PlaceScroll 
BSR StarMoving
BSR BaarMove
BSR FuckLogo
BSR GreatEQ
BSR Mt_Music
MOVE.W #$70,$DFF09C        ;Avoid ENDLESS LOOP !!!
MOVEM.L (SP)+,d0-d6/a0-a6  ;Old Regs Back !
RTE
Oldirq   : DC.L 0
IntCounter:DC.L 1
BCFlag:
DC.B 0
WVFlag:
DC.B 0
LNFlag:
DC.B 0
even
;+++++++++++++++++++++++++++++++++++++++++++++
;WaitBlitter:
;	btst	#14,$DFF002
;	bne	WaitBlitter
;	rts
;+++++++++++++++++++++++++++++++++++++++++++++


;++++++++++++++++++++++++++++++++++
ScrollWholeText:
LEA $dff000,a5
MOVE.W #$FFFF,BLTAFWM(a5)
MOVE.W #$FFFE,BLTALWM(a5)
MOVE.W #0,BLTAMOD(a5)
MOVE.W #0,BLTDMOD(a5)
MOVE.W #0,BLTCON1(a5)
CLR.L d0
MOVE.W SpeedyHold,d0
ADD.W #$9f0,d0
MOVE.W d0,BLTCON0(a5)

MOVE.L #ScrollBuffer,d1
ADD.L #54,d1			; One Spare Line !!!
MOVE.L #3,d2			;4 Bitplanes
LoopBitplaneScroll:
MOVE.L d1,d0
MOVE.W d0,BLTAPTL(a5)
SWAP d0
MOVE.W d0,BLTAPTH(a5)
SWAP d0
SUB.L #$2,d0			;Source 1 Word after !!!
MOVE.W d0,BLTDPTL(a5)
SWAP d0
MOVE.W d0,BLTDPTH(a5)

;BSR WaitBlitter
MOVE.W #$91B,BLTSIZE(a5)
ADD.L #$2800,d1
DBF d2,LoopBitplaneScroll

RTS
SpeedyHold:
DC.W $F000
Speedy:
DC.B 1,0

;+++++++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++++++
CopyIt:
MOVEM.L d1/d2,-(SP) 
ADD.W d6,d2			;Words adding
ADD.W d6,d2			;2 Times BCOZ Bytes !!!
SWAP d6
MULU #$1000,d6
MOVE.W d6,BLTCON1(a5)
ADD.W #$9F0,d6
MOVE.W d6,BLTCON0(a5)

MOVE.L #3,d5			;4 Bitplanes
CopyScroll:
MOVE.W d1,BLTAPTL(a5)
SWAP d1
MOVE.W d1,BLTAPTH(a5)
SWAP d1
MOVE.W d2,BLTDPTL(a5)
SWAP d2
MOVE.W d2,BLTDPTH(a5)
SWAP d2
;BSR WaitBlitter
MOVE.W #$56,BLTSIZE(a5)
ADD.L #$2800,d1
ADD.L #Planesize,d2
DBF d5,CopyScroll
MOVEM.L (SP)+,d1/d2
RTS

ScrollHeight:
DC.W $2BE0

;++++++++++++++++++++++++++++++++
PlaceScroll:

MOVE.W #$FFFF,BLTAFWM(a5)	;D3 Off SC  D4 Off DN
MOVE.W #$FFFF,BLTALWM(a5)
MOVE.L #Screen-4,d2
CLR.L d0
MOVE.W ScrollHeight,d0
ADD.L d0,d2
LEA Waves,a0
LEA Lines,a1

MOVE.L #37,d7
CopyLines:
MOVE.L #ScrollBuffer,d1
CLR.W d0
MOVE.B (a1)+,d0
MULU #54,d0
ADD.L d0,d1		;Line in ScrollBuffer 
CLR.L d6
MOVE.B (a0)+,d6
DIVU #16,d6
BSR CopyIt
ADD.L #54,d2 
DBF d7,CopyLines

RTS
;+++++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++++
DoBounce:
MOVE.W ScrollHeight,d0
MOVE.W Bouncer,d1
ADD.W d1,d0
MOVE.W d0,ScrollHeight
CMP.W TopScroll,d0
BEQ ChangeSignBouncer
CMP.W #$2BE0,d0
BEQ Beneden
RTS
Beneden: 
MOVE.B BounceStopFlag,d0
CMP.B #1,d0
BNE ChangeSignBouncer
MOVE.B #0,BounceStopFlag
MOVE.B #0,BCFlag
ChangeSignBouncer:
MULS #-1,d1
MOVE.W  d1,Bouncer
RTS


BounCer:
DC.W -54
TopScroll:
DC.W $2A30 
BounceStopFlag:
DC.B 0,0
;++++++++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++++++
ClearWave:
LEA Waves,a0
MOVE.L #37,d5
Clearit:
MOVE.B #32,(a0)+
DBF d5,Clearit
RTS
;+++++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++++
DoWave:
CLR.L d0
MOVE.B WaveFlag,d0
LEA WaveFormTable,a0
MULU #6,d0
ADD.L d0,a0
MOVE.L (a0)+,d0
CLR.L d1
MOVE.W (a0),d1		;Width
LEA Waves+1,a0
MOVE.L d0,a1
CLR.L d0
MOVE.W WavePointer,d0
ADD.L d0,a1
MOVE.B SpecialWaveFlag,d2
BEQ SpecialWave
MOVE.L #1,d2
MOVE.L #35,d5
BSR Waver
EndOfWave:
ADD.W #1,d0
CMP.B d1,d0
BNE Next
MOVE.W #0,d0
Next:
MOVE.W d0,WavePointer
RTS

SpecialWave:
MOVE.L #2,d2
MOVE.L #17,d5
BSR Waver
CLR.L d0
MOVE.B WaveFlag,d0
LEA SpecialWaveFormTable,a0
MULU #4,d0
ADD.L d0,a0
MOVE.L (a0),d0
MOVE.L d0,a1
CLR.L d0
MOVE.W WavePointer,d0
ADD.L d0,a1
LEA Waves+2,a0
MOVE.L #17,d5
BSR Waver
BRA EndOfWave

Waver:			;D5 Needs Lenght
			;D2 Needs Offset a1
CopyWave:
MOVE.B (a1),(a0)
ADD.L d2,a1
ADD.L d2,a0
DBF d5,CopyWave
RTS


WavePointer:
DC.W 0
WaveFlag:
DC.B 0
SpecialWaveFlag:
DC.B 1

;++++++++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++++++
DoLine:
MOVE.B AddEraFlag,d0
BNE Adding
BSR EraseAline
MOVE.B AddEraFlag,d1
CMP.B #1,d1
BEQ Adding
RTS
Adding:
BSR AddALine
RTS

EraseALine:
CLR.L d1
MOVE.B LineTop,d1	;Top	
ADD.B #1,d1
MOVE.B d1,LineTop

CLR.L d0
MOVE.W LinePointerEra,d0
LEA LineForm0A,a0
ADD.L d0,a0
MOVE.B (a0),d0		;Which Line ???
LEA Lines,a1
LEA Lines+1,a2
ADD.L d0,a1
ADD.L d0,a2
SUB.B d1,d0
CMP.B #-1,d0
BEQ FlipFlap
			;1Step More Top 1 Higher !!!
CopyOneLine:
MOVE.B -(a1),-(a2)
DBF d0,CopyOneLine
FlipFlap:
MOVE.B #0,(a1)

CLR.L d2
MOVE.B (a0),d2		;Which Line ???
CLR.L d0
MOVE.B #37,d0
SUB.B d2,d0
LEA Lines,a1
LEA Lines+1,a2
CLR.L d2
MOVE.B LineTop,d2
MOVE.B #37,d1
SUB.B d2,d1
ADD.L d0,a1
ADD.L d0,a2
SUB.B d0,d1
CMP.B #-1,d1
BEQ FlapFlip

CopyOneLineLowerSide:
MOVE.B (a2)+,(a1)+
DBF d1,CopyOneLineLowerSide
FlapFlip:
MOVE.B #0,(a1)

MOVE.W LinePointerEra,d0
ADD.W #1,d0
MOVE.B LineTop,d1
CMP.W #19,d1
BNE Nexty
MOVE.W #0,d0
MOVE.B #1,AddEraFlag
Nexty:
MOVE.W d0,LinePointerEra
RTS

AddALine:
CLR.L d1
MOVE.B LineTop,d1	;Top	
SUB.B #1,d1
MOVE.B d1,LineTop

CLR.L d0
MOVE.W LinePointerAdd,d0
LEA LineForm0B,a0
MULU #3,d0
ADD.L d0,a0
MOVE.B (a0),d0		;Which Line ???
LEA Lines,a1
LEA Lines+1,a2
ADD.L d1,a1
ADD.L d1,a2
SUB d1,d0
BEQ FlipFlop
SUB #1,d0

CopyOneLine2:
MOVE.B (a2)+,(a1)+
DBF d0,CopyOneLine2
FlipFlop:

CLR.L d2
MOVE.B (a0)+,d2		;Which Line ???
MOVE.B (a0)+,(a1)	;See UPPER	
CLR.L d0
MOVE.B #37,d0
SUB.B d2,d0
LEA Lines,a1
LEA Lines+1,a2
CLR.L d2
MOVE.B LineTop,d2
MOVE.B #37,d1
SUB.B d2,d1
ADD.L d1,a1
ADD.L d1,a2
SUB.B d0,d1
BEQ FlopFlip
SUB.B #1,d1

CopyOneLineLowerSide2:
MOVE.B -(a1),-(a2)
DBF d1,CopyOneLineLowerSide2
FlopFlip:
MOVE.B (a0),(a1)

MOVE.W LinePointerAdd,d0
ADD.W #1,d0
MOVE.B LineTop,d1
CMP.B #1,d1
BNE Next2
MOVE.B #0,AddEraFlag
MOVE.B SideFlag,d1
ADD.B #1,d1
CMP.B #2,d1
BNE SetSide
MOVE.W #0,d0
MOVE.B #0,d1
MOVE.B StopTurningFlag,d2
CMP.B #1,d2
BNE SetSide
MOVE.B #0,StopTurningFlag
MOVE.B #0,LNFlag
SetSide:
MOVE.B d1,SideFlag
Next2:
MOVE.W d0,LinePointerAdd
RTS





LinePointerEra:
DC.W 0
LinePointerAdd:
DC.W 0
LineTop:
DC.B 1
AddEraFlag:
DC.B 0
SideFlag:
DC.B 0
StopTurningFlag:
DC.B 0
even
;++++++++++++++++++++++++++++++++++++
PlaceLetter:			;D0 has the Letter
LEA $dff000,a5
LEA ScrollCharsTable,a0
MULU #2,d0
ADD.L d0,a0
MOVE.W (a0)+,d0
MOVE.L #font,d1			;FONT   D1
ADD.L d0,d1
MOVE.L #Scrollbuffer,d2	;SCROLL D2
ADD.L #98,d2			;1 Line(54) + 44 Bytes
MOVE.W #$FFFF,BLTAFWM(a5)
MOVE.W #$FFFF,BLTALWM(a5)
MOVE.W #34,BLTAMOD(a5)
MOVE.W #48,BLTDMOD(a5)
MOVE.W #0,BLTCON1(a5)
MOVE.W #$9F0,BLTCON0(a5)

MOVE.L #3,d5			;4 Bitplanes
Letter_5_Bitplanes_Copy:
MOVE.W d1,BLTAPTL(a5)
SWAP d1
MOVE.W d1,BLTAPTH(a5)
SWAP d1
MOVE.W d2,BLTDPTL(a5)
SWAP d2
MOVE.W d2,BLTDPTH(a5)
SWAP d2
;BSR WaitBlitter
MOVE.W #$903,BLTSIZE(a5)
ADD.L #$2800,d1
ADD.L #$2800,d2

DBF d5,Letter_5_Bitplanes_Copy
RTS 

;+++++++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++
SpaceClear:
LEA Scrollbuffer+98,a0
MOVE.L a0,a1

MOVE.L #3,d5
ClearOnePlane:
MOVE.L #35,d4
ClearPlaneLines:
MOVE.W #0,(a0)+
MOVE.W #0,(a0)+
MOVE.W #0,(a0)+
ADD.L #48,a0
DBF d4,ClearPlaneLines
ADD.L #$2800,a1
MOVE.L a1,a0
DBF d5,ClearOnePlane
BRA SpaceReturn

;++++++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++++
AddScrollText:
LEA ScrollText,a0
MOVE.L TextPointer,d0
ADD.L d0,a0
CLR.L d0
MOVE.B (a0),d0
CMP.B #$FF,d0
BEQ ScrollEnd
CMP.B #$20,d0
BEQ SpaceClear
CMP.B #$FE,d0
BEQ ColorChange
CMP.B #$FD,d0
BEQ StopBounce
CMP.B #$FC,d0
BEQ WaveMyFriend
CMP.B #$FB,d0
BEQ Turn
CMP.B #$FA,d0
BEQ Specialleke
CMP.B #$F9,d0
BEQ HeightBounce
CMP.B #$10,d0
BLT ChangeSpeed
SUB.B #$20,d0
BSR PlaceLetter
SpaceReturn:
MOVE.L TextPointer,d0
ADDQ.L #1,d0
MOVE.L d0,TextPointer
MOVE.L #42,IntCounter
RTS


ScrollEnd:
MOVE.L #0,TextPointer
BRA AddScrollText

ChangeSpeed:
MOVE.B d0,Speedy
MOVE.L #$10,d1
SUB.B d0,d1
MULU #$1000,d1
MOVE.W d1,SpeedyHold
MOVE.L TextPointer,d0
ADDQ.L #1,d0
MOVE.L d0,TextPointer
BRA AddScrollText

PreviousLetter:DC.B $fe
DC.B 0
TextPointer:DC.L 0

;+++++++++++++++++++++++++++++++++

;+++++++++++++++++++++++++++++++++++++
starmoving:
LEA SpriteTable+16,a0
LEA HowLongVert,a3

MOVE.L #3,d4
AllStars:
MOVE.L (a0)+,a1
ADDQ.L #1,a1		; sprite X-position
LEA speed,a2		;table with speed (1/5)
CLR.L d0
MOVE.B (a3)+,d0
Themove:
MOVE.B (a1),d1		;sprite X to d1
MOVE.B (a2)+,d2		;speed to d2
ADD.B d2,d1		;add d2 to d1 (stars to the right)
MOVE.B d1,(a1)	
ADD.L #48,a1		;point to next line
DBF d0,Themove		;until all stars are moved
DBF d4,AllStars		;end of sprite moving !
RTS
;+++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++++++
StarLight:
LEA SpriteTable+16,a0
LEA HowLongVert,a3
LEA EQ0,a5
LEA EQBAR0,a4

MOVE.L #3,d4
LightStars:
MOVE.L (a0)+,a1		;Address Sprite
ADDQ.L #4,a1		; sprite Data
LEA SpriteForm0,a2
CLR.L d1
MOVE.B (a5),d1		;EQUALISER
BEQ Derover
ADDQ.L #1,a4
MOVE.L d1,d5
MULU #44,d5
ADD.L d5,a2		;Which WaveForm ???
SUB.B #1,d1		;EQ Down
Derover:
MOVE.B d1,(a5)+
CLR.L d0
MOVE.B (a3)+,d0		; 7 or 8 ???
TheLight:
MOVEM.L a0/a2,-(SP)
MOVE.L #10,d3
SetForm:
MOVE.L (a2)+,(a1)+
DBF d3,SetForm
ADD.L #4,a1		;point to next line
MOVEM.L (SP)+,a0/a2
DBF d0,TheLight		
DBF d4,LightStars	
LEA $DFF000,a5
RTS
;+++++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++++
ColorChange:
MOVE.L TextPointer,d0
ADDQ.L #2,d0
MOVE.L d0,TextPointer
ADDQ.L #1,a0 		;ControlByte
CLR.L d0
MOVE.B (a0),d0
LEA FontCol,a0
MULU #24,d0
ADD.L d0,a0
LEA KleurFont,a1

MOVE.L #11,d5
CopyColors:
MOVE.W (a0)+,(a1)
ADDQ.L #4,a1
DBF d5,CopyColors
BRA AddScrollText

;++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++
WaveMyFriend:
MOVE.W #0,WavePointer
MOVE.L TextPointer,d0
ADDQ.L #2,d0
MOVE.L d0,TextPointer
ADDQ.L #1,a0		;ControlByte
MOVE.B (a0),d0
CMP.B #$F,d0
BEQ OnOffWave
MOVE.B d0,WaveFlag
BSR ClearWave
BRA AddScrollText
OnOffWave:
MOVE.B WVFlag,d0
CMP.B #1,d0
BEQ OffWave
OnWave:
MOVE.B #1,WVFlag
BRA AddScrollText
OffWave:
MOVE.B #0,WVFlag
BSR ClearWave
BRA AddScrollText

;+++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++
Specialleke:
MOVE.L TextPointer,d0
ADDQ.L #1,d0
MOVE.L d0,TextPointer
MOVE.B SpecialWaveFlag,d0
CMP.B #1,d0
BEQ Aanzetten
BSR ClearWave
MOVE.B #1,SpecialWaveFlag
BRA AddScrollText
Aanzetten:
MOVE.B #0,SpecialWaveFlag
BRA AddScrollText
;+++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++
StopBounce:
MOVE.L TextPointer,d0
ADDQ.L #1,d0
MOVE.L d0,TextPointer
MOVE.B BCFlag,d0
CMP.B #1,d0
BEQ BoStop
MOVE.B #1,BCFlag
BRA AddScrollText
BoStop:
MOVE.B #1,BounceStopFlag
BRA AddScrollText
;+++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++
Turn:
MOVE.L TextPointer,d0
ADDQ.L #1,d0
MOVE.L d0,TextPointer
MOVE.B LNFlag,d0
CMP.B #1,d0
BEQ LnStop
MOVE.B #1,LNFlag
BRA AddScrollText
LnStop:
MOVE.B #1,StopTurningFlag
BRA AddScrollText
;+++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++
HeightBounce:
MOVE.L TextPointer,d0
ADDQ.L #3,d0
MOVE.L d0,TextPointer
ADDQ.L #1,a0		;ControlByte
MOVE.B (a0)+,TopScroll
MOVE.B (a0)+,TopScroll+1
BRA AddScrollText
;+++++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++++
GreatEQ:
BSET #1,CIAAPRA
CLR.L d0
LEA EQBAR0,a0
MOVE.B (a0),d0
MULU #8,d0
ADD.B #$2F,d0
LEA BAR1,a1
BSR SetFullBar
CLR.L d0
LEA EQBAR3,a0
MOVE.B (a0),d0
MULU #8,d0
ADD.B #$2F,d0
LEA BAR3,a1
BSR SetFullBar
CLR.L d0
CLR.L d1
LEA EQBAR1,a0
MOVE.B (a0),d1
MOVE.B #$DF,d0
MULU #8,d1
SUB.B d1,d0
LEA BAR2,a1
BSR SetFullBar
CLR.L d0
CLR.L d1
LEA EQBAR2,a0
MOVE.B (a0)+,d1
CMP.B #5,d1
BNE NoRed
BCHG #1,CIAAPRA
NoRed:
MOVE.B #$DF,d0
MULU #8,d1
SUB.B d1,d0
LEA BAR4,a1
BSR SetFullBar

LEA EQBAR0,a0
LEA EQ0Flag,a1

MOVE.L #3,d5
SubBarFlag:
MOVE.B (a0),d0
CMP.B #0,d0
BEQ NextBarFlag
;MOVE.B (a1),d1
;ADD.B #1,d1
;CMP.B #2,d1
;BNE NoBack
;MOVE.B #0,d1
SUB.B #1,d0
;NoBack:
;MOVE.B d1,(a1)+
NextBarFlag:
MOVE.B d0,(a0)+
DBF d5,SubBarFlag
RTS
;+++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++
SetUpBaarPlaats:
LEA BaarPlaats,a0
MOVE.L #$D50F,d0

MOVE.L #37,d5
SetBaar:
MOVE.W d0,(a0)+
MOVE.W #$FFFE,(a0)+
MOVE.L #$01800000,(a0)+
ADD.W #$100,d0
DBF d5,SetBaar
RTS
;+++++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++
SetUpLogoPlaats:
LEA LogoPlaats,a0
MOVE.L #$3809,d0

MOVE.L #97,d5
SetLogo:
MOVE.W d0,(a0)+
MOVE.W #$FFFE,(a0)+
MOVE.L #$01820000,(a0)+
ADD.W #$100,d0
DBF d5,SetLogo
RTS
;+++++++++++++++++++++++++++++++++++

;+++++++++++++++++++++++++++++++++++
SetFullBar:
MOVE.L #19,d5
MOVE.B d0,d1
ADD.B #$10,d1
SetIt:
MOVE.B d0,(a1)+
ADD.L #7,a1
MOVE.B d1,(a1)+
ADD.L #31,a1
DBF d5,SetIt
RTS

EQ0Flag:
DC.B 0
EQ1Flag:
DC.B 0
EQ2Flag:
DC.B 0
EQ3Flag:
DC.B 0
;+++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++
BaarMove:
LEA BaarPlaats+6,a0
MOVE.L #39,d5
ClearBaarPlaats:
MOVE.W #0,(a0)
ADDQ.L #8,a0
DBF d5,ClearBaarPlaats

CLR.L d0
MOVE.W Bcounter,d0
CMP.W #54,d0
BNE ContMove
MOVE.W #-1,d0
ContMove:
ADD.W #1,d0
MOVE.W d0,BCounter
LEA BaarTable,a1
ADD.L d0,a1

MOVE.L #3,d5
BarMove:
LEA BaarPlaats+6,a0
CLR.L d1
MOVE.B (a1),d1
MULU #8,d1
ADD.L d1,a0 
MOVE.W #$0f0,(a0)
ADDQ.L #8,a0
MOVE.W #$0c0,(a0)
ADDQ.L #8,a0
MOVE.W #$090,(a0)
ADDQ.L #8,a0
MOVE.W #$060,(a0)
ADDQ.L #8,a0
MOVE.W #$030,(a0)

ADD.L #5,a1
DBF d5,BarMove

RTS

BCounter:
DC.W -1
BaarTable:
DC.B 0,0,0,1,2,3,4,5,7,9,11,13,15,17,19,21,23,25,27,28,29,31,32,33
DC.B 34,34,34
DC.B 34,34,34,33,32,31,29,28,27,25,23,21,19,17,15,13,11,9,7,5,4,3,2
DC.B 1,0,0,0
DC.B 0,0,0,1,2,3,4,5,7,9,11,13,15,17,19,21,23,25,27,28,29,31,32,33
DC.B 34,34,34
DC.B 34,34,34,33,32,31,29,28,27,25,23,21,19,17,15,13,11,9,7,5,4,3,2
DC.B 1,0,0,0
DC.B 0,0,0,1,2,3,4,5,7,9,11,13,15,17,19,21,23,25,27,28,29,31,32,33
DC.B 34,34,34
DC.B 34,34,34,33,32,31,29,28,27,25,23,21,19,17,15,13,11,9,7,5,4,3,2
DC.B 1,0,0,0
;+++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++
FuckLogo:
LEA LogoPlaats+6,a0
CLR.L d0
MOVE.W Lcounter,d0
CMP.W #89,d0
BNE ContFuck
MOVE.W #-1,d0
ContFuck:
ADD.W #1,d0
MOVE.W d0,LCounter
LEA LogoTable,a1
MULU #2,d0
ADD.L d0,a1

MOVE.L #97,d5
LogoJustFuck:
MOVE.W (a1)+,(a0)
ADDQ.L #8,a0
DBF d5,LogoJustFuck

RTS

LCounter:
DC.W -1
LogoTable:
;DC.W $FFF,$FFE,$FFD,$FFC,$FFB,$FFA,$FF9,$FF8,$FF7,$FF6,$FF5,$FF4
;DC.W $FF3,$FF2,$FF1
DC.W $FF0,$FE0,$FD0,$FC0,$FB0,$FA0,$F90,$F80,$F70
DC.W $F60,$F50,$F40,$F30,$F20,$F10,$F00,$F01,$F02,$F03,$F04,$F05
DC.W $F06,$F07,$F08,$F09,$F0A,$F0B,$F0C,$F0D,$F0F,$E0F,$D0F,$C0F
DC.W $B0F,$A0F,$90F,$80F,$70F,$60F,$50F,$40F,$30F,$20F,$10F,$00F
DC.W $01F,$02F,$03F,$04F,$05F,$06F,$07F,$08F,$09F,$0AF,$0BF,$0CF
DC.W $0DF,$0EF,$0FF,$0FE,$0FD,$0FC,$0FB,$0FA,$0F9,$0F8,$0F7,$0F6
DC.W $0F5,$0F4,$0F3,$0F2,$0F1,$0F0,$1F0,$2F0,$3F0,$4F0,$5F0,$6F0
DC.W $7F0,$8F0,$9F0,$AF0,$BF0,$CF0,$DF0,$EF0
DC.W $FF0,$FE0,$FD0,$FC0,$FB0,$FA0,$F90,$F80,$F70
DC.W $F60,$F50,$F40,$F30,$F20,$F10,$F00,$F01,$F02,$F03,$F04,$F05
DC.W $F06,$F07,$F08,$F09,$F0A,$F0B,$F0C,$F0D,$F0F,$E0F,$D0F,$C0F
DC.W $B0F,$A0F,$90F,$80F,$70F,$60F,$50F,$40F,$30F,$20F,$10F,$00F
DC.W $01F,$02F,$03F,$04F,$05F,$06F,$07F,$08F,$09F,$0AF,$0BF,$0CF
DC.W $0DF,$0EF,$0FF,$0FE,$0FD,$0FC,$0FB,$0FA,$0F9,$0F8,$0F7,$0F6
DC.W $0F5,$0F4,$0F3,$0F2,$0F1,$0F0,$1F0,$2F0,$3F0,$4F0,$5F0,$6F0
DC.W $7F0,$8F0,$9F0,$AF0,$BF0,$CF0,$DF0,$EF0
DC.W $FF0,$FE0,$FD0,$FC0,$FB0,$FA0,$F90,$F80,$F70
DC.W $F60,$F50,$F40,$F30,$F20,$F10,$F00,$F01,$F02,$F03,$F04,$F05
DC.W $F06,$F07,$F08,$F09,$F0A,$F0B,$F0C,$F0D,$F0F,$E0F,$D0F,$C0F

;++++++++++++++++++++++++++++++++
;============================================================
;=== 		SoundTrackerReplayer                      ===
;=== 	Modified Version for Equalizer functions          ===
;============================================================
even
EQ0:	dc.b	4
EQ1:	dc.b	4
EQ2:	dc.b	4
EQ3:	dc.b	4
EQBAR0:  dc.b 11
EQBAR1:  dc.b 11
EQBAR2:  dc.b 11 
EQBAR3:  dc.b 11
Flag:	dc.b	0
even
;++++++++++++++++++++++++++++++++++++++++
mt_init:lea	mt_data(pc),a0
	add.l	#$01d8,a0
	move.l	#$0080,d0
	moveq	#$00,d1
mt_init1:
	move.l	d1,d2
	subq.w	#1,d0
mt_init2:
	move.b	(a0)+,d1
	cmp.b	d2,d1
	bgt.s	mt_init1
	dbf	d0,mt_init2
	addq.b	#1,d2

mt_init3:
	lea	mt_data(pc),a0
	lea	mt_sample1(pc),a1
	asl.l	#$08,d2
	asl.l	#$02,d2
	add.l	#$0258,d2
	add.l	a0,d2
	moveq	#$0e,d0
mt_init4:
	move.l	d2,(a1)+
	moveq	#$00,d1
	move.w	42(a0),d1
	asl.l	#1,d1
	add.l	d1,d2
	add.l	#$1e,a0
	dbf	d0,mt_init4

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

	clr.w	$dff0a8
	clr.w	$dff0b8
	clr.w	$dff0c8
	clr.w	$dff0d8
	clr.l	mt_partnrplay
	clr.l	mt_partnote
	clr.l	mt_partpoint

	move.b	mt_data+$1d6,mt_maxpart+1
	rts

mt_end:	clr.w	$dff0a8
	clr.w	$dff0b8
	clr.w	$dff0c8
	clr.w	$dff0d8
	move.w	#$000f,$dff096
	rts

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

mt_notsix:
	lea	mt_aud1temp(pc),a6
	tst.b	3(a6)
	beq.s	mt_arp1
	lea	$dff0a0,a5		
	bsr.s	mt_arprout
mt_arp1:lea	mt_aud2temp(pc),a6
	tst.b	3(a6)
	beq.s	mt_arp2
	lea	$dff0b0,a5
	bsr.s	mt_arprout
mt_arp2:lea	mt_aud3temp(pc),a6
	tst.b	3(a6)
	beq.s	mt_arp3
	lea	$dff0c0,a5
	bsr.s	mt_arprout
mt_arp3:lea	mt_aud4temp(pc),a6
	tst.b	3(a6)
	beq.s	mt_arp4
	lea	$dff0d0,a5
	bra.s	mt_arprout
mt_arp4:rts

mt_arprout:
	move.b	2(a6),d0
	and.b	#$0f,d0
	tst.b	d0
	beq.s	mt_arpegrt
	cmp.b	#1,d0
	beq.s	mt_portup
	cmp.b	#2,d0
	beq.s	mt_portdwn
	rts

mt_portup:
	moveq	#$00,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:
	moveq	#$00,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_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:
	moveq	#$00,d0
	move.b	3(a6),d0
	lsr.b	#4,d0
	bra.s	mt_cont
mt_loop3:
	moveq	#$00,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:
	asl.w	#1,d0
	moveq	#$00,d1
	move.w	16(a6),d1
	lea	mt_arpeggio(pc),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:
	lea	mt_data(pc),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
	moveq	#$00,d1
	move.b	(a2,d0),d1
	asl.l	#$08,d1
	asl.l	#$02,d1
	add.l	mt_partnote,d1
	move.l	d1,mt_partpoint
	clr.w	mt_dmacon

	lea	$dff0a0,a5
	lea	mt_aud1temp(pc),a6
	bsr	mt_playit
	cmp.b	#0,Flag
	beq	Chanell1
	move.b	Flag,EQ0
	move.b  #10,EQBAR0	
Chanell1:
	lea	$dff0b0,a5
	lea	mt_aud2temp(pc),a6
	bsr	mt_playit
	cmp.b	#0,Flag
	beq	Chanell2
	move.b	Flag,EQ1
	move.b  #10,EQBAR1
Chanell2:
	lea	$dff0c0,a5
	lea	mt_aud3temp(pc),a6
	bsr	mt_playit
	cmp.b	#0,Flag
	beq	Chanell3
	move.b	Flag,EQ2
	move.b  #10,EQBAR2
Chanell3:
	lea	$dff0d0,a5
	lea	mt_aud4temp(pc),a6
	bsr	mt_playit
	cmp.b	#0,Flag
	beq	Chanell4
	move.b	Flag,EQ3
	move.b  #10,EQBAR3
Chanell4:
	move.w	#$008a,d1
mt_loop:dbf	d1,mt_loop
	move.w	#$8000,d0
	or.w	mt_dmacon,d0
	move.w	d0,$dff096

	lea	mt_aud4temp(pc),a6
	cmp.w	#1,14(a6)
	bne.s	mt_voice3
	move.l	10(a6),$dff0d0
	move.w	#1,$dff0d4
mt_voice3:
	lea	mt_aud3temp(pc),a6
	cmp.w	#1,14(a6)
	bne.s	mt_voice2
	move.l	10(a6),$dff0c0
	move.w	#1,$dff0c4
mt_voice2:
	lea	mt_aud2temp(pc),a6
	cmp.w	#1,14(a6)
	bne.s	mt_voice1
	move.l	10(a6),$dff0b0
	move.w	#1,$dff0b4
mt_voice1:
	lea	mt_aud1temp(pc),a6
	cmp.w	#1,14(a6)
	bne.s	mt_voice0
	move.l	10(a6),$dff0a0
	move.w	#1,$dff0a4
mt_voice0:
	move.l	mt_partnote,d0
	add.l	#$10,d0
	move.l	d0,mt_partnote
	cmp.l	#$400,d0
	bne.s	mt_stop
mt_higher:
	clr.l	mt_partnote
	addq.l	#1,mt_partnrplay
	moveq	#$00,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:tst.w	mt_status
	beq.s	mt_stop2
	clr.w	mt_status
	bra.s	mt_higher
mt_stop2:
	rts

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

	move.b	#4,Flag
	moveq	#$00,d3
	lea	mt_samples(pc),a1
	move.l	d2,d4
	asl.l	#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:
	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	#11,d0
	beq.s	mt_posjmp
	cmp.b	#12,d0
	beq.s	mt_setvol
	cmp.b	#13,d0
	beq.s	mt_break
	cmp.b	#14,d0
	beq.s	mt_setfil
	cmp.b	#15,d0
	beq.s	mt_setspeed
	rts

mt_posjmp:
	not.w	mt_status
	moveq	#$00,d0
	move.b	3(a6),d0
	subq.b	#$01,d0
	move.l	d0,mt_partnrplay
	rts

mt_setvol:
	move.b	3(a6),8(a5)
	rts

mt_break:
	not.w	mt_status
	rts

mt_setfil:
	moveq	#$00,d0
	move.b	3(a6),d0
	and.b	#$01,d0
	rol.b	#$01,d0
	and.b	#$fd,$bfe001
	or.b	d0,$bfe001
	rts

mt_setspeed:
	move.b	3(a6),d0
	and.b	#$0f,d0
	beq.s	mt_back
	clr.l	mt_counter
	move.b	d0,mt_cool+5
mt_back:rts

mt_aud1temp:
	blk.w	10,0
	dc.w	$0001
	blk.w	2,0
mt_aud2temp:
	blk.w	10,0
	dc.w	$0002
	blk.w	2,0
mt_aud3temp:
	blk.w	10,0
	dc.w	$0004
	blk.w	2,0
mt_aud4temp:
	blk.w	10,0
	dc.w	$0008
	blk.w	2,0
mt_partnote:	dc.l	0
mt_partnrplay:	dc.l	0
mt_counter:	dc.l	0
mt_partpoint:	dc.l	0
mt_samples:dc.l	0
mt_sample1:blk.l 15,0
mt_maxpart:dc.w	$0000
mt_dmacon:dc.w	$0000
mt_status:dc.w	$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_data:
BLK.B 39528,0
BLK.B 10,0

Planeadr : DC.L 0

dummy    : DC.L 0

GRname:
DC.B "graphics.library",0

even
WaveFormTable:
DC.L WaveForm0
DC.W 76
DC.L WaveForm1
DC.W 60
DC.L WaveForm2
DC.W 56
DC.L WaveForm3
DC.W 36
DC.L WaveForm4
DC.W 18
DC.L WaveForm5
DC.W 8
DC.L WaveForm6
DC.W 10
SpecialWaveFormTable:
DC.L WaveForm0B
DC.L WaveForm1B
DC.L WaveForm2B
DC.L WaveForm3B
DC.L WaveForm4B
DC.L WaveForm5B
DC.L WaveForm6B


Waves:
BLK 38,32

WaveForm0:
DC.B 32,32,31,31,30,30,29,29,27,27,25,25,23,23,21,21,18,18
DC.B 15,15,12,12,10,10,8,8,6,6,4,4,3,3,2,2,1,1,0,0
WaveForm0B:
DC.B 0,0,1,1,2,2,3,3,4,4,6,6,8,8,10,10,12,12,15,15,18,18
DC.B 21,21,23,23,25,25,27,27,29,29,30,30,31,31,32,32
DC.B 32,32,31,31,30,30,29,29,27,27,25,25,23,23,21,21,18,18
DC.B 15,15,12,12,10,10,8,8,6,6,4,4,3,3,2,2,1,1,0,0
DC.B 0,0,1,1,2,2,3,3,4,4,6,6,8,8,10,10,12,12,15,15,18,18
DC.B 21,21,23,23,25,25,27,27,29,29,30,30,31,31,32,32
DC.B 32,32,31,31,30,30,29,29,27,27,25,25,23,23,21,21,18,18
DC.B 15,15,12,12,10,10,8,8,6,6,4,4,3,3,2,2,1,1,0,0

;Width 76

WaveForm1:
DC.B 32,32,31,31,30,30,29,29,28,28,26,26,24,24,22,22
DC.B 19,19,17,17,15,15,14,14,13,13,12,12,11,11
WaveForm1B:
DC.B 11,11,12,12,13,13,14,14,15,15,17,17,19,19,22,22
DC.B 24,24,26,26,28,28,29,29,30,30,31,31,32,32
DC.B 32,32,31,31,30,30,29,29,28,28,26,26,24,24,22,22
DC.B 19,19,17,17,15,15,14,14,13,13,12,12,11,11
DC.B 11,11,12,12,13,13,14,14,15,15,17,17,19,19,22,22
DC.B 24,24,26,26,28,28,29,29,30,30,31,31,32,32
DC.B 32,32,31,31,30,30,29,29,28,28,26,26,24,24,22,22
DC.B 19,19,17,17,15,15,14,14,13,13,12,12,11,11
; Width 60

WaveForm2:
DC.B 32,32,32,32,31,31,30,30,29,29,28,28,26,26
DC.B 23,23,21,21,20,20,19,19,18,18,17,17,17,17
WaveForm2B:
DC.B 17,17,17,17,18,18,19,19,20,20,21,21,23,23
DC.B 26,26,28,28,29,29,30,30,31,31,32,32,32,32
DC.B 32,32,32,32,31,31,30,30,29,29,28,28,26,26
DC.B 23,23,21,21,20,20,19,19,18,18,17,17,17,17
DC.B 17,17,17,17,18,18,19,19,20,20,21,21,23,23
DC.B 26,26,28,28,29,29,30,30,31,31,32,32,32,32
DC.B 32,32,32,32,31,31,30,30,29,29,28,28,26,26
DC.B 23,23,21,21,20,20,19,19,18,18,17,17,17,17
;Width 56

WaveForm3:
DC.B 32,32,32,32,31,31,29,29,27,27,26,26,25,25,24,24,24,24
DC.B 24,24,24,24,25,25,26,26,27,27,29,29,31,31,32,32,32,32
WaveForm3B:
DC.B 32,32,32,32,31,31,29,29,27,27,26,26,25,25,24,24,24,24
DC.B 24,24,24,24,25,25,26,26,27,27,29,29,31,31,32,32,32,32
DC.B 32,32,32,32,31,31,29,29,27,27,26,26,25,25,24,24,24,24
DC.B 24,24,24,24,25,25,26,26,27,27,29,29,31,31,32,32,32,32

;Width 36

WaveForm4:
DC.B 32,32,31,29,27,26,25,24,24
WaveForm4B:
DC.B 24,24,25,26,27,29,31,32,32
DC.B 32,32,31,29,27,26,25,24,24
DC.B 24,24,25,26,27,29,31,32,32
DC.B 32,32,31,29,27,26,25,24,24
DC.B 24,24,25,26,27,29,31,32,32
DC.B 32,32,31,29,27,26,25,24,24
;Width 18

WaveForm5:
DC.B 32,32,32,32
WaveForm5B:
DC.B 28,28,28,28
DC.B 32,32,32,32,28,28,28,28
DC.B 32,32,32,32,28,28,28,28
DC.B 32,32,32,32,28,28,28,28
DC.B 32,32,32,32,28,28,28,28
DC.B 32,32,32,32,28,28,28,28
;Width 8

WaveForm6:
DC.B 32,31,30,29,28
WaveForm6B:
DC.B 27,28,29,30,31
DC.B 32,31,30,29,28,27,28,29,30,31
DC.B 32,31,30,29,28,27,28,29,30,31
DC.B 32,31,30,29,28,27,28,29,30,31
DC.B 32,31,30,29,28,27,28,29,30,31
DC.B 32,31,30,29,28,27,28,29,30,31
;Width 10

Lines:
DC.B 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
DC.B 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,0

LineForm0A:
DC.B 4,15,9,9,6,13,12,17,12,16,17,16,14,16,17,18,18,18
LineForm0B:
DC.B 18,36,1,18,33,5,18,19,18,17,24,13,16,28,9,14,34,3,16,26,11
DC.B 17,21,16
DC.B 16,23,14,12,31,6,17,20,17,12,27,10,13,25,12,6,35,2,9,30,7
DC.B 9,29,8,15,22,15,4,33,4
DC.B 18,1,36,18,5,33,18,18,19,17,13,24,16,9,29,14,3,34,16,11
DC.B 26,17,16,21
DC.B 16,14,23,12,6,31,17,17,20,12,10,27,13,12,25,6,2,35,9,7,30
DC.B 9,8,29,15,15,22,4,4,33
even

FontCol:
DC.W $333,$444,$555,$666,$777,$888,$999,$BAA,$CCC,$DDD,$EEE,$FFF
DC.W $310,$410,$510,$610,$720,$820,$910,$B10,$C10,$D10,$E00,$F00
DC.W $013,$024,$025,$036,$047,$058,$069,$07B,$08C,$09D,$0BE,$0CF
DC.W $310,$420,$520,$630,$740,$850,$960,$B80,$C90,$DB0,$ED0,$FF0
DC.W $010,$020,$040,$151,$161,$171,$292,$3A3,$3B3,$4C4,$5D5,$6F6
DC.W $303,$404,$505,$606,$707,$808,$909,$A0B,$C0C,$D0D,$E0E,$F0F
DC.W $303,$404,$504,$605,$705,$805,$904,$B04,$C03,$D02,$E01,$F00
DC.W $020,$030,$140,$250,$360,$470,$690,$8A0,$AB0,$CD0,$ED0,$FD0
DC.W $020,$030,$041,$062,$073,$084,$095,$0A7,$0B9,$0DB,$0DE,$0DF
DC.W $012,$023,$034,$046,$057,$068,$079,$08A,$0AB,$0BD,$0DE,$0FF
DC.W $FFF,$EEF,$CCF,$BBF,$AAF,$88F,$77F,$66F,$44F,$33F,$12F,$00F
DC.W $000,$110,$321,$431,$541,$652,$852,$963,$B73,$C83,$E94,$FA4

ScrollCharsTable:
;  ! # $ % & ' ( ) * + , - . /  
DC.W $DE80
DC.W $A000
DC.W $0000		    	; " DOESNT EXIST !!!
DC.W $A5AC		;# USED AS " !!! 
DC.W $A01E		;$ USED AS ' !!!
DC.W $0000
DC.W $A5B8
DC.W $0000
DC.W $A5A0
DC.W $A5A6
DC.W $0000
DC.W $0000
DC.W $A018
DC.W $A5B2
DC.W $A5BE
DC.W $A012

;0 1 2 3 4 5 6 7 8 9 
DC.W $0B4C
DC.W $168C
DC.W $1692
DC.W $1698
DC.W $169E
DC.W $1C20
DC.W $1C26
DC.W $1C2C
DC.W $1C32
DC.W $1C38


; : ; < = > ? @  

DC.W $A00C
DC.W $0000
DC.W $0000
DC.W $0000
DC.W $0000
DC.W $1C3E
DC.W $0000

ALPHABET:
;A B C D E F G H I 
DC.W $0000
DC.W $0006
DC.W $000C
DC.W $0012
DC.W $0018
DC.W $001E
DC.W $05A0
DC.W $05A6
DC.W $05AC
DC.W $05B2
DC.W $05B8
DC.W $05BE
DC.W $0B40
DC.W $0B46
DC.W $0B4C
DC.W $0B52
DC.W $0B58
DC.W $0B5E
DC.W $10E0
DC.W $10E6
DC.W $10EC
DC.W $10F2
DC.W $10F8
DC.W $10FE
DC.W $1680
DC.W $1686

even
SpriteVert:
DC.B 1,20,39,71,94,112,131,152		;158,175,193
DC.B 7,26,46,68,85,107,127,145		;,157,176
DC.B 3,22,41,68,92,118,132,151		;,146,164,182
DC.B 9,27,47,70,88,113,136,148		;,160,179

even
SpriteTable:
DC.L Sprite0,Sprite1,Sprite2,Sprite3
DC.L Sprite4,Sprite5,Sprite6,Sprite7

Sprite0:
DC.W 0,0
Sprite1:
DC.W 0,0
Sprite2:
DC.W 0,0
Sprite3:
DC.W 0,0
Sprite4:
BLK.L 96,0  
DC.W 0,0
Sprite5:
BLK.L 96,0
DC.W 0,0
Sprite6:
BLK.L 96,0
DC.W 0,0
Sprite7:
BLK.L 96,0
DC.W 0,0

HowLongVert:
DC.B 7,7,7,7

SpriteForm0:
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W %0000000000000000,%0000010000000000
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
SpriteForm1:
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W %0000010000000000,%0000000000000000
DC.W %0000101000000000,%0000010000000000
DC.W %0000010000000000,%0000000000000000
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
SpriteForm2:
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W %0000010000000000,%0000000000000000
DC.W %0000111000000000,%0000101000000000
DC.W %0001101100000000,%0000010000000000
DC.W %0000111000000000,%0000101000000000
DC.W %0000010000000000,%0000000000000000
DC.W 0,0
DC.W 0,0
DC.W 0,0
SpriteForm3:
DC.W 0,0
DC.W %0000010000000000,%0000010000000000
DC.W %0000010000000000,%0000000000000000
DC.W %0000010000000000,%0000000000000000
DC.W %0000101000000000,%0000111000000000
DC.W %0111000111000000,%0100111001000000
DC.W %0000101000000000,%0000111000000000
DC.W %0000010000000000,%0000000000000000
DC.W %0000010000000000,%0000000000000000
DC.W %0000010000000000,%0000010000000000
DC.W 0,0
SpriteForm4:
DC.W %0000010000000000,%0000010000000000
DC.W %0000010000000000,%0000010000000000
DC.W %0000010000000000,%0000000000000000
DC.W %0000010000000000,%0000000000000000
DC.W %0000101000000000,%0000111000000000
DC.W %0111000111000000,%0100111001000000
DC.W %0000101000000000,%0000111000000000
DC.W %0000010000000000,%0000000000000000
DC.W %0000010000000000,%0000000000000000
DC.W %0000010000000000,%0000010000000000
DC.W %0000010000000000,%0000010000000000
speed:	
dc.b  2, 4, 2, 5, 2, 4, 2, 5, 3, 5, 4, 2, 3, 4, 2, 5, 3
dc.b  4, 5, 5, 3, 2, 4, 2, 4, 3, 2, 2, 4, 2, 5, 2, 3, 2
dc.b  2, 5, 1, 4, 3, 5, 3, 2, 3, 4, 3, 4, 2, 4, 1, 1, 3
dc.b  2, 4, 2, 5, 2, 4, 2, 5, 3, 5, 4, 2, 3, 4, 2, 5, 3
dc.b  3, 2, 4, 5, 3, 2, 8, 3, 3, 5, 3, 4, 3, 5, 4, 2, 5

xpos:	dc.b $03,$4f,$ab,$dd,$1b,$bb,$6a,$f3,$88,$ab,$f3,$73
	dc.b $27,$8a,$0e,$22,$bc,$3b,$20,$fe,$91,$14,$59,$f0
	dc.b $c0,$5b,$1a,$98,$81,$d3,$22,$48,$91,$c5,$ff,$12
	dc.b $49,$58,$c0,$d2,$e2,$92,$19,$f5,$06,$35,$a8,$d3
	dc.b $01,$30,$d4,$c3,$b9,$a1,$7e,$91,$09,$4e,$70,$a0
	dc.b $45,$95,$a1,$39,$e0,$84,$05,$b4,$af,$76,$72,$19
	dc.b $d5,$79,$b0,$32,$d3,$55,$b1,$95,$89,$5b,$c3,$99
	dc.b $89,$7e,$29,$90,$a4,$12,$b9,$c0,$e3,$88,$41,$2e
	dc.b $59,$12,$f0,$c3,$6e,$91,$2c,$55,$79,$1c,$01,$96
	dc.b $a5,$c1,$d9,$e7,$14,$86,$10,$99,$d3,$69,$a3,$c8
	dc.b $93,$12,$f5,$28,$c2,$39,$92,$a0,$38,$bb,$e1,$e3

even
;++++++++++++++++++++++++++++++++++

Clstart:
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
DC.W 0,0
SpriteCopper:
DC.W $0120,0
DC.W $0122,0
DC.W $0124,0
DC.W $0126,0
DC.W $0128,0
DC.W $012A,0
DC.W $012C,0
DC.W $012E,0
DC.W $0130,0
DC.W $0132,0
DC.W $0134,0
DC.W $0136,0
DC.W $0138,0
DC.W $013A,0
DC.W $013C,0
DC.W $013E,0
;LOGO
DC.W $0180,$000 
DC.W $0182,$FFF
DC.W $01B0,$000
DC.W $01B2,$888
DC.W $01B4,$FFF
DC.W $01B6,$444
DC.W $01B8,$000
DC.W $01BA,$888
DC.W $01BC,$FFF
DC.W $01BE,$444

LogoPlaats:
BLK.W 392,0

;AFTER LOGO NOW
DC.W $9A09,$fffe
DC.W $0180,$000 
DC.W $0182,$FFF
DC.W $0184,$000
DC.W $0186,$000
DC.W $0188
KLEURFONT:
DC.W $333
DC.W $018A,$444
DC.W $018C,$555
DC.W $018E,$666
DC.W $0190,$777
DC.W $0192,$888
DC.W $0194,$999
DC.W $0196,$BAA
DC.W $0198,$CCC
DC.W $019A,$DDD
DC.W $019C,$EEE
DC.W $019E,$FFF


DC.W $9A0f,$FFFE
DC.W COLOR00,$000
DC.B $9A
BAR1:
DC.B $77	;3F 
DC.W $FFFE
DC.W COLOR00,$000
DC.W $9A87,$FFFE
DC.W COLOR00,$000
DC.B $9A
BAR4:
DC.B $97
DC.W $FFFE
DC.W COLOR00,$000
DC.W $9AA7,$FFFE
DC.W COLOR00,$000

DC.W $9B0F,$FFFE
DC.W COLOR00,$211
DC.W $9B3F,$FFFE
DC.W COLOR00,$333
DC.W $9B4F,$FFFE
DC.W COLOR00,$000
DC.W $9BCF,$FFFE
DC.W COLOR00,$333
DC.W $9BDF,$FFFE
DC.W COLOR00,$202

DC.W $9C0F,$FFFE
DC.W COLOR00,$321
DC.W $9C3F,$FFFE
DC.W COLOR00,$555
DC.W $9C4F,$FFFE
DC.W COLOR00,$000
DC.W $9CCF,$FFFE
DC.W COLOR00,$555
DC.W $9CDF,$FFFE
DC.W COLOR00,$303

DC.W $9D0F,$FFFE
DC.W COLOR00,$532
DC.W $9D3F,$FFFE
DC.W COLOR00,$666
DC.W $9D4F,$FFFE
DC.W COLOR00,$000
DC.W $9DCF,$FFFE
DC.W COLOR00,$666
DC.W $9DDF,$FFFE
DC.W COLOR00,$505

DC.W $9E0F,$FFFE
DC.W COLOR00,$742
DC.W $9E3F,$FFFE
DC.W COLOR00,$888
DC.W $9E4F,$FFFE
DC.W COLOR00,$000
DC.W $9ECF,$FFFE
DC.W COLOR00,$888
DC.W $9EDF,$FFFE
DC.W COLOR00,$707

DC.W $9F0F,$FFFE
DC.W COLOR00,$863
DC.W $9F3F,$FFFE
DC.W COLOR00,$999
DC.W $9F4F,$FFFE
DC.W COLOR00,$000
DC.W $9FCF,$FFFE
DC.W COLOR00,$999
DC.W $9FDF,$FFFE
DC.W COLOR00,$808

DC.W $A00F,$FFFE
DC.W COLOR00,$A73
DC.W $A03F,$FFFE
DC.W COLOR00,$BAA
DC.W $A04F,$FFFE
DC.W COLOR00,$000
DC.W $A0CF,$FFFE
DC.W COLOR00,$BAA
DC.W $A0DF,$FFFE
DC.W COLOR00,$A0A

DC.W $A10F,$FFFE
DC.W COLOR00,$C84
DC.W $A13F,$FFFE
DC.W COLOR00,$CCC
DC.W $A14F,$FFFE
DC.W COLOR00,$000
DC.W $A1CF,$FFFE
DC.W COLOR00,$CCC
DC.W $A1DF,$FFFE
DC.W COLOR00,$B0B

DC.W $A20F,$FFFE
DC.W COLOR00,$D94
DC.W $A23F,$FFFE
DC.W COLOR00,$DDD
DC.W $A24F,$FFFE
DC.W COLOR00,$000
DC.W $A2CF,$FFFE
DC.W COLOR00,$DDD
DC.W $A2DF,$FFFE
DC.W COLOR00,$D0D

DC.W $A30F,$FFFE
DC.W COLOR00,$FA5
DC.W $A33F,$FFFE
DC.W COLOR00,$FFF
DC.W $A34F,$FFFE
DC.W COLOR00,$000
DC.W $A3CF,$FFFE
DC.W COLOR00,$FFF
DC.W $A3DF,$FFFE
DC.W COLOR00,$F0F

DC.W $A40F,$FFFE
DC.W COLOR00,$FA5
DC.W $A43F,$FFFE
DC.W COLOR00,$FFF
DC.W $A44F,$FFFE
DC.W COLOR00,$000
DC.W $A4CF,$FFFE
DC.W COLOR00,$FFF
DC.W $A4DF,$FFFE
DC.W COLOR00,$F0F

DC.W $A50F,$FFFE
DC.W COLOR00,$D94
DC.W $A53F,$FFFE
DC.W COLOR00,$DDD
DC.W $A54F,$FFFE
DC.W COLOR00,$000
DC.W $A5CF,$FFFE
DC.W COLOR00,$DDD
DC.W $A5DF,$FFFE
DC.W COLOR00,$D0D

DC.W $A60F,$FFFE
DC.W COLOR00,$C84
DC.W $A63F,$FFFE
DC.W COLOR00,$CCC
DC.W $A64F,$FFFE
DC.W COLOR00,$000
DC.W $A6CF,$FFFE
DC.W COLOR00,$CCC
DC.W $A6DF,$FFFE
DC.W COLOR00,$B0B

DC.W $A70F,$FFFE
DC.W COLOR00,$A73
DC.W $A73F,$FFFE
DC.W COLOR00,$BAA
DC.W $A74F,$FFFE
DC.W COLOR00,$000
DC.W $A7CF,$FFFE
DC.W COLOR00,$BAA
DC.W $A7DF,$FFFE
DC.W COLOR00,$A0A

DC.W $A80F,$FFFE
DC.W COLOR00,$863
DC.W $A83F,$FFFE
DC.W COLOR00,$999
DC.W $A84F,$FFFE
DC.W COLOR00,$000
DC.W $A8CF,$FFFE
DC.W COLOR00,$999
DC.W $A8DF,$FFFE
DC.W COLOR00,$808

DC.W $A90F,$FFFE
DC.W COLOR00,$742
DC.W $A93F,$FFFE
DC.W COLOR00,$888
DC.W $A94F,$FFFE
DC.W COLOR00,$000
DC.W $A9CF,$FFFE
DC.W COLOR00,$888
DC.W $A9DF,$FFFE
DC.W COLOR00,$707

DC.W $AA0F,$FFFE
DC.W COLOR00,$532
DC.W $AA3F,$FFFE
DC.W COLOR00,$666
DC.W $AA4F,$FFFE
DC.W COLOR00,$000
DC.W $AACF,$FFFE
DC.W COLOR00,$666
DC.W $AADF,$FFFE
DC.W COLOR00,$505

DC.W $AB0F,$FFFE
DC.W COLOR00,$321
DC.W $AB3F,$FFFE
DC.W COLOR00,$555
DC.W $AB4F,$FFFE
DC.W COLOR00,$000
DC.W $ABCF,$FFFE
DC.W COLOR00,$555
DC.W $ABDF,$FFFE
DC.W COLOR00,$303

DC.W $AC0F,$FFFE
DC.W COLOR00,$211
DC.W $AC3F,$FFFE
DC.W COLOR00,$333
DC.W $AC4F,$FFFE
DC.W COLOR00,$000
DC.W $ACCF,$FFFE
DC.W COLOR00,$333
DC.W $ACDF,$FFFE
DC.W COLOR00,$202

DC.W $AD0F,$FFFE
DC.W COLOR00,$000
DC.W $AD3F,$FFFE
DC.W COLOR00,$000
DC.W $AD4F,$FFFE
DC.W COLOR00,$000
DC.W $ADCF,$FFFE
DC.W COLOR00,$000
DC.W $ADDF,$FFFE
DC.W COLOR00,$000

DC.W $AE0F,$FFFE
DC.W COLOR00,0

DC.W $BD0f,$FFFE
DC.W COLOR00,$000
DC.B $BD
BAR3:
DC.B $3F 
DC.W $FFFE
DC.W COLOR00,$000
DC.W $BD4F,$FFFE
DC.W COLOR00,$000
DC.B $BD
BAR2:
DC.B $CF
DC.W $FFFE
DC.W COLOR00,$000
DC.W $BDDF,$FFFE
DC.W COLOR00,$000

DC.W $BE0F,$FFFE
DC.W COLOR00,$102
DC.W $BE3F,$FFFE
DC.W COLOR00,$333
DC.W $BE4F,$FFFE
DC.W COLOR00,$000
DC.W $BECF,$FFFE
DC.W COLOR00,$333
DC.W $BEDF,$FFFE
DC.W COLOR00,$002

DC.W $BF0F,$FFFE
DC.W COLOR00,$230
DC.W $BF3F,$FFFE
DC.W COLOR00,$555
DC.W $BF4F,$FFFE
DC.W COLOR00,$000
DC.W $BFCF,$FFFE
DC.W COLOR00,$555
DC.W $BFDF,$FFFE
DC.W COLOR00,$003

DC.W $C00F,$FFFE
DC.W COLOR00,$305
DC.W $C03F,$FFFE
DC.W COLOR00,$666
DC.W $C04F,$FFFE
DC.W COLOR00,$000
DC.W $C0CF,$FFFE
DC.W COLOR00,$666
DC.W $C0DF,$FFFE
DC.W COLOR00,$005

DC.W $C10F,$FFFE
DC.W COLOR00,$407
DC.W $C13F,$FFFE
DC.W COLOR00,$888
DC.W $C14F,$FFFE
DC.W COLOR00,$000
DC.W $C1CF,$FFFE
DC.W COLOR00,$888
DC.W $C1DF,$FFFE
DC.W COLOR00,$007


DC.W $C20F,$FFFE
DC.W COLOR00,$609
DC.W $C23F,$FFFE
DC.W COLOR00,$999
DC.W $C24F,$FFFE
DC.W COLOR00,$000
DC.W $C2CF,$FFFE
DC.W COLOR00,$999
DC.W $C2DF,$FFFE
DC.W COLOR00,$008

DC.W $C30F,$FFFE
DC.W COLOR00,$70A
DC.W $C33F,$FFFE
DC.W COLOR00,$BAA
DC.W $C34F,$FFFE
DC.W COLOR00,$000
DC.W $C3CF,$FFFE
DC.W COLOR00,$BAA
DC.W $C3DF,$FFFE
DC.W COLOR00,$00A

DC.W $C40F,$FFFE
DC.W COLOR00,$80C
DC.W $C43F,$FFFE
DC.W COLOR00,$CCC
DC.W $C44F,$FFFE
DC.W COLOR00,$000
DC.W $C4CF,$FFFE
DC.W COLOR00,$CCC
DC.W $C4DF,$FFFE
DC.W COLOR00,$00C

DC.W $C50F,$FFFE
DC.W COLOR00,$90D
DC.W $C53F,$FFFE
DC.W COLOR00,$DDD
DC.W $C54F,$FFFE
DC.W COLOR00,$000
DC.W $C5CF,$FFFE
DC.W COLOR00,$DDD
DC.W $C5DF,$FFFE
DC.W COLOR00,$00D

DC.W $C60F,$FFFE
DC.W COLOR00,$A0F
DC.W $C63F,$FFFE
DC.W COLOR00,$FFF
DC.W $C64F,$FFFE
DC.W COLOR00,$000
DC.W $C6CF,$FFFE
DC.W COLOR00,$FFF
DC.W $C6DF,$FFFE
DC.W COLOR00,$00F

DC.W $C70F,$FFFE
DC.W COLOR00,$A0F
DC.W $C73F,$FFFE
DC.W COLOR00,$FFF
DC.W $C74F,$FFFE
DC.W COLOR00,$000
DC.W $C7CF,$FFFE
DC.W COLOR00,$FFF
DC.W $C7DF,$FFFE
DC.W COLOR00,$00F

DC.W $C80F,$FFFE
DC.W COLOR00,$90D
DC.W $C83F,$FFFE
DC.W COLOR00,$DDD
DC.W $C84F,$FFFE
DC.W COLOR00,$000
DC.W $C8CF,$FFFE
DC.W COLOR00,$DDD
DC.W $C8DF,$FFFE
DC.W COLOR00,$00D

DC.W $C90F,$FFFE
DC.W COLOR00,$80C
DC.W $C93F,$FFFE
DC.W COLOR00,$CCC
DC.W $C94F,$FFFE
DC.W COLOR00,$000
DC.W $C9CF,$FFFE
DC.W COLOR00,$CCC
DC.W $C9DF,$FFFE
DC.W COLOR00,$00C

DC.W $CA0F,$FFFE
DC.W COLOR00,$70A
DC.W $CA3F,$FFFE
DC.W COLOR00,$BAA
DC.W $CA4F,$FFFE
DC.W COLOR00,$000
DC.W $CACF,$FFFE
DC.W COLOR00,$BAA
DC.W $CADF,$FFFE
DC.W COLOR00,$00A

DC.W $CB0F,$FFFE
DC.W COLOR00,$609
DC.W $CB3F,$FFFE
DC.W COLOR00,$999
DC.W $CB4F,$FFFE
DC.W COLOR00,$000
DC.W $CBCF,$FFFE
DC.W COLOR00,$999
DC.W $CBDF,$FFFE
DC.W COLOR00,$008

DC.W $CC0F,$FFFE
DC.W COLOR00,$407
DC.W $CC3F,$FFFE
DC.W COLOR00,$888
DC.W $CC4F,$FFFE
DC.W COLOR00,$000
DC.W $CCCF,$FFFE
DC.W COLOR00,$888
DC.W $CCDF,$FFFE
DC.W COLOR00,$337

DC.W $CD0F,$FFFE
DC.W COLOR00,$305
DC.W $CD3F,$FFFE
DC.W COLOR00,$666
DC.W $CD4F,$FFFE
DC.W COLOR00,$000
DC.W $CDCF,$FFFE
DC.W COLOR00,$666
DC.W $CDDF,$FFFE
DC.W COLOR00,$005

DC.W $CE0F,$FFFE
DC.W COLOR00,$203
DC.W $CE3F,$FFFE
DC.W COLOR00,$555
DC.W $CE4F,$FFFE
DC.W COLOR00,$000
DC.W $CECF,$FFFE
DC.W COLOR00,$555
DC.W $CEDF,$FFFE
DC.W COLOR00,$003

DC.W $CF0F,$FFFE
DC.W COLOR00,$102
DC.W $CF3F,$FFFE
DC.W COLOR00,$333
DC.W $CF4F,$FFFE
DC.W COLOR00,$000
DC.W $CFCF,$FFFE
DC.W COLOR00,$333
DC.W $CFDF,$FFFE
DC.W COLOR00,$002

DC.W $D00F,$FFFE
DC.W COLOR00,$000
DC.W $D03F,$FFFE
DC.W COLOR00,$000
DC.W $D04F,$FFFE
DC.W COLOR00,$000
DC.W $D0CF,$FFFE
DC.W COLOR00,$000
DC.W $D0DF,$FFFE
DC.W COLOR00,$000


BaarPlaats:
BLK.W 152,0

DC.W $FB09,$FFFE
DC.W COLOR00,$001
DC.W $FC09,$FFFE
DC.W COLOR00,$001
DC.W $FD09,$FFFE
DC.W COLOR00,$001
DC.W $FE09,$FFFE
DC.W COLOR00,$001
DC.W $FF09,$fffe
DC.W COLOR00,$002
DC.W $FFE1,$FFFE    ; *** Fucking kunstgreep ***
                    ; *** Weet niet hoe werkt !!! ***

DC.W $0009,$fffe
DC.W COLOR00,$002
DC.W $0109,$fffe
DC.W COLOR00,$002
DC.W $0209,$fffe
DC.W COLOR00,$002
DC.W $0309,$fffe
DC.W COLOR00,$003
DC.W $0409,$fffe
DC.W COLOR00,$003
DC.W $0509,$fffe
DC.W COLOR00,$003
DC.W $0609,$fffe
DC.W COLOR00,$003
DC.W $0709,$fffe
DC.W COLOR00,$004
DC.W $0809,$fffe
DC.W COLOR00,$004
DC.W $0909,$fffe
DC.W COLOR00,$004
DC.W $0a09,$fffe
DC.W COLOR00,$004
DC.W $0b09,$fffe
DC.W COLOR00,$005
DC.W $0c09,$fffe
DC.W COLOR00,$005
DC.W $0d09,$fffe
DC.W COLOR00,$005
DC.W $0e09,$fffe
DC.W COLOR00,$005
DC.W $0f09,$fffe
DC.W COLOR00,$006
DC.W $1009,$fffe
DC.W COLOR00,$006
DC.W $1109,$fffe
DC.W COLOR00,$006
DC.W $1209,$fffe
DC.W COLOR00,$006
DC.W $1309,$fffe
DC.W COLOR00,$007
DC.W $1409,$fffe
DC.W COLOR00,$007
DC.W $1509,$fffe
DC.W COLOR00,$007
DC.W $1609,$fffe
DC.W COLOR00,$007
DC.W $1709,$fffe
DC.W COLOR00,$008
DC.W $1809,$fffe
DC.W COLOR00,$008
DC.W $1909,$fffe
DC.W COLOR00,$008
DC.W $1a09,$fffe
DC.W COLOR00,$008
DC.W $1b09,$fffe
DC.W COLOR00,$009
DC.W $1c09,$fffe
DC.W COLOR00,$009
DC.W $1d09,$fffe
DC.W COLOR00,$009
DC.W $1e09,$fffe
DC.W COLOR00,$009
DC.W $1f09,$fffe
DC.W COLOR00,$00A
DC.W $2009,$fffe
DC.W COLOR00,$00A
DC.W $2109,$fffe
DC.W COLOR00,$00A
DC.W $2209,$fffe
DC.W COLOR00,$00A
DC.W $2309,$fffe
DC.W COLOR00,$00B
DC.W $2409,$fffe
DC.W COLOR00,$00B
DC.W $2509,$fffe
DC.W COLOR00,$00B

DC.W $2609,$fffe
DC.W COLOR00,$00B
DC.W BPL1PTH,$06
DC.W BPL1PTL,$8506
DC.W BPL2PTH,$06
DC.W BPL2PTL,$BB06
DC.W BPL3PTH,$06
DC.W BPL3PTL,$F106
DC.W BPL4PTH,$07
DC.W BPL4PTL,$2706
DC.W $2709,$fffe
DC.W COLOR00,$00C
DC.W BPL1PTH,$06
DC.W BPL1PTL,$84D0
DC.W BPL2PTH,$06
DC.W BPL2PTL,$BAD0
DC.W BPL3PTH,$06
DC.W BPL3PTL,$F0D0
DC.W BPL4PTH,$07
DC.W BPL4PTL,$26D0
DC.W $2809,$fffe
DC.W COLOR00,$00C
DC.W BPL1PTH,$06
DC.W BPL1PTL,$849A
DC.W BPL2PTH,$06
DC.W BPL2PTL,$BA9A
DC.W BPL3PTH,$06
DC.W BPL3PTL,$F09A
DC.W BPL4PTH,$07
DC.W BPL4PTL,$269A
DC.W $2909,$fffe
DC.W COLOR00,$00C
DC.W BPL1PTH,$06
DC.W BPL1PTL,$8464
DC.W BPL2PTH,$06
DC.W BPL2PTL,$BA64
DC.W BPL3PTH,$06
DC.W BPL3PTL,$F064
DC.W BPL4PTH,$07
DC.W BPL4PTL,$2664
DC.W $2a09,$fffe
DC.W COLOR00,$00C
DC.W BPL1PTH,$06
DC.W BPL1PTL,$842E
DC.W BPL2PTH,$06
DC.W BPL2PTL,$BA2E
DC.W BPL3PTH,$06
DC.W BPL3PTL,$F02E
DC.W BPL4PTH,$07
DC.W BPL4PTL,$262E
DC.W $2b09,$fffe
DC.W COLOR00,$00D
DC.W BPL1PTH,$06
DC.W BPL1PTL,$83F8
DC.W BPL2PTH,$06
DC.W BPL2PTL,$B9F8
DC.W BPL3PTH,$06
DC.W BPL3PTL,$EFF8
DC.W BPL4PTH,$07
DC.W BPL4PTL,$25F8
DC.W $2c09,$ffFE
DC.W COLOR00,$00D
DC.W BPL1PTH,$06
DC.W BPL1PTL,$83C2
DC.W BPL2PTH,$06
DC.W BPL2PTL,$B9C2
DC.W BPL3PTH,$06
DC.W BPL3PTL,$EFC2
DC.W BPL4PTH,$07
DC.W BPL4PTL,$25C2
DC.W $2d09,$fffe
DC.W COLOR00,$00D
DC.W BPL1PTH,$06
DC.W BPL1PTL,$838C
DC.W BPL2PTH,$06
DC.W BPL2PTL,$B98C
DC.W BPL3PTH,$06
DC.W BPL3PTL,$EF8C
DC.W BPL4PTH,$07
DC.W BPL4PTL,$258C
DC.W $2e09,$fffe
DC.W COLOR00,$00D
DC.W BPL1PTH,$06
DC.W BPL1PTL,$8356
DC.W BPL2PTH,$06
DC.W BPL2PTL,$B956
DC.W BPL3PTH,$06
DC.W BPL3PTL,$EF56
DC.W BPL4PTH,$07
DC.W BPL4PTL,$2556
DC.W $2f09,$ffFe
DC.W COLOR00,$00E
DC.W BPL1PTH,$06
DC.W BPL1PTL,$8320
DC.W BPL2PTH,$06
DC.W BPL2PTL,$B920
DC.W BPL3PTH,$06
DC.W BPL3PTL,$EF20
DC.W BPL4PTH,$07
DC.W BPL4PTL,$2520
DC.W $3009,$fffe
DC.W COLOR00,$00E
DC.W BPL1PTH,$06
DC.W BPL1PTL,$82EA
DC.W BPL2PTH,$06
DC.W BPL2PTL,$B8EA
DC.W BPL3PTH,$06
DC.W BPL3PTL,$EEEA
DC.W BPL4PTH,$07
DC.W BPL4PTL,$24E8
DC.W $3109,$fffe
DC.W COLOR00,$00E
DC.W BPL1PTH,$06
DC.W BPL1PTL,$82B4
DC.W BPL2PTH,$06
DC.W BPL2PTL,$B8B4
DC.W BPL3PTH,$06
DC.W BPL3PTL,$EEB4
DC.W BPL4PTH,$07
DC.W BPL4PTL,$24B4
DC.W $3209,$fffe
DC.W COLOR00,$00E
DC.W BPL1PTH,$06
DC.W BPL1PTL,$827E
DC.W BPL2PTH,$06
DC.W BPL2PTL,$B87E
DC.W BPL3PTH,$06
DC.W BPL3PTL,$EE7E
DC.W BPL4PTH,$07
DC.W BPL4PTL,$247E
DC.W $3309,$fffe
DC.W COLOR00,$00F
DC.W $3409,$fffe
DC.W COLOR00,$00F
DC.W $3509,$fffe
DC.W COLOR00,$00F
DC.W $3609,$fffe
DC.W COLOR00,$00F
DC.W $3709,$fffe

DC.W $FFFF,$FFFE

even
;ControlBytes Are:
;FE COLOR + 1 byte (0-11) 12 Colors
;FD BOUNCE ON/OFF
;FC WAVE  + 1 Byte (0-6:Waves or $F for ON/OFF)
;FB TURNING ON/OFF
;F9 BOUNCER'S HEIGHT + 2 bytes (=1 Word for TOPSCROLL) 
;  Allways multiple of 54 !!! Highest : $1518
;DONT USE 2 CONTROLBYTES AFTER EACHOTHER !!!
;						  @ADS/CDM
ScrollText: 
DC.B 3,"THERE IS A NEW LIGHT BORN ......."
DC.B $FC,0,"        ",$FE,3,$FC,$F
DC.B "CUADRAM IS PROUD TO PRESENT HIS FIRST INTRO"
DC.B "         ",$FC,$F
DC.B $FB,"NORMALLY IT HAD TO BE RELEASED ON THE TPS/AFL/VF"
DC.B " COPY-PARTY ",$F9,$19,$50,$fd
DC.B $FE,6,"BUT WE ARRIVED TOO LATE B-COZ THERE WAS A " 
DC.B "LITTLE MISTAKE ON THE INVITATION (11 PM !?!? )."
DC.B $FE,8,$FB,"      "
DC.B $FC,5,$FC,$F," ",6," IMPORTANT : RIGHT MOUSEBUTTON"
DC.B " TO PAUSE SCROLLTEXT",3
DC.B "        ",$FE,9,$fc,4," WE NEED SOME GOOD CODERS, CRACKERS,"
DC.B " TRADERS ...    ",$fe,11
DC.B $FC,2," IF YOU ARE ONE OF THEM  OR  YOU WANT TO TRADE"
DC.B " THE LATEST "
DC.B "STUFF   THEN CONTACT :",7,"           "
DC.B $FE,2,"BETTER TAKE A PENCIL !!!!   ",$fe,7," ",$fd
DC.B "    ",1," CUADRAM",$fa," HQ         ",$fa,$fc,$f
DC.B "PO BOX 709 (SEVEN O NINE)  "
DC.B "   9000 GHENT 1 (ONE)  "
DC.B "  BELGIUM  ",7,"     "
DC.B "   OR       "
DC.B " PO BOX ",1,"31  (THREE ONE)  "
DC.B " 9910 MARIAKERKE   "
DC.B " BELGIUM",6,$fe,8," ",$fc,6,"  ",$fc,$f,$fa
DC.B " SPECIAL REGARDS TO  : ",$fc,3,$FD      
DC.B "POWERSLAVES     BLACK MONKS    ALPHA FLIGHT "
DC.B "(HI STEVE !   GOT THE POSTCARD ??? (HE HE))"
DC.B "    SPREADPOINT"
DC.B "     AMIGA INDUSTRIES     VISION     BLACK OCTAGON    ",$FA
DC.B "    NICE TO MEET YOU ALL AT THE PARTY !!!        "
DC.B $FE,10,"MESSAGE TO NAPALM !!!   "
DC.B "   THANX FOR THE PROGRAMMING TIPS !!!   BUT I HAD NO"
DC.B " TIME TO REWRITE THIS INTRO AND SO .....   HOPE YOU "
DC.B "START SOON CRACKING.     SEE YOU LATER, MARK !!!      "
DC.B $FE,5,$FC,5
DC.B "CREDITZ FOR THIS INTRO : ALL CODING BY       ",$FE,9
DC.B " ADENOIDS        "
DC.B $fe,5," MUZAK AND GRAPHICS BY       ",$fe,9
DC.B "DYNOSIS        ",$fe,5
DC.B $FC,4,6
DC.B "        ",$FE,9,$FA,"  ",$FD
DC.B "NOW THE LONG AWAITED GREETINX IN RANDOM ORDER : "
DC.B "           ",$FE,1," ",$FC,$F,$FB," ",$F9,$1F,$A4,$FD
DC.B "FREEDOM FORCE (HI CRAYONE !)     HURRICANE     "
DC.B "ECF (HIGHTOP / ALF)     NAPALM   "
DC.B "   THE BAND (SKIPPY & DUNCAN)    VISION FACTORY     "
DC.B "CASCADE     NEMESIS     THE UNTOUCHABLES (SPIRAX)"
DC.B "      CURITY      GHOSTRIDERS     PANZERFAUST"     
DC.B "     DOXOS    AVIREX     FULCRUM     ZARK/INTUITION"
DC.B "     MICRONIX     FAST TEAM    "
DC.B "OIVIND     OCC     G.O.D     EXTREME TEAM     "
DC.B "THE POWER CONNECTION     FREE ACCESS     "
DC.B "IRONGODS     DARREN WOOD     BELGIAN BRAINS     "
DC.B "ATTRIUM     THORAX     THE CLAN (WHAT $S UP ???)"
DC.B "     SUNRIDERS     REBELS     PHENOMENA"
DC.B "     STARDOM     THE LO BUNCH     FIRST WAVE     "
DC.B "THE WEB INC.     THE SUPERVISORS     DYNAMIC SCIENCE"
DC.B "     SPY & MIND     PHASE 101      DELTA/NEW ORDER"
DC.B "     THE FIRESTARTERS     THE GATHERING"
DC.B "     DUALIS     AMIGHOST     BLACKWHITE     "
DC.B "EVERYONE WE HAVE FORGOTTEN   &   ALL OUR NEW CONTACTS !!!"
DC.B "       "
DC.B $FE,10,$FC,1
DC.B "IMPORTANT :  ALL NAMES WERE MENTIONED IN RANDOW ORDER"
DC.B "  B-COZ WE HAD NO TIME TO PUT THEM IN ALPHABETICAL "
DC.B "ORDER !!!      ",$FE,8,$FB
DC.B "     REGARDS TO OUR FRIENDS IN TOWN    TOM & DENNIS"
DC.B $FC,3,$FE,4,"    MESSAGE TO THE DEVIL : WAKE UP !!!"
DC.B $F9,$19,$50,"        "
DC.B $FC,5,$FE,1,"STILL A MESSAGE OF ADENOIDS .........."
DC.B "       ",$FC,6,$FA," ",$FE,3
DC.B " YABBA FREAKS !!!   THIS IS ADENOIDS HITTING"
DC.B " ON THE KEYBOARD !!!    DO YOU LIKE MY INTRO ???       "
DC.B "    I DON$T !!!    NEXT TIME I WILL WRITE A MUCH "
DC.B " BETTER ONE !!!    THERE ARE STILL SOME BUGS LEFT, "
DC.B "BUT I GO TO GREECE FOR 2 WEEKS TOMORROW AND I HAD TO"
DC.B " SHOW SOMETHING TO MY CONTACTS.......     "    
DC.B "MESSAGE TO MY CONTACTS :  SORRY"
DC.B " FOR MY LONG BREAK !!!     MESSAGE TO EVERYONE : "
DC.B "IF YOU WANT TO SWAP SOURCES THEN JUST WRITE ME A NOTE !!!      "
DC.B "YOU WILL FIND MY ADDRESS BETWEEN THE SCROLLY AND THE FONT...   "
DC.B "MEMORY LOCATION (HEX) 5112A     "
DC.B "I WILL LEAVE YOU NOW      GREETINX TO MY LITTLE #BUTLER#"
DC.B " (BROTHER) NICK............     BYE     BYE  " 
DC.B "             ",$FE,5,$FA         
DC.B "MESSAGE OF CUADRAM HQ :  WATCH OUT FOR OUR NEXT "
DC.B "ANTI-DEMO    SO FUCK OFF   WEIRD WORLDS  ALIAS  BSA "
DC.B "FACTORIES  ALIAS ...        ",$FE,1,$FC,$F
DC.B "  BYE FOLKS !               END OF SCROLLTEXT       "
DC.B "       ",$FC,$F,$FA,"       ",$FD,$FE,0
DC.B $FF
Address:
DC.B "CONTACT ADENOIDS:   "
DC.B "BRUGSESTEENWEG 424  "
DC.B "9910 MARIAKERKE     "
DC.B "BELGIUM             "
DC.B "PH: (0)91/27.04.24  "
even
font:
font1:
BLK.B 40960,0
even
font2:
BLK.B $B40
ScrollBuffer:
BLK.B $94C0
even
screen:
BLK.B 69120,0
Endy: