! 		ENSIMMÄINEN ESIMERKKI FORTRAN -OHJELMASTA
! 		NÄMÄ ENSIMMÄISET RIVIT OVAT KOMMENTTEJA - TYHJÄ RIVIKIN ON KOMMENTTI
 
! 		HUOMAA, ETTÄ KOODIRIVIN RAKENNE ON (MAX 80 SARAKETTA):
!----X==================================================================++++++++
! 	MISSÄ 	- ON LAUSENUMERO (VAPAAEHTOINEN) SARAKKEET 1 - 5
!				X ON JATKORIVIN MERKKI JOS TYHJÄ NIIN RIVI EI OLE JATKOA EDELLISEEN
!				= ON FORTRANIN LAUSE SARAKKEET 7 - 72
!				+ = KOMMENTTTEKSTIÄ SARAKKEET 73 - 80 
 
!		OHJELMAN NIMI - VAPAAEHTOINEN		
        PROGRAM TERVE
 
!		MUUTTUJIEN ESITTELYT - KAKSI KOKONAISLUKUA JA MERKKIJONO
        INTEGER KERTAA,I
        CHARACTER*6 TULOS
 
! 		SIJOITETAAN MERKKIJONOVAKIO
        TULOS = 'TERVE!'
 
!		LUETAAN KOKONAISLUKUMUUTTUJALLE ARVO
        PRINT *,'MONTAKO KERTAA TULOSTETAAN? KIRJOITA POSITIIVINEN KOKONAISLUKU'
        READ *,KERTAA
 
!		TULOSTETAAN SILMUKASSA ANNETTU LUKUMÄÄRÄ TERVEHDYKSIÄ
        DO 100 I = 1,KERTAA
        PRINT *,TULOS
100     CONTINUE
 
!		OHJELMA LOPPUU AINA ENDIIN
        END
 

ISAJCUVOU0lNTcOESU5FTiBFU0lNRVJLS0kgRk9SVFJBTiAtT0hKRUxNQVNUQQohIAkJTsOETcOEIEVOU0lNTcOESVNFVCBSSVZJVCBPVkFUIEtPTU1FTlRURUpBIC0gVFlISsOEIFJJVklLSU4gT04gS09NTUVOVFRJCgohIAkJSFVPTUFBLCBFVFTDhCBLT09ESVJJVklOIFJBS0VOTkUgT04gKE1BWCA4MCBTQVJBS0VUVEEpOgohLS0tLVg9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0rKysrKysrKwohIAlNSVNTw4QgCS0gT04gTEFVU0VOVU1FUk8gKFZBUEFBRUhUT0lORU4pIFNBUkFLS0VFVCAxIC0gNQohCQkJCVggT04gSkFUS09SSVZJTiBNRVJLS0kgSk9TIFRZSErDhCBOSUlOIFJJVkkgRUkgT0xFIEpBVEtPQSBFREVMTElTRUVOCiEJCQkJPSBPTiBGT1JUUkFOSU4gTEFVU0UgU0FSQUtLRUVUIDcgLSA3MgohCQkJCSsgPSBLT01NRU5UVFRFS1NUScOEIFNBUkFLS0VFVCA3MyAtIDgwIAoKIQkJT0hKRUxNQU4gTklNSSAtIFZBUEFBRUhUT0lORU4JCQogICAgICAgIFBST0dSQU0gVEVSVkUKCiEJCU1VVVRUVUpJRU4gRVNJVFRFTFlUIC0gS0FLU0kgS09LT05BSVNMVUtVQSBKQSBNRVJLS0lKT05PCiAgICAgICAgSU5URUdFUiBLRVJUQUEsSQogICAgICAgIENIQVJBQ1RFUio2IFRVTE9TCgohIAkJU0lKT0lURVRBQU4gTUVSS0tJSk9OT1ZBS0lPCiAgICAgICAgVFVMT1MgPSAnVEVSVkUhJwoKIQkJTFVFVEFBTiBLT0tPTkFJU0xVS1VNVVVUVFVKQUxMRSBBUlZPCiAgICAgICAgUFJJTlQgKiwnTU9OVEFLTyBLRVJUQUEgVFVMT1NURVRBQU4/IEtJUkpPSVRBIFBPU0lUSUlWSU5FTiBLT0tPTkFJU0xVS1UnCiAgICAgICAgUkVBRCAqLEtFUlRBQQoKIQkJVFVMT1NURVRBQU4gU0lMTVVLQVNTQSBBTk5FVFRVIExVS1VNw4TDhFLDhCBURVJWRUhEWUtTScOECiAgICAgICAgRE8gMTAwIEkgPSAxLEtFUlRBQQogICAgICAgIFBSSU5UICosVFVMT1MKMTAwICAgICBDT05USU5VRQoJCiEJCU9ISkVMTUEgTE9QUFVVIEFJTkEgRU5ESUlOCiAgICAgICAgRU5ECg==