program TEST
	! your code goes here
	stop
end

cHJvZ3JhbSBURVNUCgkhIHlvdXIgY29kZSBnb2VzIGhlcmUKCXN0b3AKZW5k

QyAgICAgQ09OVE9IIFBST0dSQU0gRjc3IERFTkdBTiBBUlJBWSBEQU4gU1RBVEVNRU5UIEZVTkNUSU9OCiAgICAgIFBST0dSQU0gQVJSQVlDQUxDCkMKQyAgICAgMS4gRGVrbGFyYXNpIEltcGxpc2l0OiBJLU4gYWRhbGFoIElOVEVHRVIsIGxhaW5ueWEgUkVBTC4KQyAgICAgICAgU2VoaW5nZ2EgWCwgWSwgWiwgUkFUQSwgZGFuIFNJR01BIGRpZGVrbGFyYXNpa2FuIHNlYmFnYWkgUkVBTAogICAgICBESU1FTlNJT04gWCgxMCksIFkoMTApCiAgICAgIElOVEVHRVIgSSwgTgogICAgICAKQyAgICAgMi4gU3RhdGVtZW50IEZ1bmN0aW9uIChGdW5nc2kgc2F0dSBiYXJpcywgaGFueWEgYWRhIGRpIEY3NykKICAgICAgUkFUQShBLCBOKSA9IFNVTShBKSAvIE4KCkMgICAgIDMuIEJsb2sgRGF0YSAoREFUQSBTdGF0ZW1lbnQpIHVudHVrIGluaXNpYWxpc2FzaQogICAgICBEQVRBIE4gLyA1IC8KICAgICAgREFUQSBYIC8gMS4wLCAyLjAsIDMuMCwgNC4wLCA1LjAsIDAuMCwgMC4wLCAwLjAsIDAuMCwgMC4wIC8KICAgICAgCkMgICAgIDQuIExvb3AgRE8gR2F5YSBGNzcgKHRhbnBhIEVORCBETywgbWVuZ2FuZGFsa2FuIFN0YXRlbWVudCBMYWJlbCkKICAgICAgU1VNID0gMC4wCiAgICAgIERPIDMwIEkgPSAxLCBOCkMgICAgICAgICBIaXR1bmcgWSBzZWJhZ2FpIGt1YWRyYXQgWAogICAgICAgICAgWShJKSA9IFgoSSkgKiogMgpDICAgICAgICAgU3RhdGVtZW50IExhYmVsICczMCcgbWVuZ2FraGlyaSBsb29wIERPLgogICAzMCAgICAgU1VNID0gU1VNICsgWShJKQogICAgICAKQyAgICAgNS4gUGVtYW5nZ2lsYW4gU3RhdGVtZW50IEZ1bmN0aW9uCiAgICAgIEFWRVJBR0UgPSBSQVRBKFNVTSwgTikKICAgICAgCkMgICAgIDYuIFBlcm55YXRhYW4gR09UTyBCZXJzeWFyYXQgKEFyaXRobWV0aWMgSUYsIHNhbmdhdCBrdW5vKQpDICAgICAgICBJRiAoRWtzcHJlc2kpIE4xLCBOMiwgTjMKQyAgICAgICAgSmlrYSBBVkVSQUdFIG5lZ2F0aWYsIHBlcmdpIGtlIDQwLiBKaWthIG5vbCwga2UgNTAuIEppa2EgcG9zaXRpZiwga2UgNjAuCiAgICAgIElGIChBVkVSQUdFIC0gNS4wKSA0MCwgNTAsIDYwCgpDICAgICA3LiBQZXJjYWJhbmdhbiBHT1RPIHVudHVrIG1lbmNldGFrIGhhc2lsCiAgIDQwIFBSSU5UICosICdSYXRhLXJhdGEga3VyYW5nIGRhcmkgNS4wJwogICAgICBHT1RPIDcwCiAgICAgIAogICA1MCBQUklOVCAqLCAnUmF0YS1yYXRhIHNhbWEgZGVuZ2FuIDUuMCcKICAgICAgR09UTyA3MAogICAgICAKQyAgICAgOC4gUGVybnlhdGFhbiBPdXRwdXQgZGVuZ2FuIGZvcm1hdCB5YW5nIHRlcnBpc2FoCiAgIDYwIFBSSU5UIDEwMCwgTiwgQVZFUkFHRQogIDEwMCBGT1JNQVQgKDFYLCAnRGloaXR1bmcgdW50dWsgTiA9JywgSTMsIDJYLCAnUmF0YS1SYXRhIEt1YWRyYXQ9JywgRjguMykKICAgICAgCiAgIDcwIENPTlRJTlVFCiAgICAgIFNUT1AKICAgICAgRU5ECg==

C     CONTOH PROGRAM F77 DENGAN ARRAY DAN STATEMENT FUNCTION
      PROGRAM ARRAYCALC
C
C     1. Deklarasi Implisit: I-N adalah INTEGER, lainnya REAL.
C        Sehingga X, Y, Z, RATA, dan SIGMA dideklarasikan sebagai REAL
      DIMENSION X(10), Y(10)
      INTEGER I, N
      
C     2. Statement Function (Fungsi satu baris, hanya ada di F77)
      RATA(A, N) = SUM(A) / N

C     3. Blok Data (DATA Statement) untuk inisialisasi
      DATA N / 5 /
      DATA X / 1.0, 2.0, 3.0, 4.0, 5.0, 0.0, 0.0, 0.0, 0.0, 0.0 /
      
C     4. Loop DO Gaya F77 (tanpa END DO, mengandalkan Statement Label)
      SUM = 0.0
      DO 30 I = 1, N
C         Hitung Y sebagai kuadrat X
          Y(I) = X(I) ** 2
C         Statement Label '30' mengakhiri loop DO.
   30     SUM = SUM + Y(I)
      
C     5. Pemanggilan Statement Function
      AVERAGE = RATA(SUM, N)
      
C     6. Pernyataan GOTO Bersyarat (Arithmetic IF, sangat kuno)
C        IF (Ekspresi) N1, N2, N3
C        Jika AVERAGE negatif, pergi ke 40. Jika nol, ke 50. Jika positif, ke 60.
      IF (AVERAGE - 5.0) 40, 50, 60

C     7. Percabangan GOTO untuk mencetak hasil
   40 PRINT *, 'Rata-rata kurang dari 5.0'
      GOTO 70
      
   50 PRINT *, 'Rata-rata sama dengan 5.0'
      GOTO 70
      
C     8. Pernyataan Output dengan format yang terpisah
   60 PRINT 100, N, AVERAGE
  100 FORMAT (1X, 'Dihitung untuk N =', I3, 2X, 'Rata-Rata Kuadrat=', F8.3)
      
   70 CONTINUE
      STOP
      END