diff --git a/prg.bas b/prg.bas index b4bf8c2..4bab6df 100644 --- a/prg.bas +++ b/prg.bas @@ -1,18 +1,19 @@ -0 ifx=3then140 -10 ifx=2then120 -20 poke53280,0:poke53281,0:?"{clear}copyright (c) 2022 very terrible code":?"loading..." -30 me=49152 -40 readop -50 ifop>998thengoto99 -60 pokeme,op:me=me+1 -70 goto40 -99 goto110 -100 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 -110 x=2:load"sustune.dat",8,1 -120 poke56,92:print"hold on you sussy baka! i'm still loading!" -130 x=3:load"susground.kla",8,1 -140 poke88,0:poke89,95:poke90,64:poke91,130:poke781,4:poke782,0:sys41964 -150 poke88,0:poke89,219:poke90,40:poke91,134:poke781,4:poke782,0:sys41964 -160 poke56576,150 -170 v=53248:pokev+17,59:pokev+22,216:pokev+24,121 -180 sys49152:goto350 +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