diff --git a/ksp/loading.bas b/ksp/loading.bas
index 973eec9a..e35e652b 100644
--- a/ksp/loading.bas
+++ b/ksp/loading.bas
@@ -4,25 +4,24 @@
   20   HGR
   100  REM *** SQUAD SCREEN ***
   110  PRINT CHR$(4);"BLOAD SQUAD.HGR,A$2000"
-  400  REM *** LOADING SCREEN ***
-  410  REM BLOAD LOADING.HGR,A$2000
-  420  REM *** TITLE SCREEN ***
-  430  REM BLOAD TITLE.HGR,A$2000
   580  S=0
+  585  I=INT(RND(1)*8)+1
   590  VTAB 21: PRINT "    ";
   600  FOR I=1 TO 32: PRINT ".";: NEXT I
   700 FOR J=1 TO 32
+  704  REM *** LOADING SCREEN ***
+  708  IF J=16 THEN PRINT: PRINT CHR$(4);"BLOAD LOADING.HGR,A$2000"
   710 HTAB J+4:VTAB 21
   720 INVERSE: PRINT " ";: NORMAL
   790 S=S+1: IF S=4 THEN S=0
   795 IF S<>1 GOTO 840
-  800  I=INT(RND(1)*8)+1
+  800 I=I+1: IF I > 8 THEN I=1
   802 VTAB 22: HTAB 1
-  803 PRINT "                           ";
+  803 PRINT "                              ";
   805 ON I GOSUB 850,851,852,853,854,855,856,857
-  840 FOR T=1 TO 200: NEXT T
+  840 FOR T=1 TO 250: NEXT T
   842 NEXT J
-  845 END
+  845 GOTO 900
   850 HTAB 10:PRINT "Adding Extraneous Ks":RETURN
   851 HTAB 14:PRINT "Locating Jeb":RETURN
   852 HTAB 11:PRINT "Breaking Quicksaves":RETURN
@@ -31,10 +30,12 @@
   855 HTAB 11:PRINT "Warming up the 6502":RETURN
   856 HTAB 10:PRINT "Preparing Explosions":RETURN
   857 HTAB 10:PRINT "Unleashing the Kraken":RETURN
-  900  REM ****************
-  901  REM  KSP THEME MUSIC
-  902  REM  SEE http://eightbitsoundandfury.ld8.org/programming.html
-  903  REM ****************
+  900  REM *** TITLE SCREEN ***
+  902  HOME: PRINT: PRINT CHR$(4);"BLOAD TITLE.HGR,A$2000"
+  905  REM ****************
+  906  REM  KSP THEME MUSIC
+  907  REM  SEE http://eightbitsoundandfury.ld8.org/programming.html
+  908  REM ****************
   910  FOR L = 770 TO 790: READ V: POKE L,V: NEXT L
   920  DATA  173,48,192,136,208,5,206,1,3,240,9
   930  DATA  202,208,245,174,0,3,76,2,3,96