gistfile1.txt

program kadonnut-koodaaja
 
      character years(12)*8
      data years/'1942', '1953', '1954', '1958',
     c          '1960', '1962', '1964', '1965',
     c          '1966', '1968', '1969', '1973'/
 
      character events(12)*27
      data events/'Hedy Lamarr kehitti radiotekniikkaa, joka antoi pohjan tämän päivän langattomille verkoille,',
     c           'perustettiin Reikäkorttiyhdistys Helsingissä,',
     c           'Kaarina Beskow palkattiin Matematiikkakomiteaan matemaatikoksi,', 
     c           'Postisäästöpankissa käynnistettiin Suomen ensimmäinen toimiva tietokone ENSI,',
     c           'valmistui ensimmäisenä aloitettu tietokone ESKO,',
     c           'Katherine Johnson, Dorothy Vaughan ja Mary Jackson työskentelivät Yhdysvaltojen avaruusohjelmassa.',
     c           'Marita Kaatrala näki Valtion tietokonekeskuksen mainoksen,',
     c           'perustettiin tietojenkäsittelytieteen pääaine Tampereen yliopistolle,',
     c           'Leena Relander kirjoitti gradun reikäkorttilävistäjien soveltuvuustesteistä,',
     c           'Taru Kuhanen käveli Salmisaareen Nokian elektroniikkaan aloittaakseen kesätyöt ohjelmoijana,',      
     c           'Margaret Hamilton kirjoitti Apollo avaruusalusten lennonaikaisia tietokoneohjelmia,',
     c           'Kansaneläkelaitoksen jaoston esimies Maija-Liisa Juvonen luennoi Tietojenkäsittelyliiton luentopäivillä aiheesta “Voiko lävistystyötä rikastuttaa?".',/
 
      integer year, event
 
      do 10 year=1,12
        write (*,'(a)') 'Vuonna ', trim(years()),
     c              ' ja sitä ennen '
        do 20 event=year,1,-1
          write (*,'(a)') trim(events(event))
  20    continue
        write(*,*)
  10  continue
      end