diff --git a/prg.bas b/prg.bas
index d63be71..c2e8c1b 100644
--- a/prg.bas
+++ b/prg.bas
@@ -1,19 +1,18 @@
-0 ifx=3then310
-5 ifx=2then300
-7 ?"copyright (c) 2021 very terrible code{return}program by ianskinner1982":?"loading the sus"
-10 me=49152
-20 readop
-30 ifop>998thengoto99
-40 pokeme,op
-50 me=me+1
-60 goto20
-99 goto250
+0 ifx=3then140
+10 ifx=2then120
+20 poke53280,0:poke53281,0:?"{clear}copyright (c) 2021 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
-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"susground.kla",8,1
-310 poke88,0:poke89,95:poke90,64:poke91,130:poke781,4:poke782,0:sys41964
-320 poke88,0:poke89,219:poke90,40:poke91,134:poke781,4:poke782,0:sys41964
-330 poke56576,150
-340 v=53248:pokev+17,59:pokev+22,216:pokev+24,121:pokev+32,0:pokev+33,0
-350 sys49152:goto350
+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