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