@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED151 FREE SECTORS COPYING---D1:HOME5.DOCl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 167ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u05  15 2 2151^116115ύ011$r2ԭ5 3)5)5ԭx GT}@@L00)+& 2 L0=ɛ -L!1LV1L1 /3 3ȹ441L-4 v3 25 2H 2h͔5U}L3L3 2 k3U hh`DOC`QL3P1Lk0S1H /3h0B k3@ VL0LU!#$53 1181118V}1111Ε5 1Lk0552 1Ȍ1i111i11115Lk0pppB4f5&&&&&&&&^6f^6&&&&&W}&&A1@BJ D2ELVK@BHILV^Щ6 2BD2EJ VBD5EHI0 V0%5X}5 2iХiL[2 25 25`D:*.*` i@`8 ``@i `8@`0 BLV525<4Y}5`HH i ԍΗ552 ԍhh@ Lح1Э1Ѣ 24.4 24Z}4`D4E` 2BJ k3LVRH` 2BD4EhK)I JLV333 BASIC languag i}e OBJ > MACHINE language DOC > DOCumentation PIC|MIC|FNT|MVM > Graphics AMS|MUS|MBD > Music LST j} > BASIC LISTing -Some MACHINE language programs can only be run by booting the disk MENU "without" BASIC! -For s k}ome programs, XL/XE models may require a "TRANSLATOR" program to be booted first! [Also available from BELLCOM] - l}Most programs are relatively self-explanatory; however, some have separate DOCumentation files available. Some BASIC m} programs may contain instructions in their program listings. -To use this great MENU program on your own disks, n}simply copy the file "AUTORUN.SYS" onto your disk. * MENU written by DAVID CASTELL * program on your own disks, ^=> %1%XLINECODETBTBCORRECTIOCODLINLOCATIOWAIp} q}d&&;@ ,;@@,;@,nO +-@@6( WEATHER FORECASTH-@ @O(br}yx*-@@*(Randall Lockwood%(-@@7!(-% .(+( 1. ENTER READINGS FROM BAROMETER.s}(q)(!ENTER THE TIME OF READINGS TO THEP("NEAREST WHOLE HOUR USING A 24 HOURq(CLOCK (6 A.M.=6, 6 P.M.=18) At}:( (TIME OF FIRST READING-((1-24) 1:6-A:,!!!* @%A7*("TIME SHOULD BE A WHOLE Nu}UMBER 1-24-(7 A` B[+(WHAT WAS THE READING AT  HOURSN((28.00-32.00 INCHES MERCURY) R[6-A:v},!!@(*@2A@'(IT SHOULD BE 28-32(' A/(TIME OF SECOND READING+((1-24) /*w} 6-A:,*!* @%Ap&(IT SHOULD BE 0-24(& A@>,(WHAT WAS THE READING AT  HOURS :(x}(28-32) >* 6-A:,*@(*@2A"'(IT SHOULD BE 28-32(' Ap,%@0@6-% y}A6%@06-@% A@%@)6-@% AJ%@)p6-@% AT%z}@)P6-@% A^%@) 6-@% Ah%@(6-@% Ar6-@|AAF{}ORMULA TO ADJUST FOR DAILY CYCLES OF BAROMETRIC PRESSURE]]IF WIND PREDICTIONS ARE USUALLY TOO HIGH OR LOW, ADJUST|} THE VALUE OF CORRECTION6-?P;;6-&?$E:+O:&@,'@,$@$@,C;6-%?$E:+O:&}}@,'@,$@$@,C6-& 6-$(O:, ?6-( A& 6?6-@& ~}A& 6?6-@& A% ?6-@% A% ?6-@% A, +}(&(2. WIND DIRECTION)(,(Y(,(!ENTER THE NUMBER CORRESPONDING TOV(%THE DIRECTION THE WIND IS COMING FROMY}(y(0. NORTH!( 1. NORTHEAST-(2. EAST>( 3. SOUTHEASTK(4. SOUTH\( 5. SOUTHWESTh(6. WESTy( 7. NORTHWEST}# (8. NO WIND OR CAN'T TELL#(6-A:,, +(&(3. SKY CONDITIONS)(,(&*( ('(ENTER THE SKY CONDI}TIONS:*(0g(0. CLEAR%(1. PARTLY CLOUDY:(2. MOSTLY CLOUDYJ( 3. OVERCASTa(4. RAINING/SNOWINGd(g(:D* 6}-A:,* )!@ApNk +(#(4. TEMPERATURE&(J(WHAT IS THE PRESENT TEMPERATUREe(IN DEGREES} FAHRENHEIT?h(k(X6-A:,b9 +((9(! FORECAST FOR THE NEXT 6-24 HOURl# ( PERIOD IS AS FOLLOWS: #}(v//6-A$%@%$%@$%%@6-P:'@ &?,6-&@ $#A %@$"},6-$@&@,6.7<%@,<%6-@:7@<@,,&@d<6.7@<@,!@A }ooA`ApAAAA A@A`A0ApAAA oo&@}A A0A A0A 0A @A PA `A0A pA A 5 +((2( T}HERE HAS BEEN SOME ERROR5(( PLEASE TRY AGAIN-@A %((FAIR( A+!(FAIR }AND GENERALLY WARMER+ A +!(FAIR AND GENERALLY COOLER+ A=(VARIABLY CLOUDY(3( LIGHT PRECIPITATION}= A ;)(!PARTLY CLOUDY WITH CHANCE OF SOME;( PRECIPITATION*0(&(A WARMING TREND WILL FOLLOW0 A4G"(V}ARIABLY CLOUDY AND COOLER%(G(CHANCE OF LIGHT PRECIPITATION> AH%%(INCREASING CLOUDS OR OVERCASTR A} A\%%(INCREASING CLOUDS OR OVERCASTf:(( WARMING TREND&6-%@0 A: Ap0(WARMER6-}%@& A0 Az0(COOLER6-&@& A0 A (RAIN IS LIKELY A"(WARMER WI}TH RAIN" AX(TURNING COOLER$6-&@. AN(IMPROVEMENT WITHIN 24 HOURSX A4 A*(CL}EARING WITHIN 12 HOURS4 A@ A( IMPROVEMENT6(COOLER WITHIN 12 HR.@ A0 A&(IMPROVEMENT} IN 6 HRS0 A@ A6($IMPROVEMENT AND COOLER WITHIN 12 HRS@ A: A0(FAIR AND COOLER WITHIN 6} HOURS: A8(VARIABLY CLOUDY! A.(CLEARING8 AD(VARIABLY CLOUDY! A:( CLEARING AND C}OLDERD A WINDS(WINDS: 4N( INCREASING 4F( LIGHT 4S( MODERATE 4}G( STRONG$ 4W( VERY STRONG.$ 4H$( **HURRICANE FORCE**8 4D( DIMINISHINGB 4U( UNC}HANGEDL&((FORECAST COMPLETE. (#(&V( CHANCE OF j" @%(SNOW" At3 @0)(SNOW OR }FREEZING RAIN3 A~> @@"(SNOW, SLEET OR4( FREEZING RAIN> A- @P#(RAIN OR SHOWERS- A} (SHOWERS OR THUNDERSTORMS ( $##DO NOT RENUMBER THESE LINES!!!!GROUPS OF 20 2-LETTER CODES..ADADA}DADWDADADADADTDADADADXDRDAUDUGUGUJU..GNGNGNGNMNCUCUCUCUWUCDCDCDCDUDADADADXDRD..AUDUGUGUJUGNGNGNGNMNCFCFCFCFWFCUCUCUCU}UU..AUAUAUXURUDUDUGUGUJUGNGNGNGNMNCFCFCFCFUF..CFCFCFCFUFAUAUAFXFRFDFDFGFJFJFJNJNLNPNPN..CSCSCSYSUSCFCFCFFFSFCFCFY}FFFSFFSLSLSLSLS..LSLSLSPSPSCSCSCSPSSSCSCSFSFSSSCSFSFSFSSS..SSSSSSSSSSLSLSPSPSPSCGCGFGFGSGCGFGFGSGSG..FGSGSGSGSGSG}SGSGSGSGLGLGPGPGPGFWFWFWSWSW..FWFWSWSWSWSWSWSWSWSWSWSWSWSWSWLWLWPWPWPW..AUAUAUAUTUAUAUAUDURUAUAUAUGUJUDNGNGNGNMN..}GNGNGNGNMNCUCUCUCUUUAUAUAUDURUAUAUAUGUJU ..DNGNGNGNMNGNGNGNGNMNCFCFCFCFUFAUAUAUDURU..AUAUAUGUJUGNGNGNGNMNGNGNGNGNMNCF}CFCFYFSF..CFCFCFFFSFAFAFAFGFJFGNGNGNMNMNGSMSMSMSMS..CSCSCSFSSSCSCSCSFSSSASXSJSJSJSJSJSMSMSMS ..MSMSMSMSMSYSYSFSSSS}SFSFSFSSSSSLSLSLSLSLS%..LGPGPGPGPGPGPGPGPGPGSGSGSGSGSGSGSGSGSGSG*..LGLGLGPGPGPWPWPWPWPWPWPWPWPWPWLWLWLWLWLW/..LWLWLW}LWLWPWPWPWPWPWPWPWPWPWPWPHPHPHPHPH4..AUAUAUDURUAUAUAUDUJUAUAUDUGUJUENHNHNHNNN9..HNHNHNHNNNAUAUAUDURUAUAUAUDUJUAUAUDUGUJ}U>..ENHNHNHNNNHNHNHNHNNNAUAUAUDURUAUAUAUDUJUC..AUAUDUGUJUHNHNHNHNNNGNGNGNGNMNAFAFAFDFJFH..AFAFAFGFJFAFAFDFGFJFGNGNGN}MNMNGSMSMSMSMSM..ASDSJSJSJSDSJSJSJSJSDSJSJSJSJSJSMSMSMSMSR..MSMSMSMSMSLSLSLSLSLSLSLSLSLSLSLSLSLSLSLSW..LGPGPGPGPGPGP}GPGPGPGLGLGLGLGLGLGLGLGLGLG\..PGPGPGPGPGPWPWPWPWPWPWPWPWPWPWLWLWLWLWLWa..PWPWPWPWPWPWPWPWPWPWPWPWPWPWPWPHPHPHPHPHf..}AUAUAUDUJUAUAUAUDUJUBUBUEUHUKUENHNHNHNNNk..HNHNHNHNNNAUAUAUDUJUAUAUAUDUJUAUAUDUGUJUp..HNHNHNHNNNHNHNHNHNNNAUAUAUDUJUAUA}UAUDUJUu..AUAUDUGUJUHNHNHNHNNNGNGNGNGNMNAFAFAFDFJFz..AFAFDFGFJFAFAFGFGFJFGNGNGNMNMNGSMSMSMSMS..DSJSJSJSJSJSJSJSJSJS}JSJSJSJSMSJSMSMSMSMS..MSMSMSMSMSLSLSLSLSLSLSLSLSLSLSLSLSLSLSLS..LGDGDGDGDGPGPGPGPGPGLGLGLGLGLGLGLGLGLGLG..PGPGPGP}GPGPWPWPWPWPWPWPWPWPWPWLWLWLWLWLW..PWPWPWPWPWPWPWPWPWPWPWPWPWPWPWPHPHPHPHPH..AUAUAUAUDUBUBUBUBUEUBUBUBUEUKUBNHNHNHNNN}..HNHNHNHNNNAUAUAUAUDUBUBUBUBUEUBUBUBUEUKU..ENHNHNHNKNHNHNHNHNNNAUAUAUAUDUAUAUAUDUJU..BUBUBUEUKUHNHNHNHNKNGNGNGNG}NMNAFAFAFDFJF..AFAFAFDFJFAFAFDFGFJFGNGNGNJNMNGNGNGNMNMN..DSJSJSSSSSDFJFJFSFSFJFJFJFJFJFJSJSJSMSMS..LSLSPSPSPSSSSS}SSSSSSSSSSSSSSSSSSSSSSSSSS..SSSSSSSSSSLSLSPSPSPSSGSGSGSGSGSGSGSGSGSG..SGSGSGSGSGSGSGSGSGSGLGLGPGPGPGSWSWSWSWSW..S}WSWSWSWSWSWSWSWSWSWSWSWSWSWSWLWLWPWPWPW..AUAUAUAUDUBUBUBUBUEUBUBUBUBUEUBNENHNHNKN..ENHNHNHNKNAUAUAUAUDUAUAUAUAUDUBUBU}BUEURU..BNENHNHNKNHNHNHNHNHNKNCFCFCFCFFFAUAUAUTU..BUBUBUXURUENHNHNHNKNHNHNHNGNJNCFCFCFYFUF..AFAFAFXFRFAFAFXFDFRFG}NGNGNJNJNGNGNGNJNJN..CSCSYSFSUSCFCFFFFFSFDFFFLFSFSFJSLSLSSSSS..SSSSSSSSSSCSFSFSSSSSFSFSFSSSSSSSSSSSSSSS..SSSSSSSS}SSSSSSSSSSSSFGFGSGSGSGSGSGSGSGSG..SGSGSGSGSGSGSGSGSGSGSGSGSGSGSGSWSWSWSWSW..SWSWSWSWSWSWSWSWSWSWSWSWSWSWSWSWSWSWSWSW}..ADADADADXDBDBDBDBDXDBDBDBDBDEDBUBUEUEUKU ..BNBNENHNKNAUAUAUAUXUADADADADXDADADADADDD ..BUBUEUEUKUBNENHNHNKNCFCFCFCF}XFAUAUAUAUXU ..AUAUAUAUTUBUBUEUDUJUENENHNHNJNCFCFCFCFWF ..CFCFCFCFWFAUAUAFAFTFAFDFGFJFJFDNGNGNJNJN ..CSCSCSCSWSCFCFC}FCFUFAFCFCFYFUFDFDFJFSFSF ..LSSSSSSSSSCSCSCSCSUSCSCSCSFSUSCSCSFSFSLS ..FSLSSSSSSSSSSSSSSSSSCGCGYGFGUGFGFGFGUGUG$ ..FG}FGSGSGSGSGSGSGSGSGSGSGSGSGSGFWFWFWSWSW) ..FWFWSWSWSWSWSWSWSWSWSWSWSWSWSWSWSWSWSWSW. ..ADADADADXDADADADADXDADADADADXDBUBUE}UEUKU3 ..BNBNENHNKNCUCUCUCUYUADADADADXDADADADADXD8 ..BUBUEUEUKUBNENENHNKNCFCFCFCFYFCUCUCUCUYU= ..AUAUAUAUTUAUAUDUDUJUBN}ENDNGNJNCFCFCFCFWFB ..CFCFCFCFWFAUAUAFAFTFAFDFDFDFJFDNDNDNJNJNG ..CSCSCSCSWSCFCFCFCFUFAFCFCFYFUFAFDFDFSFSFL ..FSFSSSSSS}SCSCSCSCSWSCSCSCSYSUSCSCSFSFSUSQ ..FSFSFSSSSSSSSSSSSSSSCGCGCGYGUGCGCGYGFGUGV ..FGFGFGSGSGFGSGSGSGSGSGSGSGSGSGCWFWFWFWUW[} ..FWFWFWSWUWSWSWSWSWSWSWSWSWSWSWSWSWSWSWSW` ..AUAUAUAUTUAUAUAUAUTUAUAUAUAURUBNENHNHNNNe ..BNHNHNHNNNAUAUAUAUTUAUAUAUAUT}UAUAUAUAURUj ..BNENHNHNNNHNHNHNHNNNAUAUAUAUTUAUAUAUAUTUo ..AUAUAUAURUENHNHNHNNNGNGNGNGNNNAFAFAFAFTFt ..AFAFAFAFRFAFAFAF}XFRFGNGNGNGNMNGNGNGNGNMNy ..CSCSCSYSSSCFCFYFFFSFAFAFDFFFSFGNGNGNMNMN~ ..JSJSMSMSMSCSCSFSFSSSCSYSFSSSSSFSFSFSSSSS ..LSL}SLSPSPSLSLSPSPSPSFWFWSWSWSWFGFGSGSGSG ..FGFGSGSGSGLGLGLGPGPGLGLGPGPGPGSWSWSWSWSW ..SWSWSWSWSWSWSWSWSWSWLWLWLWPWPWLWLWPW}PWPW * D:WEATHERFGSGSGSG ..FGFGSGSGSGLGLGLGPGPGLGLGPGPGPGSWSWSWSWSW ..SWSWSWSWSWSWSWSWSWSWLWLWLWPWPWLWLWPW67GyTIIADSQCKPTIMTTTISTG} } !** HURRICANE** JAPS LIB}RARYQ1;@,;@,;@,;@ ,Q@@K:/ (} A`%AR}/+9 (} Ae5(Enter name of your location9@4JAX)4 JACKSONVILLE*6-@0 66-@p}@ @  ,((Enter your latitude in degrees,-)( Enter your longitude in degrees- (} Ae(#-)}( Input the name of the hurricane--''(Input latitude of hurricane 2( in degrees7(((Input longitud}e of hurricane <( in degreesP++( What is 's current directionR#(of travel (in degrees)#T&&(} What is 's current speedV(in MPHb! (}"*"!6-%?d Ae6-&6-n&&+ A},*+!6A,Ax6-%A`6-&&+ A,*+!6A,A6-&A`!6-@} 6-66-G:$?tS0,%6-G:$?tS0,66-E:$?tS0,76-E:$?tS0,%6-E:$?tS0,76}-+$,%+$$,6//6-+6D:'M:6$%@,,%@W,$@W)W@(6-G:$?tS0,(6-+&+$,,'+$,^226-P:+6D:'M:6$%}@,,%@W,$@W)W,h"6-A`&6-+&+$,,'+$,226-P:+6D:'M:6$%@,,%@W,$@W)W},"@6-A`&*6-$@`$@*6-P:%?P,&/* @%6.North/ A.3}@* @u)6. Northeast3 A0.@u* A$6.East. A33A* Ae)6. }Southeast3 A5/Ae* A%6.South/ A83A* AU)6. Southwest3 A:.}AU* A$6.West. A=3A* AE)6. Northwest3 A?6.NorthX A AP}]B%( Hurricane  is currentlyB( miles  of .b( Bearing from g))(is  degrees from true} north. AP((( If hurricane  maintains its&&(current speed of  MPH and''( direction of  }degrees from))(!true north there is no cause for ))(!alarm. Please continue to monitor ( hurricane  closely}. AP '6-@ A'6-@  A6-@ +%,*!+&,A $!! *}!A`&+&,A )++!+A`&,* &+A`&,A . AA B$ (} 6-' % 6-P:},6-&%6-P:$@`,( 6-@2  @r6-@<  @H6-@F  @$6-@P}  @6-@ Ae %"@%6.Š '@'6.Š ( >} >  < < >(( Hurricane  is currently >(miles  of  >(Bearing from  is>( degrees fro}m true north. AP M(( If this hurricane maintains itsM(current speed of  miles per (((hour and curre}nt direction of  ,,($degrees, the center of the storm can !!(be expected to hit the  **(area in approximately } hours. AP& 1.(&-------------------------------------1$p +@u0@z}-@%%(@> > hurricane < <%%(HURRICANE LOCATION CALCULATORAR@(PRE}SS TO BEGIN)@$d//('}ŠΠҠn$ D:HURICANE(PREpab:_qXXMOFIRSTTIMYOLDYOLDMMLMSTARXYSTARLCCC10C40BASDBYOLDNDLEAPYNDOLDDNROCO} } %%CALENDAR BY MATTHEW KLINE 02/83 !!. } TORONTO, CANADAKKTHE GREGORIAN CALENDAR WAS 1ST USED IN 1582 WITH A 10 DAY ADJUSTMENT.77DURING 1583 & LATER YE}ARS THE RULE IS AS FOLLOWS:MMA LEAP YEAR IS A YEAR WHICH IS EXACTLY DIVISIBLE BY 4 EXCEPT THAT YEARSKKDIVISIBLE BY 10}0 ARE NOT LEAP YEARS UNLESS THEY ARE DIVISIBLE BY 400.@.@@E:H0@@}b0@@@|0@@@@;@,;@,(  CALENDAR: 26}-@< @`F- ENTER MONTH AND YEAR: -@P AZH 46-%+"@,>6-%@}&@$+"@,H A`dI 4L6-&+"@,?6-&@%@$+"@,I APn" 6-B:, @}" @`x&&JANUARY,FEBRUARY,MARCH,APRIL,MAY JUNE,JULY,AUGUST,SEPTEMBEROCTOBER,NOVEMBER,DECEMBER% #A }6-%6-'6-%@!@' Ap"-@&@;'7<%@,47@}<@,-6-;6-%@ " A`ALPHANUMERIC MONTH6--%@/7}<,2A)7<,3Z!6-/6-%@ " @` APNUMERIC MONTH" 6-A:, @}" @`") 6-P:,!A)6-P:'B,, !@ 6-P:'A,6 6.=:,6-B:,@-@&@}J.7<%&@,4 6-%.6-%@T ^7<,4.6-%@h ! @`rHAVE MO: GET }YR|6-6@ A -6-A:7,,6-%@ A  P:,)  @`} A6-A%6 A, YEAR MUST BE AFTER 1582.6 @`HAVE MO & YR# #A -@}"# 7 6. 67B:,%@,. 767B:,%@,.=:,1 }*-+@@&B:,,'@. 1 -- % SUN.} MON. TUE. WED. THR. FRI. SAT... & Q6-Ae%6-$@%@;6-$@%}&@Q6-$@%@IIEVENTUALLY DY= (DAY OF WEEK MODULO 7)+1 WILL = 1...7 I.E. SUN...SAT(6-A6-}@(1 JAN 1583&26-P:+&,'A,(6-%$A26-%$0>6-P:+&,'A,(6-%$A>6-%$%+!},:6-&@6-&@6-&+&P:'A,$A!&P:'A,$A,%+&P:'A,$A!&P:'A},$A,D26-P:+&,'@,(6-%$@26-%$NU6-&@6-&@U6-%+&P:'@,$@}!&P:'@,$@,X 6-&6-%6-%$b))31,28,31,30,31,30,31,31,30,31,30,31l #A6-vRR}6-+"P:'@,$@,&+"P:'A,$A,%+"P:'A,$A,-@!"*"@!6-@)} 6-%6-  6-((6-&P:+&@,'@,$@<6-<6-P:+%&@&@,'@},%@-@  -@@I6-%@6. 567@,.=:&%@,I6.7B:,&}@,  )!%&@ 6. $  | "@$  | .. & | | | | | | | } | 4  4 & 4 "4 &   *M6-}6-6-C #( L=LAST MONTH, RETURN=NEXT MONTH )M @` D:CALENDAR  *M6-VNO;MMMONTDAYEAFACTORFACTORDAYOFWEEDAYFAUGUSCIBCBCBIBIHOL } }A A +@9AR@'@@9}@@90@0@@ @ @$ ( @}(@}((@ ## @ **************** ## @ *days and dates*## @ ****************0}@@0@  BY5  DAVE WHITTLE1-@A5}  +;@,9AR@'@@9@@90@@0@} }(( ((2 1 - DAYS BETWEEN DATES<(F 2 - DAY OF THE WEEK}P(Z  3 - CALENDER](_!! 4 - CHANGE DISPLAY COLORSa ( (n  WHICHx''AA A0}A@ @ } ENTER FIRST DATE( A-"@)"@# A- AP A} "( ((ENTER SECOND DATE"($ A.-"@)"@# AP- A8 Ap= (}B=* }"THE NUMBER OF DAYS BETWEEN THE TWO=( DATES IS &G[  WHICH IS EQUIVALENT TON(P:++&,'Ae%,$B,'B} YEARS.Q'[ @%L DAYV MONTH` YEARj At$ll6-Ae$%%@1$+&@},%P:+&@,'@,&P:?u$+P:++&@,'A,%@,,,$(kk6-Ae$%%@1$+&@,&P:?@}$%@0,%P:'@,&P:?u$+P:'A,%@,,2$Fll6-Ae$%%@1$+&@,%P:+&@,'@},&P:?u$+P:++&@,'A,%@,,,P$Zkk6-Ae$%%@1$+&@,&P:?@$%@0,%P:'@},&P:?u$+P:'A,%@,,d$!!!@) @AAA+"@)"@)"@ )"@,*}!@0A88"@*"@)*'@P:'@,A!!!@1) @A AA}$@ }Je'(THE DATE YOU HAVE INPUT IS NOT N("ACCEPTABLE. REMEMBER TO INPUT THEe(MONTH IN NUMERICS.OKK }(CIF YOU ARE ENTERING A DATE TO GENERATE A CALENDER, ENTER 1 FOR DAY.T' Av A-"@)"@ }# A- A@ A  6-&+P:'@,$@,$ }(ENTER THE DATE( A." }(.(THE DATE IS A SATURDAY. ,"@(,(THE DATE IS A SUNDAY.,"@(,(THE DATE IS A MONDAY.  }-"@(-(THE DATE IS A TUESDAY.*/"@(/(THE DATE IS A WEDNESDAY.4."@(.(THE DATE IS  }A THURSDAY.>,"@(,(THE DATE IS A FRIDAY.H' @% (} J, $ENTER MONTH AND YEAR OF THE CALENDER}J(YOU WOULD LIKE DISPLAYED. 6-@ A A A  "@6.JANUARY "@}6.FEBRUARY "@6.MARCH "@6.APRIL& "@6.MAY0 "@6.JUNE: }"@6.JULYD "@6.AUGUSTN "@ 6. SEPTEMBERX "@6.OCTOBERb "@}6.NOVEMBERl "@6.DECEMBERn <&"@*'@"P:'@,26-@)< A1p %"@6}-@(% A1r C-"@)"@)"@ )"@96-@0C A1t 6-@1u G%"*+"@1})"@0,16-@=6-@G A1v ;"@*"@1%6-@16-@; A1w ;"@*"@}(%6-@16-@; A1z 6-@6-@{ (} ((,  --(% } --(% |SUN |MON |TUES|WED |THUR|FRI |SAT | --(%  -@} -@@ --(% | | | | | | | |   --(%   } -@@ --(% | | | | | | | |   --(% > } @6-@H 6-$@%@\ -@@ f -p  z 76-%@!@7)6-@}76-%@   6-&@ -@ -   76-%@!@6)6-@76-%@}   >-@@#>(#ENTER ANY NUMBER TO RETURN TO MENU.  @ }pp(hYOU MAY SELECT THE} COLOR AND INTENSITY OF THE BORDER, THE BACKGROUND, AND THE LETTERS.II(ATHE LETTERS MUST BE THE SAME } COLOR AS THE BACKGROUND BUT((( SHOULD BE A DIFFERENT INTENSITY.mm(eENTER INTENSITY AS AN EVEN VALUE} FROM 0 TO 14, WITH 0 BEING THE DARKEST, AND 14gg(_BEING THE BRIGHTEST. ENTER NUMBERS FOR THE COLOR}S FROM THE FOLLOWING LIST:(0 - BLACK OR GREY(2 - BROWN OR GOLD(4 - RED OR PINK( 6 - VIOL}ET(8 - BLUE( 12- GREEN(ENTER COLOR OF BORDER!!(ENTER INTENSITY OF BORDER",!!(ENTER  }COLOR OF BACKGROUND6@%%(ENTER INTENSITY OF BACKGROUNDJT""(ENTER INTENSITY OF LETTERS^0@!}0@0@ @' A @ D:DAYSDATEY OF LETTERS^0@\EFfZDDATYALYXDSIMIBUFZTIIIGPBAMDYXMM!#} @!$} !"# X!%}@.@@K:N@@S:X @@-@@ =2@!&}@$D( P,( D( i(?& BORN  ,A!'}%*?  FOR ALL OF 2#"# FOR ,<&(#( נ̠&$FB6-+',&P:',"6!(}-$A`46-P:+G:,,$,%?67<,.B$P-@A $Z&&;@@,9@,;@,d11;@!)},;@,;@ ,;A ,n))31,29,31,30,31,30,31,31,30,31,30,31x<<JAN,FEB,MARCH,APRIL,MAY,JUNE,JULY,AUG,SEPT,!*}OCT,NOV,DEC'@@'@@9 A`B (@(1) SCREEN ONLYB(@(2) SCREEN + PRI!+}NTER:-@:(@ SELECTION() [6-@6-@'6-@1 A=6-E!,}42Q6-@[ A01A` A`5-@@ 5(@BIRTHDATE //G6-!-}@6-@'6-@ 1 A; A GA 6-j 6--@>(@MONTH Y!.}EAR R(@(1-12)j(@ 'CR'IF ALLq6-@6-@'6-@1 A84D6-@V-!/}@@g @ALLq A`: A06.6-A:,: )!@A0w6-@6-@!0}'6-@1 A76.A A0J6-A:,[-@B:,w@:7<,,!@dA`  A 6-!1}f-@@!#A/-@3"7 Z"@)*P:'@,'@f6-@(" 68,- ,6-8!2},&%6(-%@@$6-8,%( @ 6-J56-%@@y+6-%@5 AT>6-Ae2!3}P:'@,&+'@,">6-Af^ 6-% A0h +@6-@r5( ɠ5(!4} Ҡ|<  ͠9( <$= +@6-@# @0'36-@!5}= @0> #A !-@@%",6.8"@>6-A07 @ !6}7 @ 6-@6-@AP-@8,6. !7}6-%@AP]6-@#6.P! @p-6-@356.i? @pK6-@(S6.] @pS!8}67@<@,.=:,1-@@O67<,.>:@:7<,,%A(,S F:B2y,"@% @ A!9}0:6.7@!<A,,-@: @M @52@@`&@@JF:B2!:}y,"@M%J%2@967B:,%@,.=J @& 0; @+@'!;}6-@1 @0; A: " ' AD.  -@@* @. N6-@#6(@!<}press buttonXYF:B2y,@*-@@#= @startO-@#Y Ab%l!=}56-+67B:,%@,. 5 A@v6-@$a 6. A0-6-A:7@<@,,G6-A:7@!>}<@,,a6-A:7@<@,,?? )!@) )!@1) A07-@@!?}77<,4.)7<,4-A0 1 #A-@"# 1!A0<0'@P:'@,*"@!@}*!@(<6-@$ A` 6- AP6. 6- AP$& #A -@!A}"# &$0 Ap-@@P:0$H(@0(@ϠҠ;@E @!B}H% B6-6.82@AAAB @ F:B2y,"@% **"@ *F:Ad,"!C}AUA* -%)@4G -%(@>:,0F:Ad,"AU8-%G(@ >F:B2y!D},"@%H F:Ad,"AUA RC -%)@*AdAU@"AU)"A&C$\N6-%@!E}(67B:,%@,.>:,9 @>:,?"K6-@ N$f3%"@*+"@)"@,36-%@p A!F} D:BIORTHM.>:,9 @>:,?"K6-@ N$f3%"@*+"@)"@,36-%@p A   M XYZA@@@6-6-,,PR%H}OGRAM BY ED WAINWRIGHT DAVENPORT, FL 0 +'0@@* - 0  WILL STRESS IN YOUR LIFE M%I}AKE YOU SICK ?( 2 Score yourself on the< Life Change TestF## If any of these life eventsP## have happ%J}ened to you in theZ'' last 12 months, please indicated by pressing (Y) for yes.n x The computer will tall%K}y&& the points. And then print out!! the results including the'' probability of serious illness. %% %L}Source:Homes,T.H. & Rahe,R.H.,, $The Social Readjustment Rating Scale #119@C,9@C,9@C,%M};@P,-@@C "68,- 68,-6@ ii100,73,65,63,63,53,50,47,45,45,44,40,39,39,39,38%N},37,36,35,31,30,29,29,29,28,26,26,25,24,23,20,20,20##19,19,18,17,16,15,15,13,12,11-@@C A@"%O} ' ,)) !That's all! Lets see you have had6%%  Changes in your life for a@$$  total of  Value Points.%P}J T,, $Research has indicated the following^  probablities:h r'' Over 300 total - 80% chance of |HE = %Q} sickness in the near futureH(((  150 to 299 total - 50% chance of++ # %R} sickness in the )&  near future)(++ #Less than 150 total - 30% chance of-- % %S} sickness in the/) ! near future,(/(#+%A," #7%T}@,4Y#68,-@"7@,4Y"6-%@7@,4Y6-%8,$XDATA EVENTSYDeath%U} of spouseZ Divorce[Marital separation\Jail term]$$Death of a close family member^ Personal injury or il%V}lness_Marriage`Fired at workaMarital reconcillationbRetirementc''Change in health of family memberd%W}PregnacyeSex difficultiesfGain of new family membergBusiness readjustmenthChange in finacial statei%X}Death of a close friendj((Change to a different line of workk88Change in number of arguments with spousel%Y}Mortgage over $10000m$$Foreclosure of morgage or loann((Change in responsibilities at worko""Son or Daughter leavin%Z}g homepTroubles with inlawsq&&Outstanding personal achievementrWife begins or stops worksBegin or end schoo%[}lt!!Change in living conditionsu!!Revision of personal habitsvTrouble with bossw((Change in work hours or condi%\}tionsxChange in residenceyChange in schoolszChange in recreation{!!Change in church activities|!!Change %]}in social activities}''Mortgage or loan less than $10000~Change in sleeping habits55Change in number of family ge%^}t togethersChange in eating habitsVacationChristmas Minor violation of the law D:STRESS.%_}BAS togethersChange in eating habitsVacationChristmas Minor violation of the law D:STRESS.$GH] p CCCCCCC2MESSAGEC25PULSEBEATMINUTEMOMENTIMPULSECHANG)a} )b}SHAVASAN PROGRAMPROGRAMMER:IAN THURSTONDATE:08/31/78&&TRANSLATED BY:THAD MACK 08/31/84y6-@6-)c}#6-%+6-%76-@?6-%QAAcAAoA y6-$&(;@ ,6-AU)d}(AR + (  ( Shavasan Meditation( c)e}((Hello.(:(!I'm your friendly ATARI computer.c($I'm going to teach you to relax withU)(!Shavasan (a breathing t)f}echnique).,(U($Shavasan lets you use your breathing#t#(to calm your body and mind.&(O($First, you need a comfortabl)g}e chair.t( Next, turn down the room lights.(--(%Now, sit down and relax for a moment.- A A 2 6-$)q}#b%DOS SYSb*)DUP SYSb SAUTORUN SYSb_HELP DOCbKoWEATHER BASbHURICANEBASbCALENDARBASb,DAYSDATEBASb%"BIORTHM BASbGSTRESS BASb`SHAVA BASbRELAX BASb8LOTTERY BASbILOTTERY L39bPLOTTERY L49bVWELECTRICBAS7S @U(}((:(How many minutes do you wantS(to relax for (1-30)< )!$%@UAa B)r}(}(<(!All you have to do is concentratea( on the four stages of breathing.Fn( ((  1) INHALE(!(=( )s}2) HOLD YOUR BREATH@(C(U(  3) EXHALEX([(n( 4) HOLD ITKf( (/(!Just watch the screen and do whatP(it sa)t}ys. Try not to let yourf(attention wander.P AZ +$+%,d#6-@#THIS IS 3 SECONDSeIF THE LENGTH)u} OF TIMEfIS TOO SHORT OR TOO LONG,g!!BETWEEN STEPS 1,2,3, AND 4,hTHEN INCREASE OR DECREASEiTHE VALUE IN 'MO)v}MENT'.jkTHE VALUE IN 'MOMENT' NOWlIS SET TO 3 SECONDS.mEACH SECOND EQUALS 30.n-+%,$x -)w}"1(@}$-@@1(@ 6-$ 6-F:, AP  # ++INHALE,)x}2,HOLD IT,1,EXHALE,2,HOLD IT,2++ (+(You have completed Shavasan.1( (( Once again.# A 16-@$)y} 6-&1(1(That's a change of  beats/minute. ( OOPS!! Ap( $&( VERY GOOD!!( Ap)z}  $& ( KEEP TRYING!!<( (3(%This is your computer saying GOODBYE!6(9(<$($(WHEN READY PRESS AN){}Y KEY.Ad 6-F:Ad, "A Ad(}$S (Please, take your pulse.#(?(Begin t)|}o count beats atS(the first beep.3(+( Stop counting at the second beep3&6-F:&, A  &)}}(}6-F:&, A @ 6-F:, 'A P 6 A 2( How many beats did you count6)~} (} $* B(} A ` D:SHAVA.BASA P 6 A 2( How many beats did you count6(=z{GGNNNNNNN1N1N221N232N234STXTCBASMMNPSDSBDELADDTSMODCOLROWSTARCHARSEEETIM-}ETIMPAUS -}-} !"#$%&'()*+d(>:A%-},4(INITIALIZING, ONE MOMENT PLEASE@6-L6-@X6-@d6-@p6-@|6-@6-@-}6-@6-A"no6-A# 6-A#@3;A$,;@,<6-C:,Q6-P:'A%,$c6-$AV&%o6-}7,.>:,xP67A$,.>:,!67,.7,/-AL67%<%,.>:F:%BsD,,P B#-@A"&Ad%-}* 66-@$B6-@1!A A`? -"!67%<%,.>:,% -6-%56-%? A@6--}A6-A!AVA? -"!67%<%,.>:,% -6-%56-%? Ap6-Ad6--}Aq!AyA ? -"!67%<%,.>:,% -6-%56-%? A\ +@AV!-}0'-A(RELAXATION TRAINER\( >>>options >>>R( @@@@@@@@@@@@@@@@@@9( ENTIRE PROGRAMMER(-} DEEP BREATHINGi( TRAINER,( OCEAN SOUNDSG( @@@@@@@@@@@@@@@@@@R(@i( ENTER CHOI-}CE<@K")-"@:E,2< A"@:D, A#p""@:O, A%p,-}6X +@AV'0@50@=0O-@ @X(#@Y-@(%$&&-@-}2('()*8-C(+,-O-@ Y(./JR -(:;<-4(relaxation trainer9(R( FULL -}RELAXATIONTM-@ ( PROGRAMME;(I-AM ^S +@0-4(THI-}S PROGRAMME IS9(S( DESIGNED TO HELPh{($( YOU LEARN TO RELAX./(@N(@ |Š|m-}(@ | |q { A#06-@@(( LET'S BEGIN, 6 A#0C +@AV'0-}@/09 A#C APP -( FIRST LET US"(:( BECOME FAMILIAR?(P( WITH THEY(-}( SCREEN? & A#,-@( ON THE RIGHTE(Y( SIDE OF THEE(( SCREEN THERE"(7( -} IS A FIGURE?; E A#N -( TEXT WILL(5( APPEAR TO THE:(N( LEFT OF THEA(( FIG-}URE? & A#,-A( AT THE BOTTOMa(( OF THE SCREEN#(6( THERE IS A;(S( GREY TIMER B-}AR?W a A#P -( THE FIRST FEW#(:( TIMES THAT YOU?(P( USE THISF(( PROGRAMME Y-}OU#(8( WILL NEED TO< F A#K -( PAY CLOSE(4( ATTENTION TO9(K( THE TEXT?H(-}( AFTER A WHILE#(:( YOU WILL LEARN> H A#S -(THE RELAXATION$(9( INSTRUCTIONS>(-}S( AND YOU WILLD(( ONLY NEED TO"(6( LOOK AT THE: D A#R -( FIGURE AND (6(-} LISTEN TO THE;(R( AUDITORY CLUESX(( TO DO THE(2( EXERCISES?6 @ A#F-X( -}TO PREPARE&X(( TRY TO(.( IMAGINE A3(D( TRANQUILI(X( SCENE?0?  A#-*(-} CONCENTRATE/(?( ON THIS:W(( SCENE AND ( A#.-=(ON YOURB(W( BREATHING SOD-}D(( IT IS  (6( AND ?: D A#NJ -( CLOSE YOUR (3( EYES AND 8(J(-} THEN OPENX5(( THEM AGAIN AT#(5( THE TONE?bH  A#  A#'0--H(THE -}FIRST lV( MUSCLE GROUP(4( YOU WILL RELAX9(H( IS THEL V A#vK -( -} #(7( AND <(K( GROUP?<-@(%$-@-('3-<(+>-@-}@(&0-@@:()*> W  -$( THIS TONE WILL)(?( SIGNAL YOU TOD(W( -}PREPARE TOA(( RELAX THIS (/( GROUP?3 7 A A"R -(BEGIN WITH THE$(8( HANDS-}? THIS=(R( TONE SIGNALSR(( YOU TO FOCUS"(9( ON YOUR HANDS?E-@N(hR S  -}A" A"!-8(TENSE THE HANDS=(S( AND WRISTS BY<(( SQUEEZING YOUR$(8( HANDS HA-}RD?< V  -(FEEL THE"(:( TENSION IN YOUR?(V( FINGERS WRISTS>(( AND THE BACKS#-}(:( OF YOUR HANDS?> Q  -(FEEL THE"(6( TENSION FOR;(Q( ABOUT 5 SECS?=((-} RELEASE THE!(9( TENSION SLOWLY?= P  -"( ENJOY FEELING'(8( RELAXED?=(P( AS THE B-}ARR(( GETS DARKER!(6( LET YOURSELF: > D-R(BECOME H(( MORE AND MORE#(4(-} ?8 < @ H09 Ap   A") A"- 509  N -( NOW YOU WILL"(7(-} LEARN HOW TO<(N( RELAX THE*G(( ?$-@-(b1 5 ;-G(THIS4b((-} TONE WILL  (6( SIGNAL YOU TO;(M( RELAX THER(b( BICEPS?>S   A" A"`%-9(-} THIS IS DONE>(S( BY SQUEEZINGHY(( THE BICEPS (7( THE WAY YOU DO<(Q( WHEN SOMEONE-}U Y RM -(SAYS???(4( ?9(M( DO NOT MAKE\=(( A FIST WITH!(5( -} YOUR HANDS?9 = fN -( BE SURE TO (4( REMEMBER TO9(N( DO THIS WITHp<(( BOTH ARMS?-} # )-<( NOW LET THEzT(( BICEPS ?#(:( MOVE THE STICK?(T( AND FOCUS ON9(-}( THE BAR??? # ' /09 Ap/   A" A"`# ' /0N -( NOW YOU WILL-}"(5( RELAX THE :(N( AND](( TOPS OF THE!(3( ??-@H(tT--}@](fB  -'(THIS TONE WILL,(B( SIGNAL YOU TOQ(( RELAX THE  (4( -} AND9(Q( ?<   A" A"@%-<(TO FEEL WHAT ITf(( IS LIKE T-}O (4( TENSE THESE9(O( MUSCLES PRESST(f( YOUR ARMS@  -%( FACE UP INTO*(@(-} THE ARMS OF AT(( CHAIR? FEEL!(5( THE TENSION:(T( FOR ABOUT 5 SECS??  -@@ -})( 5-@?( O -( NOW ???"(7( LET YOURSELF<(O( RELAX EVENA  -} -((MORE AS THE BAR-(A( GETS DARKER4(( AND DARKER (4( PLEASE MOVE5(( -}THE STICK? # ' + 5 Ap'   A" A"@# ' $I-@(#-2( NOW YOU WILL-}>-@I(.J-@(!-*(6-@J( LEARN HOW TO8S(( RELAX THE -} (6( ;(O( AND ?S BV  -#(THIS TONE WILL((>( SIGNAL YOU TOC(V(-} PREPARE TOLH(( RELAX THIS (6( MUSCLE GROUP?: > H A!PVU-@@(f$--}:(THIS TONE WILL?(U( SIGNAL YOU TO`M(( RELAX THE(1( ?5 9 C A!PM A!`-}jN -( TENSE THE(3( BY8(N( FROWNING HARDtS(( HOLD THE(4( FROWN 5 -}SECS?8 < B-S( THE~G(( FROWN AND(1( ENJOY THE6(G( PLEASANT5(( S-}ENSATION? # ' + 5 Ap'   A!P A!`# ' U-@@(n$-:(THIS TO-}NE WILL?(U( SIGNAL YOU TO2(( PREPARE TO (2( RELAX THEL(( ?   ) A!P-}3 A!p9-L( FIRST TENSES(( THE MIDDLE OF#(8( YOUR FACE BY=(S( SCRUNCHING UPA(-} ( THE AREA?$ ( .-A( TRY TO KEEPS(( THE FOREHEAD"(8( SMOOTH? TENSE=(S(-} THIS AREA FOR?( ( ABOUT 5 SECS???$ ( .-?( NOW BEGINM(( TO RELAX(3( THIS AR-}EA OF8(M( YOUR FACE???     Ap'   A!P A!p# ' U-@@(-}m$-:(THIS TONE WILL?(U( SIGNAL YOU TO 2(( PREPARE TO (2( RELAX THEO(( -} AREA? $ . A!P8 A!>-O( TENSE THEN(( BY(3( PRESSING THE8(N(-} TOGETHER(I(( HARD???  2-@@ 8-I( HOLD THE 2M(( TENSION FOR!(7(-} ABOUT 5 SECS?<(M( THEN LET<6(( YOURSELF??? $ ( , 6 ApF'   A!P A!-}# ' PK-@($-@/(%$&;-@E(()K-Ze( NOW YOU WILL(1( LEAR-}N HOW TO6(I( RELAX THE N(e( dA(( AND ?! % +-A(THIS TONE WILL-}nN(( SIGNAL YOU TO#(6( PREPARE TO;(N( RELAX THISxK(( MUSCLE GROUP?" & 0 A-}B-@@K(nR -(THIS TONE WILL$(:( SIGNAL YOU TO?(R( PREPARE TOQ((-} RELAX THE(5( MUSCLES?9 = G AQ A K -( TENSE THE(/( BY4(K(-} PLACING A HAND?(( AGAINST YOUR"(7( FOREHEAD AND; ? U -( PRESSING YOUR#(:( HE-}AD INTO YOUR?(U( HAND? DO THISL(( FOR 5 SECS?!(2( THEN ???6 : > B L Ap'  -} A A # ' V-@@(sh%-;(THIS TONE WILL@(V( SIGNAL YOU TO2(-}( PREPARE TO (2( RELAX THES(( ? # 5-@@?( I AS A 0-}N -( TENSE THE(4( BY9(N( PUSHING THEMM(( INTO YOUR(.( CHAIR?2 -}6 <-M( HOLD THE M(( TENSION FOR!(7( ABOUT 5 SECS?<(M( THEN LET,(( YOU-}RSELF??? $ ( , V-@@(st%-;(THIS TONE WILL@(V( SIGNAL YOU TO2((-} PREPARE TO (2( RELAX THE"Q(( ? ! 3-@@=( G AQ A P,K --}( TENSE THE(3( BY8(K( SUCKING IN6N(( THE STOMACH!(/( HARD?3 7 =--}N( HOLD THE @M(( TENSION FOR!(7( ABOUT 5 SECS?<(M( THEN LETJ:(( YOURSELF???-} $ ( , 6 Ap: T#  A A P # ^A-@(&-@0(6-A(-}+,-h> -(./-$(:;<*->( NOW YOU WILLrP(( LEARN HOW TO"(5( RELAX THE :(-}P( |>(( AND ? " (->(THIS TONE WILLN(( SIGNAL YOU TO#(6(-} PREPARE TO;(N( RELAX THISE(( MUSCLE GROUP?" & 0 A p<-@E(tR -(THI-}S TONE WILL$(:( SIGNAL YOU TO?(R( PREPARE TOR(( RELAX THE(6( MUSCLES?: > -}H A pR A I -( TENSE THE(1( BY6(I( STRETCHING?(( YOUR LEGS OUT#(-}7( IN FRONT OF; ? L -( YOUR BODY AS"(5( FAR AS YOU:(L( CAN??? DO(( TH-}IS FOR;(( 5 SECS? THEN! % ) - 7 Ap; #  A p A  # O-@(c-}-4(THIS TONE WILL9(O( SIGNAL YOU TO2(( PREPARE TO (2( RELAX THEQ(( -} MUSCLES?" & 0 A p: A!@-Q( TENSE THEN(( BY(4( RESTING YOUR9(N( -} HEELS ON THE>(( FLOOR WITH # )->( YOUR LEGS OUTN(( IN FRONT OF!(7( YOU? NOW-} DRAW<(N( YOUR FEET&R(( UP TOWARD " (-<( YOUR FACE???A(R( FEEL THE08((-} TENSION AND!(8( THEN LET THESE:+(( MUSCLES??? # ' + D1 Ap   A p) A!-}- 1 NO-@(f-4(THIS TONE WILL9(O( SIGNAL YOU TOX2(( PREPARE TO (2(-} RELAX THEbQ(( MUSCLES?" & 0 A p: A!0@-Q( TENSE THElK(( BY(2(-} CURLING YOUR7(K( TOES INWARDv>(( AND SQUEEZING" & ,->( THEM HARD?i(( TEN-}SE THE(5( FEET THIS WAY:(N( FOR ABOUT 5S(i( SECS? THEN???9     Ap! % / -}A p9 A!0   A X-@($-@/(;-@G(M-X(-}M -(-$(0-@J(==================M$] -( REPEAT THE (0( -}5(H( M(]( CYCLE? !(( 5 SECS?!$V-@6*2A@@2-}AD@N-@R V  22$V-@6*2A@@2@r@-}N-@R V  22$Z --@622A@H2@r@-}V-@Z "  22"$`-@"-@682A@N2@r@-}\-@`  "  22"$V-@6*2AC@@2A@N-}-@R V   22$*V-@6*2A!@@2@@N-@R -}V 4 22$>Z --@622A!@H2@@V-@Z H"-}  22"$R`-@"-@682A!@N2@@\-@` -}\"  22"$fM-@6*2A@8-@< @ J2M$pM-@-}6*2@S@8-@< @ J2M$zH --@622@S@@-@-}D H  2 $N-@"-@682@S@F-@J N  2 -}$ 6-R:,"@ R:,@A" $-@% !@w$$N-@"-@-}682@)@F-@J N  2 $H --@622@)@@--}@D H  2 $M-@6*2@)@8-@< @ J2M$M-@-}6*2A!@8-@< @ J2M$M-@6*2@P@8-@< @-} J2M$ <-@ -5(@ 9 <$ <-@ -5(@ -} 9 <$ (@>:A%,$$ "-@@"(. G 6--A0?"A)"A-})"APG6-&8  0 0$B k+6-@16-@5#/,@&;/@1M/@1@p_/-}@&@pkB2wL ! 6-6-6.E! A$pV ' 6-6-@P6.I' A$p[ UU(M USE YOUR JOYSTICK-} TO TIME YOUR DEEP BREATHING AS YOU INHALE AND EXHALE \ ))(  PRESS THE FIRE BUTTON FOR `  6-R:,6-T:,j -}"@*"A t +"@6-%# @p+6-%~ %"@6-%!%6-& !! @)"@-}A$ + , AP-! + A$ 4!AI6-?:Ad,*6-AI4 A$ R%6-F:@,$.}AV%F:@,46-F:@,:"F6-@ R6-@  !)!$ 6-%$% A%@ ""6-+F:AV,$A.}V,%+$, !-6%$F:%,!  ! 6-%!6-%$!6-  6-%$ A 6-@:,0+ @2,)+!A.}'* A`,>6-%@dA$ '!@1* @'6-&@2 $ G+2@3#B2w5B2w@.}GAA `AR( -@P66-P:H:,$@9%,L6-P:H:,$@"%,V@F\,`  9-.}@@#9( PRESS FIRE BUTTON FOR  2 T:,"-@$2( 2 A ( 6-P:H:,$@%.},2 "A&`< "A&pF "@A&P "@A'Z "@A' d J-@6.}$2@I8-@A< @ J A'0n A-A2/-@@ 3 7 A A'0x T.}-@'2@@;-@@ ? C TT:,"A'0 P-@6*2@@>-.}@ B F P A'0 H -2@/-@@ 3 7 HT:,"A'0 :-62@. }2-@@ 6 :  G T:,!-@V@F6+2?-@@ C G  A% e. }e162,71,24,165,88,105,3,133,203,165,89,105,0,133,204,160,15,24,177,203,42,145,203,136,208,248,24 ==165,203,105,20,133,203. },144,2,230,204,202,208,231,104,96 jj0,28,62,62,62,62,62,28,62,127,255,255,255,255,255,255,0,0,1,3,7,15,31,62,0,0,224,240,2. }48,252,254,191 XX124,120,120,60,30,15,7,3,255,255,255,255,255,127,127,255,159,135,131,128,128,0,0,0 hh128,192,224,240,1. }20,88,0,0,1,0,0,0,0,0,0,0,255,127,127,119,247,247,247,247,0,0,0,0,128,128,128,128 ii247,247,247,227,227,227,227,227,128,12.}8,128,128,128,128,128,128,1,3,7,7,0,0,0,0,0,128,128,0,0,0,0,0 cc192,224,240,112,0,0,0,0,0,0,255,255,255,255,0,0,195,102,60.},24,195,102,60,24,0,0,0,0,0,0,96,96 NN0,0,0,0,255,255,255,255,0,126,4,8,16,32,126,0,56,56,56,255,255,126,60,24 D:RE.}LAX.BAS102,60,24,0,0,0,0,0,0,96,96 NN0,0,0,0,255,255,255,255,0,126,4,8,16,32,126,0,56,56,56,255,255,126,60,24 D:RE, !KAPFILETNN@@ 2}  m19@,9@,2};@,;@,=6-I6-U6-a6-m6- +@2-@@2(@2}LOTTERY PROGRAM0-@@0(@ by r.f.martin/-@@/(@ @2},F:@,!@"+, @0 @(R&(1) CHECK #'S 2)PICK #'SR('3)EXAMINE FIL2}ES 4)MANUALLY ENTER #'S (SELECT NUMBER ONLY #/ @0/ )!@@0(="@!A2}A3AA= A*="@!AAb3AAb= A -="@!A2}A3AA= A%0'AAD'AAD2M)( } 1) LOTTARIO 2) LOTTO 6493 @P2}7M6-$@%@)4#"@9#6. D:LOTTERY.L395#"@I#6. D:LOTTERY.L497K A*@@2}7@K"A<Q"(} ENTER REGULAR NUMBERS, A)@-@@DM68,-Q 2}F#(#(REGULAR NUMBERS ACCEPTEDP+((ENTER BONUS NUMBER' @+Z ( (BONUS NUMBER ACCEPTEDd"@I2}A@n#(#(ENTER EARLY BIRD NUMBERSx(-@@$68,-( &(&(EARLY BIRD NUMBERS ACCEPTED2}--(%}NOW PROCESSING NUMBERS...STAND BY-@A-@@$@-68,-6(,: A( 2}+-@@+-@@8,"8,6-%@   "@IA+-@@2}+-@@8,"8,6-%@   "(,G"@.(JACKPOT-TICKET NUMBER 8 A2 }D6-@G(6"@ A@@"@1(SECOND PRIZE-TICKET NUMBER =6-@@(J?"@0(T2!}HIRD PRIZE-TICKET NUMBER <6-@?(T@"@1(FOURTH PRIZE-TICKET NUMBER =6-@@(^K"@2"}"@9<($5.00 PRIZE-TICKET NUMBER H6-@K(cL"@"@I=($10.00 PRIZE-TICKET NUMBER I6-@2#}L(h"@IArD"@5(EARLY BIRD PRIZE-TICKET NUMBER A6-@D(|C6-6-2$} 1@ C@ F:@, @A5"((}SKUNKED....SORRY2 A 52%},(}CONGRATULATIONS....) A,.-@@ 8,".6-%@   $ 3-@@32&}-@A@*K2@@C2%@P@@G K 4~-@A2'}@8-&@6@T2@@X \ ~2H$_-A'2(}AU@;2@@_2@AU&@@"-@@   "$7 (}-2)}@@7(1)LOTTARIO 2)LOTTO 649<-@@"(SELECT &<6-$@%@)-"@9#6. D2*}:LOTTERY.L39- AP-"@I#6. D:LOTTERY.L49- APN-@@,(SELECT 1 OR 2 ONLY@-@2+}AD N A9 A0*@@9@$@@(.VR(}THERE2,} ARE 6 TICKETS ALREADY SAVED. DO YOU WANT TO ERASE THEM Y/N V8^ 4Y(@@7@2-}C6-P(@T(^ A=2 4N(@@ 2 ABL0N)0Y*(ENTER Y OR N2.} ONLY>-@AB L ApL6*(!}HOW MANY TICKETS TO BE PICKED.66-%V*&(DO YOU WANT A PRINTOU2/}T Y/N*`W A4Y5@@P:K(@>:@,W6-@~"A*-@20}@&68,-* -@@""68,-P:$H:,,%@""-&@@6@21}88,"8,.68,-P:$H:,,%@8 A   -@@"@ A)(@22}8,"8, @)( 1(8,, ( &"@1(@6-%@ AP/,($THERE ARE 23}NO TICKETS IN THIS FILE/x+@+@@@2(@"@2(@24}>:@,"8, @"(@ 0(@8, @0(@,$@8@8(%25}}TURN ON PRINTER AND PRESS ANY KEYJ;#@@K:0)@;@T"@A h^ 26}A &&(} 1)LOTTARIO 2)LOTTO 649#(EXAMINE WHICH FILE #-"@#6. D:LOTTERY.L39- A `27}-"@#6. D:LOTTERY.L49- A `@(ENTER 1 OR 2 ONLY.@ @@ F:@,28} @A U  A  K A*@@7@K"A*&(DO YOU WANT29} A PRINTOUT Y/N *W 4Y6-@! AA@@P:W(@>:@,AA(}THERE2:} ARE & TICKETS IN THIS FILE AS FOLLOWS; %-@%-@@*,@68,-% @,(2;} 4 (,>"@ AH% ( "@%(@R) "@)(@>:@,\2<} D%(}1) LOTTARIO 2) LOTTO 649@(SELECT NUMBER ONLY D -"@#6. D:LOTTERY.L39- A%@ -"@2=}#6. D:LOTTERY.L49- A%@ ?(ENTER 1 OR 2 ONLY-@ ?@ F:@, @A%52>} A% s A0*@@9@F@s(}THERE ARE  TICKETS IN THI2?}S FILE ,@""6.Y, A%p +'(DO YOU WANT TO ERASE THEM Y/N + 2 4N(@@ 2@}2 A% Z 4Y(@@7@C6-P(@Z A% ?(ENTER Y2A} OR N ONLY-@ ?@ F:@, @A% A%P 6-%@( >(}ENTER2B} 6 NUMBERS>(PRESS RETURN AFTER EACH ENTRY- 2 A)!-@@%.68,-2 2 1-@@ 6-82C},-(@1 < 6!(PRESS RETURN TO CONTINUE 6(PRESS E TO EXITP O#@@K:0)@;2D}@O@iA%Z  6-% AT E!(INPUT ERROR-START OVER 3@ E@V 66-2E}F:A,$A@f6A@f^ F:@, @A)c AAh "@A&2F}r @` (THIS FILE IS NOT OPEN @ @ @@ @2G}(@ *(FILE NOW OPENED*@ F:@, @A0# "@A%p A2H} D:LOTTERY.BASFILE NOW OPENED*@ F:@, @A0# "@A%p A0 10 27 10 30 23 25 17 30 13 6J} 35 10 19 8 34 29 9 16 35 8 6K} 31 22 27 32 6 29 11 16 5 13 6L} 4 6 11 5 38 8 31 25 32 17 6M} 22 33 5 12 27 24 17 1 20 166N} 31 5 13 11 19 28 30 12 16 6O} 31 7 32 13 11 19 28 30 12 16 4 10 19 42 30 44 6 5 38 33 4:Q}1 22 31 4 16 40 26 37 49 23 :R} 17 18 15 42 23 22 14 35 32 37 :S} 17 33 34 11 29 31 22 19 34 :T}23 4 49 18 46 18 22 6 3 4 :U} 10 29 33 16 18 24 4 26 46 35 :V} 22 32 27 16 18 24 4 26 46 35 8"'**DDNMKKPDPRNTRMINCMINHFCTNUNITDAYNEHCLOYHIYDUKPCLCLCLCLAVYUSCOSDDDIDDAVTIM>X}SEHCDDICDTOHDDIHDTOCDAVHDAVHAVCAVLIN@2 AQAA A>Y} A A >Z} !"#$%&'(>[})*+,-./0A @""(} KILOWATTS!!(>\} ELECTRICITY($$( ANALYSIS PROGRAM2!!( BY JOE HARB<mm(eDURING OPERATION OF>]} THIS PROGRAM, DO NOT DEPRESS RETURN KEY AFTER TYPING ANSWERS TO PROMPTS.Fn#@@K:nOPEN KE>^}YBOARD TO GET INPUTS LATER IN PROGRAM WHEN GET STATEMENT IS USEDP4('(DEPRESS ANY KEY TO CONTINUE.4)@ZGG;>_}@,;@,;@,;@,;@e,;@,d]6-A6-A'6-A]MINCD=MINIMUM COOLIN>`}G DAYS NECESSARY FORCOMPUTATIONn11MINHD=MINIMUM HEATING DEGREE DAYS NECESSARYxbbFCTR=NR. OF KILOWATTS TO BE SUBTRACTED >a}FROM MONTHLY KILOWATT USE WHEN COMPUTING DEGREE DAYS.ooSUBTRACTING FCTR REDUCES EXTENT TO WHICH OTHER HOUSEHOLD ELECTRICI>b}TY USE BIASES HEATING AND COOLING STATSaaCALCULATE: TOTAL MONTHS OF DATA (NR); LOW YEAR OF DATA (LOYR); AND HIGH YEAR OF >c}DATA (HIYR)6-"CCM$=MONTH, Y=YEAR, UNITS=KILOWATTS USED USED IN BILLING PERIOD((DAYS=NR>d}. OF DAYS IN BILLING PERIODXXNET=COST OF ELECTRICITY WHEN BILL PAID ON TIME,DD=DEGREE DAYS DURING BILLING MONTHHD=H>e}EATING DEGREE DAYSCD=COOLING DEGREE DAYS 6- #"", 4END# A 66-%@6->f}@ AmmSUBROUTINE TO GET INPUT FOR MENU OPTIONS A & B; THEN CLEAR INPUT QUESTIONS FROM SCREEN TO ALLOW DISPLAY>g}OF ADDITIONAL DATA]6(.}TYPE FIRST THREE LETTERS OF MONTH YOU WANT.C)@P)@])@DDNEXT>h} LINE CONVERTS ATASCI VALUES TYPED ON KEYBOARD TO A STRINGG 6.>:,#67B:,%@,.>:,:67B:,%@,.>:,D A0>i}G$p @F:@,&@4-@`(' d p39 SPACES# @>j}F:@,&@#$""ҠӠϠśkEND,999,0,0,0,0,0MENU OPTIONS?<(4}THIS PROGRAM AL>k}LOWS THE FOLLOWING SELECTIONS:?(DD(< A. TOTAL MONTHLY AND AVERAGE DAILY KILOWATT USEEE(= B. TO>l}TAL MONTHLY AND AVERAGE DAILY KILOWATT COST<<(4 C. TOTAL ANNUAL KILOWATT USE AND COST<<(4 D>m}. PRINTOUT OF ALL ELECTRICAL USE DATA''( E. DATA INPUT INSTRUCTIONS ( F. EXIT PROGRAM(4'(T>n}YPE LETTER OF OPTION YOU WANT.4)@ WWGET IS USED TO DETERMINE LETTER TYPED ON KEYBOARD; A=ATASCI VALUE OF LETTER >o}TYPED*"@eA04"@fA@>"@gAPHM"@h A!`9@@>p}P:C BM A`R"@iAp\$"@p!@@$f A ppPRINTER ERROR MESSAGE>q}z?@+(PRINTER IS NOT ON-LINE!5 B? A p ""SUBROUTINE FOR MENU OPTION A A lU(MDO YOU >r}WANT TO INCLUDE INFORMATION ON HEATING(H), COOLING(C) OR NEITHER(N)?b)@l A0 &"@g6.COOL&6->s} &"@r6.HEAT&6-@ 2"@x6. &6-@26- ,,($MONTH TOTAL AVG T>t}OTAL AVG KWU A+(! KWU DAILY DGREE PER A8 SPACES BEFORE KWU E.(& KWU USE DAYS DGREE DAY>u}E14 SPACES BEFORE KWU -@ " 0A2& Y6-P:A$','AYCOMPUTE UNITS PER>v} DAY AND LIMIT DECIMAL PLACES DISPLAYED0 %"6-!% A1P: %"@6-!% A1PD +"@>w}))!6.N/A+ A1pN X06-P:A$+&,'++'@0,$,,'A96.=:,XCOMPUTE UNITS PER DEGREE DAYX >>>x}LINES 3170-3190 USED TO ALIGN AND PRINT SCREEN DISPLAYb \6-@&B:=:P:,,,16-@&B:=:P:,,,E6-@&&B:=:,,>y}\6-@2&B:=:P:,,,l J( -F:@,"(1-F:@,6(E-F:@,J(v -F:@,(  >z} # L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@ -"@ A0# A- A0>{}  (} A ""SUBROUTINE FOR MENU OPTION B A%%(MONTH TOTAL TOTAL UNIT;%( KWU >|} COST COST;9 SPACES BEFORE KWU-@"0A@> 6-P:B$+',,'B>>}}CALCULATE AVERAGE DAILY USE16-@&B:=:P:,,,16-@&B:=:P:,,,U( -F:@,(( 7-F:@>~},<(Q-@%F:@,U(   #L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@>}-"@ A0# A- A@0 (} A ""SUBROUTINE FOR MENU OPTION C_L(D}DO YOU WANT TO INCLUD>}E INFORMATION ON HEATING (H) OR COOLING (C)?Y)@_6-&"@g6.COOL&6-&"@r6.>}HEAT&6-@G/(  AVG KWATTG22 SPACES BEFORE DDN$G.(&YEAR KWATTS DGREE P>}ER DGREEG10 SPACES BEFORE DGREE((( USED COST DAYS DAY36-6-'6-36->}-@"AQ@1"6-'6-1 AQ01"@6->}'6-1 AQ0 6-%6-%&  6-%6-%   #66-!66-P:A$','A>}(H6-@&B:=:P:,,,16-@&&B:=:P:,,,H6-@0&B:=:P:,,,2T(%A  ,-F:@,1(>}@-F:@,E(T-F:@,<(F'6-%@' %@AP`P#Z:(-("DEPRESS ANY KEY TO RETURN T>}O MENU.:)@d A o""SUBROUTINE FOR MENU OPTION Dp6-6-Q(1}TYPE NUMBER OF LINES PER >}PAGE TO BE PRINTED.^)@k)@6-++&@H,$@,%+&@H,zC3>:@',>:@V,CDISABLE >}EPSON "END OF PAPER" FUNCTION\C(@2 TOTAL AVG TOTAL AVG\24 SPACES BEFORE TOTAL]>}E(@4 HEAT KWATT COOL KWATT]24 SPACES BEFORE HEAT[C(@2 KWATTS TOT>}AL DGR PER DGR PER[8 SPACES BEFORE KWATTJG(@6YEAR USED COST DAYS DGR DAY DAYS DGR DA>}YJ36-%@6-c6-6-'6-36-?6-K6-W6-c6->}hhCDDIV & HDDIV ARE NUMBER OF ANNUAL KILOWATTS FOR HEATING & COOLING. ONLY MONTHS WITH MORE THAN 100nnCOOLING OR 200>} HEATING DEGREEDAYS ARE INCLUDED. 500 KWATTS PER MONTH SUBTRACTED BY FCTR FOR OTHER ELECT.ggCDTOT & HDTOT ARE TOTAL HEATI>}NG/COOLING DEGREES PER ANNUM FROM MONTHS WITH SUFFICIENT DEGREE DAYSWK6.A >} W65 SPACES9-@9CALCULATE ANNUAL CONSUMPTION AND COST"Aa>} !6-%6-%& !6-%6-%& 6-%6-%$   #.*!*6-P:A$','A8>}*!*6-P:A$','AB;(@%A;67@&B:=:,,<@,.=:,L((67@&B:=:P:,,,>}<@,.=:,V%%67@%&B:=:,,<@$,.=:,`((67@0&B:=:P:,,,<@2,.=:,j%%67@A&B:=:,,<@@,.=>}:,t((67@E&B:=:P:,,,<@G,.=:,~(@6-%@'6-%@' %@A`p# 36>}-%@hhCALCULATE AND PRINT MONTHLY DATA. SUBROUTINE 6410 PRINTS COLUMN HEADINGS ON EACH SHEET OF PAPER Ad>} Ad` qR(@A KWAT KWAT`6-%@q47 & 10 SPACES>}_Q(@@MONTH DAILY MNTHLY MNTHLY COST HEAT PER COOL PER_6-%@uR(@A KWATT>} KWATT COST PER DGRE DGRE DGRE DGRE`6-%@u8 SPACES BE4 KWATT(pQ(@@ USE USE >} KWU DAYS DAY DAYS DAYT3b6-%@p8 & 13 SPCS2$< 6.JAN AfF 6.FEB Af>}P 6.MAR AfZ 6.APR Afd 6.MAY Afn 6.JUN Afx 6.JUL Af 6.>}AUG Af 6.SEP Af 6.OCT Af 6.NOV Af 6.DEC Af@(>}} A :-@:CALCULATE MONTHLY CONSUMPTION AND COST"6-6-0>}Ah (@ WK6.A W65 SPACES 6->}P:A$+',,'A((67@&B:=:P:,,,<@,.=:,%%67@&B:=:,,<@,.=:,"((67@"&B:=:P:,>},,<@$,.=:,, 6-P:A$+',,'A6((67@(&B:=:P:,,,<@1,.=:,@%%67@9&B:=:,,<@8,.=:,>}J* !*6-P:A$++&,',,'AT4"*67@B<@D,.N/A4 Ag`^((67@C&B:=:P:,,,<@F>},.=:,h%%67@S&B:=:,,<@R,.=:,r* !*6-P:A$++&,',,'A|4"*67@V<@X,.>}N/A4 Ah((67@W&B:=:P:,,,<@`,.=:,#6-%@"#6-@(@   #">}Ahp4DECAhJ=(5INSERT ANOTHER SHEET OF PAPER; THEN DEPRESS ANY KEYJ)@%6->}6-% Ad"36-%@""Ah@$W++INSTRUCTIONS FOR PREPARING DATA LINESX6-%A bI>}I(A}FOR EACH MONTH OF DATA YOU HAVE, YOU MUST TYPE ONE DATA LINE.l66(.THE FIRST DATA LINE MUST BE NUMBERED 1000.v>}SS(KAFTER THAT, EACH DATA LINE MUST BE NUMBERED ONE HIGHER THAN THE LAST.LL(DFOR EXAMPLE, 1000 MUST BE FOLLOWED B>}Y 1001, 1002, 1003, 1004, ETC.K>(6DEPRESS ANY KEY WHEN READY FOR NEXT INSTRUCTIONS.K)@66(.}THE FOLLO>}WING IS THE FORMAT FOR A DATA LINE:--(%1000 DATA OCT,82,1350,30,79.25,495,0++(#REQUIRED DATA SEQUENCE AND FORMAT:>}((( 1. MONTH; MUST BE 3 LETTERS LONG''(2. YEAR; MUST BE 2 NUMBERS LONG,,($3. NUMBER OF KILOWATTS USED IN MONTH>}++(#4. NUMBER OF DAYS IN BILLING PERIOD99(15. NET COST OF ELECTRICITY IN BILLING PERIOD99(16. HEATING DEGREE DA>}YS IN BILLING PERIOD99(17. COOLING DEGREE DAYS IN BILLING PERIOD:A :($LAST LINE OF DATA >}YOU ENTERED WAS: ))(!NOW BEGIN TYPING NEW DATA LINES.  D:ELECTRICD:A :($LAST LINE OF DATA <U