fix HLP

Author: omiq

examples/trek.bas

@@ -36,23 +36,23 @@
 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$="NAVSRSLRSPHATOR SHEDAMCOMXXXHLP"
+340 A1$="NAVSRSLRSPHATORSHEDAMCOMXXXHLP"
 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)
 380 IFR1>.98THENK3=3 : K9=K9+3 : GOTO410
 390 IFR1>.95THENK3=2 : K9=K9+2 : GOTO410
 400 IFR1>.80THENK3=1 : K9=K9+1
 410 B3=0 : IFRND(1)>.96THENB3=1 : B9=B9+1
-420 G(I,J)=K3*100+B3*10+FNR(1) : NEXTJ : NEXTI : IFK9>T9THENT9=K9+1
+420 G(I,J)=K3*100+B3*10+FNR(1) : NEXTJ : NEXTI : IFK9>T9 THEN T9=K9+1
 430 PRINT
 440 GOSUB 6080 : REM ** KEY TO SRS ICONS **
-450 REM GOSUB 6150 : REM ** USE THESE COMMANDS LIST **
+450 GOSUB 6150 : REM ** USE THESE COMMANDS LIST **
 460 PRINT : GOSUB 6020 : REM ** PAUSE **
-470 IFB9<>0THEN GOTO 500
-480 IFG(Q1,Q2)<200THENG(Q1,Q2)=G(Q1,Q2)+120 : K9=K9+1
+470 IF B9<>0 THEN GOTO 500
+480 IF G(Q1,Q2)<200 THEN G(Q1,Q2)=G(Q1,Q2)+120 : K9=K9+1
 490 B9=1 : G(Q1,Q2)=G(Q1,Q2)+10 : Q1=FNR(1) : Q2=FNR(1)
-500 K7=K9 : IFB9<>1THENX$="S" : X0$=" ARE "
+500 K7=K9 : IF B9<>1 THEN X$="S" : X0$=" ARE "
 510 PRINT : PRINT "YOUR ORDERS ARE AS FOLLOWS:" : PRINT
 520 PRINT "DESTROY THE";K9;"KLINGON WARSHIPS BEFORE"
 530 PRINT "STARDATE";T0+T9;". THIS GIVES YOU";T9;"DAYS."
@@ -103,8 +103,8 @@
 930 GOTO 890
 940 COMFLAG=0 : IF A$="GAL" AND D(8)>=0 THEN A$="COM" : COMFLAG=1
 945 IF D(8)<0 AND A$="GAL" THEN PRINT : PRINT "SHIPS COMPUTER DISABLED" : GOTO 890
-950 FORI=1TO10 : IFLEFT$(A$,3)<>MID$(A1$,3*I-2,3)THEN GOTO 970
-960 ON I GOTO 1000,790,1850,2110,2380,2820,2950,4140,3420,6150
+950 FOR I=1 TO 10 : IF LEFT$(A$,3)<>MID$(A1$,3*I-2,3) THEN GOTO 970
+960 ON I GOTO 1000,790,1850,2110,2380,2820,2950,4140,3420
 970 NEXTI : GOSUB 6150
 980 GOTO 800
 990 REM COURSE CONTROL BEGINS HERE