home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / fortran / 4831 < prev    next >
Encoding:
Text File  |  1992-12-22  |  1.6 KB  |  40 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!cs.utexas.edu!torn!nott!cunews!revcan!geovision!pt
  3. From: pt@geovision.gvc.com (Paul Tomblin)
  4. Subject: Re: Real Programmers
  5. Message-ID: <BzHMIK.BB4@geovision.gvc.com>
  6. Reply-To: pt@geovision.gvc.com
  7. Organization: Not officially GeoVision Systems Inc., Ottawa, Ontario
  8. References: <1992Dec15.170343.10342@craycos.com>     <DODD.92Dec15142737@mycenae.cchem.berkeley.edu> <gay.724466320@sfu.ca>     <1992Dec16.025109.24541@coe.montana.edu>     <DODD.92Dec16060307@mycenae.cchem.berkeley.edu> <FX.92Dec16152012@dlpx1.dl.ac.uk>
  9. Date: Sat, 19 Dec 1992 03:47:06 GMT
  10. Lines: 28
  11.  
  12. D.Love@daresbury.ac.uk (Dave Love) writes:
  13.  
  14. >>>>>> On 16 Dec 92 14:03:07 GMT, dodd@mycenae.cchem.berkeley.edu (Lawrence R. Dodd) said:
  15. > > so are we agreed that the final version would be the following?
  16. > > 85367 FORMAT(100(3H:-))/22HFOR THE HUMOR-IMPARED.)
  17. > >       WRITE(6,85367)
  18. >No.
  19. >24HFOR THE HUMOUR-IMPAIRED.
  20.  
  21. When I last programmed in FORTRAN in anger, it was more like:
  22.  
  23.       INTEGER A(6),B
  24.       DATA    A /'FOR ','THE ','HUMO','UR-I','MPAI','RED.'/
  25.       DATA    B /':-) '/
  26.  
  27.       WRITE(6,85367) B,A
  28. 85367 FORMAT(1X,A3/1X,A24)
  29.  
  30. (FORTRAN-Hext on MVS/SP.  JCL/JES3, TSO, SPF - all that fun)
  31.  
  32. (I know I forgot a lot in the intervening years - I'm just here because
  33. somebody on alt.folklore.computers said to check it out)
  34.  
  35. -- 
  36. Paul Tomblin, pt@compass.gvc.com
  37. (This is not an official opinion/statement of GeoVision Systems Inc.)
  38. "Ok dear, want me to call the bike shop and see if they'll sponsor your
  39. mid-life crisis?" "Yeah.  Ask them if they'll upgrade my shifters, too"
  40.