amor 
ana 
aon 
aan 
2000 
2001 
2002 
eos 
3000 
5001 
40090 
4001 
4902 
4003 
5000 
5901 
5002 
AIGZAQ(TDON2) 
BaAnGesNnGely 
Q.1M4 «PF ANP3COS (ANG) ® SINC BANG) ®&XKD2(IDONG@) 
TTLasy33 
9) 9999 ITsyolTLaST 
CALCULATE akRAYS LoD 
D) 2090 TeaeniMj 
M<zaAKMe(100]) 
E=(vy¢(lelevvy( ley )) #9 
AvGahal(lOol)ovv(y) 
BavGtanGely 
CTAMFa(LS®CUS( ANG) FCOB( BANG) CSIN( ANG) SSIN(BANG))/(1,%E%E) 
LCL) axtoeCoxn 
O02 etal TSN)PQeNnaMt 
WKeRaHe(10eT) 
Es(vv¥ (le1eovv( ley) )#b9 
ANGzsallColT)eovv(7) 
BanGsanoely 
C3a4P 9 (239CUS( ANG) *COBC BANG) CSIN( ANG) *SIN(BANG))/(1 ,¢6%E) 
LCL) 8 xl 99Caxk 
DO 20n2 JEreNj™] 
e 
OCTISQHULO(TIOLOCT)®(COLD( 141) 02,90NL0(1)*@0LD(1e})) 
00 20n3 IBN{P2eN>MI 
OCT) SQOLO(CT) LOCI) ® (CULD( 11 )e2,%00LU( 3) *UOLD(Jol)) 
O01) 80LI41 
OCLC (NIP1) 20, 
O02) sGLIKNP 
CALCULATE aRRAYS Pol 
P(1) 840 
Q(1)8ne 
OU $059 IBaeNy™1 
PCT) aL (CII (e( Tey) ee2odol, 
MC1)e_Cl)sO¢(7) 
PCy )el pe(1Dey)FQ( NIM) 
PCy Py )Z16 
GC 41P 1) B00e(P@ID)/P(NIPI) 
DU 39g ITENLPQ29NDM] 
FCT)TL C1) 8(eS( lay )teedoly 
91) FL CLIP (7) 
Pl tedsle 
SO-vé FUR THANSPORY GNEW 
UCL) 3nNC1)7P 04) 
DO 49nO TB ayNI™] 
UCT) S(OCTI oC (CL enCTel))7PC1) 
Onna (NL) EUCNI)EDEINI SPOON) 
DO dnl Tet oNtM] 
Jevyjeory 
AN aly) BOC S)FQNEwW(JO1) 6UCJ) 
UCYIPy)E0CNIPL) s/PCNIPI) 
DO 49n2 T=N{P20N—MI 
UCT ECOCTIoL C1) enClel)) PCT) 
Q\2a(s2)2U0N2)3D(N2) /P(N2) 
DU GOn3d TEnNyPyenant 
Jzv2en te] 
GNiw(JIEQCJ)OONEW( IOI I OUCJ) 
IPUINTEQ 
TE CIPRINT FQ, 0) GUTU 5O 
PRINT 400 
FO«mar(/o*® LISTING UF QNEwS) 
PRINT GWOLe(UNEN(T) 0181 9N2) 
FOIMATC {Xe t OF 10,4) 
CALCULATE New SHORELINE 
M009) 20,98(QNEN( 2) PUNERW(1)¢QOLD(2)eGUL0(1)) 
DU $970 T82N1 4} 
e072 29 254 (QNEW( LOL CQNENW( Tel )OQHLOCIT¢1)eQVULO(I@1)) 
MMONL)F0,S8(QNEw( NI @UNEW(NI@] CQQLD( NI) PGOLD(NI@1)) 
AKENEP1) 20,59 (GONE MC NIO2) CQNEW(NI 61) *UOLDINIO2) CUOLDINIOS)) 
00 5091 13NIP20ND™1 
MKCL BO PS*(QVEMC TOL SQNen(CTel)¢QQLO0( 191) eGULD(I"4)) 
KH0N2) 50,599 (QNEW(N2) PUNEM(N204)¢QOLD(N2) eQ0LD( Nem) ) 
FaytaTs/Oxmay 
FL2C0LLMAT/S5LOPE 
F2AALTNESLT/(HODG) BF2 
DU 5092 1419Ne 
MRC LT) 2F xn LyoVv¢( look leh 
ZECKA(2)OKK CL) sPAHAT 
68 
