78 àðM¤N¨Y¨A¨C¨E¨T¨F¨ÐL±L²D²ØÉS±S²H±H²H³H´HµH¶A¤ÒÊD1¤×OMT¨D³€@@@@@@@ €€@è..(&**************************************ò..(&* *ü..(&* TREND3 *..(&* A program for short-range *..(&* forecasts using exponential *..(&* smoothing, by H. Jackson *$..(&* from CREATIVE COMPUTING may 81 *...(&* *8..(&**************************************Bhh€;@6,9@!,‚9@,ƒ9@,„9@,…9@,†9@,‡9@!,–;@,L//translated for ATARI by john neal packard›V N() MONTH NUMBER, JAN EQ 1›`!!Y() ORIGINAL SERIES OF DATA›j A() 3-MONTH MOVING AVERAGE›t))C() TREND-CYCLE, 3X3 MOVING AVERAGE›~((E() EXPONENTIALLY SMOOTHED AVERAGE›ˆ..T() TREND, EXPONENTIALLY SMOOTHED CHANGE›’..F() FINAL EXPONENTIAL AVERAGE PLUS TREND›œ›¦55JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC›º***VARIABLES***›ÄAAS1 EXPONENTIAL SMOOTHING FACTOR 06•-M:•'+ˆ&@,,H›MAY@4R***PRINT ROUTINE***›S-@@6@T"–6€7<%@,.–W \//(&MONTH ORIGINAL TREND EXPONENTIALf**(" SERIES CYCLE AVERAGEp-@ˆz 6—-8,„—@A!—Ž6—-—&@“—!@A!•6˜-—%@$+—&@,˜CC(8, €7˜<˜%@,P:‹$‚8,,'‹P:‹$„8,,'+‹,P:‹$…8,,'‹¢ §1AdAU1(HIT ANY KEY TO CONTINUE¬ F:Ad,"AUA" ±AdAU¶***SECOND PAGE***›À&&(MONTH TREND EXPONENTIALÊ%%( PLUS TRENDÔ-@ˆÞ 6—-8,è—@A"—ò6—-—&@÷—!@A"ù6˜-—%@$+—&@,ü55(8, €7˜<˜%@,P:‹$†8,,'‹P:‹$‡8,,'‹   ##( FORECAST -ˆ%@ˆ%@$ !!68,-8@,%+&@,. 6—-8,8 — @A#€B 6—-—&@G —!@A#pI 6˜-—%@$+—&@,L **(8, €7˜<˜%@,P:‹$‡8,,'‹V  [ 1AdAU1(HIT ANY KEY TO CONTINUE` F:Ad,"AUA$e AdAUj ***THIRD PAGE***›t <<(MEAN P:‹$,'‹ STANDARD ERROR P:‹$‘,'‹~ (ˆ (*** STANDARD ERRORS ***’ //(&NO TREND EXPONENTIAL EXPONENTIALœ --(%CHANGE CYCLE AVERAGE PLUS TREND¦ (P:‹$’,'‹P:‹$“,'‹§ (P:‹$”,'‹P:‹$•,'‹° (º ..(&* PERCENT IMPROVEMENT OVER NO CHANGE *Ä ))(!TREND EXPONENTIAL EXPONENTIALÎ ((( CYCLE AVERAGE PLUS TRENDØ 6“-+’'“,$A&AÙ 6”-+’'”,$A&AÚ 6•-+’'•,$A&AÛ (P:‹$“,'‹P:‹$”,'‹P:‹$•,'‹â ›ì ***GRAPH ROUTINE***›ö %š-@@%SELECT PLOT› šA& A& ++(#ORIGINAL SERIES & EXPONENTIAL+TREND A&0( --(%ORIGINAL SERIES & EXPONENTIAL AVERAGE2 A&0< %%(ORIGINAL SERIES & TREND CYCLEF -‰@6@P (IZ ˜-@ˆd AAP:++‚8˜,&,'+Š$‘,,$+‰'@,%‰'@%?P,A&n (*x A(…‚ ˜@A'5Œ $$P:‰'@%?P,A' – (-› A(…  ( ª A(…¯ šA'@A'A( ´ AAP:++„8˜,&,'+Š$‘,,$+‰'@,%‰'@%?P,A(PÈ (OÒ A(…æ AAP:++…8˜,&,'+Š$‘,,$+‰'@,%‰'@%?P,A(Pð (Oú A(… AAP:++‡8˜,&,'+Š$‘,,$+‰'@,%‰'@%?P,A(P (O A(…" $$P:‰'@%?P,A(€, (-6 A(…@ ( E  ˜J šA)pA)pT ˜-ˆ%@ˆ%@^ AAP:++‡8˜,&,'+Š$‘,,$+‰'@,%‰'@%?P,A)0h (Om A)`r $$P:Š'@%?P,A)P| (- A)`† (   ˜š (¤  ® šA)•A)•A0 ³ 1AdAU1(HIT ANY KEY TO CONTINUE¸ F:Ad,"AUA0½ AdAU  šÌ €D:TRENDS