DiscoPanda (discopanda) wrote,
DiscoPanda
discopanda

Heh. Need to get a compiler or something and see if this stuff actually works or not.



00001 IDENTIFICATION DIVISION.
00002 PROGRAM-ID. HelloWorld.
00005 ENVIRONMENT DIVISION.
00010 DATA DIVISION.
00015 01 PLACE PIC X(10)
00020 01 GREETING PIC X(7)
00030 PROCEDURE DIVISION.
00040 Main.
00050 ````MOVE "world" to PLACE.
00060 ````MOVE "Hello" TO GREETING.
00070 ````PERFORM Setup.
00080 ````PERFORM Hello-World THROUGH 00001 00090 End-Hello.
00100 ````STOP RUN.
00110 Hello-World.
00120 ````GOTO World.
00130 World.
00140 ````DISPLAY GREETING.
00150 ````GOTO End-Hello.
00160 End-Hello.
00170 ````EXIT.
00180 Goodbye-World.
00190 ````MOVE "Goodbye" TO GREETING.
00200 ````GOTO World.
00210 Setup.
00220 ````ALTER Hello-World Goodbye-World.


Damn LJ keeps messing my indents up! Just assume that ```` is four spaces instead of four `.
Subscribe
  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 4 comments