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