' SAVE"NLWD.BAS",A        'mod copy of original
  '

  CLS
  ' Start output file as not there...
  OPEN "LWDndx.TXT" FOR APPEND AS #3
  CLOSE #3
  KILL "LWDndx.TXT"
  DIM SJ$(10)
  OPEN "LWDSORT.TXT" FOR INPUT AS #1
   OPEN "sj.htm" FOR INPUT AS #2            'copy of subject-index.html(original)
   OPEN "LWDndx.TXT" FOR OUTPUT AS #3
  '
   FOR SJI = 1 TO 297
    LINE INPUT #2, S$: PRINT #3, S$         'copy to first useful entry
   NEXT SJI
   QT$ = CHR$(32): TRUE = (1 = 1)
   '       3 cases:
   ' case 3: IKW$ > SJ$  read SJ record at startup until case 1 or case 2; copy SJ records only
   ' case 2: IKW$ = SJ$  write IKW record, then write SJ record
   ' case 1: IKW$ < SJ$  write IKW records only
   ' Typical SJ records  (SJ for SubJect index)
   '    &nbsp; &nbsp;
   '    &nbsp; &nbsp;active
   '    &nbsp; &nbsp;<a href="index.html?find=active">Index</a>
   '    &nbsp; &nbsp;<a href="vendor-profile.html?find=active">Vendor Profile</a>
   '<br></h3>                     '*SJ read needs to skip over this stuff
   '                              '*
   '<h2 id="B:"><B>B:</B></h2>    '*
   '<h3>                          '*
   '    &nbsp; &nbsp;
   '    &nbsp; &nbsp;added
   '    &nbsp; &nbsp;<a href="technical-aspects.html?find=added">Technical Aspects</a>
   '<br>
   '** Note end of SJ records:
   '<br></h3>
   '              <!--
   '**
  '
   FOR LWD = 1 TO 164      'LWD keyword file size
    GOSUB READIKW       'get new keyword for insert and make IKW record
    GOSUB READSJ        'Now read SJ record array
   'Assume IKW$>SJKW$ so CASE3  'do not try other conditions

    SELECT CASE TRUE
    CASE (IKW$ > SJKW$)
      STARTSJ = 1: GOSUB COPYSJ
      GOSUB READSJ      'may have new IKW$,SJKW$ relationship
    CASE (IKW$ = SJKW$)
      GOSUB COPYIKW     'no <br>.. so can append SJ record array
      STARTSJ = 3: GOSUB COPYSJ 'sj(3..end)
    CASE (IKW$ < SJKW$)
      GOSUB COPYIKW: PRINT #3, "<br>"
    END SELECT
   NEXT LWD
   PRINT "AFTER NEXT LWD, LWD="; LWD
   CLOSE      'zone is last SJ; 4451 lines
   SYSTEM

   END          'should never get here

READIKW:         'Read new IKW keyword, make IKW record
         'PRINT #3, "READIKW"
    LINE INPUT #1, IKW$    'get new keyword for insert and make IKW record
    IKW1$ = "    &nbsp; &nbsp;"
    IKW2$ = "    &nbsp; &nbsp;" + IKW$
    IKW3$ = "    &nbsp; &nbsp;<a href=" + QT$ + "Drilling-Services-Technology.html?find=" + IKW$ + QT$
    IKW3$ = IKW3$ + ">Drilling Services Technology download</a>"
    '   IKW4$ = "<br>"  done elsewhere
RETURN

COPYIKW:         'Copy IKW record
          PRINT #3, "COPYIKW"
    PRINT #3, IKW1$: PRINT #3, IKW2$: PRINT #3, IKW3$
RETURN

READSJ:         'Read new SJ record array
          PRINT #3, "READSJ"
    FOR SJ = STARTSJ TO 10
     LINE INPUT #2, SJ$(SJ): IF INSTR(SJ$(SJ), "<!--") THEN GOSUB ENDIKW 'at end SJ records, to copy balance of file
     IF SJ = 2 THEN SJKW$ = MID$(SJ$(SJ), 18)   'SJ keyword
     IF MID$(SJ$(SJ), 1, 4) = "<br>" THEN EXIT FOR
    NEXT SJ             'have full SJ record array, but move read pointer if alfa change
         'PRINT #3, "END FOR SJ:"; SJ; "SJ$(SJ)="; SJ$(SJ); "IKW$="; IKW$, "SJKW$="; SJKW$; " LWD = "; LWD
    IF SJ$(SJ) = "<br></h3>" THEN FOR NUCHR = 1 TO 3: LINE INPUT #2, SJ$: NEXT NUCHR     'skip to next alfa character
RETURN

COPYSJ:         'Copy SJ record array
          PRINT #3, "COPYSJ"
    FOR SJ = 1 TO 10
     PRINT #3, SJ$(SJ): IF SJ = 2 THEN SJKW$ = MID$(SJ$(SJ), 18)   'SJ keyword
     IF MID$(SJ$(SJ), 1, 4) = "<br>" THEN EXIT FOR
    NEXT SJ             'have full SJ record array, but move read pointer if alfa change
         'PRINT #3, "END FOR SJ:"; SJ; "SJ$(SJ)="; SJ$(SJ); "IKW$="; IKW$, "SJKW$="; SJKW$; " LWD = "; LWD
    IF SJ$(SJ) = "<br></h3>" THEN FOR NUCHR = 1 TO 3: LINE INPUT #2, SJ$: NEXT NUCHR     'skip to next alfa character
RETURN

ENDIKW:
          PRINT #3, "ENDIKW"
    EJ$ = "": WHILE EJ$ <> "</html>": LINE INPUT #2, EJ$: PRINT #3, EJ$: WEND        'copy balance of file
    CLOSE
    SYSTEM
RETURN