C THIS IS A COMMENT CARD $ CONTINU=CONTINUE I = J+123.5-ADS(J) ASSIGN 253 TO STATEN GO TO 3 GO TO STATEN,(12,13,14,15) GO TO (1,2,3,4,5),I IF (J-3) 12,13,14 IF (I.EQ.L) J=K DO 23 J = 1,3 CONTINUE CALL ASUB(4,K,L) RETURN STOP PAUSE 1234 READ (NIN,23,END=34) I,J,K WRITE(NOUT,5) SDFR REWIND 5 BACKSPACE 12 ENDFILE 3 14 FORMAT (' ',23X,'TEST FORMAT ') INTEGER A,B/2.,3./ REAL*8 O DOUBLE PRECISION DUBPR COMPLEX*16 COMPLEX LOGICAL K,L EXTERNAL TRR DIMENSION H(20),I(5) COMMON / NAME/ I,J,K,L EQUIVALENCE (J,K),(H(1),I(32)) DATA TEST/'TEST DATA STATEMENT'/ DATA NEQ/2H =/ DATA NEQ/' ='/ BLOCK DATA BDATA SUBROUTINE YOUT FUNCTION AMIN1(A1,A2,A3) INTEGER FUNCTION REALF(I,J,K) END @%*<<*%@KJHOAGARBAGE STATEMENT INCLUDE 'X.COM/NOLIST' *LIST ALL *COPY(SPCCM) ENTRY SPCFF(FID) IMPLICIT LOGICAL(L) DEFINE FILE 1(18,2,3,U) PRINT *,I,J,K NAMELIST /IN1/E,F,R,T PUNCH (5,3) DATA PROGRAM MAIN LABELNAME /LABEL/ A,B REREAD IBUF DEBUG 123,124,I,J,K ENCODE(80, 765, IBUF) I, J, (X(I),I=1,3) DECODE (2, FMT, JBUF) I098 BYTE I(90), RE(9), B, J, L ACCEPT *, THIS, IS (IT(J),J=1,56) TYPE 567, 'THIS IS NOT IT' , X J=IBLUF('I', IVEC) PARAMETER X=10 VIRTUAL VY(40000) INLCUDE 'X.DAT/NOLIST'