tomaes

0 s=53248:x=8:pokes+21,1:pokes,x:pokes+1,120:pokes+39,2
5 printspc(int(rnd(1)*5)*6+4)"{yellow}{110}{green}{109}":r=r+1
8 geta$:x=x+(a$="{left}")*8-(a$="{right}")*8:pokes,x:ifx<248and(peek(s+31)andr>20)=.goto5
9 print"score:"x*8-r*2

tomaes

        * = $7c

loop    ldy $c5    ;interactive \o/
        jsr $f12b  ;errout, y offset
        jsr $e965  ;pinch o' magic scrolling salt
        jmp loop   ;awaaay...

tomaes

        * = $7c

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

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

0 GO TO INFINITY

tomaes

0 poke646,2+(peek(143)and3):printchr$(206.5+rnd(1)-(peek(161)/2and31));: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 ?spc(rnd(.)+.5)"#";:run

tomaes

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

tomaes

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