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