real language

Bookmarking Digg Diigo DZone Earthlink Google
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language FORTRAN 77

(FORMAT edit descriptors, obfuscation)

Author:Robin Haberkorn
Score: (2.87 in 8 votes)
C This one is almost an obfu, but valid FORTRAN 77
C Demonstrated features: character format identifiers, arrays as
C internal files, implied-DO-loops, importance of the blank character,
C rules for continuation lines, substrings, implicit type declaration...
565760C H   ARA      C T     ERM   S G ( 5 ) *   1        3            7
324650WRITE(MSG,'(93H(A,/,A,A,/,A,A,A,TL37,2HA ,/,A,TL62,2HA ,34X,2HA ,2
     34X,33HGo to the store and buy some more,A),/,136H(I2,'' bottles of
     F beer on the wall, '',I2,'' bottles of beer.'',/,''Take one down a
     Rnd pass it around, '',I2,'' bottles of beer on the wall.'',/) ) ')
     11)(1 4: 4 8),M SG(1)(5 0:1 3 6),M SG( 1)(:6 3),M S G(1)(9 6:1 3 6)
650860P   R    INT    MS   G ( 1 ) , (   K,  K , K -1, K =9   9, 3, - 1)
323450P  RI  N      T   M    S   G    (  2  )     ,    2   ,   2   ,   1
      PR I N   TM         S G   (         3)     ,  1 ,   1 ,  'no more'
023000P R I   NT     M  S  G     (4    ) , 'No more'  , 'no more', 9   9
543990E                               N                                D

Download Source | Write Comment

Alternative Versions

Arithmetic IF VersionAlex Ford06/22/052
standard versionAnonymous04/20/051


>>  Chris Barts said on 03/10/07 07:28:10

Chris Barts 'No more' indeed! This is a seriously evil piece of work. My hat's off to the person responsible.

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!




Security Code: