PROGRAM WALK.PP.BASE
     COMMON /WALKPP/ Skip,VocFile,Line,Continued
     FileName = FIELD(TRIM(@COMMAND),' ',2)
     IF FileName EQ "" THEN
        STOP "Usage: WALK.PP <PP name>"
     END
     FileName = OCONV(FileName,"MCU")
     Level = FileName
     Line = 0
     Skip = "*,PRT,CRT,PA,DATA,TIME,BREAK,SETPTR,DISPLAY"
     CONVERT "," TO @VM IN Skip
     OPEN '','VOC' TO VocFile ELSE STOP "Unable to open VOC file."
     HDG = "Nested Paragraph Structure of: ":FileName:" procedure."
     HDG := "'L'Line Resource....... Text":STR(".",76):" Error..."
     HDG := "'L'"
     EXECUTE "SETPTR ,,,,,,BRIEF,BANNER ":FileName
     PRINTER ON
     HEADING HDG

     CALL WALK.PP.SUB(FileName,FileName)
     PRINT "WALK.PP complete."
     PRINTER OFF
     PRINTER CLOSE
     STOP "WALK.PP complete."
  END