Coding style

[James Tappin]

On 14 Mar 2003 19:18:06 -0500
Joe Klemmer <klemmerj at webtrek.com> wrote:

> On Fri, 2003-03-14 at 16:28, Olivier Fourdan wrote:
> 
> > Now that's a take it or leave it offer. I you don't like that, use
> > whatever you want, but don't ask for a standard coding style then.
> 
> 	My coding style is slightly different.  It goes like this -
> 
> IDENTIFICATION DEVISION.
>  PROGRAM-ID.  TEN.
> ENVIRONMENT DEVISION.
>  CONFIGURATION SECTION.
>  INPUT-OUTPUT SECTION.
> DATA DIVISION.
>  FILE SECTION.
>  WORKING-STORAGE SECTION.
> 01  COUNTER			PIC X.
> PROCEDURE DIVISION.
>  MAIN-0000.
>   MOVE 1 TO COUNTER
>   PERFORM UNTIL COUNTER = 10
>    DISPLAY COUNTER
>    ADD 1 TO COUNTER
>   END-PERFORM.
>  GOBACK.
> 
> I just wish there were come COBOL binding for gtk.   ;-)

I prefer something more like:

      INTEGER I
      DO 10 I = 1, 10
         WRITE(6,400) I
400      FORMAT(1H ,I3)
10       CONTINUE
      STOP
      END

But there's no FORTRAN bindings either :-(

[Sorry couldn't resist that one]

	James

-- 
James Tappin,             O__      "I forget the punishment for using
james at tappin.me.uk       --  \/`    Microsoft --- Something lingering
http://www.tappin.me.uk/            with data loss in it I fancy"