You are quite right Hannes, I'm sorry I sent wrong script! This is the one which was playing up (any other ideas?) Thanks very much, John.
Procedure CustTool;VAR Name:STRING;Result:BOOLEAN;BEGIN PushAttrs;ClearCavities;PenSize(7);PenPat(2);AddCavity(TRUE, 5.3937008", 1.4566929", 35);PenSize(7);PenPat(2);AddCavity(TRUE, -5.3937008", -1.4566929", 35);DoubLines(0");PenSize(7);PenPat(2);SetZVals(0", 0");FillFore(255);FillBack(0);FillPat(1);PenFore(255);PenBack(0);PenPat(2);PenSize(7);PenPat(2);Marker(0, 0.125000, 15);
NameClass('Walls');CallTool(-208);PopAttrs;END;Run(CustTool);