tomaes

## glitch101
0 s=53265:a=32:b=223:c=53280:pokec,.:pokec+1,.
1 pokes,peek(s)ora:pokes,peek(s)andb:::::::::::goto1

## vscroll
1 rem roll dem credits
2 s=53265:k=240:a$(.)="yo!":a$(1)="let's scroll":a$(2)="upwards":a$(3)="smoothly"
3 printa$(i):i=(i+1)and3:forn=7to.step-1:pokes,peek(s)andkorn:forx=.to49:nextx,n:goto3

## glitch rumba
;
; glitch f-art
;
        * = $1000
;
loop   EOR $A2
       NOP       ; makes everything look much saner ;)
       ; AND $C5 (fake interactivity :P)
       STA $D011
       STA $D418

## text noise
;
; fill screen with 'text noise' (19 bytes with SEI)
;
        * = $1000

        SEI

loop    EOR $D012
        STA $0400,y
        STA $0400+256,y

## mini maze
0 ?spc(rnd(.)+.5)"#";:run

## glitchshifer_code_review
; glitchshifter by 4mat explained
;
        * = $7c   ; starts in Zeropage. Overwrites some BASIC interpreter parts;
                  ; faux autostart in VICE due to RUN (+return! just that would
                  ; suffice)
        SBC $a1   ; Accu minus (slowly updated) system timer byte ($A1)
        SEI       ; stop interrupts to halt timer temporarily and add some speed-up,
                  ; inner loop starts
        ORA $a2   ; bitwise OR'ed Accu with fresh timer data from fast sys timer ($A2)
                  ; (but: the Accu rarely changes in this very fast inner loop)

## bella maze
0 poke646,2+(peek(143)and3):printchr$(206.5+rnd(1)-(peek(161)/2and31));:run

## hrhr
0 GO TO INFINITY

## raster-fari
        * = $7c   ; zeropage boot-up (for VICE)
        sei       ; no interupts, no flickering
        sty $d011 ; background frame is now everywhere
        cpy $d012 ; wait for next raster line
        bne *-3   ;
        sty $d020 ; set fullscreen color
        iny       ; wait 2 lines (looks best)
        iny       ;
        bvc *-10  ; loop quickly

## snaaakes
        * = $7c

loop    tax
        sta $0774,x
        jsr $e965  ;\n
        jmp loop
	0 s=53265:a=32:b=223:c=53280:pokec,.:pokec+1,.
	1 pokes,peek(s)ora:pokes,peek(s)andb:::::::::::goto1
	1 rem roll dem credits
	2 s=53265:k=240:a$(.)="yo!":a$(1)="let's scroll":a$(2)="upwards":a$(3)="smoothly"
	3 printa$(i):i=(i+1)and3:forn=7to.step-1:pokes,peek(s)andkorn:forx=.to49:nextx,n:goto3
	;
	; glitch f-art
	;
	* = $1000
	;
	loop EOR $A2
	NOP ; makes everything look much saner ;)
	; AND $C5 (fake interactivity :P)
	STA $D011
	STA $D418
	;
	; fill screen with 'text noise' (19 bytes with SEI)
	;
	* = $1000

	SEI

	loop EOR $D012
	STA $0400,y
	STA $0400+256,y
	; glitchshifter by 4mat explained
	;
	* = $7c ; starts in Zeropage. Overwrites some BASIC interpreter parts;
	; faux autostart in VICE due to RUN (+return! just that would
	; suffice)
	SBC $a1 ; Accu minus (slowly updated) system timer byte ($A1)
	SEI ; stop interrupts to halt timer temporarily and add some speed-up,
	; inner loop starts
	ORA $a2 ; bitwise OR'ed Accu with fresh timer data from fast sys timer ($A2)
	; (but: the Accu rarely changes in this very fast inner loop)
	* = $7c ; zeropage boot-up (for VICE)
	sei ; no interupts, no flickering
	sty $d011 ; background frame is now everywhere
	cpy $d012 ; wait for next raster line
	bne *-3 ;
	sty $d020 ; set fullscreen color
	iny ; wait 2 lines (looks best)
	iny ;
	bvc *-10 ; loop quickly