PROCEDURE ListLayers; {© Petri Sakkinen 1994}
{ this writes layer names & scales into a text file., another version
writes object counts }
VAR
LScale, LCount, counter : INTEGER;
LName, outputfile : STRING;
thislayer : HANDLE;
BEGIN
        outputfile:=Concat(GetFName,'.LAYERS');
        counter:=0;
        LCount:=NUMLAYERS;
        thislayer:=FLAYER;
        REWRITE(outputfile);
        WRITE('No');
        TAB(1);
        WRITE('Layer');
        TAB(1);
        WRITELN('Scale');
        REPEAT
                LName:=GETLNAME(thislayer);
                 LScale:=GETLSCALE(thislayer);
                WRITE(counter);
                TAB(1);
                WRITE(LName);
                TAB(1);
                WRITELN(' 1/', LScale);
                counter:=counter+1;
                IF thislayer <> NIL THEN thislayer:=NEXTLAYER(thislayer);
        UNTIL (counter=LCount);
        CLOSE(outputfile);
END;
RUN(ListLayers);