??2CDPDNDBPAD PSATTM8ETX ULNT<INBPA TDF8IEX ITLDR(>L><KH?,LO8K*HGK,F=X[/<D,LL8JLK4;DHX+HS,LLQ(K[,MLX9DK,94K9,FLM K[,	H7(\L 8K*HPG/<8[DO *HI(SDO *HJ(SDL0IJ8SH+<2L*]
?\<D?,IL<J6<ML<EH;0? Y5"B2IO?XRO\2A
]S\S]S^*I;2J	>A8A/=2JI;	>CA</=JT
<JU
;JNXSK:
9HD8!C8K7
6HD8!C5K4
3HR<(/2C8K1
0K/
.HR9J8HC-XRK,XHLH<(+KHR>(+PH*8LHXHK+XIK*XPLH\IPP+F/2HRC)K(XPLP
	HR9J8JC&K%XHLH
$LH
/2>EA;?;N,/!$UAGTGSK&^GUKI
?8GMJGG?GW19GX70FGJ0.GGK00G
FHIP?PIRCB>6/?9VXTZ?K>XHK=XP	<+*K;> *TK:Z?K9\HPP*O*XHQ\HPP*HHUK8>(*&HZK7> *&HT	6HT<Q:PTK5	4K>XHK=XPLH	4PP*,J??*8Z?K9	4K9	4	<*<	4*8	3	2*D  OS/8  FORTRAN IV  3.02                                    PAGE  ONEK5	4/1< SYC4/YO	QAMNPRBIL4= <=B ?>=7N?:TMW        
ONE      TWOTHREEFOURFIVESIXSEVENEIGHTNINETENELEVENTWELVETHIRTEENFOURTEENFIFTEENSIXTEENSEVENTEENEIGHTEENNINETEEN TWENTY  THIRTY   FORTY   FIFTY   SIXTY SEVENTY  EIGHTY  NINETY HUNDRED ?
JS=?J\=AJ%<\J.:!J79	K  NEW YEAR	S DAYAPRIL FOOL	S DAY    MEMORIAL DAYINDEPENDENCE DAY       HALLOWEEN   CHRISTMAS DAY 1 2 3 4 5 6 7 8 910111213141516171819202122232425262728293031JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC K?XTJ2	>PT*C2JI;	=DA<+<2IN+2
?H/;2KHF
:S:HG
:S:
:N+C92B> *%2JO8C7>(
;2J:A2A	=BQ/>+<J*Z22J	=FBZXRK6Z3HR9F8DXRHR8DC5K4	>R3*8.4C3< K2=HK9K1	>/D??FAK0	>K/	>SM/NK.	>JQ[MK-XRLR9J9J9JDLRDLRPRC3> +[K0	>K/	>/,^?GBLBJBMB ? ?B0G?<P>$A>O>ERCBPR9?R SH* KG>(*IH/?K%9A<P[%<XSG	SB0*\RRK>[HJCZ JQ[&*ASG?*T/=<B*2*.JCZ O&C<9J8JKE8J8JS&*3O&C<[
S&O&C;XQHQK:<(*GK9<(*AK8<(.8A>(*AHQR.>OA??K7[S2IOF2A<(/H2J&PA/=2IOFC6< K59Z8J[%SFOFZRSF[GSH2A/HK4XJHJ8!HH>(/3LJ	2+)/!PRF<TO?04A?=P=&C?<RC9?LAJ?8A<(/?Z?$S",/?RIW>JHZ<K=Z>.C<Z:0Y*\0^C;K:>(/9R]*]*7*4J:9F8FC8N;^;J:9J8J8HC8N<^<J=Z]R<R>.R".RJ<Z;R<J:^<.R,*]>(2IO
A8 HT> /A9$K[K8AXR2ILR2A8!XRK7XHLH< HR>(+]PH+V: LHXHLHXRHR8J8J8J	6HR	6HRC5> + 	4+BRALFSV.JMN?MDRM<>E?=A?C?>LLRCCDCE>EJ"HJA"H.B0&0!*J:.HGTS7ITT)EDWARWTACOTOEXT3QST<QLUJIFU^DOU7SNVGTDVVBDV&RTWQRDW STW2CLXDMOXQHOX!MMX6SSYBOPYSASY\DAY"DHY+MLZDDEZVBSZ$LTZ/IEZ6
H[KMK[&OT[2PD\FMT\XGV\	LI]FDP]]DL]0AA^KSF^*DF^6IIS.S&UNDEFINED ERRORILLEGAL USE OF IFBAD GOTO STATEMENTBAD READ OR WRITE STATEMENTARGS IN COMMON OR VAR IN TWO COMMONS OR SYNTAX BADBAD IO LIST ELEMENTBAD EXTERNAL STMTSYNTAX ERROR IN EQUIVALENCEVARIABLE IS 
QUIVALENCED MORE THAN ONCETHIS KIND OF STATEMENT NOT LEGAL AFTER LOGICAL IFBAD SYNTAX IN DO OR IMPLIED DONOT LEGAL AS SUBROUTINE NAMESYNTAX ERROR IN TYPE STATEMENTDIMENSIONS TOO BIG, OR SYNTAX ERROR IN DIMENSION LISTILLEGAL AS DO ENDING STATEMENTATTEMPT T
 RE-TYPE A VARIABLEATTEMPT TO RE-DIMENSION A VARIABLEINTERNAL COMPILER ABORT NUMBER ONEERROR IN COMPLEX LITERALOPERAND EXPECTED, NONE PRESENTHOLLERITH COUNT WRONG, OR MISSING QUOTESMISMATCHED PARENTHESISSUBSCRIPT OR ARGUMENT LIST ERRORILLEGAL OPERATORASSI
N ???DATA STATEMENT ?HOLLERITH COUNT OR QUOTE ERROR IN DATA STATEMENTTHIS LINE NUMBER IS ALREADY DEFINEDWRONG WAY TO END A DO LOOPILLEGAL IN BLOCK DATALINE TOO BIGINPUT FILE ERROR, TAKEN AS END STATEMENTTHIS FUNCTION / SUBROUTINE STATEMENT IS UNACCEPTABLE
OU MISPELED A KEYWURDILLEGAL OPERAND TYPE FOR THIS OPERATORINTERNAL COMPILER ABORT NUMBER TWOILLEGAL VARIABLE TYPE MIXINGVARIABLE IN ASSIGNED OR COMPUTED GOTO MUST BE INTEGER OR REALEXPRESSION IN LOGICAL IF IS NOT TYPED LOGICALDO PARAMETERS MUST BE INTEGE
 OR REALYOUR DATA AND VARIABLE LISTS ARE OF DIFFERENT LENGTHSSUBROUTINES MAY ONLY HAVE SIX ARGUMENTS THAT ARE DIMENSIONEDBAD STATEMENT FUNCTIONBAD DEFINE FILEAR>J>K??+OK>*G KFK=[F/<[LJ>K;=H+VSL+QK:[MKL9FK9[KM9FKMK8[	K7*G K>*G$/<[NO*XIS*O*XJS*LI\JSN+2/*?<G
I[J?6MOE?;?,

Note: Lines longer than 256 characters were wrapped