Автор заключение — Stan Rabinowitz (в оный миг работавший в VAX); читателю предлагалось выискать околица, в котором VAX Fortran compiler выдаст ошибку. Разбирая старые файлы, наткнулся нате вот в таком роде фортрановский шифр. program segment C C C IMPLICIT INTEGER *2(O), LOGICAL(T-U) COMMON// UNCOMMON// COMMON INTEGER FLOATING_POINT REAL IMAGINARY COMPLEX SIMPLE INTRINSIC EXIT EXTERN ALL,SOME,NONE SAVE NOW DOUBLE PRECISION A = 3 ASSIGN 3 TOO THREE 3 FORMAT((())) IF (THEN) THEN END IF E 1 N 2 D DOUBLE COMPLEX FUNCTION FN(ARG1,DOUBLE FN,DOUBLE) COMPLEX DOUBLE FN(ARG1) DIMENSION DOUBLE(-8:-7,-6:*) VIRTUAL STORAGE(8/7) COMPLEX*1 6MEN_IN_A_BOAT, THEN THERE WERE 5 UNLOCK THE DOOR IF (1) 2,3,4 4 IF (4HCLUB) 37, 6, 5 5 DO 37 I=1.5 CALL F(04*05,*06) 37 CONTINUE 6 STOP ‘4X’ 2 A=’4X’ 3 A=’4’X DELETE (3) INSANITY=%LOC(1.2D5) RETURN END SUB ROUTINE FORMAT(*) REAL ROUTINE ______ REAL(ROUTINE)=1E1 DO WHILE (1 .NEQV. Please comment there using OpenID. 2) READ(ERR=7,UNIT=7) 123 READ(3’X) 456 READ *,X *89 READ(UNIT=*,X) 777 READ UNIT=9 ENDDO 007 CALL FRAME(A ONE, &2, AND A 3) 2 Q=3Q1 ENTRYST(Z 9) RETURN 71 END REAL*4 ROUTINE TRICKY END IMPLICIT INTEGER*4(X), INTEGER*2(O-Q) DIMENSIONLESS VAR(1**1) BYTE BYTE 0 DO 1, I=2,3 100 FORMAT(I7.4,Z8.2,G5.2e4,2p/TL7Q:$!L1,B12.9,J6 X SPSSBZQX’garbage’) 101 FORMAT(<(1,2)>I) 102 FORMAT(L

This entry was originally posted at http://profpr.dreamwidth.org/415562.html.