zettacode 0.1.0 → 0.1.1

data/zettacode.files/hello_world.text/360_assembly.txt

@@ -1,17 +1,17 @@
-U  SVC (Su C)     c:
- ="360 b"
+Using native SVC (Supervisor Call) to write to system console:
+<syntaxhighlight lang="360 assembly">
 HELLO    CSECT 
          USING HELLO,15
-         LA    1,MSGAREA     P R 1   
-         SVC   35            I SVC 35 (W  O) 
-         BR    14            Ru
-MSGAREA  EQU   *             M A
-         DC    AL2(19)       T   = 19 (Pf :4 + D L:15) 
-         DC    XL2'00'       2 b b f z
-         DC    C'H !'  T  b    c
+         LA    1,MSGAREA     Point Register 1 to message area
+         SVC   35            Invoke SVC 35 (Write to Operator) 
+         BR    14            Return
+MSGAREA  EQU   *             Message Area
+         DC    AL2(19)       Total area length = 19 (Prefix length:4 + Data Length:15) 
+         DC    XL2'00'       2 bytes binary of zeros
+         DC    C'Hello world!'  Text to be written to system console
          END
-U WTO Mc   SVC 35   :
- ="360 b"         WTO   'H !'
-         BR    14            Ru
+Using WTO Macro to generate SVC 35 and message area:
+<syntaxhighlight lang="360 assembly">         WTO   'Hello world!'
+         BR    14            Return
          END
 

data/zettacode.files/hello_world.text/4dos_batch.txt

@@ -1 +1 @@
-co Ho wod!
+echo Hello world!

data/zettacode.files/hello_world.text/6502_assembly.txt

@@ -1,22 +1,22 @@
- oodbwod. fo C= 8-b mc, c65 mb fom.
- S     f 256 cc  .
+; goodbyeworld.s for C= 8-bit machines, ca65 assembler format.
+; String printing limited to strings of 256 characters or less.
 
-_c	= $0		 C u.
-bu	= $ff2		 C64 KERNEL ROM, uu  cc  cu c.
-			 u $f f A 2, $ff3 (c)  $ff () f BBC.
-	.c
+a_cr	= $0d		; Carriage return.
+bsout	= $ffd2		; C64 KERNEL ROM, output a character to current device.
+			; use $fded for Apple 2, $ffe3 (ascii) or $ffee (raw) for BBC.
+	.code
 
-	 #0		 S  0  X .
-:
-	 ,	 G cc f .
-	bq 	 If    0 ' .
-	j bu	 Ouu cc. 
-			 Ic    cc.
-	b 	 R f  ' f  0.
-:
-			 Ru f ubu.
+	ldx #0		; Starting index 0 in X register.
+printnext:
+	lda text,x	; Get character from string.
+	beq done	; If we read a 0 we're done.
+	jsr bsout	; Output character. 
+	inx		; Increment index to next character.
+	bne printnext	; Repeat if index doesn't overflow to 0.
+done:
+	rts		; Return from subroutine.
 
-	.
+	.rodata
 
-:
-	.b	"H !", _c, 0
+text:
+	.byte	"Hello world!", a_cr, 0

data/zettacode.files/hello_world.text/6800_assembly.txt

@@ -1,31 +1,31 @@
-        .c  6800
-        .f  b6800.bj,AP1
-        .f  b6800
-=====================================================
-        H ! f  M 6800        
-                 b b 2013-03-17                
------------------------------------------------------
- P   "H !"   c    
-    (c) cc   1970    
-   SWTPC 6800 , c    c f 
-    b.                                    
- M  :                                     
-   c.c f  Mc H' cu! 
-   bjc.c f   c b!         
-   cu.c f   cb u!         
-                               
-     c c  b uu             
------------------------------------------------------
-u   =   $11      ROM: c uc u
-        .  $0f00
------------------------------------------------------
-      #    P   
-        b  u           
-u    j  u     E   c
-                     Ac   
-u     ,         L   cc
-        b  u       P  f -u
-                        u   
-=====================================================
-  .  "H !",#13,#10,#0
-        .
+        .cr  6800
+        .tf  gbye6800.obj,AP1
+        .lf  gbye6800
+;=====================================================;
+;        Hello world! for the Motorola 6800        ;
+;                 by barrym 2013-03-17                ;
+;-----------------------------------------------------;
+; Prints the message "Hello world!" to an ascii    ;
+;   terminal (console) connected to a 1970s vintage   ;
+;   SWTPC 6800 system, which is the target device for ;
+;   this assembly.                                    ;
+; Many thanks to:                                     ;
+;   swtpc.com for hosting Michael Holley's documents! ;
+;   sbprojects.com for a very nice assembler!         ;
+;   swtpcemu.com for a very capable emulator!         ;
+; reg x is the string pointer                         ;
+; reg a holds the ascii char to be output             ;
+;-----------------------------------------------------;
+outeee   =   $e1d1      ;ROM: console putchar routine
+        .or  $0f00
+;-----------------------------------------------------;
+main    ldx  #string    ;Point to the string
+        bra  puts       ;  and print it
+outs    jsr  outeee     ;Emit a as ascii
+        inx             ;Advance the string pointer
+puts    ldaa ,x         ;Load a string character
+        bne  outs       ;Print it if non-null
+        swi             ;  else return to the monitor
+;=====================================================;
+string  .as  "Hello world!",#13,#10,#0
+        .en

data/zettacode.files/hello_world.text/8080_assembly.txt

@@ -1,12 +1,12 @@
 
-	 T  Ho Wod, w  8080 mb o u ud CPM
-	 A u c ,      8086,  CPM  
-	   DOS      c.
-		100	 CPM .COM    100 -  DOS
-		c,9	 C   c, 9 =   -  DOS
-		,	 DE      
-	j	5	 CPM c  cc u  ju  05
-	 N u' CALL , bu c u'    b RETu,
-	 JMP   b (f u'   64 f  c u  
-	  b). 
-:	b	'H !$'
+	; This is Hello World, written in 8080 assembly to run under CP/M
+	; As you can see, it is similar to the 8086, and CP/M is very
+	; similar to DOS in the way it is called.
+	org	100h	; CP/M .COM entry point is 100h - like DOS
+	mvi	c,9	; C holds the syscall, 9 = print string - like DOS
+	lxi	d,msg	; DE holds a pointer to the string
+	jmp	5	; CP/M calls are accessed through the jump at 05h
+	; Normally you'd CALL it, but since you'd end the program by RETurning,
+	; JMP saves a byte (if you've only got 64k of address space you want to
+	; save bytes). 
+msg:	db	'Hello world!$'

data/zettacode.files/hello_world.text/8086_assembly.txt

@@ -2,29 +2,29 @@
 DOSSEG
 .MODEL TINY
 .DATA
-TXT DB "H !$"
+TXT DB "Hello world!$"
 .CODE
 START:
-	MOV , @DATA
-	MOV , 
+	MOV ax, @DATA
+	MOV ds, ax
 	
-	MOV , 09		  uu fuc
-	MOV , OFFSET TXT	  ff
-	INT 21			 uu  TXT
+	MOV ah, 09h		; prepare output function
+	MOV dx, OFFSET TXT	; set offset
+	INT 21h			; output string TXT
 	
-	MOV AX, 4C00 		  bc  DOS
-	INT 21
+	MOV AX, 4C00h 		; go back to DOS
+	INT 21h
 END START
 
-W A86  NASM :
-   100
+With A86 or NASM syntax:
+  org 100h
 
-   , 
-   , 9
-   21
+  mov dx, msg
+  mov ah, 9
+  int 21h
 
-   , 4c00
-   21
+  mov ax, 4c00h
+  int 21h
 
-:
-  b "H !$"
+msg:
+  db "Hello world!$"

data/zettacode.files/hello_world.text/8th.txt

@@ -1 +1 @@
-"Ho wod!\" . b
+"Hello world!\n" . bye

data/zettacode.files/hello_world.text/aarch64_assembly.txt

@@ -1,22 +1,22 @@
-.qu STDOUT, 1
-.qu SVC_WRITE, 64
-.qu SVC_EXIT, 93
+.equ STDOUT, 1
+.equ SVC_WRITE, 64
+.equ SVC_EXIT, 93
 
-.
-.b _
+.text
+.global _start
 
-_:
-	 29, 30, [, -16]!
-	 0, #STDOUT
-	 1, =
-	 2, 13
-	 8, #SVC_WRITE
-	 29, 
-	c #0  (u, , 13)
-	 29, 30, [], 16
-	 0, #0
-	 8, #SVC_EXIT
-	c #0  (0)
+_start:
+	stp x29, x30, [sp, -16]!
+	mov x0, #STDOUT
+	ldr x1, =msg
+	mov x2, 13
+	mov x8, #SVC_WRITE
+	mov x29, sp
+	svc #0 // write(stdout, msg, 13);
+	ldp x29, x30, [sp], 16
+	mov x0, #0
+	mov x8, #SVC_EXIT
+	svc #0 // exit(0);
 
-:	.c "H W!\"
-. 4
+msg:	.ascii "Hello World!\n"
+.align 4

data/zettacode.files/hello_world.text/abap.txt

@@ -1,2 +1,2 @@
-REPORT zoodbwod.
-  WRITE 'H !'.
+REPORT zgoodbyeworld.
+  WRITE 'Hello world!'.

data/zettacode.files/hello_world.text/acl2.txt

@@ -1,2 +1,2 @@
-(cw "Ho wod!~%")
+(cw "Hello world!~%")
 

data/zettacode.files/hello_world.text/action!.txt

@@ -1,3 +1,3 @@
- ="c!"Pc M()
- P("H !")
-Ru
+<syntaxhighlight lang="action!">Proc Main()
+ Print("Hello world!")
+Return

data/zettacode.files/hello_world.text/actionscript.txt

@@ -1 +1 @@
-c("Ho wod!")
+trace("Hello world!");

data/zettacode.files/hello_world.text/ada.txt

@@ -1,6 +1,6 @@
-{{ |GCC|4.1.2}}
-w Ad.T_IO u Ad.T_IO
-cu M 
-b
-  Pu_L ("H !")
- M
+{{works with|GCC|4.1.2}}
+with Ada.Text_IO; use Ada.Text_IO;
+procedure Main is
+begin
+  Put_Line ("Hello world!");
+end Main;

data/zettacode.files/hello_world.text/agda.txt

@@ -1,14 +1,14 @@
-F A 2.6.2, b   [:.c.2.6.2--. cu].
-modu owod w
+For Agda 2.6.2, based on its [https://agda.readthedocs.io/en/v2.6.2/getting-started/hello-world.html documentation].
+module helloworld where
 
-  A.Bu.IO u (IO)
-  A.Bu.U  (⊤  U)
-  A.Bu.S u (S)
+open import Agda.Builtin.IO using (IO)
+open import Agda.Builtin.Unit renaming (⊤ to Unit)
+open import Agda.Builtin.String using (String)
 
-u uSL : S - IO U
-{-# FOREIGN GHC  quf D.T  T #-}
-{-# COMPILE GHC uSL = uSL . T.uc #-}
+postulate putStrLn : String -> IO Unit
+{-# FOREIGN GHC import qualified Data.Text as T #-}
+{-# COMPILE GHC putStrLn = putStrLn . T.unpack #-}
 
- : IO U
- = uSL "H !"
+main : IO Unit
+main = putStrLn "Hello world!"
 

data/zettacode.files/hello_world.text/agena.txt

@@ -1 +1 @@
-( "Ho wod!" )
+print( "Hello world!" )

data/zettacode.files/hello_world.text/aime.txt

@@ -1,11 +1,11 @@
-o_("Ho wod!\")
+o_text("Hello world!\n");
 
-:
+or:
 
-
-()
+integer
+main(void)
 {
-    _("H !\")
+    o_text("Hello world!\n");
 
-    u 0
+    return 0;
 }

data/zettacode.files/hello_world.text/algae.txt

@@ -1 +1 @@
-f("Ho wod!\")
+printf("Hello world!\n");

data/zettacode.files/hello_world.text/algol-m.txt

@@ -1,3 +1,3 @@
 BEGIN
-    WRITE( "H !" )
+    WRITE( "Hello world!" );
 END

data/zettacode.files/hello_world.text/algol_60.txt

@@ -1,4 +1,4 @@
 'BEGIN'
-    OUTSTRING(1,'('H !')')
+    OUTSTRING(1,'('Hello world!')');
     SYSACT(1,14,1)
 'END'

data/zettacode.files/hello_world.text/algol_68.txt

@@ -1,3 +1,3 @@
-m: (
-  f($"H !"$)
+main: (
+  printf($"Hello world!"l$)
 )

data/zettacode.files/hello_world.text/algol_w.txt

@@ -1,3 +1,3 @@
-b
-    ( "H !" )
-.
+begin
+    write( "Hello world!" )
+end.

data/zettacode.files/hello_world.text/alore.txt

@@ -1 +1 @@
-P('Ho wod!')
+Print('Hello world!')

data/zettacode.files/hello_world.text/amazing_hopper.txt

@@ -1,21 +1,21 @@
 
 1)
- ="z "
-:
-   {"H !\"}
-(0)
+<syntaxhighlight lang="amazing hopper">
+main:
+   {"Hello world!\n"}print
+exit(0)
 
-cu :   .c
+execute with:  hopper helloworld.com
 2)
- ="z "
-#cu .
-:
-   ("H !\")
+<syntaxhighlight lang="amazing hopper">
+#include <hopper.h>
+main:
+   exit("Hello world!\n")
 
-cu :   .c -
+execute with:  hopper helloworld.com -d
 3)
- ="z "
-:
-  {"H !\"}u
+<syntaxhighlight lang="amazing hopper">
+main:
+  {"Hello world!\n"}return
 
-cu :   .c -
+execute with:  hopper helloworld.com -d

data/zettacode.files/hello_world.text/ambienttalk.txt

@@ -1 +1 @@
-m.("Ho wod!")
+system.println("Hello world!")

data/zettacode.files/hello_world.text/amigae.txt

@@ -1,3 +1,3 @@
-PROC m()
-  WF('H !\')
+PROC main()
+  WriteF('Hello world!\n')
 ENDPROC

data/zettacode.files/hello_world.text/angelscript.txt

@@ -1 +1 @@
-vod m() { ("Ho wod\") }
+void main() { print("Hello world\n"); }

data/zettacode.files/hello_world.text/antlang.txt

@@ -1,3 +1,3 @@
-N,  "H, W!"  c  c .
-O   -ffc     u u f c.
-co["Ho, Wod!"]
+Note, that "Hello, World!" prints twice in interactive mode.
+One time as side-effect and one as the return value of echo.
+echo["Hello, World!"]

data/zettacode.files/hello_world.text/anyways.txt

@@ -1,4 +1,4 @@
 
-T w  u cd Ho Wod
-"O!"  .
-T'  f!
+There was a guy called Hello World
+"Ow!" it said.
+That's all folks!

data/zettacode.files/hello_world.text/apl.txt

@@ -1 +1 @@
-'Ho wod!'
+'Hello world!'

data/zettacode.files/hello_world.text/applescript.txt

@@ -1,5 +1,5 @@
-T   Sc E Ru :
-"Ho wod!"
+To show in Script Editor Result pane:
+"Hello world!"
 
-T   Sc E E L :
-o "Ho wod!"
+To show in Script Editor Event Log pane:
+log "Hello world!"

data/zettacode.files/hello_world.text/applesoft_basic.txt

@@ -1,5 +1,5 @@
-!-- {{cc|Af BASIC|uu ' c   ' qu:  c.}} --
+<!-- {{incorrect|Applesoft BASIC|output isn't consistent with the task's requirements: mixed case.}} -->
 
-I N: Au Af BASIC     uu f -c ,  b   -c   b   uu -c   fu    ff   qu    A IIII+.  Sc Af WAS  fu  u f  A II+,   fb    cfc cu b ff, f   f    c  -c IO cb     u cfu.
+Important Note: Although Applesoft BASIC allowed the storage and output of mixed-case strings, the ability to enter mixed-case via the keyboard and to output mixed-case on the default display was not offered as standard equipment on the original Apple II/II+.  Since Applesoft WAS the default programming language for the Apple II+, perhaps some flexibility in the task specification could be offered, for this and for other systems that lacked proper mixed-case I/O capabilities in at least one popular configuration.
 
- ="f bc" PRINT "H !"
+<syntaxhighlight lang="applesoft basic"> PRINT "Hello world!"

data/zettacode.files/hello_world.text/apricot.txt

@@ -1 +1 @@
-(u "Ho wod!")
+(puts "Hello world!")

data/zettacode.files/hello_world.text/arc.txt

@@ -1 +1 @@
-( "Ho wod!")
+(prn "Hello world!")

data/zettacode.files/hello_world.text/arendelle.txt

@@ -1 +1 @@
-"H !"
+"Hello world!"

data/zettacode.files/hello_world.text/argile.txt

@@ -1,3 +1,3 @@
-u d
- "H !"
-c : c _. - _.c  cc - _ _.c
+use std
+print "Hello world!"
+compile with: arc hello_world.arg -o hello_world.c && gcc -o hello_world hello_world.c

data/zettacode.files/hello_world.text/arm_assembly.txt

@@ -1,13 +1,13 @@
 
-.ob m
+.global main
 
-:
-    .cz "H !\"
-    . 4
+message:
+    .asciz "Hello world!\n"
+    .align 4
 
-:
-     0, =
-    b f
+main:
+    ldr r0, =message
+    bl printf
 
-     7, #1
-     0
+    mov r7, #1
+    swi 0

data/zettacode.files/hello_world.text/arnoldc.txt

@@ -1,3 +1,3 @@
 IT'S SHOWTIME
-TALK TO THE HAND "H !"
+TALK TO THE HAND "Hello world!"
 YOU HAVE BEEN TERMINATED

data/zettacode.files/hello_world.text/arturo.txt

@@ -1 +1 @@
- "Ho wod!"
+print "Hello world!"

data/zettacode.files/hello_world.text/asciidots.txt

@@ -1,4 +1,4 @@
 
 
-.-$'H, W!'
+.-$'Hello, World!'
 

data/zettacode.files/hello_world.text/astro.txt

@@ -1 +1 @@
- "Ho wod!"
+print "Hello world!"

data/zettacode.files/hello_world.text/asymptote.txt

@@ -1,2 +1,2 @@
 
-w('Ho wod!')
+write('Hello world!');

data/zettacode.files/hello_world.text/ats.txt

@@ -1 +1 @@
-mm m0 () =  "Ho wod!\"
+implement main0 () = print "Hello world!\n"

data/zettacode.files/hello_world.text/autohotkey.txt

@@ -1,9 +1,9 @@
-c uc f  
-DC("AocCoo")
-FA, Gb`, W!, CONOUT$
-FRL, _, CONIN$, 1
-c u f  
-[qu W XP    V f W ´   "AcC" fuc]
-DC("AcCoo", "", -1)
-FA, Gb`, W!, CONOUT$
-SdIu Ho wod!{!}
+script launched from windows explorer
+DllCall("AllocConsole")
+FileAppend, Goodbye`, World!, CONOUT$
+FileReadLine, _, CONIN$, 1
+scripts run from shell 
+[requires Windows XP or higher; older Versions of Windows don´t have the "AttachConsole" function]
+DllCall("AttachConsole", "int", -1)
+FileAppend, Goodbye`, World!, CONOUT$
+SendInput Hello world!{!}

data/zettacode.files/hello_world.text/autoit.txt

@@ -1 +1 @@
-CooW("Ho wod!" m @CRLF)
+ConsoleWrite("Hello world!" & @CRLF)

data/zettacode.files/hello_world.text/autolisp.txt

@@ -1 +1 @@
-(c "Ho Wod!")
+(printc "Hello World!")

data/zettacode.files/hello_world.text/avail.txt

@@ -1 +1 @@
-P: "Ho Wod!"
+Print: "Hello World!";