Add Hello World example programs

This commit is contained in:
Marshall Gates
2025-05-20 23:00:57 -04:00
parent 8163c20342
commit e6a14dda4d
6 changed files with 60 additions and 0 deletions

View File

@@ -0,0 +1,9 @@
main()
{
int i;
for( i = 1; i <= 10; i++ ) {
printf("Hello World, from Aztec C line %d\n", i);
}
}


View File

@@ -0,0 +1,6 @@
10 FOR I = 1 TO 10
20 PRINT "Hello World from BASIC, line"; I
30 NEXT I
40 END


View File

@@ -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.

View File

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

View File

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

View File

@@ -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.