[Bradford] Notes of last meeting and next meeting

[Bernard Czenkusz]

Hi all,

Interesting - nowadays I can only be bothered with Python, and if I 
really have to, Javascript. Your Fortran and Basic examples are both 
easily converted to Python, showing a common heritage I guess.

If we are short of speaking time, I can describe how Classes are created 
and used as objects in Python - and a quick demo of the latest project 
I'm working on.

It would be useful to get a projector in, does anyone have one - or 
could a big screen be borrowed from BCB?

Cheers

  Bernard


On 13/01/2024 15:00, John Robert Hudson via Bradford wrote:
> Dear all
>
> The notes of Tuesday’s meeting are up. Darren suggested that our face to face
> meeting at BCB in February should focus on coding, perhaps with some code
> golf.
>
> Here is an example from 1987 of some early code comparisons:
>
> COBOL
> 000100 IDENTIFICATION DIVISION
> 000200 PROGRAM-ID CALCULATE-MEAN
> 000300 AUTHOR. PAUL WATTS
> 000400 INSTALATI0N  LANCASTER UNIVERSITY
> 000500 DATE WRITTEN  FEB 11 1986
> 000600 £
> 000700 SYSTEM$ DEPARTMENT
> 000800 DEMO PROG
> 000900 SOURCE COMPUTER  VAX
> 001000 OBJECT COMPUTER  VAX
> 001100 INPUT-OUTPUT SECTION
> 001200 FILE-CONTROL
> 001300 SELECT DATAFILE  ASSIGN T0 DISC.
> 001400 SELECT PRINT FILE ASSIGN TO PRINTER
> 001500£
> 001600 DATA DIVISION
> 001700 FILE SECTION
> 001800 FD DATA FILE
> 001900  BLOCK CONTAINS 20 RECORDS
> 002000  RECORD CONTAINS 15 CHARACTERS
> 002100  LABEL RECORDS ARE STANDARD
> 002200 01 DATA REC
> 002300  05 NUM  PIC 9(13)V99
> 002400 FD PRINT FILE
> 002500  BLOCK CONTAINS 1 RECORDS
> 002600  RECORD CONTAINS 132 CHARACTERS
> 00270O  LABEL RECORDS ARE OMITTED
> 002800 01 PRINTREC
> 002900 05 FILLER  PIC X(10)
> 003000 05 PRNT-MEAN  PIC Z(12)9.99
> 003100 05 FILLER  PIC X(106)
> 003200 WORKING STORAGE SECTION
> 003300 01 T0TAL  PIC 9(5)V99  VALUE 0
> 0O3400 01 N PIC 9(13)  VALUE 0
> 003500 01 MEAN  PIC 9(13)V99
> 003600 01 E0F PIC X
> 003700  88 END OF FILE  VALUE Y
> 003800£
> 003900 PROCEDURE DIVISION
> 004000 MAIN LINE
> 004100 OPEN INPUT DATA FILE
> 004200 OPEN OUTPUT PRINT FILE
> 004300 MOVE "N" TO EOF
> 004400 PERFORM READ FILE
> 004500 UNTIL END-OF-FILE
> 004600 DIVIDE TOTAL BY N
> 004700 GIVING MEAN
> 004800 MOVE MEAN T0 PRINT-MEAN
> OO4900 WRITE PRINTER
> 005000  AFTER ADVANCING 2 LINES
> 005100 CLOSE DATAFILE PRINTFILE
> 005200 STOPRUN
> 005300 READ FILE
> 005400 READ DATA-FILE
> 005500 AT END MOVE "Y" T0 EOF
> 005600 IF NOT EOF
> 005700 ADD 1 T0 N
> 005800 ADD NUM TO TOTAL
>
> FORTRAN
> DIMENSION X (100)
> READ (5,10) N, (X(I),I=1,N)
> 10 FORMAT (15, (E15.2))
> S=0.0
> DO 9 I =1,N
> 9 S =S+x(I)
> A=S/N
> WRITE (6,20)A
> 20 FORMAT (E15.2)
> END
>
> BASIC
> 10 DIM X (100)
> 20 LET S=0
> 30 READ N
> 40 FOR I=l TO N
> 50 READ X (I)
> 60 LET S=S+(I)
> 70 NEXT I
> 80 LET A=S/N
> 90 PRINT A
> 100 DATA
> ...
> ...
> XXX END
>
> NOMAD
> READ DIGITS LIST AVG(DIGITS)
>
> APL
> +/X£pX-o
>
> John
>
>
>
>