Fix some ORs

84_Super_Star_Trek/superstartrek.bas

@@ -139,7 +139,7 @@
 3070 A$="   ":Z1=INT(S1):Z2=INT(S2):GOSUB 8670
 3110 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)):X=S1:Y=S2
 3140 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)):Q4=Q1:Q5=Q2
-3170 FOR I=1 TO N:S1=S1+X1:S2=S2+X2:IF S1<1ORS1>=9 OR S2<1 OR S2>=9 THEN 3500
+3170 FOR I=1 TO N:S1=S1+X1:S2=S2+X2:IF S1<1 OR S1>=9 OR S2<1 OR S2>=9 THEN 3500
 3240 S8=INT(S1)*24+INT(S2)*3-26:IF MID$(Q$,S8,2)="  " THEN 3360
 3320 S1=INT(S1-X1):S2=INT(S2-X2):PRINT "WARP ENGINES SHUT DOWN AT ";
 3350 PRINT "SECTOR";S1;",";S2;"DUE TO BAD NAVAGATION":GOTO 3370
@@ -211,7 +211,7 @@
 4860 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)):X=S1:Y=S2
 4910 PRINT "TORPEDO TRACK:"
 4920 X=X+X1:Y=Y+X2:X3=INT(X+.5):Y3=INT(Y+.5)
-4960 IF X3<1ORX3>8ORY3<1ORY3>8 THEN 5490
+4960 IF X3<1 OR X3>8 OR Y3<1 OR Y3>8 THEN 5490
 5000 PRINT "               ";X3;",";Y3:A$="   ":Z1=X:Z2=Y:GOSUB 8830
 5050 IF Z3<>0 THEN 4920
 5060 A$="+K+":Z1=X:Z2=Y:GOSUB 8830:IF Z3=0 THEN 5210
@@ -223,7 +223,7 @@
 5260 PRINT "STAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":GOSUB 6000:GOTO 1990
 5280 A$=">!<":Z1=X:Z2=Y:GOSUB 8830:IF Z3=0 THEN 4760
 5330 PRINT "*** STARBASE DESTROYED ***":B3=B3-1:B9=B9-1
-5360 IF B9>0ORK9>T-T0-T9 THEN 5400
+5360 IF B9>0 OR K9>T-T0-T9 THEN 5400
 5370 PRINT "THAT DOES IT, CAPTAIN!!  YOU ARE HEREBY RELIEVED OF COMMAND"
 5380 PRINT "AND SENTENCED TO 99 STARDATES AT HARD LABOR ON CYGNUS 12!!"
 5390 GOTO 6270
@@ -235,7 +235,7 @@
 5520 REM SHIELD CONTROL
 5530 IF D(7)<0 THEN PRINT "SHIELD CONTROL INOPERABLE":GOTO 1990
 5560 PRINT "ENERGY AVAILABLE =";E+S;:INPUT"NUMBER OF UNITS TO SHIELDS";X
-5580 IF X<0ORS=X THEN PRINT "<SHIELDS UNCHANGED>":GOTO 1990
+5580 IF X<0 OR S=X THEN PRINT "<SHIELDS UNCHANGED>":GOTO 1990
 5590 IF X<=E+S THEN 5630
 5600 PRINT "SHIELD CONTROL REPORTS  'THIS IS NOT THE FEDERATION TREASURY.'"
 5610 PRINT "<SHIELDS UNCHANGED>":GOTO 1990
@@ -265,7 +265,7 @@
 6080 PRINT H;"UNIT HIT ON ENTERPRISE FROM SECTOR";K(I,1);",";K(I,2)
 6090 IF S<=0 THEN 6240
 6100 PRINT "      <SHIELDS DOWN TO";S;"UNITS>":IF H<20 THEN 6200
-6120 IF RND(1)>.6ORH/S<=.02 THEN 6200
+6120 IF RND(1)>.6 OR H/S<=.02 THEN 6200
 6140 R1=FNR(1):D(R1)=D(R1)-H/S-.5*RND(1):GOSUB 8790
 6170 PRINT "DAMAGE CONTROL REPORTS ";G2$;" DAMAGED BY THE HIT'"
 6200 NEXT I:RETURN
@@ -285,7 +285,7 @@
 6400 PRINT "YOUR EFFICIENCY RATING IS";1000*(K7/(T-T0))^2:GOTO 6290
 6420 REM SHORT RANGE SENSOR SCAN & STARTUP SUBROUTINE
 6430 FOR I=S1-1TOS1+1:FOR J=S2-1 TO S2+1
-6450 IF INT(I+.5)<1ORINT(I+.5)>8ORINT(J+.5)<1ORINT(J+.5)>8 THEN 6540
+6450 IF INT(I+.5)<1 OR INT(I+.5)>8 OR INT(J+.5)<1 OR INT(J+.5)>8 THEN 6540
 6490 A$=">!<":Z1=I:Z2=J:GOSUB 8830:IF Z3=1 THEN 6580
 6540 NEXT J:NEXT I:D0=0:GOTO 6650
 6580 D0=1:C$="DOCKED":E=E0:P=P0