Merge pull request #603 from mggates39/dev/BoatFest_Talk

Add Sample Hello World Source Code

ReadMe.md

@@ -80,7 +80,7 @@ Some of the included software:
 - Support for other operating systems, p-System, FreeRTOS, and FUZIX.
 - Programming Tools (Z80ASM, Turbo Pascal, Forth, Cowgol)
 - C Compiler’s including Aztec-C, and HI-TECH C
-- Microsoft Basic Compiler, and Microsoft Fortran
+- Microsoft Basic Compiler, Microsoft Fortran, and Microsoft COBOL
 - Some games such as Colossal Cave, Zork, etc
 - Wordstar Word processing software
 

Source/Images/Build.cmd

@@ -33,3 +33,4 @@ for %%f in (*.def) do (
   PowerShell -ExecutionPolicy Unrestricted .\BuildDsk.ps1 hd512_%%~nf || exit /b
   PowerShell -ExecutionPolicy Unrestricted .\BuildDsk.ps1 hd1k_%%~nf || exit /b
 )
+

Source/Images/d_aztecc/Readme.txt

@@ -24,3 +24,7 @@ as-is.
 
 Bill Buckels
 bbuckels@mts.net
+
+cz hello
+as hello
+ln hello.o -lc

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);
+        }
+}
+
+

Source/Images/d_bascomp/Readme.txt

@@ -62,4 +62,5 @@ Hello World
 
 
 A> 
-
+BASCOM =HELLO /E
+L80 HELLO,HELLO/N/E

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
+
+

Source/Images/d_cobol/Readme.txt

@@ -13,3 +13,5 @@ be run easily on 8080, z-80 or 8085 systems.
 The user manual is available in the Doc/Language directory,
 Microsoft_COBOL-80_Manuals_1878.pdf
 
+cobol hello,hello=hello/r
+l80 hello/n,hello/e

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.

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

Source/Images/d_fortran/Readme.txt

@@ -8,3 +8,6 @@ the 8080/Z80 platform, not the language specification version)
 
 The user manual is available in the Doc/Language directory,
 Microsoft_FORTRAN-80_Users_Manual_1977.pdf
+
+f80 hello,hello=hello
+l80 hello,forlib/s,hello/n,/e:hellow

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

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.

Source/Images/demo_dev.def.example

@@ -0,0 +1,11 @@
+# This is the programming language demo development Combo image for RomWBW
+
+cpm22
+ws4
+aztecc
+bascomp
+tpascal
+fortran
+cobol
+z80asm
+games