tomaes

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

tomaes

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

tomaes

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

tomaes

;
; fill screen with 'text noise' (19 bytes with SEI)
;
        * = $1000
                
        SEI
        
loop    EOR $D012
        STA $0400,y
        STA $0400+256,y

tomaes

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

tomaes

; 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)

tomaes

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

tomaes

0 GO TO INFINITY

tomaes

        * = $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

tomaes

        * = $7c

loop    tax
        sta $0774,x
        jsr $e965  ;\n
        jmp loop