Contact: aviboots(AT)netvision.net.il
43,909 questions
57,306 answers
573 users
program CurrentExecutable; uses SysUtils; var s: String; begin s := ExtractFileName(ParamStr(0)); Writeln(s); end. (* run: main *)