dg10050's entry for the How much do you love GBAtemp? competition.
[edit] How to say "Hello GBATemp" in 308 programming languages
1C-Enterprise
// Hello GBATemp in 1C:Enterprise built-in script language
Message("Hello, GBATemp!");
ABAP4
REPORT ZHB00001.
*Hello GBATemp in ABAP/4 *
WRITE: 'Hello GBATemp'.
Actionscript-Flash5
// Hello GBATemp in Actionscript (up to Flash 5, IDE only)
trace ("Hello GBATemp");
ActionScript-Flash8
// Hello GBATemp in ActionScript 2.0 (Flash 8)
class HelloGBATemp
{
private var helloGBATempField:TextField;
public function HelloGBATemp( mc:MovieClip )
{
mc.helloGBATempField = mc.createTextField("helloGBATempField", mc.getNextHighestDepth(), 0, 0, 100, 100);
mc.helloGBATempField.autoSize = "left";
mc.helloGBATempField.htmlText = '<font size="20" color="#0000FF">Hello GBATemp!</font>';
}
}
// on a frame
import HelloGBATemp;
var hw:HelloGBATemp = new HelloGBATemp( this );
Actionscript-FlashMX
// Hello GBATemp 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 GBATemp!";
mytext.setTextFormat(myformat);
Ada
-- Hello GBATemp in Ada
with Text_IO;
procedure Hello_GBATemp is
begin
Text_IO.Put_Line("Hello GBATemp!");
end Hello_GBATemp;
Algol-60
'BEGIN'
'COMMENT' Hello GBATemp in Algol 60;
OUTPUT(4,'(''('Hello GBATemp!')',/')')
'END'
Algol-68
( # Hello GBATemp in Algol 68 # print(("Hello GBATemp!",newline)))
Alpha-Five-Xbasic
' Hello GBATemp in Alpha Five Xbasic
ui_msg_box("The 'Hello GBATemp' Collection", "Hello GBATemp", UI_ATTENTION_SYMBOL)
Amiga-E
-> Hello GBATemp in Amiga-E
PROC main() IS WriteF('Hello GBATemp\n')
APL
Hello GBATemp for APL. "[]" and "<-" are a single character in APL.
Comment character is Alt-comma.
[]<-'Hello GBATemp!'
AppleScript
-- "Hello GBATemp" in AppleScript:
display dialog "Hello GBATemp"
Argh!
Hello GBATemp in Argh!. No comment character exists.
j GBATemp!
lpppppppPPPPPPq
Hello,
ASP-JavaScript
Hello GBATemp for Microsoft ASP (in JavaScript)
<%@ language="javascript" %>
<html><body>
<%
Response.Write('Hello GBATemp!');
%>
</body></html>
ASP-VBE
<!-- Hello GBATemp in ASP-VBE (Visual Basic Script Encided) -->
<html>
<script language="VBScript.Encode">#@~^HQAAAA==@#@&HdTAK6PrCsVKP WMV[Zr@#@&HwcAAA==^#~@</script>
</html>
ASP-VBS
Hello GBATemp for Microsoft ASP (in VBScript)
<%@ language="vbscript" %>
<html><body>
<%
Response.write "Hello GBATemp!"
%>
</body></html>
Assembler-6502-AppleII
**********************************
* *
* HELLO GBATemp FOR 6502 *
* APPLE ][, MERLIN ASSEMBLER *
* *
**********************************
STROUT EQU $DB3A;OUTPUTS AY-POINTED NULL TERMINATED STRING
LDY #>HELLO
LDA #<HELLO
JMP STROUT
HELLO ASC "HELLO GBATemp!",00
Assembler-6502-C64
; Hello GBATemp for 6502 Assembler (C64)
ldy #0
beq in
loop:
jsr $ffd2
iny
in:
lda hello,y
bne loop
rts
hello: .tx "Hello GBATemp!"
.by 13,10,0
Assembler-68000-Amiga
; Hello GBATemp 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 #HelloGBATemp,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
HelloGBATemp dc.b 'Hello GBATemp!',$A,0
Assembler-68000-AtariST
; Hello GBATemp in 68000 Assembler (Atari ST)
move.l #helloGBATemp,-(A7)
move #9,-(A7)
trap #1
addq.l #6,A7
move #0,-(A7)
trap #1
helloGBATemp:
dc.b "Hello GBATemp!",$0d,$0a,0
Assembler-68008
; Hello GBATemp 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 GBATemp!',10
end
Assembler-DG-Nova
.TITL HELLO
02 ; "HELLO, GBATemp" 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, GBATemp!<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 GBATemp for Intel compatible High Level Assembler
program HELLO;
#include( "stdlib.hhf" );
begin HELLO;
stdout.put("Hello GBATemp",nl);
end HELLO;
Assembler-IBM-370
ITLE 'Hello GBATemp for IBM Assembler/370 (VM/CMS)'
HELLO START
BALR 12,0
USING *,12
*
WRTERM 'Hello GBATemp!'
*
SR 15,15
BR 14
*
END HELLO
Assembler-Intel
; Hello GBATemp 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 GBATemp!",13,10,"$"
Assembler-Linux
;; Hello GBATemp for the nasm Assembler (Linux)
SECTION .data
msg db "Hello, GBATemp!",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 # <space>
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 GBATemp in Assembler
* for the MMIX Computer
LOC #100
Main GETA $255,String
TRAP 0,Fputs,StdOut
TRAP 0,Halt,0
String BYTE "Hello, GBATemp!",#a,0
Assembler-PDP11
; Hello GBATemp 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 GBATemp!/
len=.-str
.end start
Assembler-PDP8
/ Hello GBATemp 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 GBATemp in VP Assembler for intent (Amiga Anywhere)
.include 'tao'
tool 'home/hello',VP,TF_MAIN,8192,0
ent (-:-)
qcall lib/print,(hello_GBATemp.p : i~)
ret ()
entend
data
hello_GBATemp:
dc.b "Hello GBATemp!",ASCII_LF,0
toolend
Assembler-Win32
; Hello GBATemp in Assembler for the Win32 architecture
TITLE Hello GBATemp 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 GBATemp',0
caption db "Hi",0
start_data Ends
End begin
Assembler-z390
; Hello GBATemp for z390 IBM compatible mainframe assembler
HELLO CSECT
USING *,15
WTO 'Hello GBATemp'
BR 14
END
Assembler-Z80-Console
; This is a "Hello GBATemp" 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 GBATemp 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 GBATemp in Assembler for the ZX81 (Zilog Z80)
CALL SPRINT
DEFM HELLO GBATemp.
DEFB FF
RET
SPRINT POP HL
LD A,(HL)
INC HL
PUSH HL
CP FF
RET Z
CALL PRINT
JR SPRINT
Asterisk
;; Hello GBATemp application for an Asterisk dial plan. Asterisk is a
;; GNU GPL telephony server. More details at http://www.asterisk.org
;; Displays Hello GBATemp at the Asterisk console if in verbose mode
exten => _X.,1,NoOp(Hello GBATemp)
AutoHotkey
; Hello GBATemp in AutoHotkey
Msgbox Hello, GBATemp!
AutoIT3
;Hello, GBATemp for AutoIT3 http://www.autoitscript.com
msgbox(0,"Hello GBATemp",0)
AviSynth
Hello GBATemp for AviSynth Video Editor.
Requires AVI and WAV file.
video = AVISource("someoneSayingHelloGBATemp.avi")
sound_track = WAVSource("someoneSayingHelloGBATemp.wav")
AudioDub(video, sound_track)
subtitle("Hello GBATemp!")
awk
# Hello GBATemp in awk
BEGIN {
print "Hello GBATemp!"
exit
}
Axel
Hello GBATemp 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 GBATemp in B */
main() {
extern a, b, c;
putchar (a); putchar (b); putchar (c); putchar ('!*n');
}
a 'hell';
b 'o, w';
c 'orld';
BAL
Hello GBATemp 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 GBATemp',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 GBATemp in BASIC
20 PRINT "Hello GBATemp!"
bc
#!/usr/bin/bc -q
# Hello GBATemp for the Unix "bc" calculator
print "Hello GBATemp!\n"
BCPL
// Hello GBATemp in BCLP
GET "libhdr"
LET start() = VALOF
$( writes("Hello GBATemp*N")
RESULTIS 0
$)
Beta
{ *** Hello GBATemp in BETA ***}
(#
do
'Hello GBATemp!'->putLine
#)
BlitzPlus
; Hello GBATemp in Blitz Plus (graphical mode)
Graphics 800,600,0,1
Text 790, 600, "Hello GBATemp"
WaitKey
Boo
# Hello GBATemp in Boo
print "Hello GBATemp"
BrainFxxx
Hello GBATemp in BrainF***. No comment character exists.
++++++++++[>+++++++>++++++++++>+++<<<-]>++.>+.+++++++
..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.
BS2000
/BEGIN-PROCEDURE LOGGING=N
/REMARK "HELLO GBATemp" IN BS2000 (SDF)
/ASSIGN-SYSDTA TO-FILE=*SYSCMD
/WRITE-TEXT 'HELLO GBATemp!'
/SET-JOB-STEP
/ASSIGN-SYSDTA TO-FILE=*PRIMARY
/END-PROCEDURE
C#
// Hello GBATemp in Microsoft C# ("C-Sharp").
using System;
class HelloGBATemp
{
public static int Main(String[] args)
{
Console.WriteLine("Hello, GBATemp!");
return 0;
}
}
C++
// Hello GBATemp in C++ (pre-ISO)
#include <iostream.h>
main()
{
cout << "Hello GBATemp!" << endl;
return 0;
}
C++-Epoc
// Hello GBATemp in C++, Epoc style (for Symbian OS)
#include <eikapp.h>
#include <eikdoc.h>
#include <eikappui.h>
class CHelloGBATempAppUi;
class CEikApplication;
class CHelloGBATempAppView;
class CHelloGBATempApplication : public CEikApplication
{
public:
TUid AppDllUid() const;
protected:
CApaDocument* CreateDocumentL();
};
class CHelloGBATempDocument : public CEikDocument
{
public:
static CHelloGBATempDocument* NewL(CEikApplication& aApp);
static CHelloGBATempDocument* NewLC(CEikApplication& aApp);
~CHelloGBATempDocument(){};
public:
CEikAppUi* CreateAppUiL();
private:
void ConstructL() {};
CHelloGBATempDocument(CEikApplication& aApp){};
};
class CHelloGBATempAppUi : public CEikAppUi
{
public:
void ConstructL();
CHelloGBATempAppUi(){};
~CHelloGBATempAppUi(){};
};
static const TUid KUidHelloGBATempApp = {0x10005B91};
GLDEF_C TInt E32Dll(TDllReason )
{
return KErrNone;
}
EXPORT_C CApaApplication* NewApplication()
{
return (new CHelloGBATempApplication);
}
CApaDocument* CHelloGBATempApplication::CreateDocumentL()
{
CApaDocument* document = CHelloGBATempDocument::NewL(*this);
return document;
}
TUid CHelloGBATempApplication::AppDllUid() const
{
return KUidHelloGBATempApp;
}
CHelloGBATempDocument* CHelloGBATempDocument::NewL(CEikApplication& aApp)
{
CHelloGBATempDocument* self = NewLC(aApp);
CleanupStack::Pop(self);
return self;
}
CHelloGBATempDocument* CHelloGBATempDocument::NewLC(CEikApplication& aApp)
{
CHelloGBATempDocument* self = new (ELeave) CHelloGBATempDocument(aApp);
CleanupStack::PushL(self);
self->ConstructL();
return self;
}
CEikAppUi* CHelloGBATempDocument::CreateAppUiL()
{
CEikAppUi* appUi = new (ELeave) CHelloGBATempAppUi;
return appUi;
}
void CHelloGBATempAppUi::ConstructL()
{
BaseConstructL();
_LIT(message,"Hello!");
CAknInformationNote* informationNote = new (ELeave) CAknInformationNote;
informationNote->ExecuteLD(message);
}
C++-ISO
// Hello GBATemp in ISO C++
#include <iostream>
int main()
{
std::cout << "Hello GBATemp!" << std::endl;
}
C++-MFC
// Hello GBATemp in C++ for Microsoft Foundation Classes
// (Microsoft Visual C++).
#include <afxwin.h>
class CHello : public CFrameWnd
{
public:
CHello()
{
Create(NULL,_T("Hello GBATemp!"),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 GBATemp 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 GBATemp!", 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 HelloGBATemp
{
PROPERTIES
{
OnRun=BEGIN
//Hello GBATemp in C/AL (Microsoft Business Solutions-Navision)
MESSAGE(Txt001);
END;
}
CODE
{
VAR
Txt001@1000000000 : TextConst 'ENU=Hello GBATemp';
BEGIN
END.
}
}
C-Ansi
/* Hello GBATemp in C, Ansi-style */
#include <stdio.h>
#include <stdlib.h>
int main(void)
{
puts("Hello GBATemp!");
return EXIT_SUCCESS;
}
C-Curses
/* Hello GBATemp in C for Curses */
#include <curses.h>
main()
{
initscr();
addstr("Hello GBATemp!\n");
refresh();
endwin();
return 0;
}
C-GEM
/* Hello GBATemp for C with GEM */
#include <aes.h>
main()
{
appl_init();
form_alert(1,"[0][Hello GBATemp!][Ok]");
appl_exit();
return 0;
}
C-Intuition
/* Hello GBATemp 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 GBATemp!",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 GBATemp in C, K&R-style */
main()
{
puts("Hello GBATemp!");
return 0;
}
C-Objective
/* Hello GBATemp 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 GBATemp 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 GBATemp!",
(PSZ)"", 0, MB_OK );
WinDestroyMsgQueue( hmq );
return 0;
}
C-Windows
/* Hello GBATemp in C for MS-Windows */
#include <windows.h>
int PASCAL WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance, LPSTR CmdLine, int Show)
{
MessageBox(GetActiveWindow(), "Hello GBATemp!", "Hello Windows GBATemp", MB_OK);
return 0;
}
C-X11-Athena
/* Hello GBATemp 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 GBATemp!",labelWidgetClass,
toplevel,(void*)0);
XtRealizeWidget(toplevel);
XtAppMainLoop(app_context);
return 0;
}
CAML-Light
(* Hello GBATemp in CAML Light *)
let hello =
print_string "Hello GBATemp!";
;;
Centura
! Hello GBATemp in Centura
Function: HelloGBATemp
Description:
Returns
Parameters
Static Variables
Local variables
Actions
Call SalMessageBox( 'Hello GBATemp','Message',MB_Ok)
Clean
// Hello GBATemp in Clean
module hello
Start :: String
Start = "Hello GBATemp!\n"
Clipper
// Hello GBATemp in Clipper (Summer 87, 5.0, 5.01, 5.2, 5.3)
? "Hellp GBATemp"
Cobol
* Hello GBATemp in Cobol
*****************************
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
MAIN SECTION.
DISPLAY "Hello GBATemp!"
STOP RUN.
****************************
Cocoa
// Hello GBATemp in Cocoa Obj-C (OS X)
#import <Foundation/Foundation.h>
int main (int argc, const char * argv[]) {
NSAutoreleasePool * pool = [[NSAutoreleasePool alloc] init];
NSLog(@"Hello, GBATemp!");
[pool release];
return 0;
}
ColdFusion
<!---Hello GBATemp in ColdFusion--->
<cfset message = "Hello GBATemp">
<cfoutput> #message#</cfoutput>
CommandScript
#Hello GBATemp in Command Script 3.1
#Meta.Name: "Hello GBATemp"
#Block(Main).Start
echo "Hello GBATemp!"
#Block(Main).End
Console-Postscript
%% Hello GBATemp in Console PostScript
serverdict begin 0 exitserver
/Courier findfont
48 scalefont setfont
22 22 moveto
(Hello GBATemp!) show
showpage
%% End
CSS
/* Hello GBATemp in CSS */
body:before {
content: "Hello GBATemp";
}
D
// Hello GBATemp in D
import std.stdio;
void main()
{
writefln("Hello GBATemp!");
}
Darkbasic
` Hello GBATemp in Darkbasic
print "Hello GBATemp!"
wait key
Databasic
PROGRAM HELLO.B
# Hello GBATemp in Databasic
CRT "HELLOW GBATemp"
END
Dataflex
// Hello GBATemp in Dataflex Procedural
/tela
Hello GBATemp
/*
clearscreen
page tela
dBase
* Hello GBATemp in dBase IV
? "Hello GBATemp!"
dc
#!/usr/bin/dc
# Hello GBATemp! in dc (Unix desk calculator)
[Hello GBATemp!]p
Delphi
// Hello GBATemp in Delphi
Program Hello_GBATemp;
{$APPTYPE CONSOLE}
Begin
WriteLn('Hello GBATemp');
End.
Dialect
# Hello GBATemp in Dialect
print "Hello GBATemp"
DML
! Hello GBATemp in DML (Gembase database language)
PROCEDURE_FORM MAIN
PRINT/NOWAIT ("Hello GBATemp")
END_FORM
DWIM
Hello GBATemp in DWIM ("Do what I mean").
Comments are not necessary in this language.
DWIM
Dylan
module: hello-GBATemp
author: Homer
copyright: (c) 1994 Homer
version: 1.0
// Hello GBATemp in DYLAN
define method main (#rest args)
princ("Hello GBATemp!");
end;
main();
DynaMorph
<<!! Hello GBATemp in DynaMorph >>
<#setString foo {Hello GBATemp!}#>
<html>
<head>
<title>DynaMorph</title>
</head>
<body>
<#getString foo#>
</body>
</html>
Eiffel
indexing "Hello GBATemp in Eiffel"
class HELLO
creation
run
feature
run is
local
io : BASIC_IO;
do
!!io;
io.put_string("Hello GBATemp!");
io.put_newline;
end; -- run
end; -- class HELLO
Elan
(* Hello GBATemp in ELAN *)
putline ("Hello GBATemp!");
Elliott
:: Hello GBATemp in Elliott Autocode
SETF PUNCH
SETR 1
1)TELEPRINTER
LINE
TITLE Hello GBATemp.;
STOP
START 1
Erlang
%% Hello GBATemp in Erlang
-module(hello).
-export([hello/0]).
hello() ->
io:format("Hello GBATemp!~n", []).
Euphoria
-- Hello GBATemp in Euphoria
puts(1, "Hello GBATemp!\n")
Ferite
/**
* start script -- Hello GBATemp in Ferite ( www.ferite.org )
*/
uses "console";
Console.println("Hello GBATemp");
/* end script */
Fjölnir
;; Hello GBATemp in Fjölnir (Icelandic programming language)
"hello" < main
{
main ->
stef(;)
stofn
skrifastreng(;"Halló Veröld!"),
stofnlok
}
*
"GRUNNUR"
;
Focal
1.01 COMMENT HELLO GBATemp IN FOCAL
1.02 TYPE "HELLO GBATemp", !
1.03 QUIT
FOCUS
-* Hello GBATemp in FOCUS
-TYPE Hello GBATemp
Forth
' Hello GBATemp in Forth
: HELLO
." Hello GBATemp!" CR
;
Fortran
C Hello GBATemp in Fortran
PROGRAM HELLO
WRITE (*,100)
STOP
100 FORMAT (' Hello GBATemp! ' /)
END
Fortran77
C Hello GBATemp in Fortran 77
PROGRAM HELLO
PRINT*, 'Hello GBATemp!'
END
Fortran90
! Hello GBATemp in Fortran 90 and 95
PROGRAM HelloGBATemp
WRITE(*,*) "Hello GBATemp!"
END PROGRAM
FortranIV
PROGRAM HELLO
c
C Hello GBATemp in Fortran IV (supposedly for a TR440)
c
WRITE (6,'('' Hello GBATemp!'')')
END
Fortress
(* Hello GBATemp in Fortress *)
export Executable
run(args) = print "Hello, GBATemp!"
FreeBASIC
'Hello GBATemp in FreeBASIC
print "Hello GBATemp"
Frink
// Hello GBATemp in Frink
println["Hello GBATemp!"]
G-Code
Hello GBATemp in "G Code" for CNC machines.
Click here for a preview.
%
O1000
(PROGRAM NAME - HELLOGBATemp)
(DATE=DD-MM-YY - 30-06-05 TIME=HH:MM - 19:37)
N10G20
N20G0G17G40G49G80G90
/N30G91G28Z0.
/N40G28X0.Y0.
/N50G92X0.Y0.Z0.
( 1/16 FLAT ENDMILL TOOL - 1 DIA. OFF. - 1 LEN. - 1 DIA. - .0625)
(CONTOUR)
N60T1M6
N70G0G90X0.Y1.A0.S5000M3
N80G43H1Z.5
N90Z.25
N100G1Z-.005F2.
N110Y0.F20.
N120G0Z.5
N130X.5
N140Z.25
N150G1Z-.005F2.
N160Y1.F20.
N170G0Z.5
N180Y.6106
N190Z.25
N200G1Z-.005F2.
N210X0.F20.
N220G0Z.5
N230X.6157Y.4712
N240Z.25
N250G1Z-.005F2.
N260X.6039Y.4135F20.
N270X.6Y.351
N280X1.1
N290G3X1.0098Y.6202R.4333
N300X.8941Y.6971R.2625
N310X.7255Y.6538R.1837
N320X.6157Y.4712R.332
N330G0Z.5
N340X.6Y.351
N350Z.25
N360G1Z-.005F2.
N370X.6039Y.2885F20.
N380G3X.7255Y.0481R.385
N390X.9745R.1853
N400X1.0843Y.2308R.332
N410G0Z.5
N420X1.2039Y0.
N430Z.25
N440G1Z-.005F2.
N450Y1.F20.
N460G0Z.5
N470X1.3098
N480Z.25
N490G1Z-.005F2.
N500Y0.F20.
N510G0Z.5
N520X1.4706Y.125
N530Z.25
N540G1Z-.005F2.
N550X1.502Y.0817F20.
N560G3X1.6176Y.0048R.2625
N570X1.7863Y.0481R.1837
N580X1.9118Y.351R.3957
N590X1.8216Y.6202R.4333
N600X1.7059Y.6971R.2625
N610X1.5373Y.6538R.1837
N620X1.4157Y.4135R.358
N630X1.4706Y.125R.4611
N640G0Z.5
N650X1.9853Y0.
N660Z.25
N670G1Z-.005F2.
N680X2.0422Y.1442F20.
N690G0Z.5
N700X2.5706Y1.
N710Z.25
N720G1Z-.005F2.
N730X2.6961Y0.F20.
N740X2.8216Y1.
N750X2.9451Y0.
N760X3.0706Y1.
N770G0Z.5
N780X3.2961Y.6538
N790Z.25
N800G1Z-.005F2.
N810X3.2608Y.6202F20.
N820G3X3.1745Y.2885R.4408
N830X3.2961Y.0481R.385
N840X3.5451R.1853
N850X3.6706Y.351R.3957
N860X3.5804Y.6202R.4333
N870X3.4647Y.6971R.2625
N880X3.2961Y.6538R.1837
N890G0Z.5
N900X3.7461Y.7019
N910Z.25
N920G1Z-.005F2.
N930Y0.F20.
N940G0Z.5
N950Y.3654
N960Z.25
N970G1Z-.005F2.
N980X3.7637Y.4663F20.
N990G2X3.8422Y.6587R.4948
N1000X3.9167Y.7019R.0929
N1010G1X4.0755
N1020G2X4.15Y.6587R.0929
N1030X4.1951Y.5769R.246
N1040G0Z.5
N1050X4.3255Y1.
N1060Z.25
N1070G1Z-.005F2.
N1080Y0.F20.
N1090G0Z.5
N1100X4.9275
N1110Z.25
N1120G1Z-.005F2.
N1130Y1.F20.
N1140G0Z.5
N1150X5.0314
N1160Z.25
N1170G1Z-.005F2.
N1180Y.2981F20.
N1190G0Z.5
N1200X4.9275Y.274
N1210Z.25
N1220G1Z-.005F2.
N1230X4.8941Y.1731F20.
N1240G2X4.7627Y.0192R.3255
N1250X4.5529Y.0481R.1862
N1260X4.4314Y.2885R.358
N1270X4.5176Y.6202R.4408
N1280X4.6333Y.6971R.2625
N1290X4.802Y.6538R.1837
N1300X4.8941Y.5288R.3457
N1310G1X4.9275Y.4279
N1320G0Z.5
N1330X5.0314Y.149
N1340Z.25
N1350G1Z-.005F2.
N1360Y0.F20.
N1370G0Z.5
N1380M5
N1390G91G28Z0.
N1400G28X0.Y0.A0.
N1410M30
%
Gambas
'************************************
' Hello GBATemp in Gambas
'************************************
PUBLIC SUB Main()
PRINT "Hello GBATemp"
END
Gentee-simple
// Hello GBATemp in Gentee (simple version)
func hello<main> : @"Hello, GBATemp!"
Gentee
// Hello GBATemp in Gentee
func hello <main>
{
print( "Hello, GBATemp!" )
getch()
}
GML
// Hello GBATemp in GML (Game Maker Language)
draw_text(10,10,"Hello GBATemp")
screen_refresh()
keyboard_wait()
Gofer
-- Hello GBATemp in Gofer
-- Simple version
helloGBATemp:: String
helloGBATemp = "Hello GBATemp!\n"
-- Hello GBATemp in Gofer
-- Dialog version
helloGBATemp :: Dialogue
helloGBATemp resps = [AppendChan stdout "Hello GBATemp!"]
Gri
# Hello GBATemp in Gri
show "hello GBATemp"
Groovy
// Hello GBATemp in Groovy
println "Hello GBATemp"
GynkoSoft
; Hello GBATemp in GynkoSoft
; Simple version
0.00 Protocol "Hello, GBATemp!"
; Hello GBATemp in GynkoSoft
; Dialog box output
0.00 Message "Hello, GBATemp!"
Haskell
-- Hello GBATemp in Haskell
module Hello where
hello::String
hello = "Hello GBATemp!"
HDX
# Hello GBATemp as bdehaldia.exe external command
proc hdx_info {} {
set ::Titel "&Hello GBATemp"
set ::Menu GMA
}
proc hdx_run {} {
tk_messageBox -type ok -message "Hello GBATemp!"
destroy .
}
HP-41C
Hello GBATemp for the HP 41C. No comment character exists.
01 LBL "HELLO"
02 "HELLO GBATemp"
03 AVIEW
HP-48
<<
@ Hello GBATemp for the HP-48
@ << and >> are one char each
"HELLO GBATemp"
>>
HQ9+
Hello GBATemp in HQ9+ and HQ9++. No comment character exists.
H
HTML
<HTML>
<!-- Hello GBATemp in HTML -->
<HEAD>
<TITLE>Hello GBATemp!</TITLE>
</HEAD>
<BODY>
Hello GBATemp!
</BODY>
</HTML>
HyperTalk
-- Hello GBATemp in HyperTalk
answer "Hello, GBATemp!"
IBM-Exec
Hello GBATemp for IBM EXEC (under VM/CMS)
&CONTROL
*
&TYPE Hello GBATemp!
*
&EXIT 0
IBM-Exec2
Hello GBATemp for IBM EXEC2 (under VM/CMS)
&TRACE OFF
*
&TYPE Hello GBATemp!
*
&EXIT 0
ici
# Hello GBATemp in ici (http://www.zeta.org.au/~atrn/ici/)
printf("Hello GBATemp!\n");
Icon
# Hello GBATemp in Icon (http://www.cs.arizona.edu/icon/)
procedure main()
write("Hello GBATemp")
end
IDC
// Hello GBATemp in IDC-script language for IDA disaasembler
#include <idc.idc>
static main(void)
{
Message("Hello GBATemp!");
}
IDL
IDL>; Hello GBATemp in IDL (Interactive Data Language)
IDL> print, "Hello GBATemp"
Inform
! "Hello GBATemp" in Inform
[ Main;
print "Hello GBATemp^";
];
Informix-4GL
# Hello GBATemp in Informix 4GL
MAIN
DISPLAY "Hello GBATemp"
END MAIN
Ingres-ABF
/* Hello GBATemp in Ingres ABF */
procedure hello =
begin
message 'Hello, GBATemp' with style=popup;
end
InstallScript
// Hello GBATemp in InstallScript
// (Scripting language of InstallShield, a Windows install generator)
program
MessageBox("Hello GBATemp!",INFORMATION);
endprogram
Intercal
HELLO GBATemp IN INTERCAL NOT FORTRAN
HELLO GBATemp
Io
// Hello GBATemp in io programming language
"Hello GBATemp!" print
Jako
# Hello GBATemp in Jako
use sys;
sys::print("Hello, GBATemp!\n");
Java
// Hello GBATemp in Java
import java.io.*;
class HelloGBATemp {
static public void main( String args[] ) {
System.out.println( "Hello GBATemp!" );
}
}
Java-Mobile
// Hello GBATemp on a mobile Java device
package helloGBATemp;
import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
public class HelloGBATemp extends MIDlet {
public HelloGBATemp()
{
Form form = new Form("Hello GBATemp");
form.append("Hello GBATemp!");
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 GBATemp for Java Server Pages -->
<%@ page language='java' %>
<%="Hello GBATemp!" %>
Java-Servlet
import javax.servlet.*;
import javax.servlet.http.*;
import java.io.*;
//
// Hello GBATemp Java Servlet
//
public class HelloGBATemp 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 GBATemp!");
out.println("</body></html>");
}
}
Java-Swing
// Hello GBATemp in Java using Swing GUI
class HelloGBATempSwing {
static public void main(String args[]) {
javax.swing.JOptionPane.showMessageDialog(null,"Hello GBATemp!");
}
}
JavaScript
<html>
<body>
<script language="JavaScript" type="text/javascript">
// Hello GBATemp in JavaScript
document.write('Hello GBATemp');
</script>
</body>
</html>
JCL
//HERIB JOB ,'HERIBERT OTTEN',PRTY=12
//* Hello GBATemp for MVS
//HALLO EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=T
//SYSUT1 DD *
Hello GBATemp!
/*
//
JudoScript
// Hello GBATemp in JudoScript (a Java scripting layer)
. "Hello GBATemp";
Kylix
{Hello GBATemp in Kylix}
program Hello_GBATemp;
uses
QDialogs;
begin
ShowMessage('Hello GBATemp');
end.
LaTeX
% Hello GBATemp! in LaTeX
\documentclass{article}
\begin{document}
Hello GBATemp!
\end{document}
LibertyBASIC
'hello GBATemp in Liberty BASIC
PRINT "Hello GBATemp"
END
LilyPond
% Hello GBATemp in LilyPond
\markup { Hello GBATemp! }
Limbo
Hello GBATemp in Limbo.
Limbo is the programming language of the Inferno OS
(from Lucent Bell Labs).
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 GBATemp\n");
}
LIMS-Basic
'Hello GBATemp in LIMS Basic
msgbox("hello GBATemp")
Lingo
Hello GBATemp in Lingo (Macromedia Director)
on startmovie
alert "Hello GBATemp"
end
Lisp
;;; Hello GBATemp in Common Lisp
(defun helloGBATemp ()
(print "Hello GBATemp!")
)
Lisp-Emacs
;;; Hello GBATemp in Emacs Lisp.
(defun hello-GBATemp()
"Display the string hello GBATemp."
(interactive)
(message "hello GBATemp"))
Logo
; Hello GBATemp in Logo
DRUCKEZEILE [Hello GBATemp!]
Logo-graphical
; Hello GBATemp in LOGO, graphical output.
go 20 , left 180,
go 40 , left 180,
go 20 , right 90,
go 20 , left 90 ,
go 20 , left 180,
go 40 , left 90 ,
go 20 , left 90 ,
go 20 , right 90 ,
go 20 , right 90 ,
go 10 , right 90 ,
go 20 , left 90 ,
go 10 , left 90 ,
go 30 , left 90 ,
go 40 , left 180,
go 40 , left 90 ,
go 20 , left 90 ,
go 40 , left 180,
go 40 , left 90 ,
go 40 , left 90 ,
go 20 , left 90 ,
go 20 , left 90 ,
go 20 , left 90 ,
go 60 , left 90 ,
go 40 , left 180,
go 40 , left 90 ,
go 20 , left 90 ,
go 20 , left 180,
g...
LOTOS
(* Hello GBATemp in LOTOS (Language Of Temporal Ordering Specifications) *)
process HelloGBATemp [v]: exit :=
v! "Hello GBATemp!";
exit
endproc
Lotus-Note-Formula
REM "Lotus Note Formula Language";
@Prompt([ok];"Hi there";"Hello GBATemp");
Lotus-Script
' Hello GBATemp in Lotus Script
Sub Initialize
Msgbox "Hello GBATemp", 0, "Hi there!"
End Sub
LS-DYNA
$ "Hello GBATemp" for LS-DYNA
*KEYWORD
*PART
1 1 1
*SECTION_BEAM
1 1 1.0 2 1
1.0 1.0 0.0 0.0 1 1
*MAT_ELASTIC
1 1.0E-9 1000.0 0.3
*ELEMENT_BEAM
1 1 2 3 1
2 1 3 4 1
3 1 3 6 1
4 1 6 5 1
5 1 8 11 1
6 1 11 12 1
7 1 12 9 1
8 1 9 8 1
9 1 8 7 1
10 1 7 10 1
11 1 14 16 1
12 1 16 15 1
13 1 13 15 1
14 1 15 17 1
15 1 19 21 1
16 1 21 20 1
17 1 18 20 1
18 1 20 22 1
19 1 23 24 1
20 1 24 26 1
21 1 26 25 1
22 1 25 23 1
23 1 27 28 1
24 1 28 29 1
25 1 29 30 1
26 1 30 31 1
27 1 32 33 1
28 1 33 35 1
29 1 35 34 1
30 1 34 32 1
31 1 36 37 1
32 1 37 38 1
33 1 40 42 1
34 1 42 41 1
35 1 39 41 1
36 1 41 43 1
37 1 44 45 1
38 1 45 47 1
39 1 48 47 1
40 1 47 46 1
41 1 46 44 1
*NODE
1 0.0 0.0 1.0
2
3 0.0 2.0
4 0.0 4.0
5 2.0
6 2.0 2.0
7 3.0
8 3.0 1.0
9 3.0 2.0
10 5.0
11 5.0 1.0
12 5.0 2.0
13 6.0
14 6.0 4.0
15 7.0
16 7.0 4.0
17 8.0
18 9.0
19 9.0 4.0
20 10.0
21 10.0 4.0
22 11.0
23 12.0
24 12.0 2.0
25 14.0
26 14.0 2.0
27 16.0 2.0
28 16.5
29 17.0 1.0
30 17.5
31 18.0 2.0
32 19.0
33 19.0 2.0
34 21.0
35 21.0 2.0
36 22.0
37 22.0 2.0
38 24.0 2.0
39 25.0
40 25.0 4.0
41 26.0
42 26.0 4.0
43 27.0
44 28.0
45 28.0 2.0
46 30.0
47 30.0 2.0
48 30.0 4.0
*END
LSL
// Hello GBATemp in Linden Scripting Language (LSL)
default
{
state_entry()
{
llSay(0, "Hello GBATemp");
}
}
lua
# Hello GBATemp in lua
print "Hello GBATemp"
m4
# Hello GBATemp for the m4 macro processor
Hello
MACRO-10
TITLE HELLO GBATemp
; HELLO GBATemp IN MACRO 10 FOR TOPS-10
ENTRY OUTPUT
SEARCH UUOSYM
LAB: ASCIZ /HELLO GBATemp
/
OUTPUT: OUTSTR LAB ; OUTPUT MESSAGE
MONRT. ; RETURN TO MONITOR
END OUTPUT
MACRO-11
; "Hello, GBATemp!" in MACRO-11 for RT-11
.MCALL .EXIT,.PRINT
START: .PRINT #$1
.EXIT
$1: .ASCIZ /Hello, GBATemp!/
.END START
Macromedia-Flex
<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.macromedia.com/2003/mxml">
<!-- Hello Word in Macromedia Flex -->
<mx:Label text="Hello GBATemp"/>
</mx:Application>
Malbolge
Hello GBATemp in Malbolge. No comment character exists.
(=<`$9]7<5YXz7wT.3,+O/o'K%$H"'~D|#z@b=`{^Lx8%$Xmrkpohm-kNi;gsedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?>=<;:9876543s+O<oLm
MAMASH
/* Hello GBATemp in MAMASH */
TQWD LGYEA NXKIA HELLO_GBATemp )1(
DWLH CXBZ_YKX
ID& HELLO_GBATemp YED 'HELLO GBATemp' .
Maple
# Hello GBATemp in Maple
>> printf("Hello GBATemp!");
Mathematica
(* Hello GBATemp in Mathematica *)
Hello[] := Print["Hello, GBATemp!"]
MATLAB
% Hello GBATemp in MATLAB.
disp('Hello GBATemp');
MEL
// Hello GBATemp in MEL scripting language for Alias Maya
proc helloGBATemp () {
print "Hello GBATemp!\n";
}
helloGBATemp;
Microtik
#Hello GBATemp in Mikrotik RouterOS Scripting Host; :put ("Hello, GBATemp!");
mIRC-Alias
;Hello GBATemp for mIRC (alias section)
helloGBATemp: /echo -a Hello GBATemp!
mIRC-Commandline
; Hello GBATemp! for mIRC (command line version)
echo Hello GBATemp!
mIRC-Script
;Hello GBATemp for mIRC script
alias helloGBATemp {
/echo -a Hello GBATemp!
}
Modula-2
(* Hello GBATemp in Modula-2 *)
MODULE HelloGBATemp;
FROM InOut IMPORT WriteString,WriteLn;
BEGIN
WriteString("Hello GBATemp!");
WriteLn;
END HelloGBATemp.
MoHAA-Script
// Hello GBATemp in the Medal of Honor Allied Assault scripting language
iprintln "Hello GBATemp!"
MPD
# Hello GBATemp in MPD.
resource helloGBATemp()
write("Hello GBATemp")
end
MSDOS
@ECHO OFF
REM Hello GBATemp for DOS batch
ECHO Hello GBATemp!
MSIL
//Hello GBATemp in MSIL (.NET assembler)
.assembly helloGBATemp {}
.class helloGBATemp
{
.method static void Main() cil managed
{
.entrypoint
ldstr "Hello GBATemp!"
call void [mscorlib]System.Console::WriteLine(string)
ret
}
}
MuLisp
; Hello, GBATemp! in MuLisp
(print 'Hello\,\ GBATemp\!)
Mumps
; Hello GBATemp in Mumps-M
w !,"Hello GBATemp"
Natural
* Hello GBATemp in Natural (by Software AG)
FORMAT AD=M
DISPLAY 'Hello GBATemp!'
END
NewtonScript
// Hello GBATemp 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 GBATemp!",
viewBounds: {left: 33, top: 24, right: 113, bottom: 46},
viewFlags: 579,
_proto: protoStaticText,
debug: "textview"
};
Nice
//Hello GBATemp in Nice
void main(String[] args){
println("hello GBATemp");
}
NSIS
; Hello GBATemp in Nullsoft Software Install Script (NSIS)
Caption "Hello GBATemp!"
OutFile ".\HelloGBATemp.exe"
SilentInstall silent
Section ""
MessageBox MB_OK "Hello GBATemp!"
SectionEnd
Oberon.oberon
MODULE HelloGBATemp;
(* Hello GBATemp in Oberon for the Oberon System *)
IMPORT Oberon, Texts;
VAR
W: Texts.Writer;
PROCEDURE Do*;
BEGIN
Texts.WriteString(W,"Hello GBATemp!");
Texts.WriteLn(W);
Texts.Append(Oberon.Log,W.buf)
END Do;
BEGIN Texts.OpenWriter(W)
END HelloGBATemp.
Oberon.std
(* Hello GBATemp in Oberon for standard operating systems *)
MODULE HelloGBATemp;
IMPORT Out;
BEGIN
Out.String("Hello GBATemp!");
Out.Ln;
END HelloGBATemp;
OCaml
(* Hello GBATemp in OCaml *)
print_string "Hello GBATemp!\n";;
Occam
PROGRAM Hello
-- Hello GBATemp in Occam
#USE ioconv
SEQ
write.full.string(screen,"Hello GBATemp!")
Octave
#Hello GBATemp in Octave (http://www.octave.org/)
printf("Hello GBATemp\n");
Omnimark
; Hello GBATemp in Omnimark
process
output "Hello GBATemp!%n"
Ook
Hello GBATemp in Ook. No comments possible.
Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook.
Ook! Ook. Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook?
Ook! Ook! Ook? Ook! Ook? Ook. Ook. Ook. Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook. Ook! Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook! Ook. Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook. Ook! Ook.
Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook.
Ook? Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook! Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook.
Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook!
Ook! Ook. Ook. Ook? Ook. Ook? Ook. Ook. Ook! Ook. Ook! Ook? Ook! Ook! Ook? Ook!
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook! Ook.
OpenVMS
$! Hello GBATemp in OpenVMS DCL
$ write sys$output "Hello GBATemp"
OPL.dialog
REM Hello GBATemp 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 GBATemp"," ","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 GBATemp for OPL (Psion Organizer 3a)
REM Simple version
PROC HELLO:
PRINT "Hello GBATemp!"
GET
ENDP
OZ
Hello GBATemp in OZ, shell version:
Type the text
{Browse 'Hello GBATemp!'}
to a buffer in OZ mode and feed it for execution (e.g., by typing the
key M-l or by using the OZ menu). A window titled Oz Browser will pop
up showing the atom 'Hello GBATemp!'.
Pascal
{Hello GBATemp in Pascal}
program HelloGBATemp(output);
begin
WriteLn('Hello GBATemp!');
end.
Pascal-Windows
{ Hello GBATemp in Borland Pascal 7 for MS-Windows}
PROGRAM HelloGBATemp;
USES
WinCRT;
BEGIN
InitWinCRT;
WriteLn('Hello GBATemp!');
ReadLn;
DoneWinCRT;
END.
Pawn
/* Hello GBATemp in Pawn */
main()
{
printf "Hello GBATemp!"
}
PBASIC
' Hello GBATemp in PBASIC (for the Boe-Bot Robot)
' {$STAMP BS2}
' {$PBASIC 2.5}
DEBUG "Hello GBATemp!"
END
PDF
%Hello GBATemp in Portable Document Format (PDF)
%PDF-1.2
1 0 obj
<<
/Type /Page
/Parent 5 0 R
/Resources 3 0 R
/Contents 2 0 R
>>
endobj
2 0 obj
<<
/Length 51
>>
stream
BT
/F1 24 Tf
1 0 0 1 260 600 Tm
(Hello GBATemp)Tj
ET
endstream
endobj
3 0 obj
<<
/ProcSet[/PDF/Text]
/Font <</F1 4 0 R >>
>>
endobj
4 0 obj
<<
/Type /Font
/Subtype /Type1
/Name /F1
/BaseFont /Arial
>>
endobj
5 0 obj
<<
/Type /Pages
/Kids [ 1 0 R ]
/Count 1
/MediaBox
[ 0 0 612 792 ]
>>
endobj
6 0 obj
<<
/Type /Catalog
/Pages 5 0 R
>>
endobj
trailer
<<
/Root 6 0 R
>>
Perl
# Hello GBATemp in perl
print "Hello GBATemp!\n";
PHP
<?php
// Hello GBATemp in PHP
echo 'Hello GBATemp!';
?>
PHP+GD
<?
// Hello GBATemp in PHP + GD library
header("Content-type: image/gif");
$rscImage = imagecreatetruecolor(80, 25);
$intFontC = imagecolorallocate($rscImage, 255, 255, 255);
$intBGC = imagecolorallocate($rscImage, 0, 0, 0);
imagestring($rscImage, 2, 5, 5, "Hello GBATemp!", $intFontC);
imagegif($rscImage);
imagedestroy($rscImage);
?>
Pike
// Hello GBATemp in Pike (pike.roxen.com)
int main(){
write("Hello GBATemp!\n");
}
PL-SQL
-- Hello GBATemp in Oracle PL/SQL (sqlplus)
set serveroutput on
begin
dbms_output.enable(10000);
dbms_output.put_line('Hello GBATemp');
end;
/
PL1
/* Hello GBATemp in PL/1 */
Hello: procedure options(main);
put skip list('Hello GBATemp!');
end Hello;
Pocket-Calculator
Hello GBATemp for standard pocket calculators (7-segment display).
Type in and turn calculator upside down.
0.7734
POP-11
;;; Hello GBATemp in POP-11
: vars outputtext;
: "Hello GBATemp" -> outputtext;
: outputtext =>
** Hello GBATemp
PostgreSQL
-- Hello GBATemp in PL/pgSQL (PostgreSQL Procedural Language)
-- In old versions replace '$$' by double qoutes
CREATE FUNCTION hello_GBATemp() RETURNS text AS $$
BEGIN
RETURN 'Hello GBATemp';
END
$$ LANGUAGE plpgsql;
SELECT hello_GBATemp();
Postscript
% Hello GBATemp in Postscript
%!PS
/Palatino-Roman findfont
100 scalefont
setfont
100 100 moveto
(Hello GBATemp!) show
showpage
POV-Ray
// Hello GBATemp for the Persistence of Vision Raytracer.
// Click here to view the output.
#include "skies.inc"
camera{location <0,1,-5> look_at y}
light_source{<2,4,-7>,2}
sky_sphere{S_Cloud1}
plane{y 0 pigment{checker rgb 1,0} finish{reflection .5}}
text{ttf "timrom.ttf" "Hello GBATemp!" .3,0
pigment {agate scale .2} translate -2.5*x
}
Powerbasic
' Hello GBATemp in Powerbasic Console Compiler
FUNCTION PBMAIN () AS LONG
PRINT "Hello GBATemp"
END FUNCTION
PowerScript
// Hello GBATemp in PowerScript
MessageBox("","Hello GBATemp!")
PQN-PROC
PQN
C Hello GBATemp in PQN/PROC
O Hello GBATemp
Profan
' Hello GBATemp in Profan (http://www.profan.de/)
cls
print "Hello GBATemp!"
waitkey
Progress
/* Hello GBATemp in Progress */
message "Hello GBATemp" view-as alert-box.
Prolog
% Hello GBATemp in Prolog
hello :- display('Hello GBATemp!') , nl .
PureBasic-Console
; Hello GBATemp in PureBasic (console program)
OpenConsole()
ConsoleTitle ("Hello GBATemp!")
PrintN ("Hello GBATemp!")
CloseConsole()
PureBasic-Messagebox
; Hello GBATemp in PureBasic (message box)
MessageRequester("Hello GBATemp Messagebox","Hello GBATemp!")
PureBasic-Window
; Hello GBATemp in PureBasic (Window)
If OpenWindow(0, 216, 0, 268, 133, #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Hello GBATemp Window")
If CreateGadgetList(WindowID())
TextGadget(1, 100, 60, 60, 20, "Hello GBATemp!")
EndIf
EndIf
Repeat; Message Loop
Until WaitWindowEvent() = #PB_EventCloseWindow
Python
# Hello GBATemp in Python
print "Hello GBATemp"
qore
#!/usr/local/bin/qore
# Hello GBATemp in qore
class HelloGBATemp
{
constructor()
{
background $.output("Hello, GBATemp!");
}
output($arg)
{
printf("%s\n", $arg);
}
}
new HelloGBATemp();
QuakeC
// Hello GBATemp in QuakeC. This should be put somewhere, for instance
// PutClientInServer() in Client.qc.
bprint("Hello GBATemp\n");
QuickBASIC
REM Hello GBATemp in QuickBASIC
PRINT "Hello GBATemp!"
END
R
# Hello GBATemp for R
cat("Hello GBATemp\n")
ratfor
# hello.GBATemp.in.ratfor
print *, 'hello, GBATemp'
end
REALbasic
' Hello GBATemp in REALbasic (http://www.realsoftware.com/)
msgBox "Hello GBATemp!"
RealText
<window width="320" height="160">
<!-- Hello GBATemp in RealText -->
<font size="12" name="Arial">
<center>Hello GBATemp!</center>
</font>
</window>
Rebol-view
Hello GBATemp in Rebol-view.
rebol[]
view layout[
text "Hello GBATemp!"
]
Redcode
; Hello GBATemp in Redcode
; Should work with any MARS >= ICWS-86
; (with 128x64 gfx core support, of course!)
;
Start MOV 0,2455
MOV 0,2458
MOV 0,2459
MOV 0,2459
MOV 0,2459
MOV 0,2459
MOV 0,2459
MOV 0,2460
MOV 0,2465
MOV 0,2471
MOV 0,2471
MOV 0,2471
MOV 0,2479
MOV 0,2482
MOV 0,2484
MOV 0,2484
MOV 0,2484
MOV 0,2486
MOV 0,2486
MOV 0,2486
MOV 0,2486
MOV 0,2488
MOV 0,2493
MOV 0,2493
MOV 0,2493
MOV 0,2493
MOV 0,2497
MOV 0,2556
MOV 0,2559
MOV 0,2560
MOV 0,2565
MOV 0,2570
MOV 0,2575
MOV 0,2578
MOV 0,2585
MOV 0,2588
MOV 0,2589
MOV 0,2592
MOV 0,2593
MOV 0,2596
MOV 0,2597
MOV 0,2603
MOV 0,2605
MOV 0,2608
MOV 0,2667
MOV 0,2670
MOV 0,2671
MOV 0,2676
MOV 0,2681
MOV 0,2686
MOV 0,2689
MOV 0,2696
MOV 0,2699
MOV 0,2700
MOV 0,2703
MOV 0,2704
MOV 0,2707
MOV 0,2708
MOV 0,2714
MOV 0,2716
MOV 0,2719
MOV 0,2778
MOV 0,2778
MOV 0,2778
MOV 0,2778
MOV 0,2778
MOV 0,2779
MOV 0,2779
MOV 0,2779
MOV 0,2782
MOV 0,2787
MOV 0,2792
MOV 0,2795
MOV 0,2802
MOV 0,2805
MOV 0,2806
MOV 0,2809
MOV 0,2810
MOV 0,2810
MOV 0,2810
MOV 0,2810
MOV 0,2812
MOV 0,2818
MOV 0,2820
MOV 0,2823
MOV 0,2882
MOV 0,2885
MOV 0,2886
MOV 0,2891
MOV 0,2896
MOV 0,2901
MOV 0,2904
MOV 0,2911
MOV 0,2912
MOV 0,2913
MOV 0,2914
MOV 0,2917
MOV 0,2918
MOV 0,2919
MOV 0,2922
MOV 0,2928
MOV 0,2930
MOV 0,2933
MOV 0,2992
MOV 0,2995
MOV 0,2996
MOV 0,3001
MOV 0,3006
MOV 0,3011
MOV 0,3014
MOV 0,3021
MOV 0,3022
MOV 0,3023
MOV 0,3024
MOV 0,3027
MOV 0,3028
MOV 0,3030
MOV 0,3032
MOV 0,3038
MOV 0,3040
MOV 0,3103
MOV 0,3106
MOV 0,3107
MOV 0,3107
MOV 0,3107
MOV 0,3107
MOV 0,3107
MOV 0,3108
MOV 0,3108
MOV 0,3108
MOV 0,3108
MOV 0,3108
MOV 0,3109
MOV 0,3109
MOV 0,3109
MOV 0,3109
MOV 0,3109
MOV 0,3111
MOV 0,3111
MOV 0,3111
MOV 0,3120
MOV 0,3121
MOV 0,3124
MOV 0,3124
MOV 0,3124
MOV 0,3126
MOV 0,3129
MOV 0,3130
MOV 0,3130
MOV 0,3130
MOV 0,3130
MOV 0,3130
MOV 0,3131
MOV 0,3131
MOV 0,3131
MOV 0,3131
MOV 0,3135
JMP 0
REFAL-2
* Hello, GBATemp! in REFAL-2
start
entry go
extrn PROUT
go = <prout 'Hello, GBATemp!'>
end
Regular-Expression
Hello GBATemp as a regular expression.
Replaces everything with "Hello GBATemp".
For use with vi, sed, etc.
Search String : ^.*$
Replace String: 'Hello GBATemp'
Revolution
-- Hello GBATemp in Revolution (formerly called Transcript)
answer "Hello GBATemp!"
Rexx.simple
/* Hello GBATemp in Rexx, simple version (writes to standard output) */
say 'Hello GBATemp!'
exit
Rexx.window
/* Hallo GBATemp in Rexx, opens window */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
call RxMessageBox 'Hello GBATemp!', 'Hello GBATemp Window', 'OK', 'EXCLAMATION'
exit
RPG-IV
H* Hello GBATemp in RPG IV
D msg S 32 inz(*blank)
D cmd S 64
C eval msg = 'Hello GBATemp'
C msg dsply
C eval cmd = 'DLYJOB DLY(30)'
C call 'QCMDEXC'
C parm cmd
C parm 64 len 15 5
C eval *inlr = *on
RSL
// Hello GBATemp in RSL (RS-Bank Language)
[Hello GBATemp!];
Ruby
# Hello GBATemp in Ruby
puts "Hello GBATemp!"
S-Plus
# Hello GBATemp for S-Plus
cat("Hello GBATemp\n")
SAL
// Hello GBATemp in SAL
proc main()
MsgBox("Hello from SAL", "Hello, GBATemp!")
end
SApp
comment: Hello GBATemp in SApp
popup "Hello ## GBATemp!" ,
Sather
-- Hello GBATemp in Sather
class HELLO is
main is #OUT + "Hello GBATemp!\n" end
end
Scala
// Hello GBATemp in Scala
object HelloGBATemp with Application {
Console.println("Hello GBATemp!");
}
Scheme
;;; Hello GBATemp in Scheme
(define helloGBATemp
(lambda ()
(display "Hello GBATemp")
(newline)))
Seed7
# Hello GBATemp in Seed7
$ include "seed7_05.s7i";
const proc: main is func
begin
writeln("Hello GBATemp!");
end func;
Self
(| "Hello GBATemp in Self"
hello = (| | 'Hello GBATemp!' print)
|)
SenseTalk
Hello GBATemp in SenseTalk.
on run put "Hello GBATemp!" end run
Setl2
-- Hello GBATemp in Setl2
procedure Hello();
print "Hello GBATemp!";
end Hello;
[Exeunt]
SilverBasic
//Hello GBATemp in SilverBasic
PRINT "Hello GBATemp!"
SIMPLE
[::PROGRAM:Hello GBATemp program in SIMPLE
A EQL @0
MSG A
END
]
{::DATA:Data part
@0:T
Hello GBATemp$$M
$$@
}
Simula
! Hello GBATemp in Simula;
BEGIN
OutText("Hello GBATemp!");
OutImage;
END
Smalltalk.simple
"Hello GBATemp in Smalltalk (simple version)"
Transcript show: 'Hello GBATemp!'.
Smalltalk.window
"Hello GBATemp in Smalltalk (in an own window)"
"(to be entered in a special browser)"
VisualComponent subclass: #HelloGBATempView
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'test'
displayOn: aGraphicsContext
'Hello GBATemp!' asComposedText displayOn: aGraphicsContext.
open
|window|
window := ScheduledWindow new.
window label: 'Hello GBATemp Demo:'.
window component: self new.
window open.
SMIL
<!-- Hello GBATemp in SMIL -->
<smil>
<head>
<layout>
<root-layout width="300" height="160" background-color="white"/>
<region id="text_region" left="115" top="60"/>
</layout>
</head>
<body>
<text src="data:,Hello%20GBATemp!" region="text_region">
<param name="fontFace" value="Arial"/>
</text>
</body>
</smil>
SML
(* Hello GBATemp in SML *)
fun hello() = output(std_out, "Hello GBATemp!");
Snobol
* Hello GBATemp in Snobol
OUTPUT = "Hello GBATemp!"
Spin
' Hello GBATemp in Spin
CON
_clkmode = xtal1 + pll16x
_xinfreq = 5_000_000
NewLine = 13
ClearScreen = 0
'
OBJ
VideoDisplay: "TV_Terminal"
'
PUB Start
'
DisplayTextOnMonitor
'
PRI DisplayTextOnMonitor | Count
VideoDisplay.start
SetScreenWhiteOnDarkBlue
'
Repeat Count From 1 To 50000
WaitCnt(40_000_000 + Cnt)
VideoDisplay.str(string("THE COUNT IS: "))
VideoDisplay.dec(Count)
VideoDisplay.out(NewLine)
WaitCnt(40_000_000 + Cnt)
VideoDisplay.out(ClearScreen)
'
PRI SetScreenWhiteOnDarkBlue
VideoDisplay.out(3)
VideoDisplay.out(5)
SPL
HELLO: PROCEDURE OPTIONS(MAIN);
*
/* Hello GBATemp in SPL4 (Siemens) */
*
DCL PRINTC ENTRY;
*
CALL PRINTC('Hello GBATemp!', 12);
RETURN;
*
END HELLO;
SPSS
* SPSS Syntax
* "Hello GBATemp" title in the Output Window of SPSS via SPSS Syntax.
TITLE 'Hello GBATemp'.
SQL-Advantage
-- Hello GBATemp in SQL for Advantage Database
select 'Hello GBATemp' from system.iota
SQL-Oracle
# Hello GBATemp in SQL for Oracle
SELECT 'Hello GBATemp' FROM dual;
SQL
# Hello GBATemp in SQL
SELECT 'Hello GBATemp';
sqlplus
-- Hello GBATemp in Oracle SQL*Plus
prompt Hello GBATemp!
ST-Guide
## Hello GBATemp for ST-Guide
@node "Hello GBATemp!"
Hello GBATemp!
@endnode
SVG
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<!-- Hello GBATemp in SVG -->
<svg width="240" height="100" viewBox="0 0 240 100" zoomAndPan="disable"
xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
<title>Hello GBATemp</title>
<g>
<text x="10" y="50">Hello GBATemp</text>
<animate attributeName='opacity' values='0;1' dur='4s' fill='freeze' begin="0s"/>
</g>
</svg>
T-SQL
-- Hello GBATemp in T-SQL
PRINT 'Hello GBATemp'
TACL
Comment -- Hello GBATemp for TACL (TAndem Command Language)
ECHO Hello GBATemp
TAL
! Hello GBATemp in Tandem TAL (Transaction Application Language)
proc Hello^GBATemp main;
begin
int .term[0:12] := [ 12 * [ “ “ ] ],
.out [0:19];
string .sout := @out ‘<<’ 1, .sp;
call myterm ( term[1] );
call open ( term[1], term );
if <> then call abend;
sout ‘:=’ “Hello GBATemp” -> @sp;
call write ( term, out, @sp’-‘@sout );
if <> then call abend;
end;
Tcl
#!/usr/local/bin/tclsh
# Hello GBATemp in Tcl
puts "Hello GBATemp!"
TECO
!Hello GBATemp in TECO
!The $ symbol below wouldn't actually be a printing character -
!it's the [escape] character, \u001b!
FTHello GBATemp$
TeX
% Hello GBATemp in plain \TeX
\immediate\write16{Hello GBATemp!}
\end
Texinfo
\input texinfo
@c Hello GBATemp for Texinfo
@setfilename hello
@settitle Hello GBATemp
@node Top, Hello, (dir), (dir)
@menu
* Hello:: Hello GBATemp
@end menu
@node Hello, , Top, Top
Hello GBATemp!
@contents
@bye
TI-59
Hello GBATemp for the TI-59 with PC-100C thermo printer.
No comment character exists.
The TI-59/PC-100C can print up to 20 characters per line (upper case
only). They are coded as 2-digit decimal numbers (see manual for
details) in up to four print registers (of five characters each)
and then printed.
Before entering the program, press LRN to switch into learn mode.
After entering the program, cancel learn mode with LRN, turn on the
printer, and run the program with A.
A pleasant sound, and what a font! Real TRUE-TYPE!
The output looks like this:
+--------------------+
| HELLO GBATemp!|
| |
+--------------------+
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
17 "E"
27 "L"
27 "L"
32 "O"
00 " "
OP 03 Write into print register 3
43 "G"
32 "B"
35 "A"
27 "T"
16 "E"
73 "M"
35 "P"
OP 04 Write into print register 4
OP 05 Start printing
ADV Line feed (optional)
R/S End program
TI-8x
Hello GBATemp for TI 8x/9x basic (tested on a TI-83)
:ClrHome
:Disp "HELLO GBATemp"
TI-BASIC-Extended
10 REM Hello GBATemp in Extended BASIC
20 REM for the TI99 series computer
100 CALL CLEAR :: DISPLAY AT(10,5):"Hello GBATemp" :: ACCEPT AT(20,4):A$
TI-BASIC
10 REM Hello GBATemp in TI BASIC
20 REM for the TI99 series computer
100 CALL CLEAR
110 PRINT "HELLO GBATemp"
120 GOTO 120
Tk
#!/usr/local/bin/wish -f
# Hello GBATemp in Tk
label .l -text "Hello GBATemp!"
pack .l
Toy
# Hello GBATemp code in Toy Programming Language (generic way)
<< "Hello GBATemp";
troff
\" "Hello, GBATemp!" in troff
Hello, GBATemp!
TSO-CLIST
PROC 0
/* Hello GBATemp in TSO CLIST */
write Hello GBATemp!
Turing-Machine
Hello GBATemp as a Turing machine.
State Read | Write Step Next state
---------------|---------------------------------
1 empty | H > 2
2 empty | e > 3
3 empty | l > 4
4 empty | l > 5
5 empty | o > 6
6 empty | blank > 7
7 empty | G > 8
8 empty | B > 9
9 empty | A > 10
10 empty | T > 11
11 empty | e > 12
12 empty | m > 13
13 empty | p > STOP
Unix-Shell
# Hello GBATemp for the Unix shells (sh, ksh, csh, bash, ...)
echo 'Hello GBATemp!'
unlambda
# Hello GBATemp in unlambda
`r```````````.H.e.l.l.o. .G.B.A.T.e.m.pi
UnrealScript
// Hello GBATemp for UnrealScript
class HelloGBATempHUD extends HudBase;
simulated function DrawHudPassC (Canvas C)
{
C.SetPos( 0.50*C.ClipX , 0.50*C.ClipY);
C.DrawText("Hello GBATemp!");
}
defaultproperties
{
}
Vatical
+ Hello GBATemp in Vatical
LITURGY:
PRAY "Hello GBATemp!"
AMEN.
VAX-11-Macro
; Hello GBATemp in VAX-11 MACRO
.title hello
term_name: .ascid /SYS$INPUT/
term_chan: .blkw 1
out_iosb: .blkq 1
msg: .asciz /Hello, GBATemp!/
.entry start,0
; establish a channel for terminal I/O
$assign_s devnam=term_name,-
chan=term_chan
blbc r0,error
; queue the I/O request
$qio_s chan=term_chan,-
func=#io$_writevblk,-
iosb=out_iosb,-
p1=msg,-
p2=#13
blbc r0,error
$exit_s; normal exit
error: halt; error condition
.end start
VAX-Macro
Hello GBATemp in VAX Macro.
.title helloGBATemp
.ident /hello GBATemp/
;
.library /sys$library:lib/
$libdef
$lib$routinesdef
.psect $data,wrt,noshr,noexe,long
hello: .ascid /Hello GBATemp!/
.psect $code,nowrt,shr,exe,long
.entry helloGBATemp,^m<r9,r10,r11>
pushaq hello ; output the
message
calls #1,g^lib$put_output ;
ret ; GTFOH
.end helloGBATemp ;
Velocity
<HTML>
<!-- Hello GBATemp in Velocity -->
<BODY>
#set( $foo = "Hello GBATemp" )
$foo
</BODY>
</HTML>
Verilog
/* Hello GBATemp in Verilog. */
module main;
initial
begin
$display("Hello, GBATemp");
$finish;
end
endmodule
Visual-FoxPro
*Hello GBATemp in Microsoft Visual FoxPro 5-9
? "Hello GBATemp!"
VisualBasic
REM Hello GBATemp 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 GBATemp!"
Height = 372
Left = 2760
TabIndex = 0
Top = 2880
Width = 972
End
End
Option Explicit
VisualBasic.NET
'Hello GBATemp in Visual Basic .NET (VB.NET)
Imports System.Console
Class HelloGBATemp
Public Shared Sub Main()
WriteLine("Hello, GBATemp!")
End Sub
End Class
VMS-DCL
$ ! Hello GBATemp in Digital Command Language for the VMS operating system
$ WRITE SYS$OUTPUT "Hello GBATemp!"
VRML
#VRML V2.0 utf8
# Hello GBATemp in VRML
Shape
{
geometry Text
{string "Hello GBATemp!"}
}
Whitespace
Hello #GBATemp #in #Whitespace * # # * # # #
+ *[Space]
+ #is #marked #with"#" # #[tab] #with"*" *line-feed #with #"+" * # *so
+it #would
+be #easier #to #write #again... #All *the *non-whitespace-characters #are *ignored... * # #
+ *
+ # # # # # * * # * * # #
+ *
+ # # # # # * * # * * * *
+ *
+ # # # # # * # # # # #
+ *
+ # # # # # * # * # * * *
+ *
+ # # # # # * * # * * * *
+ *
+ # # # # # * * * # # * #
+ *
+ # # # # # * * # * * # #
+ *
+ # # # # # * * # # * # #
+ *
+ # # # # # * # # # # *
+ *
+ # # # # # * # * #
+ *
+ # #
+
+
+
WSH
// Hello GBATemp for the Windows Scripting Host
WScript.Echo("Hello GBATemp!");
X++
// Hello GBATemp in X++ (Microsoft Axapta)
class classHelloGBATemp
{
}
static void main(args Args)
{
dialog dialog;
;
dialog = new dialog();
dialog.addText("Hello GBATemp!");
dialog.run();
}
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 GBATemp in XHTML -->
<html
xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
Hello GBATemp!
</title>
</head>
<body>
<p>
Hello GBATemp!
</p>
</body>
</html>
XML
<?xml version="1.0" encoding="ISO-8859-1"?>
<?xml-stylesheet type="text/xsl" href="HelloGBATemp.xsl" ?>
<!-- Hello GBATemp in XML -->
<text><string>Hello, GBATemp</string></text>
XQuery
(: Hello GBATemp with XQuery :)
let $i := "Hello GBATemp"
return $i
XSL-FO
<?xml version="1.0" encoding="utf-8"?>
<!-- Hello GBATemp in XSL-FO -->
<fo:root xmlns:fo="http://www.w3.org/1999/XSL/Format">
<fo:layout-master-set>
<fo:simple-page-master master-name="LetterPage" page-width="8.5in" page-height="11in">?
<fo:region-body region-name="PageBody" margin="0.7in"/>
</fo:simple-page-master>
</fo:layout-master-set>
<fo:page-sequence master-reference="LetterPage">
<fo:flow flow-name="PageBody">
<fo:block font-size="12pt" font-family="courier">Hello, GBATemp</fo:block>
</fo:flow>
</fo:page-sequence>
</fo:root>
XSLT
<?xml version="1.0" encoding="ISO-8859-1"?>
<!-- Hello GBATemp in XSLT -->
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<xsl:value-of select="text/string" />
</xsl:template>
</xsl:stylesheet>
XUL
<?xml version="1.0"?>
<!-- Hello GBATemp in XUL -->
<window xmlns="http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul">
<label value="Hello GBATemp!"/>
</window>
Navigation 
