REM MAKEIN make index.htm for SLS email library REM reads INDEX file written by SCAN.BAS program REM and adds HTML code INPUT "input filename: ";M$ OPEN M$ FOR INPUT AS #1 INPUT "output filename: ";N$ OPEN N$ FOR OUTPUT AS #2 REM save " sign Q$ = CHR$(34) DO WHILE NOT EOF(1) LINE INPUT #1, L$ REM pull record components REM (see SCAN.BAS for record layout) F$ = MID$(L$,1,19) T$ = MID$(L$,27,24) S$ = MID$(L$,52) REM assemble HTML code O$ = "
  • " + S$ + "
    " + T$ + "

    " REM write HTML code PRINT #2, O$ LOOP CLOSE STOP END