Codeq
09.06.2002, 18:01
ABAP4 Ada Algol-60 Algol-68 APL AppleScript Asm-6502 Asm-68000-Amiga Asm-68000-ST Asm-68008 Asm-IBM-370 Asm-Intel Asm-PDP11 ASP-JavaScript ASP-VBS awk
B Basic BCPL Beta BrainFxxx BS2000
C CISO CMFC CQt C-Ansi C-Curses C-GEM C-Intuition C-K C-Objective C-PresManager C-Sharp C-Windows C-X11-Athena CAML-Light Cobol
dBase Dylan
Eiffel Elan Erlang Euphoria
Focal Forth Fortran Fortran77 FortranIV
Gofer GynkoSoft
Haskell HP-41C HP-48 HTML
IBM-Exec IBM-Exec2 ici Icon Informix-4GL InstallScript Intercal
Java Java-Mobile Java-Server-Pages Java-Servlet JavaScript JCL
Limbo Lisp Logo
MACRO10 Modula-2 MSDOS
NewtonScript
Oberon.oberon Oberon.std Occam OPL.dialog OPL.simple OZ
Pascal Pascal-Windows Perl PHP Pike PL-SQL PL1 Postscript Profan Prolog Python
REALbasic Rebol-view Rexx Rexx.simple Rexx.window
SAL Sather Scheme Self SenseTalk Setl2 Smalltalk.simple Smalltalk.window SML Snobol SPL ST-Guide
Tcl TeX Texinfo TI-59 TI-8x Tk TSO-CLIST
Unix
VAX-Macro VisualBasic VMS
XHTML
ABAP4
REPORT ZHB00001.
*Hello world in ABAP/4 *
WRITE: 'Hello world'.
Ada
with TEXT_IO; use TEXT_IO;
procedure Hello is
pragma MAIN;
begin
PUT ("Hello World!");
end Hallo;
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)))
APL
[]<-'Hello World!'
AppleScript
tell application "Finder"
display dialog "Hello World"
end tell
Asm-6502
; 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
Asm-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
Asm-68000-ST
; 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
Asm-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
Asm-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
Asm-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,"$"
Asm-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
ASP-JavaScript
<%@ language="javascript" %>
<html><body>
<%
Response.Write('Hello World!');
%>
</body></html>
ASP-VBS
<%@ language="vbscript" %>
<html><body>
<%
Response.write "Hello World!"
%>
</body></html>
awk
# Hello World in awk
BEGIN {
print "Hello World!"
exit
}
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' ;
Basic
10 REM Hello World in BASIC
20 PRINT "Hello World!"
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
#)
BrainFuck
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++.+++++++++++++++++++++++++++++.+++++++..+++.--------------
-----------------------------------------------------.-----------
-.+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++.--------.+++.------.--------.-----------
--------------------------------------------------------.
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 C
#include <iostream.h>
main()
{
cout << "Hello World!" << endl;
return 0;
}
CISO
// Hello World in ISO C
#include <iostream>
int main()
{
std::cout << "Hello World!" << std::endl;
}
CMFC
// Hello World in C for Microsoft Foundation Classes
// (Microsoft Visual C).
#include <afxwin.h>
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;
CQt
// Hello World in C for the Qt framework
#include <qapplication.h>
#include <qlabel.h>
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-Ansi
/* Hello World in C, Ansi-style */
#include <stdio.h>
#include <stdlib.h>
int main(void)
{
puts("Hello World!");
return EXIT_SUCCESS;
}
C-Curses
/* Hello World in C for Curses */
#include <curses.h>
main()
{
initscr();
addstr("Hello World!\n");
refresh();
endwin();
return 0;
}
C-GEM
/* Hello World for C with GEM */
#include <aes.h>
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 <intuition/intuition.h>
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
/* 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 <stdio.h>
#include <objpak.h>
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 <os2.h>
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-Sharp
// Hello World in Microsoft C# ("C-Sharp").
using System;
class HelloWorld
{
public static int Main(String[] args)
{
Console.WriteLine("Hello, World!");
return 0;
}
}
C-Windows
/* Hello world in C for MS-Windows */
#include <windows.h>
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 <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <X11/Xaw/Label.h>
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!";
;;
Cobol
* Hello World in Cobol
*****************************
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
MAIN SECTION.
DISPLAY "Hello World!"
STOP RUN.
****************************
dBase
* Hello World in dBase IV
? "Hello World!"
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();
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!");
Erlang
%% Hello World in Erlang
-module(hello).
-export(hello/0).
hello() ->
io.format("Hello World!\n").
Euphoria
-- Hello World in Euphoria
procedure Hello()
print ("Hello World!")
end procedure
Focal
1.01 COMMENT HELLO WORLD IN FOCAL
1.02 TYPE "HELLO WORLD", !
1.03 QUIT
Forth
: Hello World in Forth
." 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
FortranIV
PROGRAM HELLO
c
C Hello World in Fortran IV (supposedly for a TR440)
c
WRITE (6,'('' Hello World!'')')
END
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!"]
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!"
HP-41C
01 LBL "HELLO"
02 "HELLO WORLD"
03 AVIEW
HP-48
<<
@ Hello World for the HP-48
@ << and >> are one char each
"HELLO WORLD"
>>
HTML
<HTML>
<!-- Hello World in HTML -->
<HEAD>
<TITLE>Hello World!</TITLE>
</HEAD>
<BODY>
Hello World!
</BODY>
</HTML>
IBM-Exec
&CONTROL
*
&TYPE Hello World!
*
&EXIT 0
IBM-Exec2
&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
Informix-4GL
# Hello World in Informix 4GL
MAIN
DISPLAY "Hello World"
END MAIN
InstallScript
// Hello World in InstallScript
// (Scripting language of InstallShield, a Windows install generator)
program
MessageBox("Hello World!",INFORMATION);
endprogram
Intercal
HELLO WORLD
Java
// Hello World in Java
class HelloWorld {
static public void main( String args[] ) {
System.out.println( "Hello World!" );
}
}
Java-Mobile
// Hello World on a mobile Java device
package helloworld;
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class HelloWorld extends MIDlet {
public HelloWorld()
{
Form form = new Form("Hello World");
form.append("Hello world!");
Display.getDisplay(this).setCurrent(form);
}
protected void pauseApp() { }
protected void startApp() throws
javax.microedition.midlet.MIDletStateChangeException { }
protected void destroyApp(boolean parm1) throws
javax.microedition.midlet.MIDletStateChangeException { }
}
Java-Server-Pages
<!-- Hello World for Java Server Pages -->
<%@ page language='java' %>
<%="Hello World!" %>
Java-Servlet
import javax.servlet.*;
import javax.servlet.http.*;
import java.io.*;
//
// Hello World Java Servlet
//
public class HelloWorld extends HttpServlet {
public void service(HttpServletRequest request,
HttpServletResponse response)
throws IOException {
response.setContentType("text/html");
PrintWriter out = response.getWriter();
out.println("<html><body>");
out.println("Hello World!");
out.println("</body></html>");
}
}
JavaScript
<html>
<body>
<script language="JavaScript" type="text/javascript">
// Hello World in JavaScript
document.write('Hello World');
</script>
</body>
</html>
JCL
//HERIB JOB ,'HERIBERT OTTEN',PRTY=12
//* Hello World for MVS
//HALLO EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=T
//SYSUT1 DD *
Hello World!
/*
//
Limbo
implement Cmd;
include "sys.m";
include "draw.m";
Cmd : module {
init : fn (ctxt : ref Draw->Context, args : list of string);
};
init(nil : ref Draw->Context, nil : list of string)
{
sys := load Sys Sys->PATH;
sys->print("Hello World\n");
}
Lisp
;;; Hello World in Common Lisp
(defun helloworld ()
(print "Hello World!")
)
Logo
; Hello World in Logo
DRUCKEZEILE [Hello World!]
MACRO10
TITLE HELLO WORLD
; HELLO WORLD IN MACRO 10 FOR TOPS-10
ENTRY OUTPUT
SEARCH UUOSYM
LAB: ASCIZ /HELLO WORLD
/
OUTPUT: OUTSTR LAB ; OUTPUT MESSAGE
MONRT. ; RETURN TO MONITOR
END OUTPUT
Modula-2
(* Hello World in Modula-2 *)
MODULE HelloWorld;
FROM InOut IMPORT WriteString,WriteLn;
BEGIN
WriteString("Hello World!");
WriteLn;
END HelloWorld.
MSDOS
@ECHO OFF
REM Hello World for DOS batch
ECHO Hello World!
NewtonScript
// Hello World in NewtonScript
baseview :=
{viewBounds: {left: -3, top: 71, right: 138, bottom: 137},
viewFlags: 581,
declareSelf: 'base,
_proto: protoFloatNGo,
debug: "baseview"
};
textview := * child of baseview *
{text: "Hello World!",
viewBounds: {left: 33, top: 24, right: 113, bottom: 46},
viewFlags: 579,
_proto: protoStaticText,
debug: "textview"
};
Oberon.oberon
MODULE HelloWorld;
(* Hello World in Oberon for the Oberon System *)
IMPORT Oberon, Texts;
VAR
W: Texts.Writer;
PROCEDURE Do*;
BEGIN
Texts.WriteString(W,"Hello World!");
Texts.WriteLn(W);
Texts.Append(Oberon.Log,W.buf)
END Do;
BEGIN Texts.OpenWriter(W)
END HelloWorld.
Oberon.std
(* Hello World in Oberon for standard operating systems *)
MODULE HelloWorld;
IMPORT Out;
BEGIN
Out.String("Hello World!");
Out.Ln;
END HelloWorld;
Occam
PROGRAM Hello
-- Hello world in Occam
#USE ioconv
SEQ
write.full.string(screen,"Hello World!")
OPL.dialog
REM Hello World for OPL (Psion Organizer 3a)
REM More complex version with menues and dialog boxes
PROC HELLO:
LOCAL M%
DO
REM Display menu bar
mINIT
mCARD "Sprache","Deutsch",%d,"English",%e
mCARD "Extras","Beenden",%x,"Info",%i
M%=MENU
REM process choosen function
IF M%=%d
REM Display german dialog box
REM with an ENTER button to continue
dBOX:(" ","Hallo Welt"," ","weiter",13)
ELSEIF M%=%e
REM Display english dialog box
REM with an ENTER button to continue
dBOX:(" ","Hello World"," ","continue",13)
ELSEIF M%=%i
REM Display copyright information ;-)
dBOX:("Info","(C) Klaus Müller 0196","FrankfurtMain, Germany","",13)
ENDIF
UNTIL M%=%x
ENDP
PROC dBOX:(Z1$,Z2$,Z3$,Z4$,BUTTON%)
dINIT Z1$
dTEXT ""," ",0
dTEXT "",Z2$",$102
dTEXT "",Z3$,$202
dBUTTONS Z4$,BUTTON%
DIALOG
ENDP
OPL.simple
REM Hello World for OPL (Psion Organizer 3a)
REM Simple version
PROC HELLO:
PRINT "Hello World!"
GET
ENDP
OZ
{Browse 'Hello World!'}
Pascal
{Hello World in Pascal}
program HelloWorld;
begin
WriteLn('Hello World!');
end.
Pascal-Windows
{ Hello World in Borland Pascal 7 for MS-Windows}
PROGRAM HelloWorld;
USES
WinCRT;
BEGIN
InitWinCRT;
WriteLn('Hello World!');
ReadLn;
DoneWinCRT;
END.
Perl
# Hello world in perl
print "Hello World!\n";
PHP
// Hello World in PHP
<?php
echo 'Hello World!';
?>
Pike
// Hello world in Pike (pike.roxen.com)
int main(){
write("Hello World!\n");
}
PL-SQL
-- Hello World in Oracle PL/SQL
set serveroutput on
Declare
txt varchar2(11);
begin
txt:='Hello World';
dbms_output.put_line(txt);
end;
/
PL1
/* Hello World in PL1 */
Hello: procedure options(main)
put list('Hello World!');
put skip;
end Hello
Postscript
% Hello World in Postscript
%!PS
/Palatino-Roman findfont
100 scalefont
setfont
100 100 moveto
(Hello World!) show
showpage
Profan
' Hello World in Profan (http://www.profan.de/)
cls
print "Hello World!"
waitkey
Prolog
% Hello World in Prolog
hello :- display('Hello World!') , nl .
Python
# Hello World in Python
print "Hello World"
REALbasic
' Hello World in REALbasic (http://www.realsoftware.com/)
msgBox "Hello World!"
Rebol-view
Hello World in Rebol-view.
rebol[]
view layout[
text "Hello World!"
]
Rexx
/* Hello World in Rexx */
SAY "Hello World!"
Rexx.simple
/* Hello World in Rexx, simple version (writes to standard output) */
say 'Hello World!'
exit
Rexx.window
/* Hallo World in Rexx, opens window */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call RxMessageBox 'Hello World!', 'Hello World Window', 'OK', 'EXCLAMATION'
exit
SAL
// Hello World in SAL
proc main()
MsgBox("Hello from SAL", "Hello, World!")
end
Sather
-- Hello World in Sather
class HELLO is
main is #OUT "Hello World!\n" end
end
Scheme
;;; Hello World in Scheme
(define helloworld
(lambda ()
(display "Hello World")
(newline)))
Self
(| "Hello World in Self"
hello = (| | 'Hello World!' print)
|)
SenseTalk
on run put "Hello World!" end run
Setl2
-- Hello World in Setl2
procedure Hello();
print "Hello World!";
end Hello;
Smalltalk.simple
"Hello World in Smalltalk (simple version)"
Transcript show: 'Hello World!'.
Smalltalk.window
"Hello World in Smalltalk (in an own window)"
"(to be entered in a special browser)"
VisualComponent subclass: #HelloWorldView
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'test'
displayOn: aGraphicsContext
'Hello World!' asComposedText displayOn: aGraphicsContext.
open
|window|
window := ScheduledWindow new.
window label: 'Hello World Demo:'.
window component: self new.
window open.
SML
(* Hello World in SML *)
fun hello() = output(std_out, "Hello World!");
Snobol
* Hello World in Snobol
OUTPUT = "Hello World!"
SPL
HELLO: PROCEDURE OPTIONS(MAIN);
*
/* Hello World in SPL4 (Siemens) */
*
DCL PRINTC ENTRY;
*
CALL PRINTC('Hello World!', 12);
RETURN;
*
END HELLO;
ST-Guide
## Hello World for ST-Guide
@node "Hello World!"
Hello World!
@endnode
Tcl
#!/usr/local/bin/tclsh
# Hello World in Tcl
puts "Hello World!"
TeX
% Hello World in plain \TeX
\immediate\write16{Hello World!}
\end
Texinfo
\input texinfo
@c Hello World for Texinfo
@setfilename hello
@settitle Hello World
@node Top, Hello, (dir), (dir)
@menu
* Hello:: Hello World
@end menu
@node Hello, , Top, Top
Hello World!
@contents
@bye
TI-59
TI59 Code Comment
LBL A Start of program: label A
OP 00 Clear the four print registers
23 "H"
OP 02 Write into print register 2
13 "A"
27 "L"
27 "L"
32 "O"
00 " "
OP 03 Write into print register 3
43 "W"
17 "E"
27 "L"
37 "T"
73 "!"
OP 04 Write into print register 4
OP 05 Start printing
ADV Line feed (optional)
R/S End program
TI-8x
:ClrHome
:Disp "HELLO WORLD"
Tk
#!/usr/local/bin/wish -f
# Hello World in Tk
label .l -text "Hello World!"
pack .l
TSO-CLIST
PROC 0
/* Hello World in TSO CLIST */
write Hello World!
Unix
#!/bin/sh
# Hello World for the Unix shell
echo "Hello World!"
VAX-Macro
Hello World in VAX Macro.
.title helloworld
.ident /hello world/
;
.library /sys$library:lib/
$libdef
$lib$routinesdef
.psect $data,wrt,noshr,noexe,long
hello: .ascid /Hello World!/
.psect $code,nowrt,shr,exe,long
.entry helloworld,^m<r9,r10,r11>
pushaq hello ; output the
message
calls #1,g^lib$put_output ;
ret ; GTFOH
.end helloworld ;
VisualBasic
REM Hello World in Visual Basic for Windows
VERSION 2.00
Begin Form Form1
Caption = "Form1"
ClientHeight = 6096
ClientLeft = 936
ClientTop = 1572
ClientWidth = 6468
Height = 6540
Left = 876
LinkTopic = "Form1"
ScaleHeight = 6096
ScaleWidth = 6468
Top = 1188
Width = 6588
Begin Label Label1
Caption = "Hello World!"
Height = 372
Left = 2760
TabIndex = 0
Top = 2880
Width = 972
End
End
Option Explicit
VMS
$ ! Hello World for VMS-CLI
$ WRITE SYS$OUTPUT "Hello World!"
XHTML
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<!-- Hello World in XHTML -->
<html
xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
Hello World!
</title>
</head>
<body>
<p>
Hello World!
</p>
</body>
</html>
Quelle: http://www.roesler-ac.de/wolfram/hello.htm
B Basic BCPL Beta BrainFxxx BS2000
C CISO CMFC CQt C-Ansi C-Curses C-GEM C-Intuition C-K C-Objective C-PresManager C-Sharp C-Windows C-X11-Athena CAML-Light Cobol
dBase Dylan
Eiffel Elan Erlang Euphoria
Focal Forth Fortran Fortran77 FortranIV
Gofer GynkoSoft
Haskell HP-41C HP-48 HTML
IBM-Exec IBM-Exec2 ici Icon Informix-4GL InstallScript Intercal
Java Java-Mobile Java-Server-Pages Java-Servlet JavaScript JCL
Limbo Lisp Logo
MACRO10 Modula-2 MSDOS
NewtonScript
Oberon.oberon Oberon.std Occam OPL.dialog OPL.simple OZ
Pascal Pascal-Windows Perl PHP Pike PL-SQL PL1 Postscript Profan Prolog Python
REALbasic Rebol-view Rexx Rexx.simple Rexx.window
SAL Sather Scheme Self SenseTalk Setl2 Smalltalk.simple Smalltalk.window SML Snobol SPL ST-Guide
Tcl TeX Texinfo TI-59 TI-8x Tk TSO-CLIST
Unix
VAX-Macro VisualBasic VMS
XHTML
ABAP4
REPORT ZHB00001.
*Hello world in ABAP/4 *
WRITE: 'Hello world'.
Ada
with TEXT_IO; use TEXT_IO;
procedure Hello is
pragma MAIN;
begin
PUT ("Hello World!");
end Hallo;
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)))
APL
[]<-'Hello World!'
AppleScript
tell application "Finder"
display dialog "Hello World"
end tell
Asm-6502
; 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
Asm-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
Asm-68000-ST
; 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
Asm-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
Asm-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
Asm-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,"$"
Asm-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
ASP-JavaScript
<%@ language="javascript" %>
<html><body>
<%
Response.Write('Hello World!');
%>
</body></html>
ASP-VBS
<%@ language="vbscript" %>
<html><body>
<%
Response.write "Hello World!"
%>
</body></html>
awk
# Hello World in awk
BEGIN {
print "Hello World!"
exit
}
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' ;
Basic
10 REM Hello World in BASIC
20 PRINT "Hello World!"
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
#)
BrainFuck
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++.+++++++++++++++++++++++++++++.+++++++..+++.--------------
-----------------------------------------------------.-----------
-.+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++.--------.+++.------.--------.-----------
--------------------------------------------------------.
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 C
#include <iostream.h>
main()
{
cout << "Hello World!" << endl;
return 0;
}
CISO
// Hello World in ISO C
#include <iostream>
int main()
{
std::cout << "Hello World!" << std::endl;
}
CMFC
// Hello World in C for Microsoft Foundation Classes
// (Microsoft Visual C).
#include <afxwin.h>
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;
CQt
// Hello World in C for the Qt framework
#include <qapplication.h>
#include <qlabel.h>
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-Ansi
/* Hello World in C, Ansi-style */
#include <stdio.h>
#include <stdlib.h>
int main(void)
{
puts("Hello World!");
return EXIT_SUCCESS;
}
C-Curses
/* Hello World in C for Curses */
#include <curses.h>
main()
{
initscr();
addstr("Hello World!\n");
refresh();
endwin();
return 0;
}
C-GEM
/* Hello World for C with GEM */
#include <aes.h>
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 <intuition/intuition.h>
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
/* 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 <stdio.h>
#include <objpak.h>
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 <os2.h>
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-Sharp
// Hello World in Microsoft C# ("C-Sharp").
using System;
class HelloWorld
{
public static int Main(String[] args)
{
Console.WriteLine("Hello, World!");
return 0;
}
}
C-Windows
/* Hello world in C for MS-Windows */
#include <windows.h>
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 <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <X11/Xaw/Label.h>
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!";
;;
Cobol
* Hello World in Cobol
*****************************
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
MAIN SECTION.
DISPLAY "Hello World!"
STOP RUN.
****************************
dBase
* Hello World in dBase IV
? "Hello World!"
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();
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!");
Erlang
%% Hello World in Erlang
-module(hello).
-export(hello/0).
hello() ->
io.format("Hello World!\n").
Euphoria
-- Hello World in Euphoria
procedure Hello()
print ("Hello World!")
end procedure
Focal
1.01 COMMENT HELLO WORLD IN FOCAL
1.02 TYPE "HELLO WORLD", !
1.03 QUIT
Forth
: Hello World in Forth
." 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
FortranIV
PROGRAM HELLO
c
C Hello World in Fortran IV (supposedly for a TR440)
c
WRITE (6,'('' Hello World!'')')
END
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!"]
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!"
HP-41C
01 LBL "HELLO"
02 "HELLO WORLD"
03 AVIEW
HP-48
<<
@ Hello World for the HP-48
@ << and >> are one char each
"HELLO WORLD"
>>
HTML
<HTML>
<!-- Hello World in HTML -->
<HEAD>
<TITLE>Hello World!</TITLE>
</HEAD>
<BODY>
Hello World!
</BODY>
</HTML>
IBM-Exec
&CONTROL
*
&TYPE Hello World!
*
&EXIT 0
IBM-Exec2
&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
Informix-4GL
# Hello World in Informix 4GL
MAIN
DISPLAY "Hello World"
END MAIN
InstallScript
// Hello World in InstallScript
// (Scripting language of InstallShield, a Windows install generator)
program
MessageBox("Hello World!",INFORMATION);
endprogram
Intercal
HELLO WORLD
Java
// Hello World in Java
class HelloWorld {
static public void main( String args[] ) {
System.out.println( "Hello World!" );
}
}
Java-Mobile
// Hello World on a mobile Java device
package helloworld;
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class HelloWorld extends MIDlet {
public HelloWorld()
{
Form form = new Form("Hello World");
form.append("Hello world!");
Display.getDisplay(this).setCurrent(form);
}
protected void pauseApp() { }
protected void startApp() throws
javax.microedition.midlet.MIDletStateChangeException { }
protected void destroyApp(boolean parm1) throws
javax.microedition.midlet.MIDletStateChangeException { }
}
Java-Server-Pages
<!-- Hello World for Java Server Pages -->
<%@ page language='java' %>
<%="Hello World!" %>
Java-Servlet
import javax.servlet.*;
import javax.servlet.http.*;
import java.io.*;
//
// Hello World Java Servlet
//
public class HelloWorld extends HttpServlet {
public void service(HttpServletRequest request,
HttpServletResponse response)
throws IOException {
response.setContentType("text/html");
PrintWriter out = response.getWriter();
out.println("<html><body>");
out.println("Hello World!");
out.println("</body></html>");
}
}
JavaScript
<html>
<body>
<script language="JavaScript" type="text/javascript">
// Hello World in JavaScript
document.write('Hello World');
</script>
</body>
</html>
JCL
//HERIB JOB ,'HERIBERT OTTEN',PRTY=12
//* Hello World for MVS
//HALLO EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=T
//SYSUT1 DD *
Hello World!
/*
//
Limbo
implement Cmd;
include "sys.m";
include "draw.m";
Cmd : module {
init : fn (ctxt : ref Draw->Context, args : list of string);
};
init(nil : ref Draw->Context, nil : list of string)
{
sys := load Sys Sys->PATH;
sys->print("Hello World\n");
}
Lisp
;;; Hello World in Common Lisp
(defun helloworld ()
(print "Hello World!")
)
Logo
; Hello World in Logo
DRUCKEZEILE [Hello World!]
MACRO10
TITLE HELLO WORLD
; HELLO WORLD IN MACRO 10 FOR TOPS-10
ENTRY OUTPUT
SEARCH UUOSYM
LAB: ASCIZ /HELLO WORLD
/
OUTPUT: OUTSTR LAB ; OUTPUT MESSAGE
MONRT. ; RETURN TO MONITOR
END OUTPUT
Modula-2
(* Hello World in Modula-2 *)
MODULE HelloWorld;
FROM InOut IMPORT WriteString,WriteLn;
BEGIN
WriteString("Hello World!");
WriteLn;
END HelloWorld.
MSDOS
@ECHO OFF
REM Hello World for DOS batch
ECHO Hello World!
NewtonScript
// Hello World in NewtonScript
baseview :=
{viewBounds: {left: -3, top: 71, right: 138, bottom: 137},
viewFlags: 581,
declareSelf: 'base,
_proto: protoFloatNGo,
debug: "baseview"
};
textview := * child of baseview *
{text: "Hello World!",
viewBounds: {left: 33, top: 24, right: 113, bottom: 46},
viewFlags: 579,
_proto: protoStaticText,
debug: "textview"
};
Oberon.oberon
MODULE HelloWorld;
(* Hello World in Oberon for the Oberon System *)
IMPORT Oberon, Texts;
VAR
W: Texts.Writer;
PROCEDURE Do*;
BEGIN
Texts.WriteString(W,"Hello World!");
Texts.WriteLn(W);
Texts.Append(Oberon.Log,W.buf)
END Do;
BEGIN Texts.OpenWriter(W)
END HelloWorld.
Oberon.std
(* Hello World in Oberon for standard operating systems *)
MODULE HelloWorld;
IMPORT Out;
BEGIN
Out.String("Hello World!");
Out.Ln;
END HelloWorld;
Occam
PROGRAM Hello
-- Hello world in Occam
#USE ioconv
SEQ
write.full.string(screen,"Hello World!")
OPL.dialog
REM Hello World for OPL (Psion Organizer 3a)
REM More complex version with menues and dialog boxes
PROC HELLO:
LOCAL M%
DO
REM Display menu bar
mINIT
mCARD "Sprache","Deutsch",%d,"English",%e
mCARD "Extras","Beenden",%x,"Info",%i
M%=MENU
REM process choosen function
IF M%=%d
REM Display german dialog box
REM with an ENTER button to continue
dBOX:(" ","Hallo Welt"," ","weiter",13)
ELSEIF M%=%e
REM Display english dialog box
REM with an ENTER button to continue
dBOX:(" ","Hello World"," ","continue",13)
ELSEIF M%=%i
REM Display copyright information ;-)
dBOX:("Info","(C) Klaus Müller 0196","FrankfurtMain, Germany","",13)
ENDIF
UNTIL M%=%x
ENDP
PROC dBOX:(Z1$,Z2$,Z3$,Z4$,BUTTON%)
dINIT Z1$
dTEXT ""," ",0
dTEXT "",Z2$",$102
dTEXT "",Z3$,$202
dBUTTONS Z4$,BUTTON%
DIALOG
ENDP
OPL.simple
REM Hello World for OPL (Psion Organizer 3a)
REM Simple version
PROC HELLO:
PRINT "Hello World!"
GET
ENDP
OZ
{Browse 'Hello World!'}
Pascal
{Hello World in Pascal}
program HelloWorld;
begin
WriteLn('Hello World!');
end.
Pascal-Windows
{ Hello World in Borland Pascal 7 for MS-Windows}
PROGRAM HelloWorld;
USES
WinCRT;
BEGIN
InitWinCRT;
WriteLn('Hello World!');
ReadLn;
DoneWinCRT;
END.
Perl
# Hello world in perl
print "Hello World!\n";
PHP
// Hello World in PHP
<?php
echo 'Hello World!';
?>
Pike
// Hello world in Pike (pike.roxen.com)
int main(){
write("Hello World!\n");
}
PL-SQL
-- Hello World in Oracle PL/SQL
set serveroutput on
Declare
txt varchar2(11);
begin
txt:='Hello World';
dbms_output.put_line(txt);
end;
/
PL1
/* Hello World in PL1 */
Hello: procedure options(main)
put list('Hello World!');
put skip;
end Hello
Postscript
% Hello World in Postscript
%!PS
/Palatino-Roman findfont
100 scalefont
setfont
100 100 moveto
(Hello World!) show
showpage
Profan
' Hello World in Profan (http://www.profan.de/)
cls
print "Hello World!"
waitkey
Prolog
% Hello World in Prolog
hello :- display('Hello World!') , nl .
Python
# Hello World in Python
print "Hello World"
REALbasic
' Hello World in REALbasic (http://www.realsoftware.com/)
msgBox "Hello World!"
Rebol-view
Hello World in Rebol-view.
rebol[]
view layout[
text "Hello World!"
]
Rexx
/* Hello World in Rexx */
SAY "Hello World!"
Rexx.simple
/* Hello World in Rexx, simple version (writes to standard output) */
say 'Hello World!'
exit
Rexx.window
/* Hallo World in Rexx, opens window */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call RxMessageBox 'Hello World!', 'Hello World Window', 'OK', 'EXCLAMATION'
exit
SAL
// Hello World in SAL
proc main()
MsgBox("Hello from SAL", "Hello, World!")
end
Sather
-- Hello World in Sather
class HELLO is
main is #OUT "Hello World!\n" end
end
Scheme
;;; Hello World in Scheme
(define helloworld
(lambda ()
(display "Hello World")
(newline)))
Self
(| "Hello World in Self"
hello = (| | 'Hello World!' print)
|)
SenseTalk
on run put "Hello World!" end run
Setl2
-- Hello World in Setl2
procedure Hello();
print "Hello World!";
end Hello;
Smalltalk.simple
"Hello World in Smalltalk (simple version)"
Transcript show: 'Hello World!'.
Smalltalk.window
"Hello World in Smalltalk (in an own window)"
"(to be entered in a special browser)"
VisualComponent subclass: #HelloWorldView
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'test'
displayOn: aGraphicsContext
'Hello World!' asComposedText displayOn: aGraphicsContext.
open
|window|
window := ScheduledWindow new.
window label: 'Hello World Demo:'.
window component: self new.
window open.
SML
(* Hello World in SML *)
fun hello() = output(std_out, "Hello World!");
Snobol
* Hello World in Snobol
OUTPUT = "Hello World!"
SPL
HELLO: PROCEDURE OPTIONS(MAIN);
*
/* Hello World in SPL4 (Siemens) */
*
DCL PRINTC ENTRY;
*
CALL PRINTC('Hello World!', 12);
RETURN;
*
END HELLO;
ST-Guide
## Hello World for ST-Guide
@node "Hello World!"
Hello World!
@endnode
Tcl
#!/usr/local/bin/tclsh
# Hello World in Tcl
puts "Hello World!"
TeX
% Hello World in plain \TeX
\immediate\write16{Hello World!}
\end
Texinfo
\input texinfo
@c Hello World for Texinfo
@setfilename hello
@settitle Hello World
@node Top, Hello, (dir), (dir)
@menu
* Hello:: Hello World
@end menu
@node Hello, , Top, Top
Hello World!
@contents
@bye
TI-59
TI59 Code Comment
LBL A Start of program: label A
OP 00 Clear the four print registers
23 "H"
OP 02 Write into print register 2
13 "A"
27 "L"
27 "L"
32 "O"
00 " "
OP 03 Write into print register 3
43 "W"
17 "E"
27 "L"
37 "T"
73 "!"
OP 04 Write into print register 4
OP 05 Start printing
ADV Line feed (optional)
R/S End program
TI-8x
:ClrHome
:Disp "HELLO WORLD"
Tk
#!/usr/local/bin/wish -f
# Hello World in Tk
label .l -text "Hello World!"
pack .l
TSO-CLIST
PROC 0
/* Hello World in TSO CLIST */
write Hello World!
Unix
#!/bin/sh
# Hello World for the Unix shell
echo "Hello World!"
VAX-Macro
Hello World in VAX Macro.
.title helloworld
.ident /hello world/
;
.library /sys$library:lib/
$libdef
$lib$routinesdef
.psect $data,wrt,noshr,noexe,long
hello: .ascid /Hello World!/
.psect $code,nowrt,shr,exe,long
.entry helloworld,^m<r9,r10,r11>
pushaq hello ; output the
message
calls #1,g^lib$put_output ;
ret ; GTFOH
.end helloworld ;
VisualBasic
REM Hello World in Visual Basic for Windows
VERSION 2.00
Begin Form Form1
Caption = "Form1"
ClientHeight = 6096
ClientLeft = 936
ClientTop = 1572
ClientWidth = 6468
Height = 6540
Left = 876
LinkTopic = "Form1"
ScaleHeight = 6096
ScaleWidth = 6468
Top = 1188
Width = 6588
Begin Label Label1
Caption = "Hello World!"
Height = 372
Left = 2760
TabIndex = 0
Top = 2880
Width = 972
End
End
Option Explicit
VMS
$ ! Hello World for VMS-CLI
$ WRITE SYS$OUTPUT "Hello World!"
XHTML
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<!-- Hello World in XHTML -->
<html
xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
Hello World!
</title>
</head>
<body>
<p>
Hello World!
</p>
</body>
</html>
Quelle: http://www.roesler-ac.de/wolfram/hello.htm