trek fixes

Author: omiq

examples/trek.bas

@@ -35,7 +35,7 @@
 310 C(3,1)=-1 : C(2,1)=-1 : C(4,1)=-1 : C(4,2)=-1 : C(5,2)=-1 : C(6,2)=-1
 320 C(1,2)=1 : C(2,2)=1 : C(6,1)=1 : C(7,1)=1 : C(8,1)=1 : C(8,2)=1 : C(9,2)=1
 330 FORI=1TO8 : D(I)=0 : NEXTI
-340 A1$="NAVSRSLRSPHATORSHEDAMCOMXXXHLP"
+340 A1$="NAVSRSLRSPHATOR SHEDAMCOMXXXHLP"
 350 REM SETUP WHAT EXISTS IN GALAXY . . .
 360 REM K3= # KLINGONS  B3= # STARBASES  S3 = # STARS
 370 FORI=1TO8 : PRINT "."; : FORJ=1TO8 : K3=0 : Z(I,J)=0 : R1=RND(1)
@@ -111,12 +111,12 @@
 1000 GOSUB 6290 : REM ** DIRECTION HELPER **
 1010 PRINT : LX=5 : PRINT "COURSE (1-9) :  "; : GOSUB 5860
 1020 C1=VAL(LII$) : IFC1=9THENC1=1
-1030 IFC1>=1ANDC1<9THEN GOTO 1060
+1030 IFC1>=1 AND C1<9THEN GOTO 1060
 1040 PRINT : PRINT "LT. SULU REPORTS, INCORRECT COURSE"
 1050 PRINT "DATA, SIR!" : GOTO800
 1060 X$="8" : IFD(1)<0THENX$="0.2"
 1070 SRSFLAG=1 : LX=5 : PRINT "WARP FACTOR (0-";X$;") :  "; : GOSUB 5860
-1080 W1=VAL(LII$) : IFD(1)<0ANDW1>.2THEN GOTO 1130
+1080 W1=VAL(LII$) : IFD(1)<0 AND W1>.2THEN GOTO 1130
 1090 IF W1>0 AND W1<=8 THEN GOTO 1150
 1100 IF W1=0 THEN GOTO 800
 1110 PRINT : PRINT "CHIEF ENGINEER SCOTT REPORTS THE"
@@ -132,10 +132,10 @@
 1210 PRINT "SHIELD ENERGY DEPLOYED IS";S1$;" UNITS."
 1220 GOTO 800
 1230 REM KLINGONS MOVE/FIRE ON MOVING STARSHIP . . .
-1240 FORI=1TOK3 : IFK(I,3)=0THEN GOTO 1270
+1240 FORI=1 TO K3 : IFK(I,3)=0THEN GOTO 1270
 1250 A$="   " : Z1=K(I,1) : Z2=K(I,2) : GOSUB 5400 : GOSUB 5370
 1260 K(I,1)=Z1 : K(I,2)=Z2 : A$=ECOL$+"K"+FCOL$ : GOSUB 5400
-1270 NEXTI : GOSUB 3210 : D1=0 : D6=W1 : IFW1>=1THEND6=1
+1270 NEXTI : GOSUB 3210 : D1=0 : D6=W1 : IF W1>=1 THEN D6=1
 1280 FORI=1TO8 : IFD(I)>=0THEN GOTO 1330
 1290 D(I)=D(I)+D6 : IFD(I)>-.1ANDD(I)<0THEND(I)=-.1 : GOTO1330
 1300 IFD(I)<0THEN GOTO 1330
@@ -152,7 +152,7 @@
 1410 A$="   " : Z1=INT(S1) : Z2=INT(S2) : GOSUB 5400
 1420 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)) : X=S1 : Y=S2
 1430 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)) : Q4=Q1 : Q5=Q2
-1440 FORI=1TON : S1=S1+X1 : S2=S2+X2 : IFS1<1ORS1>=9ORS2<1ORS2>=9THEN GOTO 1580
+1440 FORI=1 TO N : S1=S1+X1 : S2=S2+X2 : IFS1<1 OR S1>=9OR S2<1 OR S2>=9THEN GOTO 1580
 1450 S8=INT(S1)*24+INT(S2)*3-26 : IFMID$(Q$,S8,2)="  "THEN GOTO 1510
 1460 S1=INT(S1-X1) : S2=INT(S2-X2) : PRINT : PRINT "WARP ENGINES SHUT DOWN AT ";
 1470 PRINT "SECTOR";S1;",";S2
@@ -194,7 +194,7 @@
 1830 RETURN
 1840 REM LONG RANGE SCAN CODE
 1850 K1=0
-1860 IFD(3)<0THENPRINT : PRINT "LONG RANGE SENSORS ARE INOPERABLE"
+1860 IFD(3)<0THENPRINT : PRINT "LONG RANGE SENSOR S ARE INOPERABLE"
 1865 IFD(3)<0THEN SLSFLAG=0 : GOTO800
 1870 PRINT : PRINT "LONG RANGE SCAN FOR QUADRANT";Q1;",";Q2
 1880 PRINT : O1$=" +-----+-----+-----+" : PRINT O1$;
@@ -225,7 +225,7 @@
 2100 REM PHASER CONTROL CODE BEGINS HERE
 2110 IFD(4)<0THEN PRINT : PRINT "PHASERS INOPERATIVE" : GOTO 800
 2120 IFK3>0THEN GOTO 2150
-2130 PRINT : PRINT "SCIENCE OFFICER SPOCK REPORTS SENSORS"
+2130 PRINT : PRINT "SCIENCE OFFICER SPOCK REPORTS SENSOR S"
 2140 PRINT "SHOW NO ENEMY SHIPS IN THIS QUADRANT" : GOTO 800
 2150 IFD(8)<0THENPRINT : PRINT "COMPUTER FAILURE HAMPERS ACCURACY"
 2160 PRINT : PRINT "PHASERS LOCKED ON TARGET!  "
@@ -236,13 +236,13 @@
 2210 E=E-X : IFD(7)<0THENX=X*RND(1)
 2220 H1=INT(X/K3) : FORI=1TO3 : IFK(I,3)<=0THEN GOTO 2340
 2230 H=INT((H1/FND(0))*(RND(1)+2)) : IFH>.15*K(I,3)THEN GOTO 2270
-2240 PRINT : PRINT " SENSORS SHOW NO DAMAGE TO ENEMY"
+2240 PRINT : PRINT " SENSOR S SHOW NO DAMAGE TO ENEMY"
 2250 PRINT " AT ";K(I,1);",";K(I,2)
 2260 GOTO 2340
 2270 K(I,3)=K(I,3)-H : PRINT
 2280 PRINT H;"UNIT HIT KLINGON AT";K(I,1);",";K(I,2)
 2290 IFK(I,3)<=0THENPRINT " *** KLINGON DESTROYED ***" : GOTO 2320
-2300 PRINT " (SENSORS SHOW";INT(K(I,3));"UNITS REMAINING)"
+2300 PRINT " (SENSOR S SHOW";INT(K(I,3));"UNITS REMAINING)"
 2310 GOTO 2340
 2320 K3=K3-1 : K9=K9-1 : Z1=K(I,1) : Z2=K(I,2) : A$="   " : GOSUB 5400
 2330 K(I,3)=0 : G(Q1,Q2)=G(Q1,Q2)-100 : Z(Q1,Q2)=G(Q1,Q2) : IFK9<=0THEN GOTO 3510
@@ -255,15 +255,15 @@
 2400 GOSUB 6290 : REM ** DIRECTION HELPER **
 2410 PRINT : LX=5 : PRINT "PHOTON TORPEDO COURSE (1-9) :  "; : GOSUB 5860
 2420 C1=VAL(LII$) : IFC1=9THENC1=1
-2430 IFC1>=1ANDC1<9THEN GOTO 2470
+2430 IFC1>=1 AND C1<9 THEN GOTO 2470
 2440 PRINT : PRINT "ENSIGN CHEKOV REPORTS, INCORRECT"
 2450 PRINT "COURSE DATA, SIR!"
 2460 GOTO 800
 2470 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)) : E=E-2 : P=P-1
 2480 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)) : X=S1 : Y=S2
 2490 PRINT : PRINT "TORPEDO TRACKING:"
 2500 X=X+X1 : Y=Y+X2 : X3=INT(X+.5) : Y3=INT(Y+.5)
-2510 IFX3<1ORX3>8ORY3<1ORY3>8THEN GOTO 2780
+2510 IFX3<1 ORX3>8ORY3<1 ORY3>8THEN GOTO 2780
 2520 PRINT " ";X3;",";Y3 : A$="   " : Z1=X : Z2=Y : GOSUB 5560
 2530 IFZ3<>0THEN GOTO 2500
 2540 A$=ECOL$+"K"+FCOL$ : Z1=X : Z2=Y : GOSUB 5560 : IFZ3=0THEN GOTO 2610
@@ -298,7 +298,7 @@
 2830 PRINT : PRINT "ENERGY AVAILABLE =";E+S
 2840 LX=5 : PRINT "NUMBER OF UNITS TO SHIELDS :  "; : GOSUB 5860
 2850 X=VAL(LII$)
-2860 IFX<0ORS=XTHEN PRINT "<SHIELDS UNCHANGED>" : GOTO 800
+2860 IFX<0OR S=XTHEN PRINT "<SHIELDS UNCHANGED>" : GOTO 800
 2870 IFX<=E+STHEN GOTO 2910
 2880 PRINT : PRINT "SHIELD CONTROL REPORTS THIS IS NOT THE"
 2890 PRINT "FEDERATION TREASURY."
@@ -384,7 +384,7 @@
 3690 IFK3>0THENC$=CCOL$+CHR$(18)+"*RED*"+CHR$(146)+FCOL$ : GOTO 3710
 3700 C$=FCOL$+"GREEN"+FCOL$ : IFE<E0*.1THENC$=ICOL$+"AMBER"+FCOL$
 3710 IFD(2)>=0THEN GOTO 3730
-3720 PRINT : PRINT "*** SHORT RANGE SENSORS ARE OUT ***"
+3720 PRINT : PRINT "*** SHORT RANGE SENSOR S ARE OUT ***"
 3722 IF SLSFLAG=1 THEN GOTO 1840
 3725 RETURN
 3730 IF K3=0 THEN GOTO 3770
@@ -546,7 +546,7 @@
 5310 IFH8=1THEN GOTO 800
 5320 NEXTI : GOTO 800
 5330 IFB3<>0THEN PRINT : PRINT "FROM ENTERPRISE TO STARBASE" : W1=B4 : X=B5 : GOTO 4870
-5340 PRINT : PRINT "MR. SPOCK REPORTS, SENSORS SHOW NO"
+5340 PRINT : PRINT "MR. SPOCK REPORTS, SENSOR S SHOW NO"
 5350 PRINT "STARBASES IN THIS QUADRANT." : GOTO 800
 5360 REM FIND EMPTY PLACE IN QUADRANT (FOR THINGS)
 5370 A$="   "
@@ -562,8 +562,8 @@
 5450 REM PRINTS DEVICE NAME
 5460 ON R1 GOTO 5470,5480,5490,5500,5510,5520,5530,5540
 5470 G2$="WARP ENGINES" : RETURN
-5480 G2$="SHORT RANGE SENSORS" : RETURN
-5490 G2$="LONG RANGE SENSORS" : RETURN
+5480 G2$="SHORT RANGE SENSOR S" : RETURN
+5490 G2$="LONG RANGE SENSOR S" : RETURN
 5500 G2$="PHASER CONTROL" : RETURN
 5510 G2$="PHOTON TUBES" : RETURN
 5520 G2$="DAMAGE CONTROL" : RETURN
@@ -663,15 +663,15 @@
 6440 IF J=4 OR J=8 THEN PRINT "IV ";
 6450 PRINT CHR$(146);" "; : RETURN
 6500 REM ** COLOURS FOR IN-GAME **
-6510 ACOL$=CHR$(144) : REM 144 = (00) BLACK
-6520 BCOL$=CHR$(005) : REM 005 = (01) WHITE
-6530 CCOL$=CHR$(028) : REM 028 = (02) RED
-6540 DCOL$=CHR$(159) : REM 159 = (03) CYAN
-6550 ECOL$=CHR$(156) : REM 156 = (04) VIOLET
-6560 FCOL$=CHR$(030) : REM 030 = (05) GREEN
-6570 GCOL$=CHR$(031) : REM 031 = (06) BLUE
-6580 HCOL$=CHR$(158) : REM 158 = (07) YELLOW
-6590 ICOL$=CHR$(129) : REM 129 = (08) ORANGE
+6510 ACOL$="": REM CHR$(144) : REM 144 = (00) BLACK
+6520 BCOL$="": REM CHR$(005) : REM 005 = (01) WHITE
+6530 CCOL$="": REM CHR$(028) : REM 028 = (02) RED
+6540 DCOL$="": REM CHR$(159) : REM 159 = (03) CYAN
+6550 ECOL$="": REM CHR$(156) : REM 156 = (04) VIOLET
+6560 FCOL$="": REM CHR$(030) : REM 030 = (05) GREEN
+6570 GCOL$="": REM CHR$(031) : REM 031 = (06) BLUE
+6580 HCOL$="": REM CHR$(158) : REM 158 = (07) YELLOW
+6590 ICOL$="": REM CHR$(129) : REM 129 = (08) ORANGE
 6650 REM ** COLOURS FOR INITIALISATION **
-6690 POKE 53280,0 : POKE 53281,0 : POKE 646,5 : RETURN
+6690 REM POKE 53280,0 : POKE 53281,0 : POKE 646,5 : RETURN
 6695 RETURN