DEFINT A-Z
COMMON SHARED P1$
DECLARE FUNCTION Rotator$ (P1$)
P1$ = "|"

'Path$ = "g:\cssoftw\projects\combi's\applic\"
Path$ = ""
LstFile$ = Path$ + "cvb-enu.Lst"
TxtFile$ = Path$ + "cvb-enu.txt"
ON ERROR GOTO Errors

CLS
CLOSE

OPEN Path$ + "DIRLIST" FOR INPUT AS #3
BmpFile$ = ""
WHILE NOT EOF(3)
  INPUT #3, ReadLine$
  BmpFile$ = BmpFile$ + ReadLine$ + " "
WEND

IF BmpFile$ = "" THEN
  PRINT "DIRLIST is EMPTY. Please RUN CHK-CVB.BAT"
  END
END IF

PRINT "Listing the ??? remarks : " + LstFile$
PRINT "Searching : ";
OPEN LstFile$ FOR OUTPUT AS #1
PRINT #1, "CVB-ENU.LST Check file.      Date: " + DATE$ + " Time: " + TIME$ + ""
PRINT #1, STRING$(50, "-")
PRINT #1, "Listing the ??? remarks."
PRINT #1, STRING$(50, "-")
OPEN TxtFile$ FOR INPUT AS #2
Lnx = CSRLIN: Xpos = POS(0)
WHILE NOT EOF(2)
   LOCATE Lnx, Xpos
   PRINT Rotator$(P1$)
   INPUT #2, ReadLine$
   IF INSTR(ReadLine$, "???") > 0 THEN
     PRINT #1, Tmp$
     PRINT #1, ReadLine$
   END IF
 '  IF INSTR(MID$(ReadLine$, 2), "@") > 0 THEN
 '    PRINT #1, "@ Found in : " + ReadLine$
 '  END IF
  Tmp$ = ReadLine$
WEND
CLOSE
PRINT "Searching succesfull and Stopped."

Keep$ = ";"
PRINT
PRINT "Listing the BMP files to : " + LstFile$
PRINT "Searching : ";
OPEN LstFile$ FOR APPEND AS #1
PRINT #1, STRING$(50, "-")
PRINT #1, "Listing the BMP files used."
PRINT #1, STRING$(50, "-")
OPEN TxtFile$ FOR INPUT AS #2
Ln = CSRLIN: Xpos = POS(0)
WHILE NOT EOF(2)
  LOCATE Ln, Xpos: PRINT Rotator$(P1$)
  INPUT #2, ReadLine$
 
  IF MID$(ReadLine$, 1, 1) = "@" AND INSTR(ReadLine$, ";") = 0 THEN
    Bmp$ = MID$(ReadLine$, 2)
    IF MID$(Bmp$, 1, 2) <> "s_" THEN
      PRINT #1, "Screen File expected after a @  : and not " + Bmp$
    END IF
  END IF
 
  IF INSTR(Keep$, Bmp$) = 0 THEN Keep$ = Keep$ + Bmp$ + ";"
  IF MID$(ReadLine$, 1, 1) = "@" AND INSTR(ReadLine$, ";") > 0 THEN
    Pos1 = 2
    WHILE Pos1 < LEN(RTRIM$(ReadLine$))
      Pos2 = INSTR(Pos1 + 1, ReadLine$, ";")
      Bmp$ = MID$(ReadLine$, Pos1 + 1, Pos2 - Pos1 - 1)
      IF MID$(Bmp$, 1, 2) <> "s_" THEN
	PRINT #1, "Screen File expected after a @  : and not " + Bmp$
      END IF
      IF INSTR(Keep$, Bmp$) = 0 THEN Keep$ = Keep$ + Bmp$ + ";"
      Pos1 = Pos2
    WEND
  END IF
  IF MID$(ReadLine$, 1, 1) = "#" THEN
    Bmp$ = MID$(ReadLine$, 2)
    IF MID$(Bmp$, 1, 2) <> "m_" THEN
      PRINT #1, "Menu File expected after a #  : and not " + Bmp$
    END IF
  END IF
WEND

Pos1 = 1
Cnt = 1
WHILE Pos1 < LEN(RTRIM$(Keep$))
  Pos2 = INSTR(Pos1 + 1, Keep$, ";")
  Bmp$ = MID$(Keep$, Pos1 + 1, Pos2 - Pos1 - 1)
  Nr$ = STR$(Cnt)
  IF INSTR(1, UCASE$(BmpFile$), UCASE$(Bmp$)) = 0 THEN
    PRINT #1, Nr$ + " : " + Bmp$ + " <-- File not Found "
  ELSE
    PRINT #1, Nr$ + " : " + Bmp$
  END IF
  Pos1 = Pos2
  Cnt = Cnt + 1
WEND
CLOSE


PRINT
PRINT "Checking for unregular Quote's. "
PRINT "Searching : ";
OPEN LstFile$ FOR APPEND AS #1
PRINT #1, STRING$(50, "-")
PRINT #1, "Checking for unregular Quote's. "
PRINT #1, STRING$(50, "-")
OPEN TxtFile$ FOR INPUT AS #2
Found = 0
Ln = CSRLIN: Xpos = POS(0)
LnNr = 0
WHILE NOT EOF(2)
	LOCATE Ln, Xpos: PRINT Rotator$(P1$)
	LnNr = LnNr + 1
	INPUT #2, ReadLine$
	IF LEN(ReadLine$) = 0 THEN LnNr = LnNr + 1
	Sep1 = 0: Sep2 = 0: Sep3 = 0
	Sep1 = INSTR(1, ReadLine$, CHR$(34))
	Sep2 = INSTR(Sep1 + 1, ReadLine$, CHR$(34))
	Sep3 = INSTR(Sep2 + 1, ReadLine$, CHR$(34))
	IF Sep1 > 1 AND Sep2 = 0 THEN
	   PRINT #1, "Line " + STR$(LnNr) + " = " + ReadLine$: Found = Found + 1
	ELSE
	   IF Sep3 > 0 THEN PRINT #1, "Line " + STR$(LnNr) + " : " + ReadLine$: Found = Found + 1
	END IF
WEND

IF Found = 0 THEN
   PRINT "No Errors Found !"
   PRINT #1, "No Errors Found !"
ELSE
  PRINT "Total Errors Found: " + STR$(Found)
  PRINT #1, "Total Errors Found: " + STR$(Found)
END IF
PRINT "Searching sucessfull and stopped."
CLOSE

PRINT
PRINT "Checking for the Menu's."
PRINT "Searching : ";
OPEN LstFile$ FOR APPEND AS #1
PRINT #1, STRING$(50, "-")
PRINT #1, "Checking for the Menu's."
PRINT #1, STRING$(50, "-")
OPEN TxtFile$ FOR INPUT AS #2
Found = 0
Ln = CSRLIN: Xpos = POS(0)
WHILE NOT EOF(2)
	LOCATE Ln, Xpos: PRINT Rotator$(P1$)
	INPUT #2, ReadLine$
	IF MID$(ReadLine$, 1, 1) = "$" THEN
	  Sep1 = 0: Sep2 = 0: Sep3 = 0
	  Sep4 = 0: Sep5 = 0: Sep6 = 0: Sep7 = 0
	  Sep1 = INSTR(1, ReadLine$, ";")
	  Sep2 = INSTR(Sep1 + 1, ReadLine$, ";")
	  Sep3 = INSTR(Sep2 + 1, ReadLine$, ";")
	  Sep4 = INSTR(Sep3 + 1, ReadLine$, ";")
	  Sep5 = INSTR(Sep4 + 1, ReadLine$, ";")
	  Sep6 = INSTR(Sep5 + 1, ReadLine$, ";")
	  Sep7 = INSTR(Sep6 + 1, ReadLine$, ";")
	  IF Sep7 = 0 THEN
		PRINT #1, ReadLine$
		Found = Found + 1
	  END IF
	END IF
WEND
IF Found = 0 THEN
   PRINT "No Errors Found !"
   PRINT #1, "No Errors Found !"
ELSE
  PRINT "Total Errors Found: " + STR$(Found)
  PRINT #1, "Total Errors Found: " + STR$(Found)
END IF
PRINT #1, " ------ End of List ------"
CLOSE

KILL "DIRLIST"

PRINT : PRINT "Searching stopped."
PRINT
PRINT "End of Program."

Errors:
IF ERR = 19 OR ERR = 53 THEN
  PRINT "DIRLIST is EMPTY. Please RUN CHK-CVB.BAT"
  END
END IF

DEFSNG A-Z
FUNCTION Rotator$ (P1$)

 SELECT CASE P1$
  CASE "|"
    Rotator$ = "\": P1$ = "\"
  CASE "\"
    Rotator$ = "-": P1$ = "-"
  CASE "-"
    Rotator$ = "/": P1$ = "/"
  CASE "/"
    Rotator$ = "|": P1$ = "|"
  END SELECT
 
  

END FUNCTION