How does using upper case make a programmer primitive?
Considering that beaucoups of prior source code is in pure upper case, it
would be hard to cost justify changing the case for its own sake.
Accuterm's WED program editor allows you to assign different colors to
comments, variables, statements, labels and text. Thus, the readability of a
pure upper case system is enhanced through color.
<shameless AD>
Everyone should give WED a try. Besides the colors, it's indentable, you can
double click on a label, CALL reference or an INCLUDE and it jumps to those
code sections. All the standard Notepad MS feel. Multiple screens.
</shameless AD>
D3 has a lower case version of Data/Basic that's not interchangable with the
upper case version. IMHO, the mixed casing programming comes from other
languages like VB that doesn't allow a period as a variable character,
rather as an object-method/property separator. Zillions of MV programs are
written with CUST.NAME instead of CustName.
I continue to use pure upper case for programming and keep mixed casing for
the user screens and prompts. If that causes me to drag my knuckles, then so
be it.
My 1 cent.
Mark Johnson
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <u2-users@listserver.u2ug.org>
Sent: Tuesday, March 13, 2007 11:00 AM
Subject: Re: [U2] Error in report generation.
> And the pretty version:
>
> Brian
>
>
> * define some field locations. Normally these would be placed in
> * a separate include file and shared.
>
> EQU INVENTORY.CODE To 1
> EQU INVENTORY.DESCRIPTION To 2
> EQU INVENTORY.TYPE To 3
>
> * only primitive programmers still use upper case!
>
> Crt "Main"
> Ct = 0
>
> Open "INVENTORY.T" To INVENTORY Else
> STOP
> End
> Sent = "SSELECT INVENTORY.T BY ITEM_CODE"
> Execute SENT
> EOF = @False
> Loop
> ReadNext ItemCode Else
> EOF = @True
> End
> Until EOF Do
> Read InventoryRec From INVENTORY, ItemCode Then
> GoSub PrintLine
> End
> Repeat
>
> Crt
>
> Printer Close ;* terminate nicely
>
> STOP
>
>
> PrintLine:
>
> Ct += 1
> If Not(Mod(Ct,10)) Then Crt ".":
>
>
> Printer On
>
> Print ("ITEM CODE" "L#16"):InventoryRec<INVENTORY.CODE>
> Print ("DESCRIPTION" "L#16"):InventoryRec<INVENTORY.DESCRIPTION>
> Print ("TYPE" "L#16"):InventoryRec<INVENTORY.TYPE>
>
> Printer Off
>
> Return
> -------
> u2-users mailing list
> u2-users@listserver.u2ug.org
> To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
