tomaes
/ feng shui 64
Last active
August 29, 2015 14:01
61 bytes to visually bubble sort the contents of your screen; yes, this takes a while. ("speed optimised" version (r=.:fori=4^5to2022-r:r=r+1: ...) would take 74 bytes of memory) (c64)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 fori=4^5to2022:a=peek(i):b=peek(i+1):poke-(a>b)+i,a:pokei+1+(a>b),b:next:run |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 12 s = 2^10+40*3: w = 40: h = 20: mi = 10: co = 108: ti$="000000": print"{clear}" | |
| 20 fory=-1to1step.1: forx=-3to1step.1 | |
| 45 xn = 0: yn = 0: i = 0 | |
| 47 if (xn*xn+yn*yn)<4 then if (i<mi) then t=(xn*xn)-(yn*yn)+x: yn=2*x*y+y: xn=t: i=i+1: goto47 | |
| 49 px=(x+3.)/4*w: py=(y+1.)/2*h | |
| 50 poke s + py*w + px, co+((i+x+y)and127) | |
| 58 print"{home}t:"ti$", x:"str$(px)", y:"str$(py)", i:"str$(i)"{space*9}" | |
| 60 next x,y:poke198,.:wait198,1 |
tomaes
/ pre-alpha-bet
Last active
August 29, 2015 14:01
Random letters. Type in the one that precedes it in the alphabet. Better hurry. Try not to fail like a 5 year old. ;)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 c=int(rnd(1)*25)+66:printchr$(c);:fori=.toc*30:next:geta$:iflen(a$)>.thenif((c-1)=asc(a$))goto |
tomaes
/ square_chicken
Created
May 11, 2014 18:30
1/2 a frogger (c64); 165 bytes for some stylish, minimal gaming action.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ errglich0mat
Created
May 7, 2014 20:27
System messages breaking off a wall. Try to press some keys. (c64)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| * = $7c | |
| loop ldy $c5 ;interactive \o/ | |
| jsr $f12b ;errout, y offset | |
| jsr $e965 ;pinch o' magic scrolling salt | |
| jmp loop ;awaaay... |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| * = $7c | |
| loop tax | |
| sta $0774,x | |
| jsr $e965 ;\n | |
| jmp loop |
tomaes
/ raster-fari
Created
March 22, 2014 18:11
16 bytes for a fairly nice looking (and flicker free) static raster effect (c64)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| * = $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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 GO TO INFINITY |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 poke646,2+(peek(143)and3):printchr$(206.5+rnd(1)-(peek(161)/2and31));:run |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; 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) |