PROCEDURE ListClasses;  {© Petri Sakkinen 1994 }
VAR
counter, countClasses : INTEGER;
outputfile : STRING;
BEGIN
        outputfile:=CONCAT(GetFName,'.CLASSES');
        countClasses:=CLASSNUM;
        IF (countClasses>2) THEN BEGIN
        counter:=1;
        REWRITE(outputfile);
        REPEAT
                WRITELN(CLASSLIST(counter));
                counter:=counter+1;
        UNTIL (counter=countClasses);
        CLOSE(outputfile);
END;
END;
RUN(ListClasses);