Current File : //usr/share/texlive/texmf-dist/metafont/misc/modename.mf

% Usage: mf '\mode=what_ever_mode; \input modename'

let myexit = primitive_end_;
mode_setup;
message "MODENAME = " & mode_name[mode];
fontmaking := 0;
myexit;