From e6a14dda4d18b8df0eaca6fbb7f5ecdbfef45c5f Mon Sep 17 00:00:00 2001
From: Marshall Gates <mggates@gmail.com>
Date: Tue, 20 May 2025 23:00:57 -0400
Subject: [PATCH] Add Hello World example programs

---
 Source/Images/d_aztecc/u0/HELLO.C    |  9 +++++++++
 Source/Images/d_bascomp/u0/HELLO.BAS |  6 ++++++
 Source/Images/d_cobol/u0/HELLO.COB   | 15 +++++++++++++++
 Source/Images/d_cpm22/u0/HELLO.ASM   | 15 +++++++++++++++
 Source/Images/d_fortran/u0/HELLO.FOR |  8 ++++++++
 Source/Images/d_tpascal/u0/HELLO.PAS |  7 +++++++
 6 files changed, 60 insertions(+)
 create mode 100644 Source/Images/d_aztecc/u0/HELLO.C
 create mode 100644 Source/Images/d_bascomp/u0/HELLO.BAS
 create mode 100644 Source/Images/d_cobol/u0/HELLO.COB
 create mode 100644 Source/Images/d_cpm22/u0/HELLO.ASM
 create mode 100644 Source/Images/d_fortran/u0/HELLO.FOR
 create mode 100644 Source/Images/d_tpascal/u0/HELLO.PAS

diff --git a/Source/Images/d_aztecc/u0/HELLO.C b/Source/Images/d_aztecc/u0/HELLO.C
new file mode 100644
index 00000000..0e412aca
--- /dev/null
+++ b/Source/Images/d_aztecc/u0/HELLO.C
@@ -0,0 +1,9 @@
+main()
+{
+        int i;
+        for( i = 1; i <= 10; i++ ) {
+        	printf("Hello World, from Aztec C line %d\n", i);
+        }
+}
+
+
\ No newline at end of file
diff --git a/Source/Images/d_bascomp/u0/HELLO.BAS b/Source/Images/d_bascomp/u0/HELLO.BAS
new file mode 100644
index 00000000..73f6b845
--- /dev/null
+++ b/Source/Images/d_bascomp/u0/HELLO.BAS
@@ -0,0 +1,6 @@
+10 FOR I = 1 TO 10
+20 PRINT "Hello World from BASIC, line"; I
+30 NEXT I
+40 END
+
+
\ No newline at end of file
diff --git a/Source/Images/d_cobol/u0/HELLO.COB b/Source/Images/d_cobol/u0/HELLO.COB
new file mode 100644
index 00000000..b9e016cc
--- /dev/null
+++ b/Source/Images/d_cobol/u0/HELLO.COB
@@ -0,0 +1,15 @@
+000100 IDENTIFICATION DIVISION.
+000200 PROGRAM-ID. HELLO.
+000300 ENVIRONMENT DIVISION.
+000400 DATA DIVISION.
+000410 WORKING-STORAGE SECTION
+000420 01  LINECOUNT PIC 99.
+000430 01  DISPCOUNT PIC Z9.
+000500 PROCEDURE DIVISION.
+000600 00-MAIN.
+000700     PERFORM SHOW-MESSAGE VARYING LINECOUNT FROM 1 BY 1 
+000710         UNTIL LINECOUNT > 10.
+000800     STOP RUN.
+000900 SHOW-MESSAGE.
+000910     MOVE LINECOUNT TO DISPCOUNT.
+001000     DISPLAY "Hello World From COBOL, line ", DISPCOUNT.
diff --git a/Source/Images/d_cpm22/u0/HELLO.ASM b/Source/Images/d_cpm22/u0/HELLO.ASM
new file mode 100644
index 00000000..a54c471a
--- /dev/null
+++ b/Source/Images/d_cpm22/u0/HELLO.ASM
@@ -0,0 +1,15 @@
+        ORG     100H
+
+BDOS    EQU     0005H                   ; LOCATION OF BDOS ENTRY POINT
+BOOT    EQU     0000H                   ; LOCATION OF BOOT REQUEST
+
+START:
+        MVI     C,9                     ; BDOS REQUEST 9 - PRINT STRING
+        LXI     D,MESSAGE               ; OUR STRING TO PRINT
+        CALL    BDOS
+        JMP     BOOT                    ; EXIT TO CP/M
+
+MESSAGE:
+        DB      13,10,'Hello World from CP/M!',13,10,'$'
+
+        END     START
diff --git a/Source/Images/d_fortran/u0/HELLO.FOR b/Source/Images/d_fortran/u0/HELLO.FOR
new file mode 100644
index 00000000..74b1ab1d
--- /dev/null
+++ b/Source/Images/d_fortran/u0/HELLO.FOR
@@ -0,0 +1,8 @@
+C Simple Hello World Program
+      PROGRAM HelloWorld
+      
+      INTEGER  I
+      DO 10  I=1, 10
+10    WRITE(1, 20)  i
+20    FORMAT(33H Hello World! From Fortran, Line , i2)
+      END
diff --git a/Source/Images/d_tpascal/u0/HELLO.PAS b/Source/Images/d_tpascal/u0/HELLO.PAS
new file mode 100644
index 00000000..e42ff0a1
--- /dev/null
+++ b/Source/Images/d_tpascal/u0/HELLO.PAS
@@ -0,0 +1,7 @@
+program hello;
+var no : integer;
+begin
+ ClrScr;
+ for no := 1 to 10 do
+   writeln('Hello World from Turbo Pascal Line ', no);
+end.