Browse Source

Add Hello World example programs

pull/603/head
Marshall Gates 8 months ago
parent
commit
e6a14dda4d
  1. 9
      Source/Images/d_aztecc/u0/HELLO.C
  2. 6
      Source/Images/d_bascomp/u0/HELLO.BAS
  3. 15
      Source/Images/d_cobol/u0/HELLO.COB
  4. 15
      Source/Images/d_cpm22/u0/HELLO.ASM
  5. 8
      Source/Images/d_fortran/u0/HELLO.FOR
  6. 7
      Source/Images/d_tpascal/u0/HELLO.PAS

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


6
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


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

15
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

8
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

7
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.
Loading…
Cancel
Save