IDEAS & CODE SNIPPETS
SPRITE PAD
?)<span class="code-line">10 POKE 53280,0:POKE 53281,0 ' BORDER/BG BLACK</span>
<span class="code-line">20 POKE 646,1 ' TEXT WHITE</span>
<span class="code-line">30 V=53248: REM SPRITE REGISTERS BASE</span>
<span class="code-line">40 POKE V+21,1: REM ENABLE SPRITE 0</span>
<span class="code-line">50 POKE 2040,10: REM SPRITE DATA POINTER (BLOCK 10)</span>
<span class="code-line">60 POKE V+27,1: REM SPRITE COLOR (WHITE)</span>
<span class="code-line">70 X=150: Y=100</span>
<span class="code-line">80 POKE V,X: POKE V+1,Y</span>
<span class="code-line">90 GET A$: IF A$="" THEN 90</span>
<span class="code-line">100 IF A$="W" THEN Y=Y-1</span>
<span class="code-line">110 IF A$="S" THEN Y=Y+1</span>
<span class="code-line">120 IF A$="A" THEN X=X-1</span>
<span class="code-line">130 IF A$="D" THEN X=X+1</span>
<span class="code-line">140 GOTO 80</span>
<span class="code-line">10 FOR I=0 TO 15</span>
<span class="code-line">20 POKE 53281,I: REM CHANGE BACKGROUND COLOR</span>
<span class="code-line">30 FOR J=1 TO 100: NEXT J: REM DELAY</span>
<span class="code-line">40 NEXT I</span>
<span class="code-line">50 GOTO 10</span>
Address | Register | Effect |
---|---|---|
53280 | BORDER COLOR | Screen Border Color |
53281 | BACKGROUND COL 0 | Main Background Color |
646 | TEXT COLOR | Default Text Color |
198 | KEY QUEUE LEN | Length of Keyboard Buffer |
53265 | SPRITE ENABLE | Turn Sprites On/Off |
REMEMBER PEEK AND POKE FOR SOUND AND GRAPHICS! ACCESSING THE
SID
CHIP DIRECTLY IS POWERFUL.
SYS 64738
FOR SOFT RESET. DON'T FORGET TO SAVE YOUR WORK!
LOAD "*",8,1 TO LOAD FIRST PROGRAM FROM DISK.
<span class="code-line">10 PRINT CHR$(147);"HELLO STYLEMD!"</span>
<span class="code-line">20 FOR I=1 TO 10: PRINT "COMMODORE 64";: NEXT I</span>
<span class="code-line">30 GOTO 10</span>
THIS IS FUN!
This document was styled using the c64
theme with stylemd
. Get the tool here: https://github.com/ddukbg/stylemd