SUBROUTINE WALK.PP.SUB(FileName,Level)
     COMMON /WALKPP/ Skip,VocFile,Line,Continued
     First = FIELD(TRIM(FileName)," ",1)
     IF NOT(First MATCH Skip) THEN
        Error = ""
        READ Record FROM VocFile,First THEN
           IF Record<1>[1,1] EQ "R" THEN
              File = ""
              Error = ""
              CALL OPEN("", Record<2>, File, Error)
              IF NOT(Error) THEN
                 READ Test FROM File, Record<3> ELSE
                    Error = "Not in ":Record<2>:" as ":Record<3>:"."
                 END
                 Record = Test
              END
           END
           BEGIN CASE
                        CASE Record<1>[1,2] EQ "PA"
                 Error = ""
              CASE 1
                 Error = " "
           END CASE
        END ELSE
           IF NOT(Continued) THEN
              Error = "Not found in VOC file."
           END ELSE
              Error = " "
           END
        END
        IF Error THEN
           Line += 1
           PRINT FMT(Line,"'0'R#4"):" ":FMT(Level,"L#15"):" ":FMT(TRIM(FileName),"L#80"):" ":Error
           RETURN
        END
     END ELSE
        RETURN
     END
     More = LEN(Record)
     LOOP WHILE More DO
        Try = Record<1>
        DEL Record<1>
        More = LEN(Record)
        CALL WALK.PP.SUB(Try,First)
        Continued = Try[1] EQ "_"
     REPEAT
     RETURN
  END