[Bradford] Notes of last meeting and next meeting

John Robert Hudson j.r.hudson at virginmedia.com
Sun Jan 14 14:11:08 UTC 2024


Dear Bernie

I asked about the projector at BCB last time but it was a different person on 
the door who did not know about it. I will ask again for the February meeting.

John

On Sunday, 14 January 2024 11:36:50 GMT Bernard Czenkusz via Bradford wrote:
> 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
> 
> --
> Bradford mailing list
> Bradford at mailman.lug.org.uk
> https://mailman.lug.org.uk/mailman/listinfo/bradford







More information about the Bradford mailing list