[Info-vax] Coding style in the VMS's

[Arne Vajhøj]

On 9/29/2021 4:22 AM, Bob Eager wrote:
> On Wed, 29 Sep 2021 08:00:21 +0000, Phillip Helbig (undress to reply)
> wrote:
> 
>> In article <6153494b$0$692$14726298 at news.sunsite.dk>,
>> =?UTF-8?Q?Arne_Vajh=c3=b8j?= <arne at vajhoej.dk> writes:
>>
>>> On 9/28/2021 12:33 PM, El SysMan wrote:
>>>>    Just interesting is the name for VMS coding style, any references ?
>>>>    Hungarian ? White ? Any other ?
>>>
>>> You are asking about VMS specific naming conventions and code
>>> formatting style?
>>>
>>> There is a convention for DEC/CPQ/HP(E)/VSI stuff to use $ and own
>>> stuff to use _. Never heard of a name for it.
>>>
>>> Regarding location of {} in C family languages then I have never heard
>>> of a VMS style. C programmers use the style they use elsewhere,
>>> whatever that is.
>>> Java developers follow Java convention. Etc..
>>
>> Fortran programmers can program Fortran in any language.  :-)
> 
> I once had to fix someone's ALGOL program. Labels in columns 1-5, code
> starting in column 7, minimal use of control constructs in excess of the
> most basic...

Oh yes.

I posted this here a few months ago when this particular topic came up.

"Pascal" code:

       PROGRAM GOTOFUN(INPUT,OUTPUT);
       LABEL L731,L113,L247,L588,L761,L922,L399,L601;
       VAR LBL:INTEGER;
       VAR I:INTEGER;
       BEGIN
L731: GOTO L113;
       LBL:=399;
L113: I:=0;
       WRITELN(I);
L247: LBL:=601;
       IF(I<0)THEN GOTO L588 ELSE IF(I=0)THEN GOTO L922 ELSE GOTO L399;
L588: I:=I+1;
       WRITELN(I);
       GOTO L399;
L761: CASE(LBL)OF 399: GOTO L399; 601: GOTO L601; END;
L922: I:=I+1;
       WRITELN(I);
       CASE(I)OF 1: GOTO L588; 2: GOTO L399; 3: GOTO L922; END;
L399: GOTO L761;
L601: END.

Arne