!to "epilepsia2.prg", cbm

						*= $0800
!byte $00,$0c,$08,$0a,$00,$9e,$32,$30,$36,$34,$00,$00,$00,$00

						
						*= $0810
						
						sei
						
						lda #$16
						sta $d018			;switch to normal charset.
						
						jsr clearscreen
						lda #$01
						jsr charcolour
						
						ldx #$00
textloop				lda text01,x
						sta $0401,x			;where to place text
						inx
						cpx #38				;textlenght
						bne textloop
						
						ldx #$00
textloop2			lda text02,x
						sta $04fe,x			;where to place text
						inx
						cpx #12				;textlenght
						bne textloop2
						
						ldx #>int
						ldy #<int
						stx $0315
						sty $0314
						ldx #0
						stx $dc0e
						inx
						stx $d01a
						lda #$1b
						sta $d011
						lda #0
						sta $d012

						lda #0
						tax
						tay
						jsr $1000
						cli



;--------------------------------------------------
						
mainloop				inc $d021
						
						ldx #$00
						ldy #$00				;position of rasterbar
coloursub			lda colourbar,x						
						cpy $d012
						bne *-3
						sta $d020
						inx
						iny
						cpx #$12				;amount of rasterlines (#$12 = 18)
						bne coloursub
						
;--------------------------------------------------
						
						sta store01+0
						stx store01+1
						sty store01+2
						
						lda store02+0
					;	ldx store02+1
						ldy store02+2
						
;--------------------------------------------------
						
						;ldy #$00			
main					ldx #$00
						;lda #$fe
raster				cmp $d012
						bne raster
moveloop				lda $0659,x			;$0401+600
						sta $0658,x			;$0400+600 == 10 lines lower.
						inx
						
						stx store02+1
						sty store02+2
						
						jsr waitloop
						
						ldx store02+1
						ldy store02+2
						
						cpx #$28
						bne moveloop
readtext				lda $3000,y		;read text
						sta $067f
						iny
						
						bne dontadd
						inc readtext+2
						lda readtext
						cmp #16
						bne dontadd
						
						dec readtext-16
						
;--------------------------------------------------

dontadd				sta store02+0
						stx store02+1
						sty store02+2
						
						lda store01+0
						ldx store01+1
						ldy store01+2
						
						jmp mainloop
						
;--------------------------------------------------

int
						jsr $1003
						lda #1
						sta $d019
						jmp $ea31
						
;--------------------------------------------------
waitloop
						LDX #$00
nogeens 				LDY #$00
waitsub				INY
						CPY #$FF
						BNE waitsub
						;INX
						;CPX #$01
						;BNE nogeens
						rts									
						
;--------------------------------------------------


clearscreen			ldx #$00
						lda #$20				;blank space
clearloop			sta $0400,x
						sta $0500,x
						sta $0600,x
						sta $0700,x
						inx
						bne clearloop
						rts
						
;--------------------------------------------------

charcolour			ldx #$00
chrcolloop			sta $d800,x
						sta $d900,x
						inx
						bne chrcolloop
						ldx #$00
						lda #$00
chrcolloop2			sta $da00,x
						sta $db00,x
						inx
						bne chrcolloop2
						
						
						rts
						
;--------------------------------------------------

text01				!text ". .. ...DIGITAL SOUNDS SYSTEM!... .. ."

text02				!text "EPILEPSIA 2!"

						*=$3000

						!text "                                       WHY HELLO THAR!"
						!text " (; WELCOME TO THE FIRST DIGITAL SOUNDS SYSTEM DEMO IN"
						!text " THE YEAR 2008... FUCK YES..! CODE DONE BY KNOEKI, "
						!text "WITH A SHITLOAD OF HELP FROM MACE/SECURE, RAMBONES/ANC"
						!text "IENTS AND SOME OTHERS... ALSO MUCH THANKS TO KRILL/PL"
						!text "USH FOR EXPLAININ"
						!text "G ME HOW TO DO A SWAP ROUTINE.. IT HAS MADE SOME STUFF"						
						!text " A LOT EASIER FOR ME (= ...THANKS! MUSIC WAS DONE BY"
						!text " XINY6581... THE MUSIC WAS ACTUALLY SUPPOSED TO BE REL"
						!text "EASED IN THE DSS DEMO FOR OXYRON PARTY V2, BUT "
						!text "UNFORTUNATELY THIS WAS NOT POSSIB"
						!text "LE BECAUSE BASIC IS MADE OF FAIL AND AIDS AND SOME OTH"						
						!text "ER NASTY STUFF... YOU GET THE POINT. THIS DEMO IS DEDI"
						!text "CATED TO STAINLESSSTEEL, BECAUSE HE WAS BITCHING ABOUT"
						!text " A SEQUEL TO MY SHITTY DEMO I RELEASED ON X2006... SPE"
						!text "AKING OF WHICH, X2008 IS C"
						!text "OMMING UP, AND I EXPECT TO SEE ALL YOU BITCHES THERE, "
						!text "IF YOU DON'T COME... .. . THEN YOU ARE NOT THERE, AND "
						!text "THUS UNABLE TO PARTY AND HAVE FREE BEER AND ALL THAT S"
						!text "CHEISSE )=  YOU DON'T WANT TO MISS THAT, NOW DO YOU? "
						!text "(= ALSO, YOU WILL GET TO SE"
						!text "E KICKASS DEMOS ON THE BIGSCREEN BY SOME MAJOR GROUPS "
						!text "TOGETHER WITH YOUR FRIENDS UNDER ENJOYMENT OF BOOZE OR "
						!text "WEED OR WHATEVER. FUCK YES. ALSO, IF YOU ARE STILL REA"
						!text "DING, YOU PROBABLY DON'T HAVE EPILEPSY, AND IF YOU DO,"
						!text " YOU ARE PROBABLY FOAMING "
						!text "IN THE MOUTH AND ROLLING ON THE FLOOR OR SOME SHIT. WH"
						!text "ATEVER, WHO CARES, THIS IS FOR THE REAL GUYS WHO LIKE "
						!text "TO READ SCROLLERS, LIKE I DO. BECAUSE SCROLLERS RULE. "
						!text "YEAH. I AM ALSO STONED, SO MAYBE THAT IS WHY I "
						!text "SUDDENLY DON'T SUCK AT WRITING A "
						!text "SCROLLER. HEH. ANYWAYS, SOME QUICK GREETS... .. .     "
						!text "TRSI, OXY, CREST, GMI, SWA, WD, K2, +H, TEK, PWP, HVSC"
						!text " RSC, SGR, DREAMS, LINEOUT, VSN AND ALL THE OTHER GUYS"
						!text "I FORGOT TO MENTION, SORRIES... )=                    "
						!text "SOME PERSONAL GREETS FROM KNOEKI...: MERMA"
						!text "ID: SORRY ABOUT WHAT I SAID, NO HARD FEELINGS? )=   MO"
						!text "TION: THANKS FOR MOTIVATING ME AND THE TALKS ON SKYPE!"
						!text " RAMBONES: THANKS FOR ALWAYS HELPING ME, EVEN THOUGH Y"
						!text "OU ARE CONFUSING (;                                   "
                  !text "THAT'S IT FOR NOW, KNOEKI SIGNS OFF... (02/03/08)     "
						!text "                                                      "
						!text "                                                      "
						!text "          WRAP!         OR SOMETHING      IN UR SCROLL"
						!text ", WRITING BULLSHIT..                                  "
						!text "                           "
						


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

colourbar			!byte $06,$0e,$01,$0e,$06,$00
						!byte $05,$0d,$01,$0d,$05,$00
						!byte $02,$0a,$0f,$0a,$02,$00
						!byte $ff

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

store01				!byte $00,$00,$00
store02				!byte $fe,$00,39

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

						*=$1000

!bin "C:\relaunch64\asm\kaoscity.prg",,2