mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
Add Hello World example programs
This commit is contained in:
9
Source/Images/d_aztecc/u0/HELLO.C
Normal file
9
Source/Images/d_aztecc/u0/HELLO.C
Normal file
@@ -0,0 +1,9 @@
|
||||
main()
|
||||
{
|
||||
int i;
|
||||
for( i = 1; i <= 10; i++ ) {
|
||||
printf("Hello World, from Aztec C line %d\n", i);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
6
Source/Images/d_bascomp/u0/HELLO.BAS
Normal file
6
Source/Images/d_bascomp/u0/HELLO.BAS
Normal file
@@ -0,0 +1,6 @@
|
||||
10 FOR I = 1 TO 10
|
||||
20 PRINT "Hello World from BASIC, line"; I
|
||||
30 NEXT I
|
||||
40 END
|
||||
|
||||
|
||||
15
Source/Images/d_cobol/u0/HELLO.COB
Normal file
15
Source/Images/d_cobol/u0/HELLO.COB
Normal 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.
|
||||
15
Source/Images/d_cpm22/u0/HELLO.ASM
Normal file
15
Source/Images/d_cpm22/u0/HELLO.ASM
Normal 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
|
||||
8
Source/Images/d_fortran/u0/HELLO.FOR
Normal file
8
Source/Images/d_fortran/u0/HELLO.FOR
Normal 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
|
||||
7
Source/Images/d_tpascal/u0/HELLO.PAS
Normal file
7
Source/Images/d_tpascal/u0/HELLO.PAS
Normal 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.
|
||||
Reference in New Issue
Block a user