1C-Enterprise

// Hello World in 1C:Enterprise built-in script language



Message("Hello, World!");

ABAP4

REPORT ZHB00001.

*Hello world in ABAP/4 *

WRITE: 'Hello world'.

Actionscript-Flash5

// Hello World in Actionscript (up to Flash 5, IDE only)



trace ("Hello World");

ActionScript-Flash8

// Hello World in ActionScript 2.0 (Flash 8)

class HelloWorld

{

    private var helloWorldField:TextField;

 

    public function HelloWorld( mc:MovieClip )

    {

        mc.helloWorldField = mc.createTextField("helloWorldField", mc.getNextHighestDepth(), 0, 0, 100, 100);

        mc.helloWorldField.autoSize = "left";

        mc.helloWorldField.htmlText = 'Hello World!';

    }

}



// on a frame

import HelloWorld;

var hw:HelloWorld = new HelloWorld( this );

Actionscript-FlashMX

// Hello World in Actionscript (Flash MX onwards) 



_root.createTextField("mytext",1,100,100,300,100);

mytext.multiline = true;

mytext.wordWrap = true;

mytext.border = false;



myformat = new TextFormat();

myformat.color = 0xff0000;

myformat.bullet = false;

myformat.underline = true;



mytext.text = "Hello World!";

mytext.setTextFormat(myformat);

Ada

-- Hello World in Ada



with Text_IO;

procedure Hello_World is



begin

  Text_IO.Put_Line("Hello World!");

end Hello_World;

Algol-60

'BEGIN'

   'COMMENT' Hello World in Algol 60;

    OUTPUT(4,'(''('Hello World!')',/')')

'END'

Algol-68

( # Hello World in Algol 68 # print(("Hello World!",newline)))

Amiga-E

-> Hello World in Amiga-E



PROC main() IS WriteF('Hello World\n')

APL

Hello World for APL. "[]" and "<-" are a single character in APL.

Comment character is Alt-comma.



[]<-'Hello World!'

AppleScript

-- "Hello World" in AppleScript:



display dialog "Hello World"

Argh!

Hello World in Argh!. No comment character exists.



j       World!

lpppppppPPPPPPq

 Hello, 

ASP-JavaScript

Hello World for Microsoft ASP (in JavaScript)





<%@ language="javascript" %>



<%

Response.Write('Hello World!');

%>

ASP-VBE

ASP-VBS

Hello World for Microsoft ASP (in VBScript)



<%@ language="vbscript" %>



<%

Response.write "Hello World!"

%>

Assembler-6502-AppleII

**********************************

*                                *

*      HELLO WORLD FOR 6502      *

*    APPLE ][, MERLIN ASSEMBLER  *

*                                *

**********************************



STROUT 	EQU	$DB3A ;OUTPUTS AY-POINTED NULL TERMINATED STRING

	LDY	#>HELLO

	LDA	#
	JMP	STROUT



HELLO	ASC	"HELLO WORLD!",00

Assembler-6502-C64

; Hello World for 6502 Assembler (C64)



ldy #0

beq in

loop:

jsr $ffd2

iny

in:

lda hello,y

bne loop

rts

hello: .tx "Hello World!"

       .by 13,10,0

Assembler-68000-Amiga

; Hello World in 68000 Assembler for dos.library (Amiga)



        move.l  #DOS

        move.l  4.w,a6

        jsr     -$0198(a6)      ;OldOpenLibrary

        move.l  d0,a6

        beq.s   .Out

        move.l  #HelloWorld,d1



A)      moveq   #13,d2

        jsr     -$03AE(a6)      ;WriteChars



B)      jsr     -$03B4          ;PutStr



        move.l  a6,a1

        move.l  4.w,a6

        jsr     -$019E(a6)      ;CloseLibrary

.Out    rts



DOS          dc.b    'dos.library',0

HelloWorld   dc.b    'Hello World!',$A,0

Assembler-68000-AtariST

; Hello World in 68000 Assembler (Atari ST)



     move.l #helloworld,-(A7)

     move   #9,-(A7)

     trap   #1

     addq.l #6,A7

     move   #0,-(A7)

     trap   #1

helloworld:

     dc.b "Hello World!",$0d,$0a,0

Assembler-68008

; Hello World in 68008 Assembler (Sinclar QL)



     move.l #0,a0

     lea.l  mess,a1

     move.w $d0,a2

     jsr    (a2)

     rts

mess dc.w   12

     dc.b   'Hello World!',10

     end

Assembler-DG-Nova

                        .TITL HELLO

02                      ; "HELLO, WORLD" FOR NOVA RUNNING RDOS

03                      ; USES PCHAR SYSTEM CALL

04                      .NREL

05                      .ENT START

06

07              START:

08 00000'022424 DOCHAR: LDA 0,@PMSG     ; LOAD AC0 WITH NEXT CHARACTER,

09 00001'101015         MOV# 0,0,SNR    ; TEST AC0;

10 00002'000412          JMP DONE ; SKIPPED IF NONZERO

11 00003'006017         .SYSTM

12 00004'010000         .PCHAR          ; PRINT FIRST

13 00005'000413          JMP ER ; SKIPPED IF OK

14 00006'101300         MOVS 0,0        ; SWAP BYTES

15 00007'006017         .SYSTM

16 00010'010000         .PCHAR          ; PRINT SECOND

17 00011'000407          JMP ER ; SKIPPED IF OK

18 00012'010412         ISZ PMSG        ; POINT TO NEXT WORD

19 00013'000765         JMP DOCHAR      ; GO AROUND AGAIN

20

21 00014'006017 DONE:   .SYSTM          ; NORMAL EXIT

22 00015'004400         .RTN

23 00016'000402          JMP ER

24 00017'063077         HALT

25 00020'006017 ER:     .SYSTM          ; ERROR EXIT

26 00021'006400         .ERTN

27 00022'063077          HALT

28 00023'063077         HALT

29

30 00024'000025'PMSG:   .+1     ; ADDRESS OF FIRST WORD OF TEXT

31                      ; NOTE BYTES ARE PACKED RIGHT-TO-LEFT BY DEFAULT

32 00025'042510         .TXT /HELLO, WORLD!<15><12>/ ; THAT'S CR LF

33       046114

34       026117

35       053440

36       051117

37       042114

38       006441

39       000012

40 00035'000000         0 ; FLAG WORD TO END STRING

41

42                      .END START

Assembler-HLA

; Hello World for Intel compatible High Level Assembler



program HELLO;

       #include( "stdlib.hhf" );

begin HELLO;

       stdout.put("Hello World",nl);

end HELLO;

Assembler-IBM-370

ITLE 'Hello World for IBM Assembler/370 (VM/CMS)'

HELLO    START

BALR  12,0

USING *,12

*

WRTERM 'Hello World!'

*

SR    15,15

BR    14

*

END   HELLO

Assembler-Intel

; Hello World for Intel Assembler (MSDOS)



mov ax,cs

mov ds,ax

mov ah,9

mov dx, offset Hello

int 21h

xor ax,ax

int 21h



Hello:

  db "Hello World!",13,10,"$"

Assembler-Linux

	;; Hello World for the nasm Assembler (Linux)

	

	SECTION .data



	msg	db	"Hello, world!",0xa ; 

	len	equ     $ - msg



	SECTION .text

	global main



main:

        mov     eax,4		; write system call

        mov     ebx,1           ; file (stdou)

        mov     ecx,msg         ; string

        mov     edx,len         ; strlen

	int     0x80		; call kernel



	mov	eax,1		; exit system call

        mov     ebx,0      

        int     0x80		; call kernel

Assembler-MIPS

## Hello Word in Assemlber for the MIPS Architecture



.globl main



main:   jal hwbody              #call Hello Word Procedure

       trap 10                 #exit



hwbody: addi $30, $30,-4        #we need to preserve

       sw $4, 0($30)           #existing values in register 4



       addi $4,$0,72           # H

       trap 101

       addi $4,$0,101          # e

       trap 101

       addi $4,$0,108          # l

       trap 101

       trap 101                # l

       addi $4,$0,111          # o

       trap 101

       addi $4,$0,32           # 

       trap 101

       addi $4,$0,87           # W

       trap 101

       addi $4,$0,111          # o

       trap 101

       addi $4,$0,114          # r

       trap 101

       addi $4,$0,108          # l

       trap 101

       addi $4,$0,100          # d

       trap 101

       addi $4,$0,33           # !

       trap 101

       addi $4,$0,10           # \n

       trap 101



done:   lw $4, 0($30)           #restore values

       addi $30, $30, 4        #in register 4

       jr $31                  #return to the main

Assembler-MMIX

*	Hello World in Assembler 

*	for the MMIX Computer 



       LOC   #100

Main   GETA  $255,String

       TRAP  0,Fputs,StdOut

       TRAP  0,Halt,0

String BYTE  "Hello, world!",#a,0

Assembler-PDP11

;       Hello World in Assembler for the DEC PDP-11 with the

;	RSX-11M-PLUS operating system

;

        .title Hello

        .ident /V0001A/

        .mcall qiow$s, exit$s

        .psect $code,ro,i

start:  qiow$s #5,#5,,,,<#str, #len, #40>

        exit$s

        .psect $data,ro,d

str:    .ascii / Hello World!/

        len=.-str

        .end start

Assembler-PDP8

/ Hello World in Assembler for the DEC PDP-8

*200

hello,    cla cll

        tls            / tls to set printer flag.

        tad charac    / set up index register

        dca ir1        / for getting characters.

        tad m6        / set up counter for

        dca count    / typing characters.

next,    tad i ir1    / get a character.

        jms type    / type it.

        isz count    / done yet?

        jmp next    / no: type another.

        hlt



type,    0            / type subroutine

        tsf

        jmp .-1

        tls

        cla

        jmp i type

charac,    .            / used as initial value of ir1

        310 / H

        305 / E

        314 / L

        314 / L

        317 / O

        254 / ,

        240 /

        327 / W

        317 / O

        322 / R

        314 / L

        304 / D

        241 / !

m6,        -15

count,    0

ir1 = 10

$

Assembler-VP

; Hello World in VP Assembler for intent (Amiga Anywhere)



.include 'tao'



tool 'home/hello',VP,TF_MAIN,8192,0

	ent (-:-)

		qcall lib/print,(hello_world.p : i~)

		ret ()

	entend



	data



hello_world:

	dc.b "Hello World!",ASCII_LF,0



toolend

Assembler-Win32

; Hello world in Assembler for the Win32 architecture



TITLE Hello world in win32. Tasm



VERSION T310

Model use32 Flat,StdCall



start_code segment byte public 'code' use32

begin:

 Call MessageBox, 0, offset sHallo, offset caption, 0

 Call ExitProcess, 0

start_code Ends



start_data segment byte public 'data' use32



sHallo  db 'Hello world',0

caption	db "Hi",0



start_data Ends

End begin

Assembler-z390

; Hello World for z390 IBM compatible mainframe assembler



HELLO CSECT

     USING *,15

     WTO 'Hello World'

     BR 14

     END

Assembler-Z80-Console

; This is a "Hello World" program for Z80 and TMS9918 / TMS9928 / TMS9929 /

; V9938 or V9958 VDP.

; That means that this should work on SVI, MSX, Colecovision, Memotech,

; and many other Z80 based home computers or game consoles.

;

; Because we don't know what system is used, we don't know where RAM

; is, so we can't use stack in this program.

;

; This version of Hello World was written by Timo "NYYRIKKI" Soilamaa

; 17.10.2001

;

;----------------------------------------------------------------------

; Configure this part:



DATAP: EQU #98 ; VDP Data port #98 works on all MSX models

; (TMS9918/TMS9929/V9938 or V9958)

; #80 works on SVI 

; (for other platforms you have to figure this out by your self)



CMDP: EQU #99 ; VDP Command port #99 works on all MSX models

; (TMS9918/TMS9929/V9938 or V9958)

; #81 works on SVI

; (for other platforms you have to figure this out by your self)

;-----------------------------------------------------------------------

; Program starts here:



ORG 0 ; Z80 starts always from here when power is turned on

DI ; We don't know, how interrupts works in this system, so we disable them.



; Let's set VDP write address to #0000

XOR A

OUT (CMDP),A

LD A,#40

OUT (CMDP),A



; Now let's clear first 16Kb of VDP memory

LD B,0

LD HL,#3FFF

LD C,DATAP

CLEAR:

OUT (C),B

DEC HL

LD A,H

OR L

NOP ; Let's wait 8 clock cycles just in case VDP is not quick enough.

NOP

JR NZ,CLEAR



; Now it is time to set up VDP registers:

;----------------------------------------

; Register 0 to #0

;

; Set mode selection bit M3 (maybe also M4 & M5) to zero and 

; disable external video & horizontal interrupt

LD C,CMDP

LD E,#80



OUT (C),A

OUT (C),E

;---------------------------------------- 

; Register 1 to #50

;

; Select 40 column mode, enable screen and disable vertical interrupt



LD A,#50

INC E

OUT (C),A

OUT (C),E

;---------------------------------------- 

; Register 2 to #0

;

; Set pattern name table to #0000



XOR A

INC E

OUT (C),A

OUT (C),E

;---------------------------------------- 

; Register 3 is ignored as 40 column mode does not need color table

;

INC E

;---------------------------------------- 

; Register 4 to #1

; Set pattern generator table to #800



INC A

INC E



OUT (C),A

OUT (C),E

;---------------------------------------- 

; Registers 5 (Sprite attribute) & 6 (Sprite pattern) are ignored 

; as 40 column mode does not have sprites



INC E

INC E

;---------------------------------------- 

; Register 7 to #F0

; Set colors to white on black



LD A,#F0

INC E

OUT (C),A

OUT (C),E

;----------------------------------------



; Let's set VDP write address to #808 so, that we can write

; character set to memory

; (No need to write SPACE it is clear char already)

LD A,8

OUT (C),A

LD A,#48

OUT (C),A



; Let's copy character set

LD HL,CHARS

LD B, CHARS_END-CHARS

COPYCHARS:

LD A,(HL)

OUT (DATAP),A

INC HL

NOP ; Let's wait 8 clock cycles just in case VDP is not quick enough.

NOP

DJNZ COPYCHARS



; Let's set write address to start of name table

XOR A

OUT (C),A

LD A,#40

OUT (C),A



; Let's put characters to screen

LD HL,ORDER

LD B,ORDER_END-ORDER

COPYORDER:

LD A,(HL)

OUT (DATAP),A

INC HL



JR OVERNMI

NOP

NOP



; Here is address #66, that is entry for NMI

RETN ;Return from NMI



OVERNMI:

DJNZ COPYORDER



; The end

HALT



; Character set:

; --------------

ORDER:

DEFB 1,2,3,3,4,0,5,4,6,3,7

ORDER_END:



CHARS:



; H

DEFB %10001000

DEFB %10001000

DEFB %10001000

DEFB %11111000

DEFB %10001000

DEFB %10001000

DEFB %10001000

DEFB %00000000

; e

DEFB %00000000

DEFB %00000000

DEFB %01110000

DEFB %10001000

DEFB %11111000

DEFB %10000000

DEFB %01110000

DEFB %00000000

; l

DEFB %01100000

DEFB %00100000

DEFB %00100000

DEFB %00100000

DEFB %00100000

DEFB %00100000

DEFB %01110000

DEFB %00000000

; o

DEFB %00000000

DEFB %00000000

DEFB %01110000

DEFB %10001000

DEFB %10001000

DEFB %10001000

DEFB %01110000

DEFB %00000000

; W

DEFB %10001000

DEFB %10001000

DEFB %10001000

DEFB %10101000

DEFB %10101000

DEFB %11011000

DEFB %10001000

DEFB %00000000



; r

DEFB %00000000

DEFB %00000000

DEFB %10110000

DEFB %11001000

DEFB %10000000

DEFB %10000000

DEFB %10000000

DEFB %00000000

; d

DEFB %00001000

DEFB %00001000

DEFB %01101000

DEFB %10011000

DEFB %10001000

DEFB %10011000

DEFB %01101000

DEFB %00000000

chars_end:

Assembler-ZX81

; Hello World in Assembler for the ZX81 (Zilog Z80)



          CALL SPRINT

          DEFM HELLO WORLD.

          DEFB FF

          RET

SPRINT    POP HL

          LD A,(HL)

          INC HL

          PUSH HL

          CP FF

          RET Z

          CALL PRINT

          JR SPRINT

Asterisk

;; Hello World application for an Asterisk dial plan. Asterisk is a

;; GNU GPL telephony server. More details at http://www.asterisk.org



;; Displays Hello World at the Asterisk console if in verbose mode

exten => _X.,1,NoOp(Hello World)

AutoIT3

;Hello, World for AutoIT3  http://www.autoitscript.com



msgbox(0,"Hello World",0)

AviSynth

Hello World for AviSynth Video Editor.

Requires AVI and WAV file.



video = AVISource("someoneSayingHelloWorld.avi")

sound_track = WAVSource("someoneSayingHelloWorld.wav")

AudioDub(video, sound_track)

subtitle("Hello World!")

awk

# Hello World in awk

BEGIN {

  print "Hello World!"

  exit

}

Axel

Hello World in AXEL (lip-synched speech)



... too large for this page, can be found here:

http://medieskolan.avc.edu.stockholm.se/axel/index.htm

B

/* Hello World in B */



main() {

  extern a, b, c;

  putchar (a); putchar (b); putchar (c); putchar ('!*n');

}



a 'hell' ;

b 'o, w' ;

c 'orld' ;

BAL

Hello World in IBM mainframe Basic Assembler Language (BAL)



HELLO    CSECT

         STM   R14,R12,12(R13)

         LR    R12,R15

         USING HELLO,R12

         LA    R10,SAVEAREA

         ST    R13,4(R10)

         ST    R10,8(R13)

         LR    R13,R10

*

         WTO   'HELLO WORLD',ROUTCDE=1

*

         L     R13,4(R13)

         LM    R14,R12,12(R13)

         SR    R15,R15

         BCR   B'1111',R14

*

SAVEAREA DS    18F

         LTORG

R0       EQU   0

R1       EQU   1

R2       EQU   2

R3       EQU   3

R4       EQU   4

R5       EQU   5

R6       EQU   6

R7       EQU   7

R8       EQU   8

R9       EQU   9

R10      EQU   10

R11      EQU   11

R12      EQU   12

R13      EQU   13

R14      EQU   14

R15      EQU   15

         END   HELLO

BASIC

10 REM Hello World in BASIC

20 PRINT "Hello World!"

bc

#!/usr/bin/bc -q

# Hello World for the Unix "bc" calculator



print "Hello World!\n"

BCPL

// Hello world in BCLP

GET "libhdr"



LET start() = VALOF

$( writes("Hello world*N")

   RESULTIS 0

$)

Beta

{ *** Hello World in BETA ***}

(#

  do

     'Hello World!'->putLine

#)

Boo

# Hello World in Boo

print "Hello World"

BrainFxxx

Hello World in BrainF***. No comment character exists.



++++++++++[>+++++++>++++++++++>+++<<<-]>++.>+.+++++++

..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.

BS2000

/BEGIN-PROCEDURE LOGGING=N

/REMARK "HELLO WORLD" IN BS2000 (SDF)

/ASSIGN-SYSDTA TO-FILE=*SYSCMD

/WRITE-TEXT 'HELLO WORLD!'

/SET-JOB-STEP

/ASSIGN-SYSDTA TO-FILE=*PRIMARY

/END-PROCEDURE

C#

// Hello World in Microsoft C# ("C-Sharp").



using System;



class HelloWorld

{

    public static int Main(String[] args)

    {

        Console.WriteLine("Hello, World!");

        return 0;

    }

}

C++

// Hello World in C++



#include 



main()

{

    cout << "Hello World!" << endl;

    return 0;

}

C++-Epoc

// Hello World in C++, Epoc style (for Symbian OS)



#include 

#include 

#include 



class CHelloWorldAppUi;

class CEikApplication;

class CHelloWorldAppView;



class CHelloWorldApplication : public CEikApplication

    {

        public:

            TUid AppDllUid() const;

        protected:

            CApaDocument* CreateDocumentL();

    };



class CHelloWorldDocument : public CEikDocument

    {

        public:

            static CHelloWorldDocument* NewL(CEikApplication& aApp);

            static CHelloWorldDocument* NewLC(CEikApplication& aApp);

            ~CHelloWorldDocument(){};

        public:

            CEikAppUi* CreateAppUiL();

        private:

            void ConstructL() {};

            CHelloWorldDocument(CEikApplication& aApp){};

    };



class CHelloWorldAppUi : public CEikAppUi

    {

        public:

                void ConstructL();

                CHelloWorldAppUi(){};

                ~CHelloWorldAppUi(){};

    };



static const TUid KUidHelloWorldApp = {0x10005B91};



GLDEF_C TInt E32Dll(TDllReason )

    {

    return KErrNone;

    }



EXPORT_C CApaApplication* NewApplication() 

    {

    return (new CHelloWorldApplication);

    }



CApaDocument* CHelloWorldApplication::CreateDocumentL()

    {  

    CApaDocument* document = CHelloWorldDocument::NewL(*this);

    return document;

    }



TUid CHelloWorldApplication::AppDllUid() const

    {

    return KUidHelloWorldApp;

    }

    

CHelloWorldDocument* CHelloWorldDocument::NewL(CEikApplication& aApp)

    {

    CHelloWorldDocument* self = NewLC(aApp);

    CleanupStack::Pop(self);

    return self;

    }



CHelloWorldDocument* CHelloWorldDocument::NewLC(CEikApplication& aApp)

    {

    CHelloWorldDocument* self = new (ELeave) CHelloWorldDocument(aApp);

    CleanupStack::PushL(self);

    self->ConstructL();

    return self;

    }



CEikAppUi* CHelloWorldDocument::CreateAppUiL()

    {

    CEikAppUi* appUi = new (ELeave) CHelloWorldAppUi;

    return appUi;

    }



void CHelloWorldAppUi::ConstructL()

    {

    BaseConstructL();



    _LIT(message,"Hello!");

    CAknInformationNote* informationNote = new (ELeave) CAknInformationNote;

    informationNote->ExecuteLD(message);

    }

C++-ISO

// Hello World in ISO C++



#include 



int main()

{

    std::cout << "Hello World!" << std::endl;

}

C++-MFC

// Hello World in C++ for Microsoft Foundation Classes

// (Microsoft Visual C++).



#include 



class CHello : public CFrameWnd

{

public:

    CHello()

    {

        Create(NULL,_T("Hello World!"),WS_OVERLAPPEDWINDOW,rectDefault);

    }

};



class CHelloApp : public CWinApp

{

public:

    virtual BOOL InitInstance();

};



BOOL CHelloApp::InitInstance()

{

    m_pMainWnd = new CHello();

    m_pMainWnd->ShowWindow(m_nCmdShow);

    m_pMainWnd->UpdateWindow();

    return TRUE;

}



CHelloApp theApp;

C++-Qt

// Hello World in C++ for the Qt framework



#include 

#include 



int main(int argc, char *argv[])

{

  QApplication a(argc, argv);

  QLabel l("Hello World!", 0);

  l.setCaption("Test");

  l.setAlignment(Qt::AlignCenter);

  l.resize(300, 200);

  a.setMainWidget(&l);

  l.show();

  return(a.exec());

}

C-AL

OBJECT Codeunit 50000 HelloWorld

{

  PROPERTIES

  {

    OnRun=BEGIN

            //Hello World in C/AL (Microsoft Business Solutions-Navision)

            MESSAGE(Txt001);

          END;

  }

  CODE

  {

    VAR

      Txt001@1000000000 : TextConst 'ENU=Hello World';

    BEGIN

    END.

  }

}

C-Ansi

/* Hello World in C, Ansi-style */



#include 

#include 



int main(void)

{

  puts("Hello World!");

  return EXIT_SUCCESS;

}

C-Curses

/* Hello World in C for Curses */



#include 

main()

{

  initscr();

  addstr("Hello World!\n");

  refresh();

  endwin();

  return 0;

}

C-GEM

/* Hello World for C with GEM */



#include 

main()

{

  appl_init();

  form_alert(1,"[0][Hello World!][Ok]");

  appl_exit();

  return 0;

}

C-Intuition

/* Hello World in C for Intution (Amiga GUI) */



#include 



struct IntuitionBase *IntuitionBase = NULL;



struct IntuiText hello_text = {-1,-1,JAM1,0,0,NULL,"Hello World!",NULL };

struct IntuiText ok_text    = {-1,-1,JAM1,0,0,NULL,"Ok",NULL };



void main(void)

{

   IntuitionBase = (struct IntuitionBase *)

                   OpenLibrary("intuition.library", 0);

   AutoRequest(NULL, &hello_text, NULL, &ok_text, NULL, NULL, 100, 50);

   CloseLibrary(IntuitionBase);

}

C-K+R

/* Hello World in C, K&R-style */



main()

{

  puts("Hello World!");

  return 0;

}

C-Objective

/* Hello World in Objective-C.

** Since the standard implementation is identical to K&R C,

** a version that says hello to a set of people passed on

** the command line is shown here.

*/



#include 

#include 

int main(int argc,char **argv)

{

    id set = [Set new];

    argv++;while (--argc) [set add:[String str:*argv++]];

    [set do:{ :each | printf("hello, %s!\n",[each str]); }];

    return 0;

}

C-PresManager

/* Hello World for C with PresentationManager / OS/2 2.11  */



#define INCL_WIN



#include 



int main( void )

{

   HMQ   hmq;



   hmq = WinCreateMsgQueue( 0, 0 );



   WinMessageBox( HWND_DESKTOP, HWND_DESKTOP, (PSZ)"Hello World!",

      (PSZ)"", 0, MB_OK );



   WinDestroyMsgQueue( hmq );



   return 0;

}

C-Windows

/* Hello world in C for MS-Windows */



#include 



int PASCAL WinMain(HINSTANCE hInstance,

  HINSTANCE hPrevInstance, LPSTR CmdLine, int Show)

{

  MessageBox(GetActiveWindow(), "Hello World!", "Hello Windows World", MB_OK);

  return 0;

}

C-X11-Athena

/* Hello World in C with X11 using Athena widgets */



#include 

#include 

#include 



main(int argc,char **argv)

{

  XtAppContext app_context;

  Widget toplevel,hello;



  toplevel = XtVaAppInitialize(&app_context,"XHello",NULL,0,

    &argc,argv,NULL,NULL);

  hello = XtVaCreateManagedWidget("Hello World!",labelWidgetClass,

    toplevel,(void*)0);



  XtRealizeWidget(toplevel);



  XtAppMainLoop(app_context);

  return 0;

}

CAML-Light

(* Hello World in CAML Light *)



let hello =

   print_string "Hello World!";

;;

Clean

// Hello World in Clean



module hello



Start :: String

Start = "Hello World!\n"

Clipper

// Hello World in Clipper (Summer 87, 5.0, 5.01, 5.2, 5.3)



? "Hellp World"

Cobol

       * Hello World in Cobol



*****************************

IDENTIFICATION DIVISION.

PROGRAM-ID. HELLO.

ENVIRONMENT DIVISION.

DATA DIVISION.

PROCEDURE DIVISION.

MAIN SECTION.

DISPLAY "Hello World!"

STOP RUN.

****************************

Cocoa

// Hello World in Cocoa Obj-C (OS X)



#import 



int main (int argc, const char * argv[]) {

    NSAutoreleasePool * pool = [[NSAutoreleasePool alloc] init];



    NSLog(@"Hello, World!");

    [pool release];

    return 0;

}

ColdFusion

 #message#

CommandScript

#Hello World in Command Script 3.1

#Meta.Name: "Hello World"



#Block(Main).Start

    echo "Hello World!"

#Block(Main).End

Console-Postscript

%% Hello World in Console PostScript



serverdict begin 0 exitserver

/Courier findfont

48 scalefont setfont

22 22 moveto

(Hello World!) show

showpage



%% End

CSS

/* Hello World in CSS */

body:before {

    content: "Hello World";

}

D

// Hello World in D



void main()

{

    printf("Hello World!\n");

}

Darkbasic

` Hello World in Darkbasic



print "Hello World!"

wait key

Dataflex

// Hello World in Dataflex Procedural



/tela



Hello world



/*



clearscreen



page tela

dBase

* Hello World in dBase IV



? "Hello World!"

dc

#!/usr/bin/dc

# Hello world! in dc (Unix desk calculator)

[Hello world!]p

Delphi

// Hello World in Delphi

Program Hello_World;



{$APPTYPE CONSOLE}



Begin

  WriteLn('Hello World');

End.

Dialect

# Hello World in Dialect



print "Hello World"

DML

! Hello World in DML (Gembase database language)



PROCEDURE_FORM MAIN

        PRINT/NOWAIT ("Hello world")

END_FORM

DWIM

Hello World in DWIM ("Do what I mean").

Comments are not necessary in this language.



DWIM

Dylan

module:			hello-world

author:			Homer

copyright:		(c) 1994 Homer

version:		1.0



// Hello World in DYLAN



define method main (#rest args)

  princ("Hello world!");

end;



main();

DynaMorph

<>

<#setString foo {Hello World!}#>





	







<#getString foo#>

Eiffel

indexing "Hello World in Eiffel"



class HELLO



creation

   run



feature



   run is

     local

       io : BASIC_IO;

     do

       !!io;

       io.put_string("Hello World!");

       io.put_newline;

     end; -- run



end; -- class HELLO

Elan

(* Hello World in ELAN *)



putline ("Hello World!");

Elliott

:: Hello World in Elliott Autocode

SETF PUNCH

SETR 1

1)TELEPRINTER

LINE

TITLE Hello World.;

STOP

START 1

Erlang

%% Hello World in Erlang



-module(hello).



-export([hello/0]).



hello() ->

   io:format("Hello World!~n", []).

Euphoria

-- Hello World in Euphoria



puts(1, "Hello World!\n")

Ferite

/**

 *   start script -- Hello world in Ferite ( www.ferite.org )

 */

uses "console";

Console.println("Hello World");

/* end script */

Fjölnir

;; Hello World in Fjölnir (Icelandic programming language)



"hello" < main

{

   main ->



   stef(;)

   stofn

       skrifastreng(;"Halló Veröld!"),

   stofnlok

}

*

"GRUNNUR"

;

Focal

1.01 COMMENT HELLO WORLD IN FOCAL

1.02 TYPE "HELLO WORLD", !

1.03 QUIT

FOCUS

-* Hello World in FOCUS



-TYPE Hello world

Forth

' Hello World in Forth



: HELLO

  ." Hello World!" CR

;

Fortran

C     Hello World in Fortran



      PROGRAM HELLO

      WRITE (*,100)

      STOP

  100 FORMAT (' Hello World! ' /)

      END

Fortran77

C     Hello World in Fortran 77



      PROGRAM HELLO

      PRINT*, 'Hello World!'

      END

Fortran90

! Hello World in Fortran 90 and 95



PROGRAM HelloWorld

     WRITE(*,*)  "Hello World!"

END PROGRAM

FortranIV

       PROGRAM HELLO

c

C      Hello World in Fortran IV (supposedly for a TR440)

c

       WRITE (6,'('' Hello World!'')')

       END

Frink

// Hello World in Frink



println["Hello World!"]

G-Code

Hello World in "G Code" for CNC machines.

Gambas

'************************************

' Hello world in Gambas

'************************************

PUBLIC SUB Main()



   PRINT "Hello World"



END

Gentee-simple

// Hello World in Gentee (simple version)



func hello
 : @"Hello, World!"

Gentee

// Hello World in Gentee



func hello 


{

   print( "Hello, World!" )

   getch()

}

Gofer

-- Hello World in Gofer

-- Simple version



helloWorld:: String

helloWorld = "Hello World!\n"





-- Hello World in Gofer

-- Dialog version



helloWorld :: Dialogue

helloWorld resps = [AppendChan stdout "Hello world!"]

Gri

# Hello World in Gri

show "hello world"

Groovy

// Hello World in Groovy



println "Hello World"

GynkoSoft

; Hello World in GynkoSoft

; Simple version

0.00 Protocol "Hello, World!"





; Hello World in GynkoSoft

; Dialog box output

0.00 Message "Hello, World!"

Haskell

-- Hello World in Haskell



module Hello where

hello::String

hello = "Hello World!"

HDX

# Hello World as bdehaldia.exe external command



proc hdx_info {} {

  set ::Titel "&Hello World"

  set ::Menu GMA

}



proc hdx_run {} {

  tk_messageBox -type ok -message "Hello World!"

  destroy .

}

HP-41C

Hello World for the HP 41C. No comment character exists.



01 LBL "HELLO"

02 "HELLO WORLD"

03 AVIEW

HP-48

<<

@ Hello World for the HP-48

@ << and >> are one char each

"HELLO WORLD"

>>

HQ9+

Hello World in HQ9+ and HQ9++. No comment character exists.



H

HTML

Hello World!

Human

Hello World in human languages.

Armenian	Բարե՛ւ, աշխարհ։ (barev ash'kharh)
Azeri	Salam Dünya
Czech	Ahoj Světe!
Basque/Euskara	Kaixo mundua!
Belarusian	(Pryvitan'ne, Swet!)
Bengali	Shagatam Prithivi!
Bosnian	Zdravo Svijete!
Brazilian Portuguese	Oi mundo!
Bulgarian	(Zdrav'ei svi'at)
Catalan	Hola món!
Chinese	(ni hao shi jie)
Croatian	Bok Svijete!
Danish	Hej, Verden!
Dutch	Hallo, wereld!
English	Hello World!
Estonian	Tere maailm!
Finnish	Hei maailma!
French	Salut le Monde!
Frisian	Hallo, wrâld!
Galician	Ola mundo!
German	Hallo Welt!
Greek	Γεια σου κόσμε! (Geia soy kosme)
Hebrew	(Shalom Olam)
Hindi	(namaste duniya)
Hungarian	Szia Vilag!
Indonesian	Halo Dunia!
Irish	Dia dhaoibh, a dhomhain!
Italian	Ciao Mondo!
Japanese	(konnichiwa sekai)
Kannada	(namaste prapancha)
Korean	(annyeong, sesangah)
Latvian	Sveika, Pasaule!
Lithuanian	Sveikas, Pasauli
Malagasy	Manao ahoana ry tany!
Norwegian	Hallo Verden!
Polish	Witaj, Swiecie!
Portuguese	Ola mundo!
Romanian	Salut lume!
Russian	(Zdra'vstvuj mi'r)
Serbian	Zdravo Svete!
Slovak	Ahoj, svet!
Slovenian	Pozdravljen svet!
Spanish	¡Hola mundo!
Swedish	Hejsan värld!
Tamil	(Vanakkam Ulake!)
Turkish	Merhaba Dünya!
Ukrainian	(Pryvi't svi'te)

HyperTalk

-- Hello World in HyperTalk



answer "Hello, world!"

IBM-Exec

Hello World for IBM EXEC (under VM/CMS)



&CONTROL

*

&TYPE Hello World!

*

&EXIT 0

IBM-Exec2

Hello World for IBM EXEC2 (under VM/CMS)



&TRACE OFF

*

&TYPE Hello World!

*

&EXIT 0

ici

# Hello World in ici (http://www.zeta.org.au/~atrn/ici/)

printf("Hello World!\n");

Icon

# Hello world in Icon (http://www.cs.arizona.edu/icon/)



procedure main()

    write("Hello world")

end

IDC

// Hello World in IDC-script language for IDA disaasembler



#include 



static main(void)

{

  Message("Hello World!");

}

IDL

IDL> ; Hello World in IDL (Interactive Data Language)

IDL> print, "Hello World"

Inform

!  "Hello world" in Inform

[ Main;

  print "Hello world^";

];

Informix-4GL

# Hello World in Informix 4GL



MAIN



  DISPLAY "Hello World"



END MAIN

Ingres-ABF

/* Hello World in Ingres ABF */

procedure hello =

begin

  message 'Hello, World' with style=popup;

end

InstallScript

// Hello World in InstallScript

// (Scripting language of InstallShield, a Windows install generator)



program

	MessageBox("Hello World!",INFORMATION);

endprogram

Intercal

      HELLO WORLD IN INTERCAL NOT FORTRAN



      HELLO WORLD

Io

// Hello World in io programming language

"Hello world!" print

Jako

# Hello World in Jako



use sys;



sys::print("Hello, world!\n");

Java

// Hello World in Java



import java.io.*;

class HelloWorld {

  static public void main( String args[] ) {

    System.out.println( "Hello World!" );

  }

}

Java-Mobile