Saved a few bytes from :ELSE

Author: hackerb9

samples/GALAXY-crunched.DO

@@ -31,12 +31,12 @@
 30 CLS:IFBP=1THENBEEP
 31 PRINT"YOU ";:IFSP=1THENPRINT"AND SPOCK ";
 32 IFCW=1THENPRINT"AND THE CREW ";
-33 PRINT"ARE":PRINT" ";DS$(PL):IFPL=38THEN73:ELSEIFPL=37THENCW=1:GOTO36:ELSEIFPL<>33THEN36:ELSEGOSUB35:PRINT"A GIANT SAND SNAKE IS SWIMMING THROUGH   THE SAND TOWARD YOU!":GOSUB35:PRINT
+33 PRINT"ARE":PRINT" ";DS$(PL):IFPL=38THEN73ELSEIFPL=37THENCW=1:GOTO36ELSEIFPL<>33THEN36ELSEGOSUB35:PRINT"A GIANT SAND SNAKE IS SWIMMING THROUGH   THE SAND TOWARD YOU!":GOSUB35:PRINT
 34 PRINT"IT'S GETTING CLOSER!":GOSUB35:PRINT:PRINT"YOU CAN'T ESCAPE!":GOSUB35:PRINT:PRINT"AARRRRGHH !!!    IT KILLED YOU!":PRINT:GOTO73
 35 FORI=1TO1000:NEXT:RETURN
 36 PRINT"EXITS: ";:FORJ=0TO5:IFDM(PL,J)>0THENPRINTDI$(J);" ";
 37 NEXTJ:PRINT:IFPL<>30THENPRINT"YOU CAN SEE";:IFPL>10ANDPL<14THENPRINTBL$
-38 IFPL=21THENPRINT" ALL THE SHIP'S SUPPLIES":GOTO41:ELSEK=0:FORJ=1TO26:IFOB(J)=PLTHENK=1:PRINT" ";OB$(J):NEXTJ:ELSENEXTJ:IFPL=30THENPRINT" ":ELSEIFK=0THENPRINT" NOTHING
+38 IFPL=21THENPRINT" ALL THE SHIP'S SUPPLIES":GOTO41ELSEK=0:FORJ=1TO26:IFOB(J)=PLTHENK=1:PRINT" ";OB$(J):NEXTJELSENEXTJ:IFPL=30THENPRINT" "ELSEIFK=0THENPRINT" NOTHING
 39 IFWG=0THEN41ELSEIFCW=1ANDPL=3THEN174
 40 IFPL=37THENSC=SC+250:GOTO45
 41 IFOB(11)=PLOROB(12)=PLOROB(13)=PLOROB(14)=PLTHEN149
@@ -73,7 +73,7 @@
 72 PRINT"YOUR SCORE SO FAR IS";9*(SC-3*NM):GOTO45
 73 IFPL<>4ANDPL<33ANDWG=1ANDCW=0THENPRINTSP$:PRINT"THE ENTERPRISE IS SAVED.  BUT WITHOUT    THE CREW, OUR MISSION IS A FAILURE.
 74 GOSUB35:PRINT"THIS ADVENTURE IS OVER.
-75 PRINT:PRINT" DO YOU WANT TO TRY AGAIN? (Y/N)":GOSUB172:IFZZ$="Y"THENCLS:PRINT:PRINT:PRINT:PRINT"   PLEASE WAIT ...":GOTO3:ELSEMENU
+75 PRINT:PRINT" DO YOU WANT TO TRY AGAIN? (Y/N)":GOSUB172:IFZZ$="Y"THENCLS:PRINT:PRINT:PRINT:PRINT"   PLEASE WAIT ...":GOTO3ELSEMENU
 76 RETURN
 77 BP=1:GOTO30
 78 BP=0:GOTO30
@@ -103,7 +103,7 @@
 102 IFPL>32THENOB(15)=8:PRINT" BUT THE TRIBBLE RAN AWAY, TOO!":GOTO45
 103 IFOB(1)=PLTHENPRINT"THE KLINGON COMMANDER IS VERY BRAVE AND  HOLDS HIS GROUND.":OB(15)=PL:GOTO45
 104 IFPL=30ANDKETHENCLS:PRINT:PRINT"WHEN THE KLINGONS SEE THE TRIBBLE, THEY  RUN AWAY IN ALL DIRECTIONS!
-105 IFPL=30THENIFKETHENIFSP=1THENPRINT:PRINTSP$:PRINT" EXCELLENT, CAPTAIN! YOU REMEMBERED HOW  FRIGHTENED THEY ARE OF TRIBBLES!":ELSEPRINT
+105 IFPL=30THENIFKETHENIFSP=1THENPRINT:PRINTSP$:PRINT" EXCELLENT, CAPTAIN! YOU REMEMBERED HOW  FRIGHTENED THEY ARE OF TRIBBLES!"ELSEPRINT
 106 IFPL=30ANDKETHENKE=0:OB(15)=30:GOTO45
 107 OB(15)=PL:GOTO45
 108 SC=SC-20:FORI=11TO14:IFOB(I)<>PLTHEN112ELSEPRINT:PRINT"THE KLINGON HAS BEEN REMOVED.":SC=SC+100:IFPL>32THENPRINT" BUT YOUR PHASER VAPORIZED!":OB(19)=-1:TT=TT-1
@@ -152,7 +152,7 @@
 151 IFC1$=VB$(17)ANDC2$=NN$(19)ANDOB(19)=0THEN110ELSE155
 152 CM$="":INPUT"COMMAND";CM$:CM$=CM$+"          ":FORI=1TOLEN(CM$):IFMID$(CM$,I,1)=" "THENC1$=LEFT$(CM$,3):C2$=MID$(CM$,I+1,4):I=99
 153 NEXTI:RETURN
-154 GOSUB152:IFC1$=VB$(16)ANDC2$=NN$(15)ANDOB(15)=0THENTT=TT-1:GOTO101:ELSE155
+154 GOSUB152:IFC1$=VB$(16)ANDC2$=NN$(15)ANDOB(15)=0THENTT=TT-1:GOTO101ELSE155
 155 PRINT:PRINT"TOO SLOW, CAPTAIN.  YOU HAVE BEEN        CAPTURED AND THE ENTERPRISE IS LOST!":GOTO73
 156 IFTD>0THENRETURNELSETD=TD+1+RND(0)
 157 IFTD>0THENCLS:PRINT:PRINT"TOO LATE, CAPTAIN!":GOSUB35:PRINT:PRINT"THE ENTERPRISE WILL SOON BURN UP IN      THE PLANET'S ATMOSPHERE!":GOSUB35:PRINT:PRINT"GOODBYE, CAPTAIN!":GOSUB35:PRINT:PRINT:GOTO73
@@ -171,7 +171,7 @@
 170 PRINT:PRINTYY$;"BEGIN ...";:GOTO172
 171 PRINT:PRINTYY$;"CONTINUE ...";
 172 ZZ$=INKEY$:IFZZ$=""THEN172
-173 IFZZ$<>"Y"ANDZZ$<>"N"THENBEEP:GOTO172:ELSERETURN
+173 IFZZ$<>"Y"ANDZZ$<>"N"THENBEEP:GOTO172ELSERETURN
 174 CLS:PRINT":CONGRATULATIONS, CAPTAIN !!":PRINT" YOU HAVE DEFEATED THE KLINGONS,         REPAIRED THE WARP DRIVE POWER, AND      RETURNED THE CREW SAFELY TO THE SHIP.":PRINT:PRINT:GOSUB177
 175 PRINT:PRINT"UHURU REPORTS THAT STAR FLEET COMMAND    HAS JUST SIGNALLED THAT YOU ARE TO      RETURN WITH THE ENTERPRISE FOR A WELL-  EARNED SHORE LEAVE ON TERRA SATEY,      AFTER WHICH YOU ARE TO BE PROMOTED      TO COMMODORE.":GOSUB177
 176 PRINT:PRINT:PRINT:PRINT" YOU MISSION SCORE IS";9*(SC-3*NM):GOTO75