Skip to content

Instantly share code, notes, and snippets.

@dansanderson
Created May 20, 2022 19:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dansanderson/14285db4c2cf0ace27f1b68b1e1f0fbd to your computer and use it in GitHub Desktop.
Save dansanderson/14285db4c2cf0ace27f1b68b1e1f0fbd to your computer and use it in GitHub Desktop.
The balloon demo program from the Commodore 64 Programmer's Reference Guide, p181
10 print"{clr}":fori=0to63:poke832+i,0:next
20 gosub60000
999 end
60000 data" xxxxxxx "
60001 data" xxxxxxxxxxx "
60002 data" xxxxxxxxxxxxx "
60003 data" xxxxx xxxxx "
60004 data" xxxxx xxx xxxx "
60005 data" xxxxx xxx xxxxx "
60006 data" xxxxx xxx xxxx "
60007 data" xxxxx xxxxx "
60008 data" xxxxxxxxxxxxx "
60009 data" xxxxxxxxxxxxx "
60010 data" x xxxxxxxxx x "
60011 data" x xxxxxxx x "
60012 data" x xxxxx x "
60013 data" x xxx x "
60014 data" x xxx x "
60015 data" x x x "
60016 data" x x x "
60017 data" xxxxx "
60018 data" xxxxx "
60019 data" xxxxx "
60020 data" xxx "
60100 v=53248:pokev,200:pokev+1,100:pokev+21,1:pokev+39,14:poke2040,13
60105 pokev+23,1:pokev+29,1
60110 fori=0to20:reada$:fork=0to2:t=0:forj=0to7:b=0
60140 ifmid$(a$,j+k*8+1,1)="x"thenb=1
60150 t=t+b*2^(7-j):next:printt;:poke832+i*3+k,t:next:print:next
60200 return
@dansanderson
Copy link
Author

Convert this to PRG with the petcat tool that comes with the VICE emulator:

petcat -w2 -o balloon64.prg -- balloon64.bas

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