mirror of https://github.com/wwarthen/RomWBW.git
6 changed files with 60 additions and 0 deletions
@ -0,0 +1,9 @@ |
|||||
|
main() |
||||
|
{ |
||||
|
int i; |
||||
|
for( i = 1; i <= 10; i++ ) { |
||||
|
printf("Hello World, from Aztec C line %d\n", i); |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
|
||||
@ -0,0 +1,6 @@ |
|||||
|
10 FOR I = 1 TO 10 |
||||
|
20 PRINT "Hello World from BASIC, line"; I |
||||
|
30 NEXT I |
||||
|
40 END |
||||
|
|
||||
|
|
||||
@ -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. |
||||
@ -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 |
||||
@ -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 |
||||
@ -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…
Reference in new issue