Compare commits

..

No commits in common. "main" and "1.0" have entirely different histories.
main ... 1.0

8 changed files with 38 additions and 22 deletions

View File

@ -1,8 +1,10 @@
# Among Us Drip C64
# Among-Us-Drip-C64
It's the Among Us drip meme on a Commodore 64. What else did you expect?
Created by IanSkinner1982 (code, sound and graphics)
Created by:
SID playing code from https://youtu.be/LzXJifSjFpk.
- IanSkinner1982
SID play code from https://youtu.be/LzXJifSjFpk.

Binary file not shown.

19
prg.bas
View File

@ -1,19 +0,0 @@
10 ifx=3then150
20 ifx=2then130
30 poke53280,0:poke53281,0:?"{clear}copyright (c) 2022 very terrible code":?"loading..."
40 me=49152
50 readop
60 ifop>998thengoto100
70 pokeme,op
80 me=me+1
90 goto50
100 goto120
110 data120,169,0,32,0,16,32,3,16,173,18,208,201,112,208,249,173,1,220,201,255,240,239,169,0,141,24,212,88,96,999
120 x=2:load"sustune.dat",8,1
130 poke56,92:print"hold on you sussy baka! i'm still loading!"
140 x=3:load"susground.kla",8,1
150 poke88,0:poke89,95:poke90,64:poke91,130:poke781,4:poke782,0:sys41964
160 poke88,0:poke89,219:poke90,40:poke91,134:poke781,4:poke782,0:sys41964
170 poke56576,150
180 v=53248:pokev+17,59:pokev+22,216:pokev+24,121:pokev+32,0:pokev+33,0
190 sys49152:goto190

33
prg.txt Normal file
View File

@ -0,0 +1,33 @@
0 ifx=3then310
5 ifx=2then300
7 ?"copyright (c) 2021 very terrible code{return}program by ianskinner1982":?"loading the sus"
10 me=49152:rem here be stolen code
20 readop
30 ifop>998thengoto99
40 pokeme,op
50 me=me+1
60 goto20
99 goto250
100 data120:rem sei
110 data169,0:rem lda #0
120 data32,0,16:rem jsr $1000
130 data32,3,16:rem jsr $1003
140 data173,18,208:rem lda $d012
150 data201,112:rem cmp #112
160 data208,249:rem bne l140
170 data173,1,220:rem lda $dc01
180 data201,255:rem cmp #$ff
190 data240,239:rem bne l130
200 data169,0:rem lda #0
210 data141,24,212:rem sta $d418
220 data88:rem cli
230 data96:rem rts
240 data999
250 x=2:load"sustune.dat",8,1
300 poke56,92:print"hold on you sussy baka! i'm still loading!"
305 x=3:load"sus.kla",8,1
310 poke88,0:poke89,95:poke90,64:poke91,130:poke781,4:poke782,0:sys41964:rem copy memory i think.
320 poke88,0:poke89,219:poke90,40:poke91,134:poke781,4:poke782,0:sys41964:rem more of the same. probably.
330 poke56576,150:rem i dunno man
340 v=53248:pokev+17,59:pokev+22,216:pokev+24,121:pokev+32,0:pokev+33,0:rem help
350 sys49152:goto350

BIN
sus.kla Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.