mirror of
https://github.com/rvtr/Among-Us-Drip-C64.git
synced 2025-10-31 07:31:10 -04:00
20 lines
710 B
QBasic
20 lines
710 B
QBasic
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
|