'FList v1.0 clear PCBoard @@ color codes
'By Brian Froehling
'Sept 8, 1990
'all rights reserved.  (C)1990 by Froehling's Enterprises
DIM fileareaname$(100)
COLOR 10, 1
LOCATE 1, 1: PRINT "FList v1.0 Clear PCBoard's @@ colors by:  Brian Froehling                             "; ""
VIEW PRINT 2 TO 25


REM ****  Reads in FLIST.CFG lines as x (1-highnum)
 OPEN "flist.cfg" FOR INPUT AS #1

 DO UNTIL EOF(1)
    LET q = q + 1
    LINE INPUT #1, fileareaname$(q)
 LOOP
 LET fileareaname$(q) = "DIR"
 CLOSE #1


DO UNTIL y = q
  LET y = y + 1
  'opens up the first-last file areas
  OPEN fileareaname$(y) FOR INPUT AS #2
  COLOR 12, 0, 0
  CLS
  LOCATE 2, 1
  PRINT "Processing "; fileareaname$(y); " line:  "
  LET length = LEN("Processing " + fileareaname$(y) + " line:  ")
  OPEN "xholding" FOR OUTPUT AS #3
    DO UNTIL EOF(2)
     LINE INPUT #2, line$
     LET linenum = linenum + 1: LOCATE 2, length: PRINT linenum
        DO UNTIL INSTR(line$, "@X") = 0
         LET where = INSTR(line$, "@X") - 1
         LET line$ = LEFT$(line$, where) + MID$(line$, where + 5)
        LOOP
       PRINT #3, line$
   LOOP

    CLOSE #2
    CLOSE #3
    SHELL "del " + fileareaname$(y)
    SHELL "rename xholding " + fileareaname$(y)
    LET linenum = 0
LOOP