Skip to content

Instantly share code, notes, and snippets.

@banterCZ
Last active September 25, 2023 04:44
Show Gist options
  • Save banterCZ/c6c4b23b460c088a898d3e96e5803170 to your computer and use it in GitHub Desktop.
Save banterCZ/c6c4b23b460c088a898d3e96e5803170 to your computer and use it in GitHub Desktop.
Balloon Sprite for Commodore 64 Basic
10 V=53248 : REM START OF DISPLAY CHIP
11 POKE V+21,4 : REM ENABLE SPRITE 2
12 POKE 2042,13 : REM SPRITE 2 DATA FROM 13TH BLK
20 FOR N = 0 TO 62: READ Q : POKE 832+N,Q: NEXT
30 FOR X = N TO 209
40 POKE V+4,X: REM UPDATE X COORDINATES
50 POKE V+5,X: REM UPDATE Y COORDINATES
60 NEXT X
70 GOTO 30
200 DATA 0,127,0,1,255,192,3,255,224,3,231,224
210 DATA 7,217,240,7,223,240,7,217,240,3,231,224
220 DATA 3,255,224,3,255,224,2,255,160,1,127,64
230 DATA 1,62,64,0,156,128,0,156,128,0,73,0,0,73,0
240 DATA 0,62,0,0,62,0,0,62,0,0,28,0
@banterCZ
Copy link
Author

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment