tomaes

## joymin.asm
; lazy joystick test

        * = $7c         ; auto start in VICE
                        ;
        LDA $DC00       ; get port byte
        STA $05F4       ; mid-screen
        BVC *-6         ; 8 bytes total

## 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

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

## snaaakes
        * = $7c

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

## errglich0mat
        * = $7c

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

## pre-alpha-bet
0 c=int(rnd(1)*25)+66:printchr$(c);:fori=.toc*30:next:geta$:iflen(a$)>.thenif((c-1)=asc(a$))goto
	; lazy joystick test

	* = $7c ; auto start in VICE
	;
	LDA $DC00 ; get port byte
	STA $05F4 ; mid-screen
	BVC *-6 ; 8 bytes total
	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
	* = $7c

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