RosettaCodeData/Task/Program-name/PureBasic/program-name.basic

If OpenConsole()
  PrintN(ProgramFilename())

  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
  CloseConsole()
EndIf