' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( A Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z$ u`HT10:VT8:A$"3":90:HT30:VT8:A$"5":90:HT9:VT10:A$"SLOWLY":90:HT26:VT10:A$"SLOWLY":90:HT12:VT22:A$"TYPE IN NUMBER AND":90HT15:VT23:A$"PRESS RETURN! ":90:B$"HBHT 55:AA$(13)1220:AA$(55)AA$(49)(B$)0ĺ(70:HT16:VT6:A$"4 STEADY":90jHT33:VT6:A$"FALLING":90:HT10:VT18:A$"1":90:HT30:VT18:A$"7":90:HT9:VT20:A$"RAPIDLY":90:HT25:VT20:A$"RAPIDLY":90:HT10:VT13:A$"2":90:HT30:VT13:A$"6":90:HT9:VT15:A$"MODERATELY MODERATELY":908:19,75:6:222,175276,175276,50222,50222,175:2,17552,17552,502,502,175=106,36162,36162,12106,12106,36:222,125276,125:2,12552,125:2,8852,88:222,88276,88:1:HT12:VT1:HC3:FT1:A$"PRESSURE TENDENCY":90:HT2:VT6:A$"RISING":900:P2PR100qP128P131CL0:90:HT2:VT12:(7):A$"PRESSURE OUTSIDE OF ACCEPTABLE RANGE!":7000:90:540~CL0:90R1:232,112:233,25:2:0:1115,21:2:16:1251,135:1:8:1241,95:2:4:1231,55:2:48:125,165:1:54:120,110:2:56364100:HT29:VT16:P1(P110.5)10:A$(P1):95:HT28:VT18:A$"MILLIBARS.":95:970P1(PR29.921013.2.5)100:HT30:VT16:A$(P1):95:HT30:VT18:A$"INCHES.":9520:20:B1P1(PR.5)100:P2PR B2P1(PR29.921013.2.5)17):HTHT(B$):A$" ":7000:720kHTP((B$)PR100)250PS:TTTTP(TP)2.5:465::PR(B$)100RFL1975:HT25.5:VT13:0:TTV(VT)V(20):H(HT),TTH(39),TT::HT26:VT13:A$"THE RESULT IS":7000:95XuHT25:VT14:B2955:P1PR33.897000:90:735N?HT31:A$" ":7000:HT32:HBHT:A$AA$:90:B$AA$A55:AA$(13)836:AA$(46)(AA$(48)AA$(58))(B$)6B$B$AA$:A$AA$:95:833C(7):833&D((B$)31B1)((B$)1030B2)((B$)28B1)((B$)970B2)ĺ((48)ĺ(7):750831R465:P1((PR100)10(3B).5)10(3B):VT6:HT33B~P9$(P1):B2810:(P9$)4A$P9$"0" (P9$)2A$P9$".00"%(P9$)5A$P9$&825*(P9$)5A$P9$".0"/(P9$)5A$P9$" "4(P9$)6A$P9$EY WHEN SATISFIED! ":7000:90:HT30:VT4:A$"PRESSURE":7000:90uP1PR100:7285:HT33B:VT6:A$(P1):7000:90B$"":HT33B:VT6:HBHT55:AA$"L"TT2.5:PRPRPS:775AA$"K"TT2.5:PRPRPS:775AA$(13)850:AA$(57)AA$HAIN,A520":520"HUMIDITY cX776,HT1:777,(A$)HT1.5:778,V(VT)1:TT(0):8(X8))8.05)(X8):105NHT1:VT24:A$CL$:7000:HT8:VT24:A$"PRESS ANY KEY TO CONTINUE.":90N716368,0N9AB(16384):AB12857:ABAB128:AA$(AB):AA$4,(LO256):D$"BLOAD CHAIN,A520":520"HUMIDITY hX776,HT1:777,(A$)HT1.5:778,V(VT)1:TT(0):):9((X10(X10))10.05)(X10):105NHT1:VT24:A$CL$:7000:HT8:VT24:A$"PRESS ANY KEY TO CONTINUE.":90N716368,0N9AB(1638eVT16:HT8:A$"WINDS FROM THE":95:VT17:HT13(DI$)2:A$DI$" AT":95:VT18:HT15(WF$)2:A$WF$:950VT20:HT14:A$"AND":95:VT21:HT16(HU$)2:A$HU$:95:VT22:HT12:A$"HUMIDITY":95:VT24:HT10:20:LO22100:LO1,0:103,LO(LO256)256:10:95XVVT12:HT15(TM$)2:A$TM$:95:(TM$,1)"L"VT13:HT10:A$"TEMPERATURES":95]D1D5HT9:VT14:A$"THEN CLEARING":95`(WF$,1)"L"VT16:HT15(WF$)2:A$WF$:95:VT17:HT11:A$"FROM THE":95:VT18:HT15(DI$)2:A$DI$:95:6300jPE$""P1$PE$8D$"BLOAD FORECAST.STR":8048:HT12:VT3:A$"FORECAST":95:VT6:HT15(SK$)2:A$SK$:95:HT13:VT7:A$"SKIES":95:HT13:VT9:A$"WITH":95:P1$""6222:VT10:HT15(P1$)2:A$P1$:95NPR$""6230:VT11:HT15(PR$)2:A$PR$AA26200)TM$"COOLER"TM$"COLDER"7D46200TYY1YY6A1YY1:6098^6200D$"OPEN SEASON.DAT":E8(A1)2(A11):E06108:X1E:D$"READ SEASON.DAT":PE$:D$"READ SEASON.DAT":PE$:PR$:D$"CLOSE SEASON.DAT":PE$""PR$"":F$"30-40 MPH">WZ5WF$"36-50 MPH":PF1WF$"45-55 MPH"WZ6WF$"DIMINISHING SPEED":WS7WF$"LIGHT AND VARIABLE WINDS"D$;"OPEN DESC.DAT":D$;"READ DESC.DAT":T1IL:SK$::T1D6IL:P1$::T1IK8D:TM$::D$;"CLOSE DESC.DAT" :WI(B$):TTTTP(TP)5:465:S/SWI(WI):WGB:WSWI:B2WI(WI1.16667.5)o/bB3WI(WI1.6093.5)/dWI0WI90ĺ(7):1795/gFL12005:FL2İ20:/vBP1WIWI1.6093/{BP2WIWI1.16667400:HT25:VT13:TTV(VT)V(20):H(H$AA$U./55:AA$(13)1850:(AA$(46)(AA$(58)AA$(47)))(B$)4ĺ(7):1839t.4B$B$AA$:A$AA$:95:1839.:(B$)3ĺ(7):1795.;(B1(B$)90)(B2(B$)90)(B3(B$)180)ĺ(7):HTHT(B$):A$" ":7000:1795"/=TP((B$)WI)5WF5)):90-HBHTB- B$"":55:VT6:AA$"L"WIWIWF:TT5:1830d-AA$"K"WIWIWF:TT5:1830~-!AA$(13)1875:1836-&WI0WI0:T135:1805-+465:1795-,AA$(58)AA$(47)ĺ(7):1805.-HT32:HBHT:VT6:A$" ":7000:A$AA$:95:B"USE AND KEYS TO SET":7000:90:HT1:VT23:A$"SPEED OR TYPE IN VALUE DIRECTLY.":7000:90,HT1:VT24:A$"PRESS RETURN KEY WHEN SATISFIED!":7000:90,HT29:VT4:A$"WIND SPEED":7000:90:7270-HT32:VT6:A$" ":7000:HT32:A$((WI.30":90:HT4:VT6:A$"60":90:HT11:VT4:A$"90":90:HT19:VT6:A$"120":90:HT21:VT11:A$"150":90:HT19:VT16:A$"180":90:WF103:HT9:VT19:A$"WIND SPEED":7000:90+HT5:VT20:A$"KILOMETERS PER HOUR":7000:90b,T135:WI0:435:HT1:VT22:A$0:HT19:VT6:A$"60":90:HT21:VT11:A$"75":90:HT19:VT16:A$"90":90:WF53:HT9:VT19:A$"WIND SPEED":7000:90:B1HT7:VT20:A$"MILES PER HOUR":7000:90*B2HT12:VT20:A$"KNOTS":7000:90*1755+HT4:VT16:A$"0":90:HT2:VT11:A$"49)AA$(51)(B$)0ĺ(7):1600@)TB$B$AA$:A$AA$:95:1600s)hB(B$):B1B3HT1:VT20:A$CL$:7000:1590)mW405:V15:Z135)r385:B31705)uHT4:VT16:A$"0":90)vHT2:VT11:A$"15":90*wHT4:VT6:A$"30":90:HT11:VT4:A$"45":9LES PER HOUR?":7000:90:HT11:VT12:A$"2. KNOTS?":7000:90:HT19:VT14:A$"OR":7000:90:HT11:VT16:A$"3. KILOMETERS PER HOUR?":7000:90(6HT3:VT20:A$"TYPE IN NUMBER AND PRESS RETURN! ":7000:90:B$""(;HBHT!)@55:AA$(13)1640:AA$(T":1515'(7):1285l'HT25:VT6:A$" ":7000:HT32(WI$)2:A$WI$:90:TTTP5:465:t'20'CL1:90:HT2:VT6:A$"DO YOU WISH TO ENTER YOUR WIND SPEED":7000:90:HT15:VT8:A$"IN UNITS OF:":7000:90("HT11:VT10:A$"1. MIE"TP315:WI$"NORTHEAST":1515C&B$"E"TP360:WI$"EAST":1515l&B$"SE"TP45:WI$"SOUTHEAST":1515&B$"S"TP90:WI$"SOUTH":1515&B$"SW"TP135:WI$"SOUTHWEST":1515&B$"W"TP180:WI$"WEST":1515'B$"NW"TP225:WI$"NORTHWES"":AA$"N"AA$"E"AA$"S"AA$"W"ĺ(7):1415z%A$" ":HT27:VT6:7000:A$AA$:HT31:7000:95:B$B$AA$%HBHT%55:AA$(13)1479:(B$)2B$B$AA$:A$AA$:95:1473%(7):1473%B$"N"TP270:WI$"NORTH":1515&B$"N:1415=$}(T292T337)(T22T67)WI$"NORTHEAST":1415K$WI$"EAST$HT25:VT6:A$" ":7000:HT32(WI$)2:VT6:A$WI$:90:B$"":VT6:55:AA$"L"TT5:1450$AA$"K"TT5:1450$AA$(13)1540:1457$465:13704%B$02)(T157T202)WI$"WEST":1415]#i(T247T292)(T67T112)WI$"NORTH":1415#n(T22T67)(T292T337)WI$"SOUTHEAST":1415#s(T112T157)(T202T247)WI$"SOUTHWEST":1415$x(T202T247)(T112T157)WI$"NORTHWEST"RECTION OR TYPE IN WIND'S INITIALS.":7000:90:HT1:VT24"FA$"PRESS RETURN KEY WHEN SATISFIED!":7000:90:HT25:VT4:A$"WIND DIRECTION":7000:90"P7270"ZT360T360T0"_(T67T112)(T247T292)WI$"SOUTH":1415%#d(T157T2SW":90:HT2:VT11:A$"W":90:HT4:VT6:A$"NW":90:HT12:VT4:A$"N":90:HT19:VT6:A$"NE":90:HT21:VT11:A$"E":90:HT19:VT16:A$"SE":90:HT12:VT18:A$"S":90:T0:4359"AHT1:VT22:A$"USE AND KEYS TO SET WIND":7000:90:HT1:VT23:A$"DI):1202& B$B$AA$:A$AA$:95:1202] PT(B$):PT1PT7HT15:VT23:A$C1$:7000:1195} PT11250:PT2PF1:1250 PT2PT6PTPT1:1250 PT6PT4:PF1 PT7PT5 20:TE$(PT)!CL0:90:Z0:W360:V45:385:HT3:VT16:A$"UR TO KILOMETERS/HOUR":7000:95:HT3:VT10:A$"6. KILOMETERS/HOUR TO MILES/HOUR":7000:95:HT3:VT117@+A$"7. INCHES OF MERCURY TO MILLIBARS":7000:95:HT3:VT12:A$"8. MILLIBARS TO INCHES OF MERCURY":7000:95:HT16:VT14:A$"CALCULATE":7000:95:HTCONVERT":7000:95:HT3:VT5>*A$"1. FAHRENHEIT TO CELSIUS":7000:95:HT3:VT6:A$"2. CELSIUS TO FAHRENHEIT":7000:95:HT3:VT7f?H+A$"3. MILES PER HOUR TO KNOTS":7000:95:HT3:VT8:A$"4. KNOTS TO MILES PER HOUR":7000:95:HT3:VT9:A$"5. MILES/HO1:TT(0):a=fHT26:VT13:A$" KEY =DOWN":7000:95:HT26:VT15:A$" KEY =UP":7000:95:=uHT26:VT17:A$" KEY=DOWN":7000:95:HT26:VT19:A$" KEY=UP":7000:95:>*CL1:90:HT11:VT1.5:A$"YOUR CHOICES ARE:":7000:90:HT17:VT3:A$"HC3< 20:L< TF2:2150:TE(TE.5):TWTE:WBTE:B2WB(TE9532.5)]<; 20:FL1ı< CL0:90:LO19910:LO1,0:103,LO(LO256)256:104,(LO256):D$"BLOAD CHAIN,A520":520"WFORE/PRESENT WEATHER-" =X776,HT1:777,(A$)HT1.5:778,V(VT)VT):B22820:HT28:VT13:A$"DEGREES":95; HT28:VT14:A$"CELSIUS.":95:TC(TE32)59:HT30:VT12:A$((TC10.5)10):95:HC3:2835< TCTE9532:HT28:VT13:A$"DEGREES":95:HT28:VT14:A$"FAHRENHEIT.":95:HT31:VT12:A$((TC10.5)10):95: : TETM: TF2ıI: TE(TE.5):TDTE:DBTE:B2DB(TE9532.5)b: TGB:FL1İ20:2840r: FL1İ20:: HC0:HT26:VT10:TTV(VT)V(17):H(HT),TTH(39),TT::HT26:VT10:A$"THE RESULT IS":90:HT26:VT11*; H(HT),V(VT)H(HT14),V($(58)))(B$)3ĺ(7):2580<9# B$B$AA$:A$AA$:95:258092 TM(B$):(B1TM130TM50)(B2(TM65TM25))ĺ(7):HT26:A$" ":7000:24809F TT(TMTE)TR:TT0Ē2:LLLLTT1:58,LL62,LL::3:Z TT0Ē0:LLLLTT:59,LL61,LL::329:A$" ":7000:T2(TE.5):A$(T2):95:2534H8 L10L17025348 AA$(46)AA$(45)(AA$(58)AA$(47))ĺ(7):25348 HT29:A$" ":7000:HT29:HBHT:B$B$AA$:A$AA$:959 55:AA$(13)2610:((AA$(46)AA$(45))(AA$(47)AAT20:VT23:A$"WHEN SATISFIED.":95:7270:VT5:B$" <7 557 AA$(13)2695:AA$"L"L10Ē2:TETETR:58,L62,L:LL1:58,L62,L:3:T2(TE.5):HT29:A$" ":7000:A$(T2):95:253418 AA$"K"L170TETETR:0:59,L61,L:LL1:59,L61,L:3:HT:VT1:A$"WET BULB":956 HT29:VT5:A$(TE):95:HT20:VT18:A$"USE KEY OR":95:HT20:VT19:A$" KEY TO SET":95:HT20:VT206 A$"TEMPERATURE OR TYPE":95:HT20:VT21:A$"IN VALUE DIRECTLY.":95:HT20:VT22:A$"PRESS RETURN KEY"6 9547 H25,16435S 23,167:26,167:24,168:25,168:B1İ95G5` B2A$"C":95r5j FG1:FL4HT28:VT2:A$"MAXIMUM":955~ FL5HT28:VT2:A$"MINIMUM":955 HT26:VT3:A$"TEMPERATURE":95:FL0FL22480:TF1HT28:VT1:A$"DRY BULB":956 TF1HT28T13!4 A$((10TT170)B):95[4" VTVT2::VT20:TT2152:HT3:TT19TT7B1HT4o4: TT19B2HT44; TT17HT54= A$((10TT170)B):954B VTVT2::HT5:VT22.5:A$"F"4L 22,166:23,166:26,166:27,1665Q 23,165:26,165:24,164:AD THERM.STR":8048:1:1,1111,1111,1901,1901,133:57,1057,167:58,1058,167:62,1062,167:63,1063,167:57,960,663,9:TT2016416:64,TT68,TT4:TT2816016:52,TT56,TT::2:TT167L1:58,TT62,TT::VT21:TT2242:HT12:TT18HR AND PRESS RETURN! ":7000:95:B$".24HBHTo2955:AA$(13)2130:AA$(50)AA$(49)(B$)0ĺ(7):21052HB$B$AA$:A$AA$:7000:95:21052RB(B$):B1B2HT3:VT20:A$CL$:7000:20902\TF12fTE40B:TR1.25B33uL92:CL0:90:D$"BLO1:90:HT2:VT6:A$"DO YOU WISH TO ENTER YOUR TEMPERATURE":7000:95:HT15:VT8:A$"IN UNITS OF:":7000:951 HT14:VT10:A$"1. FAHRENHEIT?":7000:95:HT19:VT12:A$"OR":7000:95:HT14:VT14:A$"2. CELSIUS?":7000:95$2*HT3:VT20:A$"TYPE IN NUMBET),TTH(40),TT::HT26:VT14:A$"THE RESULT IS":95b0HT31:VT16:A$((WI.5)):95:BP119850BP2HT30:VT18:A$"KNOTS":950B2B3HT28:VT18:A$"MILES/HOUR":95020000HT25:VT18:A$"KILOMETERS/HOUR":95020:020l1CL1:7000:100:AA$"":HTHT.51aB N1HT2:FT1:VT22:A$"ENTER NUMBER OF ZONE! ":7000:100:AA$"":HTHT1;aG HBHT~aL 640:A1$(13)2388:A1$(57)A1$(48)(AA$)1ĺ(7):2380aQ AA$AA$A1$:A$A1$:105:2380aT (AA$)0ĺ(7):2380bV Z(1)PITATION.":100:HT1:VT23:A$"SUNSHINE IS PERCENT OF POSSIBLE HOURS.":100N`HT1:VT24:A$"PRESS ANY KEY WHEN READY!":100:AA$:4760`CL1:100:D$"BLOAD WEATHER ZONES 1.STR":8048`8 N2HT2:VT22:A$"ENTER NUMBER OF ZONE FOR FIRST CITY! ":FT1:X121,Y1X1,Y3:Y1Y3:Y490T24:6:X121,Y2X1,Y4:Y2Y4:HT3I3:VT20:A$(T3):100:3_*HT1:VT15:HC3`A$"IN THE PRECIPITATION CHART, BLUE ":100:HT1:VT16:A$"INDICATES SNOW FALL AND GREEN INDICATES":100:HT1:VT17:A$"TOTAL INCHES OF PRECI):T3((B$(1),16,2)):Y190T04:Y290T24:HT1:VT19:A$"%":100:HT1:VT20:A$"SUN-":100:HT1:VT21:A$"SHINE":100:HT6:VT20Y^A$(T3):100e^I212}^T0((B$(I),13,1))_ T2((B$(I),14,2)):T3((B$(I),16,2)):Y390T04:X14521(I1):MO$(XX):100::3:30,1030,90279,90279,1030,10:XX4527921g]XX,11XX,89::XX10848:31,XX279,XX::HT1:VT1:A$"INCHES":100:HT34:VT1:A$"PRECIP."]!100:HT20(CC$(1))2:VT1:A$CC$(1):100]&T0((B$(1),13,1))G^T2((B$(1),14,2)$AA$A1$:20010\fND$""N(4);"BLOAD BLKRECT.OBJ0"N37952$N * WSTAT1.EXP *JND$"BLOAD THREE,A2048":LO(1)2304wNFT$(1)"ONE":FT$(2)"TWO":FT$(3)"":180NZ232,L1(FT):233,L2(FT):(FT3$)ĺD$"BLOAD "FT3$",A"LO(3):FT$(3)FT3$:FT3:95:HT14:VT12:A$(T9)" DEGREES,":7000:95:HT5:VT16:A$"THE HEATING DEGREE DAYS IS "(HD)".":7000:95:20~I0109301\H0A$"FOR THE DAY!":7000:95:20:FL5:2010:T8DB:T9TD:HD65((T8T6)2.5):HD0HD0HR0CL1:90:HT6:VT5:A$"FOR A MAXIMUM TEMPERATURE OF":7000:95:HT14:VT7:A$(T7)" DEGREES,":7000:95sI\0HT6:VT10:A$"AND A MINIMUM TEMPERATURE OF":7000CHAIN,A520":520"HUMIDITY"Gl/CL1:90:HT2:VT8:A$"FIRST, WE NEED THE MAXIMUM TEMPERATURE":7000:90:HT2:VT10:A$"FOR THE DAY!":7000:95:20:FL4:2010:T6DB:T7TDHp/CL1:90:HT2:VT8:A$"NEXT, WE NEED THE MINIMUM TEMPERATURE":7000:95:HT2:VT10NEED THE":7000:90:HT6:VT12:A$"WET AND DRY BULB TEMPERATURES.":7000:95:TT11000::FL2:2010:2840F/7025,5:LO22100:LO1,0:103,LO(LO256)256:104,(LO256):D$;"BLOAD CHAIN,A520":520"HUMIDITY"G0/FL3:2010:FL2:1550:7025,6:D$;"BLOAD 1:VT12:A$"DID YOU CALCULATE THE DEW POINT (Y/N)?":7000:95:B$"ME.HBHTE.55:AA$(13)11946:(AA$"Y"AA$"N")(B$)1B$B$AA$:A$AA$:7000:95:11930E.(7):11930E.B$"Y"ī12060E.B$"N"11890jF.CL1:90:HT11:VT10:A$"THEN WE 0:10930D.CL1:90:HT11:VT10:A$"FIRST WE NEED THE":7000:90:HT6:VT12:A$"WET AND DRY BULB TEMPERATURES.":7000:95:20:FL2:2010:2840D.LO22100:LO1,0:103,LO(LO256)256:104,(LO256):D$;"BLOAD CHAIN,A520":520"HUMIDITY"CEr.CL1:90:HT50,11700,11740,11780,11890,12080,12140@C,FL0:B1:2140:10930ZC,FL0:B2:2140:10930yC,FL0:B1:BP2:1645:10930C-FL0:B2:BP0:1645:10930CP-FL0:B1:BP1:1645:10930C-FL0:B3:BP0:1550:10930C-FL0:B1:540:10930D-FL0:B2:54A13HT3:VT23:A$CL$:7000:11330B,A13CL1:90:HC3:HT11:VT8:A$"THANK YOU FOR USING":7000:95:HT10:VT9:A$"THE WEATHER CALCULATOR.":7000:95:20:774,255:775,0B,A13Ĺ7025,0:D$;"RUN WSTAT1.EXP &C,A11420,11460,11500,11550,11600,11695:HT2:VT22:A$"13. LEAVE WEATHER CALCULATOR":7000:95AB,HT3:VT23:A$"TYPE IN NUMBER AND PRESS RETURN! ":7000:95:B$""AL,HBHTA`,55:AA$(13)11380:AA$(57)AA$(48)(B$)1ĺ(7):11360Ao,A$AA$:B$B$AA$:95:11360$Bt,A(B$):A13:VT16:A$"9. RELATIVE HUMIDITY - DEW POINT":7000:95@+HT2:VT17:A$"10. THI (TEMPERATURE HUMIDITY INDEX)":7000:95:HT2:VT18:A$"11. WIND CHILL TEMPERATURE":7000:95:HT2:VT19:A,A$"12. HEATING DEGREE DAYS":7000:95:HT19:VT21:A$"OR":7000:K AT DATA FROM":7000:100:HT10:VT12:A$"OTHER CITIES? (Y/N)? ":7000:100,qAA$"":HTHT.5:HBHTmq640:A1$(13)4835:A1$"Y"A1$"N"(AA$)0ĺ(7):4830qAA$AA$A1$:A$A1$:105:4830q(AA$)0ĺ(7):4830q(AA$,1)"Y"840:(AA00:JOp3245:K:HT1:VT22:A$"TEMPERATURES ARE IN DEGREES FAHRENHEIT.":100:HT3:VT23:A$"PRESS ANY KEY FOR PRECIP. COMPARISON!":100}pCXX(16384):XX1274675:16368,0:3400qCL1:100:FT1:D$"CLOSE WDAT":VT10:HT3:A$"WOULD YOU LIKE TO LOO100:HT6OF:VT6:A$"MAX":100:VT6:HT10OF:A$"MIN":100oVT6:HT15OF:A$"MAX":100:VT6:HT19OF:A$"MIN":100:K24605:2:26,926,152278,152278,927,9:90,3290,152:26,50278,50:152,152152,9:216,32216,152:J112:VTJ7:HT1:A$MO$(J):1100:FT1:OF0:FL0:(CC$(1))20CC$(1)(CC$(1),20) n(CC$(2))20CC$(2)(CC$(2),20)6nK12:K2OF18oHT121.2OF(CC$(K))2:VT1:A$CC$(K):100:HT7OF:VT3:A$"TEMPERATURE":100:HT6OF:VT5:A$"AVERAGE":100:HT15OF:VT5:A$"EXTREME":TA.":100Km VT22:HT1:A$"PRECIPITATION IS IN INCHES (T = TRACE).":100:VT23:HT1:A$"SUNSHINE IS PERCENT OF POSSIBLE HOURS.":100mVT24:HT5:A$"PRESS ANY KEY TO CONTINUE.":100mXX(16384):XX1273610:16368,0:FL0:N10:K0:4760mCL0:$"SUN":100:HT7OF:VT6:A$"AVE.":100:HT12OF:VT6:A$"SNOW":100:HT18OF:VT6:A$"%":100:J112l HT8OF:VTJ7:A$T5$(K,J):100:HT13OF:A$T6$(K,J):100:HT18OF:A$T7$(K,J):100:J:Kl FLHT1:VT20:A$"BLANK AREAS INDICATE UNAVAILABLE DA0:108,10108,152:40,50130,50:140,50230,50:208,10208,152:140,10140,152234,152234,10140,10:J112:VTJ7:HT3:A$MO$(J):100::OF0:K12:K2OF14,lv HT121.2OF(CC$(K))2:VT1:A$CC$(K):100:HT8OF:VT3:A$"PRECIP.":100:HT17OF:VT3:AJ),16,2):HT6OF:VTJ7:A$T0$:100:HT10OF:A$T2$:100:HT15OF:A$T3$:100:HT19OF:A$T4$:100}j N12VTJ7:HT28:A$T5$(K,J):100:HT33:A$T6$(K,J):100:HT38:A$T7$(K,J):100j :XX(0):ekH CL0:100:FT1:2:40,1040,152134,152134,1040,100:3278:3540)i D$"OPEN WDAT,L13":J112:RE(CI(K)1)12J:D$"READ WDAT,R"RE1:B$(J)::10000i J112:T0$(B$(J),1,3):T2$(B$(J),4,3):T3$(B$(J),7,3):T4$(B$(J),10,3):N12K1'j T5$(K,J)(B$(J),13,1):T6$(K,J)(B$(J),14,2):T7$(K,J)(B$(27:A$"AVE.":100:HT32:A$"SNOW":100:HT38:A$"%":100:2:26,926,152278,152278,927,9:5:171,10171,152:249,151249,10:27,52278,52:87,3287,152:FL0hb OF0:J112:RE(CI(1)1)12J:D$"READ WDAT,R"RE1:VTJ7:HT1:A$MO$(J):100:B$(J)::100VT1:HT20(CC$(1))2:A$CC$(1):100:VT3:HT9:A$"TEMPERATURE":100:HT28:A$"PRECIP.":100:HT37:A$"SUN":100:VT5:HT5:A$"AVERAGE":100:HT15:A$"EXTREME":100:VT6:HT5:A$"MAX":100dh HT9:A$"MIN":100:HT15:A$"MAX":100:HT19:A$"MIN":100:HT1$(13)2745:A1$(57)A1$(48)(AA$)1ĺ(7):2730f AA$AA$A1$:A$A1$:105:27308f (AA$)0ĺ(7):2730f NF(AA$):NFCNF0A$AA$:HC0:HTHB:105:HC3:HTHB:AA$"":(7):2730f CI(J)RE(NF):CC$(J)CI$(NF):J:g 4870:CL0:100:FT1:0:VTII5:A$"ENTER NUMBER OF CITY! ":7000:100:AA$"":HTHT.5]e N2J1HT10:VTII5:A$"ENTER NUMBER OF 1ST CITY! ":7000:100:AA$"":HTHT1e J2HT8:VTII6:A$"ENTER NUMBER OF 2ND CITY! ":7000:100:AA$"":HTHT1e HBHTe 640:AE:2550ud< D$"CLOSE CITZ":CI$"":CL1:100:FT1:HT10:VT3:A$"CITIES IN ZONE ":7000:100:A$(Z(J)):7000:100:II1C:II10VT4II:HT10:A$(II)" "CI$(II):7000:100ds II10VT4II:HT9:A$(II)" "CI$(II):7000:100dx IIe N1HT1$A1$:A$A1$:105:2450b (AA$)0ĺ(7):2450Ec Z(2)(AA$):Z(2)1Z(2)12A$AA$:HTHB:HC0:105:HC3:AA$"":HTHB:2450qc J1N:C0:D$"OPEN CITZ":D$"READ CITZc CI$"ABC"2620:CI$,ST$,RE,ZO:ZOZ(J)2550:CC1:CI$(C)CI$", "ST$:RE(C)R(AA$):Z(1)1Z(1)12HTHB:HC0:A$AA$:105:HC3:AA$"":HTHB:(7):2380b` N12510wb HT2:VT22:A$"ENTER NUMBER OF ZONE FOR 2ND CITY! ":7000:100:AA$"":HTHT1:HBHTb 640:A1$(13)2485:A1$(57)A1$(48)(AA$)1ĺ(7):2450b AA$AAĽƼ¿Ĵļ¿ÿ²üþĽĽŽ¾žžǿſȽžȼž¿ǽĽĿÿþŲÿߍſȽĿŽòļóÿĽÿþĴžſ¿ſȼȼżż½´ĿĽþþĴò¿½þýſȵõ½ôÿľ¿ĿĽÿ³¾¾ijĴļǾļǿļĽ±ĿŽȽſȽԼԼȿĽ¼ƿ¿óýij½³ſ²dzʲ¿ÿ¿¾ÿþýĴļļ¼½ƾž½Ž¾ĵľžÿÿĿ¿¾ÿ¿üÿſųǴſ¿ñıôľƳĽòƴŲõųijļųļ³Ŀ¼þó¿¾IJIJľӴýʴϳ³üijļŽߍľߍ¼ߍþſߍÿſߍ²ߍ±ߍ¿ľߍߍߍĽĽ¾´¾±µ¿õòÿ¾ų²Ŀſþ¾²½ȼľ½ƽļýĿԽԽɲƳĴ¿³¼³ľĽ½ƿļļIJ¾ų¾ų¾IJȱߍ¼ñߍóľ͵žñʵ˵ĵ½¼³ýü´¼´¼ſij²dz½˴Խ¿Խü½ýԼü½Լ¿ԼñżżijþýĴľľƽ¿ų¿ijĽſľ´ijĴ´¼üüü´ļĽƿĿų¿IJļ½òƾļó³¾Ŀŷ¿ſſıķɷ¾ŲŶþ¿ľĿþ±¾¿ñļ¼ö¿ſ¶Ŀŵ¾õĵ7000:95:LO19910f$LO1,0:103,LO(LO256)256:104,(LO256):774,255:D$"RUN WSTAT1.EXPfXVT24Ē0:TT18:H(HT)1,V(VT)TTH((A$)HT)2,V(VT)TT::;gb0:TT17:H(HT)1,V(VT)TTH((A$)HT)2,V(VT)TT::78rWFHT(XO6)7:ANIFICANT":7000:95:VT12:HT2:A$"FACTOR AT THE GIVEN TEMPERATURE.":7000:95e20:FL1Ĺ7025,0:775,255:774,255:D$;"RUN WFORE"%f7025,0:7026,0:CL1:95:VT8:HT10:A$"THANK YOU FOR USING":7000:95dfHT8:VT10:A$"THE WEATHER FORECASTER.":'Z6$"-"Z6$"T"Z6$((Z6$)60)u'(Z6$)1Z6$" "Z6$u'Z7$(B$(J),11,2)=u'Z7$(95)(95)Z7$" ":FL1Wu'(Z7$)1Z7$" "Z7$}u'B$(J)Z1$Z2$Z3$Z4$Z5$Z6$Z7$u'u'A1(FT):233,L2(FT):(FT$)ĺD$"BLOAD "FT$",A"LO(3):FT$(3(10((Z3$,1))((Z3$,1))60)563)te'(Z3$)2Z3$" "Z3$tf'(Z3$)1Z3$" "Z3$3tj'Z4$(B$(J),7,2)btt'Z4$((10((Z4$,1))((Z4$,1))60)656)|ty'(Z4$)2Z4$" "Z4$tz'(Z4$)1Z4$" "Z4$t~'Z5$(B$(J),9,1)t'Z6$(B$(J),10,1)t1r3'(Z1$)2Z1$" "Z1$r4'(Z1$)1Z1$" "Z1$s8'Z2$(B$(J),3,2)QsL'Z2$(95)(95)Z2$((10((Z2$,1))((Z2$,1))60)621)psN'Z2$(95)(95)Z2$" "sQ'(Z2$)2Z2$" "Z2$sR'(Z2$)1Z2$" "Z2$sV'Z3$(B$(J),5,2)s`'Z3$($,1)"N"ĺD$"RUN WSTAT1.EXP rD$"CLOSE CITZ":D$"OPEN WDAT,L13":@rX776,HT1:777,(A$)HT1.5:778,V(VT)1:T(0):Lr'J112ar'Z1$(B$(J),1,2)r.'Z1$(95)(95)Z1$((10((Z1$,1))((Z1$,1))60)601)r0'Z1$(95)(95)Z1$" ":FLмſÿþ¿ijſı±¾ÿ¾ĽļýžżÿԼƿԼý±ñ¿ij¿ų¿¿¾ĵĿſñõµ¿²ÿ¾Ŀżóÿų³²þýÿþò³ľĽƿĴżž½ķŽ¿Ž¾ȿ½ŴžǿŽǾĽ¿´ýó½ÿÿ½ıű½þüļµż½ĴſýſǼóÿij¼ÿñ³ýĿĴļ½ñƳŽ´þıŴſűô¼ĽIJ´þÿýñƲij½ij½üųō¿ŵŴµ¿ijüżĿ¼ƼĿǼĽôĽ¿ýĿ½¿ųµ¿³ĵ¿ųĵ¾¾¿Ŵÿÿ½ŴľľųĴôŽijžżüôżƿĿžýľ¼¼õýý¿þĿ¼µżŽȾž¿Ŷ¾ǼĽ´ýýÿõŴ½¼ľĴŴ½½ǴµõſŴ½ij³Ŀ³Ŀƾüž¾Ĵ½´¼ôµ½½ŵþüĽļžIJüýøž¿ƽżžǾżſ¹Žſż½ƿļļĴüĴ½¼½¾ü·µľ¾ųžżžžüöžžƽļ¿ľƽļľ¿Ƽÿ½½¿òƳþõĿžıĵűǵüľļ¿żĿľ³ÿ½ľ½¾¿ñóĿ¿Ĵ¿üõĵżļIJĽľ²ôŽŶ½ȽżŽ½žøĽļŽ¾ȴľñ´ŲĴŲ¾ųľ²üĿļ¼ŴĽijþ¾Ľ¾½üĿ¾ƴĶ¿¿ĶÿÿĿĽĽ½³žžijŽŽžÿĽ¾½ŰľÿԼƾԼÿ¿üij´óŵô½ŴŴżüƽĿųþŲóſųſĽűĴµĽü´¾ÿþµĿĽ½µŽžǾŽýijĿý¼ó¾ÿżüýþ¾ñƾԼļԼǼļļżijżĵľŽļ¼½Խ¿¼ÿüԼļ¾ԼĽþԼƼԼļǾԼǼԼԼĿ¿Լ¾ýԼĽ¼³ÿü¼ó¿ſŲƿǽĽſǽȾƼƼ·¶žƾµ¾½þŴ´ҳ߽ҳ߽ϳ߿¾´ĽóžĿ߿ľ߾þ߽Dz߽ÿӱñµĿĽż¾ƿſžǼŽż´ÿ¾ÿ¼ĽþŽľĽ¼Ŵ¿´żž¾¸ž¿ǿŽĽ¼ijļ¾ŴƼſżſüľųþýŲ²¿¿´¿ij´½ŴþżĽ¾ƽµļ¿ſľüòüŽԼļų¼µþ³ž¿ƿżǾ¾õļľý³¼ó³¼¾¼þþĿļżľľijǼżſ½ķŽ¼ȼŽ¼ȿżſijÿľþ½±ľľýĿԼżüԼƿԼƼŲſüľļ¿żľƼľĽ½ij¼Ľ¿½òβýÿüŵļĵŴžŽǾžſ¿ĸŽſ¾ŷż½¶ľļŲþÿ¾Žüij½Ŵôƾżóƿľ³ýóĿĿгľſϳ˴¿ϲòųIJµ¼ļü±ü¼żԼýŽԼı½ļ³²ͲſŲſµ¿ôÿ¾´ŽųĽƿƿü¼ԼƽþòĿŽľõſĴ½ij¼òüŽý¿ƽ¿¼üIJ½³¿ŵ½õµſǴòýIJüƼþĽԼǿԼԼĿǾԼüÿþ¼žµĿž¾ü¿ý±þƼ¿þżýſԼ­ſüԼü¾¿ľſļÿľʴ±ŵ½ĶüĿĿÿŽſľñŽļļü½±¹ļþ²²Ľ¿üĿԿÿĿöñԽԼľ¿¿ĽԼſŽԼŽԼĿ¼Լýű¿Ŀų¼½¼üų¾ÿÿĽŴŴ¼ǽ½ƾĿĽĴļ¿ÿóþűµÿÿ¶ƶÿóĴµóĽĿļĽƼÿ¾ų¿Ľµ¼Ĵ½ŽŴĵüľľ³þü¾¼¿ýų½ſ¾¿þǵ¾¿¿ÿÿ¿ļüԼ¿Ƽþżľſŵþ¾ôƴųƵıóŲijĵ¼³þüĴļŴĿ¾ľļ¼ƾ¼ż½³ÿеýôͶſȵ¿ųþ¼ųļ½óļÿŴĿ¿ƼĴµ¿žýĿóÿý¼ıýԼԼƿļԼĽñƿ±ĽžԼ¾ĽԼ 24. 11 PM - MIDNGHTk"R23:2:"TYPE IN NUMBER AND PRESS RETURN KEY":"TYPE 'D' TO LEAVE ROUTINE";"\21:1:"WHEN DID PRECIPITATION PERIOD BEGIN? "(95)(95);:(0)1:B$""a55:A$C$871:(B$)1ĺ(7);:865"bA$"D"PP1:933#c(A$M 18. 5 PM - 6 PM":" 7. 6 AM - 7 AM 19. 6 PM - 7 PM"K" 8. 7 AM - 8 AM 20. 7 PM - 8 PM":" 9. 8 AM - 9 AM 21. 8 PM - 9 PM":"10. 9 AM - 10 AM 22. 9 PM - 10 PM":"11. 10 AM - 11 AM 23. 10 PM - 11 PM":"12. 11 AM - NOON FOLLOWING TIME PERIODS:":8:1:" 1. MIDNGHT - 1 AM 13. NOON - 1 PM":" 2. 1 AM - 2 AM 14. 1 PM - 2 PM?!F" 3. 2 AM - 3 AM 15. 2 PM - 3 PM":" 4. 3 AM - 4 AM 16. 3 PM - 4 PM":" 5. 4 AM - 5 AM 17. 4 PM - 5 PM":" 6. 5 AM - 6 A4:"DID PRECIPITATION OCCUR (Y/N)? ";:B$"":(95);:(0)t:55:A$C$830:(B$)0(A$"Y"A$"N")ĺ(7);:826<17:826>B$""ĺ(7):825?B$"N"P0:933@P0o APP1::3000:4:8:"PRECIPITATION PERIOD "P;:6:1:"SELECT FROM THE ::7:1:"YOU WILL NOW BE ABLE TO INDICATE THE":"PERIODS DURING THE DAY WHEN":"PRECIPITATION OCCURRED.6"ALSO, YOU WILL BE REQUESTED TO INDICATE":"THE TYPE AND INTENSITY OF THE":"PRECIPITATION.":I124:PS$(I)"":PE$(I)"":PT$(I)""::20:921:$(2)B$:DG$"C"TQ9((G$(1))32)5:TR9((G$(2))32)5:805[$TQ(G$(1)):TR(G$(2))%TA(TQTR)2:TA65G$(3)"0":807&G$(3)((65TA))i'15:1:"THESE TEMPERATURES RESULT IN "G$(3):"DEGREE DAYS.":LL4:B$G$(3):1070:G$(3)B$:B$"":20217:792$B$""ĺ(7):790<LL5:1070:G$(1)B$11:1:"WHAT WAS THE MINIMUM TEMPERATURE? "(95)(95)(95)(95)(95);:(0)4:B$"55:A$C$801:(B$)4A$"-"A$"9"A$"/"ĺ(7);:798 17:798!B$""ĺ(7):797?"1070:G:"TEMPERATURES":5:14:"IN DEGREES":6:I114:G$(I)""::DG$"F"Ė14:"FAHRENHEIT":790m15:"CELSIUS9:1:"WHAT WAS THE MAXIMUM TEMPERATURE? "(95)(95)(95)(95)(95);:(0)4:B$"55:A$C$795:(B$)4A$"-"A$"9"A$"/"ĺ(7);:794(YR$)(DT$)28780:(DT$)32785 (7):10:0:"SORRY, THAT IS AN INCORRECT DATE FOR THE":"MONTH OF "M$". TRY AGAIN!":I11000::10:" ":" ":756[:3000:4:135);:(0)1:B$"F55:A$C$765:(B$)1A$"0"A$"9"ĺ(7);:758S17:758jB$""ĺ(7);:756&DT$B$:MM$(M$,3):(MM$"APR"MM$"JUN"MM$"SEP"MM$"NOV")(DT$)30780:MM$"FEB"((YR$)4)4(YR$)(DT$)29780:MM$"FEB"((YR$)4) 17:740#B$""ĺ(7);:7358B$"Y"750:320DT$""::3000:4:1:3000:4:1:"ANSWER THE FOLLOWING QUESTIONS BY TYPING":5:"IN THE VALUES REQUESTED AND PRESSING THE":6:"RETURN KEY.8:2:"WHAT IS THE DATE FOR THE RECORD? "(95)(9IN":732PE$"CMxD$"OPEN "M$YR$:D$"DELETE"M$YR$:D$"OPEN"M$YR$:D$"WRITE "M$YR$:LC$:DG$:PE$:(4)"CLOSE:9:1:"WOULD YOU LIKE TO INPUT DATA (Y/N)? ";:E0:B$"":(95);:(0)55:A$C$745:(B$)0(A$"Y"A$"N")ĺ(7);:740UagUxՇU U> U՝U`UgUU?UUUU`ՇU U`U՝UUUUk~Ux`UUUU`*j* U@UU~8*fU` U@0U`*pU~g U UUUp@U՝U ߟU UՀU |U`UUUwU`**`UUU.9*~`U` U`U`*U~g U UUU1wU՝U U` UՀU=}U`UUUq;U`**@UUU.?*z U@` U U`*Uxg~ U UUUU`U OUTH SOUTH EAST 16. NORTH NORTH WEST":24:2:"TYPE IN NUMBER AND PRESS RETURN";216:1:"WHAT WAS THE PREDOMINANT DIRECTION? ";:(95);:(95);:(0)1:B$"255:A$C$1020:(B$)1A$"0"A$"9"ĺ(7);:1016217:1016 3(B$)1(B$)16ĺH":"2. NORTH NORTH EAST 10. SOUTH SOUTH WEST19:"3. NORTH EAST 11. SOUTH WEST":"4. EAST NORTH EAST 12. WEST SOUTH WEST":"5. EAST 13. WEST":"6. EAST SOUTH EAST 14. WEST NORTH WEST":"7. SOUTH EAST 15. NORTH WESTP2"8. SON? "(95);:(0):B$"M055:A$C$1002:(B$)0A$"1"A$"4"ĺ(7);:999Z017:999p0B$""ĺ(7):998-1G$(10)SK$((B$))::3000:4:11:"WIND CONDITIONS":5:"WIND DIRECTION":6:7:"SELECT FROM THE FOLLOWING:":"1. NORTH 9. SOUTWAS THE MID-DAY (8 AM - 4 PM)L/17:1:"SKY CONDITION? "(95);:(0):B$"/55:A$C$995:(B$)0A$"1"A$"4"ĺ(7);:992/17:992/B$""ĺ(7):991/G$(9)SK$((B$)):18:1:"WHAT WAS THE LATE-DAY (4 PM - MID.)019:1:"SKY CONDITIYPE IN NUMBER AND PRESS RETURN";T.14:1:"WHAT WAS THE EARLY MORNING (MID.-8 AM).15:1:"SKY CONDITION? "(95);:(0):B$".55:A$C$988:(B$)0A$"1"A$"4"ĺ(7);:984.17:984.B$""ĺ(7):983/G$(8)SK$((B$)):16:1:"WHAT ."A$"T"ĺ(7);:969#-17:9694-B$""B$" L-LL4:1070:G$(7)B$ .:3000:4:12:"SKY CONDITIONS":6:6:"SELECT FROM THE FOLLOWING":8:11:"1. CLEAR":11:9:"2. PARTLY CLOUDY":11:10:"3. MOSTLY CLOUDY":11:11:"4. OVERCAST":24:3:"T ,17:961,B$""B$" ,LL5:1070:G$(6)B$:15:1:"WHAT WAS THE TOTAL PRECIPITATION IN":16:1:"FROZEN FORM (SNOW, SLEET, ETC)? ";:(95);:(95);:(95);:(95);:(0)3:B$",55:A$C$975:(B$)3ĺ(7);:969-(A$"0"A$"9")A$"ETURN";:23:10:"TYPE 'T' FOR TRACE!";:9:1:"WHAT WAS THE TOTAL PRECIPITATION IN+10:1:"LIQUID FORM (RAIN EQUIVALENT)? "(95)(95)(95)(95)(95);:(0)4:B$"+55:A$C$965:(B$)4ĺ(7);:961,(A$"0"A$"9")A$"."A$"T"ĺ(7):96124:G$(4)G$(4)CQ$:G$(5)G$(5)CQ$:P*:P0G$(6)" ":G$(7)" ":977*3000:PW$"":PS$"":PE$"IN"PR$"INCHES":955*PR$"CENTIMETERSS+4:9:"PRECIPITATION AMOUNTS":5:19(((PR$)3)2):"IN "PR$:24:3:"TYPE IN VALUE AND PRESS R ":9528)T1:C0:CQ$" ":PA$"":PB$")CC1:T(PS$(C))945:TT((PS$(C))1):PA$PA$CQ$:PB$PB$CQ$:)TT(PE$(C)):PA$PA$CA$((PT$(C))):PB$PB$CB$((PT$(C)))::CP948:941%*G$(4)PA$:G$(5)PB$:(PE$(C))24952:TT(PT$(P)B$T(23:2:"ANOTHER PRECIPITATON PERIOD (Y/N)? ";:(95);:(0):B$"(55:A$C$931:(B$)0(A$"Y"A$"N")ĺ(7);:928(17:928(B$""ĺ(7);:927(B$"Y"833)P0940:G$(4)" ":G$(5)" +) 19. SNOW THEN RAIN (SR)":24:2:"TYPE IN NUMBER AND PRESS RETURN KEY";'22:1:"WHAT TYPE OF PRECIPITATION OCCURRED? ";:(95)(95);:(0)1:B$"'55:A$C$925:(B$)1A$"0"A$"9"ĺ(7);:920'17:920((B$)1(B$)19ĺ(7):918D-) 13. RAIN AND SNOW (M)":"5. MODERATE (D) 14. FREEZING RAIN (Z)":"6. HEAVY (D+) 15. SLEET (I)"::" *RAIN* 16. RAIN SHOWERS (RW)M'"7. LIGHT (R-) 17. SNOW SHOWERS (SW)":"8. MODERATE (R) 18. RAIN THEN SNOW (RS)":20:"9. HEAVY (RTION PERIOD "P;:5:1:"SELECT FROM THE FOLLOWING PRECIPITATION":6:16:"TYPES:":"*THUNDER SHOWER* *SNOW*":"1. LIGHT (T-) 10. LIGHT (S-)":"2. MODERATE (T) 11. MODERATE (S)&"3. HEAVY (T+) 12. HEAVY (S+)"::" *DRIZZLE*":"4. LIGHT (:860$qPS$(P)B$c$z22:1:"WHEN DID PRECIPITATION PERIOD END? ";:(95);:(95);:(0)1:B$"${55:A$C$895:(B$)1A$"0"A$"9"ĺ(7);:891$}17:891$(B$)1(B$)25(B$)(PS$(P))ĺ(7);:890%PE$(P)B$::3000:4:8:"PRECIPITA"0"A$"9")A$"D"ĺ(7);:865,#d17:865N#g(B$)1(B$)25ĺ(7);:860$iP1881:(PE$(P1))(B$)881:21:1:"START OF THIS PERIOD MUST DIFFER FROM ":"END OF LAST PERIOD BY 1 HOUR.":(7);:I11500::22:" "$"JUNE"M$"NOVEMBER"Z30:12790BZ31:1279UB((YR$)4)4(YR$)Z29:1279^BZ28B24:3:"PRESS RETURN KEY TO EXIT ROUTINE.";4C21:1:"USE AND KEYS TO REVIEW DATA. ";:22:1:"PRESS 'S' KEY TO SHIFT BETWEEN SCREENS. ";:23: YEAR";:3:11((LC$)2):LC$;:24:M$;:35:YR$;ALA$"---+-----+-----+----+-+-+-+---+---+-----":LB$"---+------------------------+-----+---- ":BL$" : : : : : : : : : ":2000:M$"FEBRUARY"1258!BM$"SEPTEMBER"M$"APRIL"MR0TA(TT10)10:1236/@TA((TTR)10)10M@S0TS(TR10)10:1238d@TS((TRS)10)104ATM(TM10)10:TN(TN10)10:SN(SN100)100:LT(LT100.5)100:Y1::1:6:"WEATHER KEEPER RECORD CHART";:2:1:" LOCATION MONTH ":I131:DDDD(F$(I,3)):LTLT(F$(I,6)):SNSN(F$(I,7)):F$(I,1)" "1230:(F$(I,1))TMTM(F$(I,1))?TTTT(F$(I,1)):RR1?F$(I,2)" "1233:(F$(I,2))TNTN(F$(I,2))?TRTR(F$(I,2)):SS1@: "::1:1>D$"READ "M$YR$:DT$:DD(DT$):I114:D$"READ "M$YR$:F$(DD,I):L(F$(DD,I)):F$(DD,I)(F$(DD,I),L1):L(F$(DD,I)):F$(DD,I)(F$(DD,I),L1)::1215?D$"CLOSE "M$YR$:DD0:LT0:SN0:TM200:TN200:TT0:TR0:R0:S0:LD$" " ":F$(I,3)" ":F$(I,4)" ":F$(I,5)" >F$(I,6)" ":F$(I,7)" ":F$(I,8)" ":F$(I,9)" ":F$(I,10)" ":F$(I,11)" ":F$(I,12)" ":F$(I,13)" ":F$(I,14)" RT":2:3::CM$;:495:D$"OPEN"M$YR$:D$"READ "M$YR$:LC$,DG$,PE$:1207<:10:4:"SORRY, THE CHART FOR "M$","YR$:12:10:"IS NOT ON THIS DISK!":20:D$"CLOSE "M$YR$:320\=:9:4:"PLEASE WAIT, SETTING UP CHART.":I131:F$(I,1)" ":F$(I,2)AN APPLE IIC? ":F21R;t4:14:"TYPE Y OR N AND PRESS RETURN! "(95);:(0):B$";55:A$(13)1190:(A$"Y"A$"N")(B$)1İ17:1170;(7);:1170;B$""ĺ(7):1140;B$"N"F10:11000;B$"Y"İ12000;F115000I<:1:17:"CHA:1:13:"ADD TO CHART":2:3:CM$;:495:D$"OPEN "M$YR$:D$"READ "M$YR$:LC$,DG$,PE$:1115:Y:10:1:"SORRY, THE CHART FOR "M$", "YR$:"IS NOT ON THIS DISK":20:D$"CLOSE "M$YR$:320:[D$"CLOSE "M$YR$:750;jF21201:12:6:"ARE YOU USING "M$YR$:G$(I)::(4)"CLOSE "M$YR$::9:1:"WOULD YOU LIKE TO INPUT MORE DATA (Y/N)?w9GB$"":11:37:(95);:(0)9H55:A$C$1100:(B$)0ĺ(7);:10969JA$"Y"A$"N"İ17:10969K(7);:10969LB$""ĺ(7);:10959MB$"Y"750:320_:VA$" "ĺ(7);:1059"8%17:105938(B$""B$" n8)G$(14)B$::9:6:"PLEASE WAIT, STORING DATA!";:10798.L(B$):LLLı83ILLL1:B$" "B$::W97I114:G$(I)"#"G$(I)"#"::D$"APPEND "M$YR$:D$"WRITE "M$YR$:DT$:I114:(4)"WRITE 7:3000:4:16:"NOTES":7:1:"ON THE LINE BELOW, TYPE-IN ANY NOTES":"YOU WISH TO MAKE ABOUT THE DATE.":23:9:"LIMIT 35 CHARACTERS!":24:3:"PRESS RETURN WHEN FINISHED!";:11:2:T135:(95);::(0)34:B$"8#55:A$C$1064:(B$)34A$",":"DID NOT EXIST!";:24:2:24:2:"TYPE IN VALUE AND PRESS RETURN!";:17:3:"WHAT WAS THE SPECIAL CONDITION? ";:(95);:(0):B$"655:A$C$1050:(B$)0A$"1"A$"9"ĺ(7);:1047617:10476B$""G$(13)" ":10527G$(13)SE$((B$)) - (GUSTY)":12:"5. HIGH WIND - (HWIND)":13:"6. TORNADO - (TORN)":14:"7. HURRICANE - (HURR)":15:"8. FLOOD - (FLOOD)":16:"9. FOG - (FOG)619:1:"PRESS RETURN KEY IF A SPECIAL CONDITION"$(12)" ":1032*4LL3:1070:G$(12)B$4:3000:4:10:"SPECIAL CONDITIONS":6:6:"SELECT FROM THE FOLLOWING:":1:8:"1. LIGHTNING - (LIGHT)":9:"2. HAIL - (HAIL)":10:"3. LIGHTNING & HAIL - (LIHAL5 11:"4. GUSTY (7);:10153G$(11)WN$((B$)):24:2:"TYPE IN VALUE AND PRESS RETURN! ";:18:1:"WHAT WAS THE AVERAGE SPEED? "(95)(95)(95);:(0)2:B$"355:A$C$1030:(B$)2ĺ(7);:10243(A$"0"A$"9")A$"."ĺ(7);:1024317:10244B$""GXX:10140R'25:XXCR':19:"TYPE THE NUMBER CORRESPONDING TOR(("THE BAUD RATE FOR YOUR PRINTER,":"THEN PRESS RETURN "(95)(95);:(0)1:B$"R<(55:A$(13)10320:(A$"0"A$"9")(B$)2İ17:10300RF((7);:10300SP(B$""ĺ(7);:1030"(ANSWER Y OR N AND PRESS RETURN!) "(95);:(0):B$"qQV'55:A$(13)10090:(A$"Y"A$"N")(B$)1İ17:10070Q`'(7);:10070Qj'B$""ĺ(7);:10070Qt'AA0:B$"Y"AA1 R~':1:7:"BAUD RATE";:21:"NUMBER":3:XX115:11:BB$(XX);:XX10Ė26:12001204:(222)5X812151220:(222)5X812031204WPh(222)8(222)5İ13000:5Q':"PLEASE CONSULT YOUR PRINTER MANUAL":"AND ANSWER THE FOLLOWING QUESTIONS.":::"DOES YOUR PRINTER REQUIRE A LINE FEED":"TO BE SENT AFTER A CARRIAGE RETURN?":EEPER GENERATOR":2:19(((LC$)4)2):"FOR "LC$:3:19(((M$YR$DT$)9)2):"DURING "M$" "DT$", "YR$:7P@X8(218)256(219):((222)5(222)6)X8415425:((222)5(222)6)X8440460:((222)6(222)5)X811101113:((222)5(222)6)X8IQUID PRECIPITATION = "LT;:19:1:"TOTAL SNOW = "SN;:N 1:X$Z$F$(X,1)Z$F$(X,2)Z$F$(X,3)Z$F$(X,8)Z$F$(X,9)Z$F$(X,10)Z$F$(X,11)Z$F$(X,12)Z$F$(X,13)BL$LA$;:N( X$Z$F$(X,4)Z$F$(X,6)Z$F$(X,7)" "Z$F$(X,5)Z$" "Z$" "LB$;:lO 1:8:"WEATHER K20:1:"TOTAL DEGREE DAYS = "DD;:M44:1:FL1:"DAY: PRECIPITATION PERIODS AMOUNT "PE$". : 3 6 9 N 3 6 9 M: LIQ.:SNOW "LB$;:7:1:XYY2:X10X$(X)" ":2109M:X$(X)" 7N=2600::17:1:LD$;:LD$;:LD$;:LD$;:18:1:"TOTAL LIN :DAYS:E:M:L:DIR:VEL:COND."LA$:7:1:XYY2:X10X$(X)" ":2009WLX$(X)" "M2500::17:1:LD$;:LD$;:LD$;:LD$;:17:2:"AVE. TEMP.";:23:"EXT. TEMP.";:18:1:"MAX MIN";:21:"MAX MIN";:19:1:TA;:8:TS;:21:TM;:30:TN;::" "LC$G$M$GG$YR$kK " NOTES":JSG:J10J$" "(J)" ":1550zK J$(J)" KJ$5)F$(J,14):::D$"PR#0":1279HL4:1:FL0:"DAY"H$" TEMP. "DG$" "H$"DEG."H$" SKY "H$" WIND "H$"SPEC. "H$" MAX "H$" M+---+---+-----"::"AVE. TEMP. MAX"TA" EXT. TEMP. MAX"TM" TOT. PRECIP. LIQ."LT" TOT. DEG. DAYSK" MIN"TS" MIN"TN" SNOW"SN" "DD:::" LOCATION WEATHER KEEPER RECORD CHART MONTH YEAR"J$":"F$(J,1)":"F$(J,2)":"F$(J,3)":"F$(J,4)":"F$(J,6)":"F$(J,7)":"F$(J,8)":"F$(J,9)":"F$(J,10)":"F$(J,11)":"F$(J,12)":"F$(J,13):" : : : :"F$(J,5)": : : : : : : :^J"----+-----+-----+----+------------------------+-----+----+-+-+-MOUNT "PE$".: SKY : WIND :SPEC.":" : MAX : MIN :DAYS: 3 6 9 N 3 6 9 M: LIQ.:SNOW:E:M:L:DIR:VEL:COND.H"----+-----+-----+----+------------------------+-----+----+-+-+-+---+---+-----":JSG:J10J$" "(J)" ":1490HJ$(J)" Iĭ(AA)ĺ(9)"LG" LOCATION WEATHER KEEPER RECORD CHART MONTH YEAR":G$"":L(LC$):I155L:G$G$" "::GG$"":L(M$):I113L:GG$GG$" "::" "LC$G$M$GG$YR$qH"DATE: TEMP. "DG$" :DEG.: PRECIPITATION PERIODS A FS1:GZF21:LD$;:LD$;:21:1:"PRESS THE 'P' KEY WHEN PRINTER IS READY.";:22:1:"PRESS THE 'E' KEY TO EXIT ROUTINE.";F55:A$"P"1457:A$"E"1279:(7);:1456FD$"PR#"(SS):" 80N":F1ĺ(9)(BB)"B":(9)(CC)"D":(9)(GG)"PGF1;:22:1:LD$;:23:1:LD$;:24:1:" ";:1:21:"PRESS THE 'A' KEY TO PRINT ENTIRE CHART.";:1:22:"PRESS THE 'S' KEY TO PRINT DAYS SHOWING.";E38:24:55:A$"S"1420:A$"A"1440:(7);:1410FSY:GS2:1450:13792D[7:1:XYY2:X10X$(X)" ":1374AD]X$(X)" UD^FLİ2600:1376_D_2500eD`kDcDdYY1:Y1ĺ(7);:Y1:1389De7:1:XYY2:X10X$(X)" ":1384DgX$(X)" DhFLİ2600:1386Di2500DjDmEx21:1:LD$1:" PRESS 'P' KEY TO PRINT CHART. ";:B$"cC738:24:55:A$C$1350:A$"S"1342:1345wC>FLİ2000:1280C?2100:1280CAA$"P"1400:A$(76)İ1370:1280CCA$(75)İ1380:1280CD(7);:1335CF320DZYY1:YZ2ĺ(7);:YZ2Գčȍȍ΍ծծհččզհհմčȍȍ΍ǍԳԳܨܨܧǍܧܧōȍ΍ƍǍԍԳōȍ΍УƭƭÍƣƣƭʲԳčȍȍ΍ѣѭǭƍǣǭʲԳčȍȍ΍ѣѭԯƍčԨԲհʩǍčՍУƭƭÍƍՍՍƣƣʨʲՍՍըղճհզčč֍դծծč֍֍դդհհ؍؍հհհհզččУƭƭÍƣУƭʲԳՍУƭƭՍՍƣƣƭƭՍՍЭЭҲհǍǍՍУЭƭՍՍУƭƭƭՍՍӭԲԳčǍǍՍѣѭǭՍՍѣѣѭԲՍՍԯԲԳհ     P":T07:CC$(T):_]PGG$(0)"NONE":GG$(1)"ODD":GG$(3)"EVEN":GG$(5)"MARK":GG$(7)"SPACE":16368,0:8:24:"PRESS ANY KEY TO CONTINUE.";716368,0:A$:A$(8)B$""ı8B$""ĺ(7);:55 H(B$)1B$(B$,(B$)1):(0):(95);:(0):"," 150"," 300"," 600"," 1200"," 1800"," 2400"," 3600"," 4800"," 7200"," 9600","19200":BB$(15):T115:BB$(T):]LO "8 DATA, 1 STOP","7 DATA, 1 STOP","6 DATA, 1 STOP","5 DATA, 1 STOP","8 DATA, 2 STOP","7 DATA, 2 STOP","6 DATA, 2 STOP","5 DATA, 2 STO6:"DO YOU WISH TO MAKE A CHANGE? \[>18:"TYPE Y OR N AND PRESS RETURN "(95);:(0):B$"[>55:A$(13)16300:(A$"Y"A$"N")(B$)1İ17:16100[H?(7);:16100[?B$""ĺ(7):15900[@B$"Y"İ10000[t@t\ N " 50"," 75"," 110"," 135BB8ĺ(BB$(BB),3):15400:Z;BB15ĺ(BB$(BB),2):15400GZ;BB$(BB){Z(<6:5:"LINE FEED AFTER RETURN";:30:AA0ĺ"NOZZ KEY (DOWN) OR (UP), OR TYP90:D$"OPEN "HU$",L24":D$"READ "HU$",R1":DF$:(DF$)0İ3770!a(DF$)0DD(DF$):3770gaPD$"CLOSE "HU$:HT35:VT8:A$"LONG.":90:HT35:VT4:A$"LAT.":95aZHT35:VT10:A$" ":7000:HT35:VT6:7000aX1213:Y1107:X2X1:Y2Y1:T1DD:B(T"INSERT HURRICANE DATA DISK IN DRIVE 1.":95:20:EE1:8000f`D$"OPEN FORE.DAT,L3":D$"READ FORE.DAT,R0":FC$:FC$"55:AA$(13)880:AA$(65)(B$)6ĺ(7):830YRA$AA$:95:B$B$AA$:830>??7-m- ->??7-m- ->??7-----5?????7-----????w-M-MII-m)->??7-m)->??7----???w--5??---????7----5?;?.-M-5?;?.-M-5?;?MII ;-m)->??7-m)->??7----???w--?7-5?7-5?7-5?7-5?oII5----5????7----5????wI -5??--??--??--?7----5????7----5????oI?---->???N -5?;?.---->????---??oII----5????7----5????w -5?7-5?7-5?7-5?7-5?7-5?oII--m)->??7-m)->??7-m)->??7-m)->??7-m)->??7-m)->??7----5????w---??oII-m)->??7-m)->??7-m)->??7-m)->??7-m)-??.---??7--?7-oI )-mI)5??7-mI)5??7-m- -????.---->????.-M-5?;?.-M-5????7----????.---?7-5?7-5?oIII? --???----5????7-m)->??7-m)->??7-m)->?;7- m->??.- - ???-- ->??MII?---????.---->????.-M-5?;?.-M-????.---????.---->??7-m)->??7-m)->??oIII --???----5????7-m)-;?.---???II MII >7-MI)5??7--M-->?????.----->?????.----->?????.- m-5??7-mI-5??7-mI-5??oIII )MI-5?7-M)->??7-- -5????7----5????7----5????7----5???7-m)->?7-mI5?oIII? --???----5????7-m)->??7-m)->??7-m)->??7-m)->??7----5????w---??oII?---????7-m)->??7-m)->??7-m)->??oIII>-5?7-5?7-5?7-5?7-5?7-5?7-5?7-5?oI-I--->??7--->??w)->?.->?.->?ߛ-m-5??7---->???w---??MII -mI-5??;?.-M--???7----???7---??7---???7----???7-m)-??;?.-M -5??oIII >-5?7-5?7-5?7-5?7-5?7-5?7---->???7---->???o??.---???oIII---->???7---->???7-5?7---5???7---5???7-5?7---->???7---->???oII ?---->???7---->???7-5?7---5???7---5???7-5?7-5?7-5?oII --???----5????7-m)-;?.-MI:??7-m-->??7-m-->?7----5????w---->???MIIm-m)->??7-m)->??7-m)->??7----5????7----57----5????7----5????7-m)->??7-m)->??oIII---????.---->??7-m)->??7----???7----?;?.-M-5?;?.---->????.---???oIII --???----5?;?.-M-5?;?.->?.-MI:??7-m)->??7----5????w---??oIII---????.---->????.-M-5?;?.-M-5?;?.-M-5?;?.-M-5?;?.---->??K4d)x N"F\<%W;I --???----5????7-m)->??7-m)->??(LO256)256:104,(LO256):774,0:(4)"RUN WSTAT1.EXP4576":(4)"BLOAD ONE,A27000":230,32:0:0,0:62454:1:T110N 61T,34T103,34T:50T,84T103,84T:113,34T155T,34T:186T,34T227,34T:113,84T166T,84TO&174T,59T216T,55265,125:4885,125:39105,125:53125,125:56145,125:34165,125:51185,125:38205,125:2:SF68:O15:VO170Q49SFO,VO:51SF2O,VO:38SF3O,VO:52SF4O,VO:38SF5O,VO:47SF6O,VO:53SF7O,VO:52SF8O,VO:LO19910QLO1,0:103,LO54T70,54T::T15:113,79T130,79T:144T,79T165,79T:175,44T196T,44T:206T,69T227,69T:212T,79T227,79T:175,54T190T,54T:6Q49232,0:49234,0:49236,0:49239,0:T11500::0:1:SH24576:232,SH(SH256)256:233,(SH256):1:9T:175,84T228T,84T::T15:51,44T75T,44T:51,79T70T,79T:113,44T130,44T:138T,44T165,44T:113,54T130,54T:144T,54T165,54T:113,59T1672T,59T:113,64T1552T,64TXPD113,69T130,69T:138T,69T165,69T::T120:51,;M ** HELLO **M1012,0:50,128BN(4)"BLOAD TWO,A24576":(4)"BLOAD ONE,A27000":230,32:0:0,0:62454:1:T110N 61T,34T103,34T:50T,84T103,84T:113,34T155T,34T:186T,34T227,34T:113,84T166T,84TO&174T,59T216T,5    6KD$"OPEN FORE.DAT,L3":D$"READ FORE.DAT,R"R:FR$:D$"CLOSE FORE.DAT"p((((FR$,1))24)10)WZPF0WZ1WF$"LIGHT AND VARIABLE WINDS":PF1WF$"5-10 MPH"WZ2WF$"10-20 MPH":PF1WF$"18-26 MPH"WZ4WF$"20-35 MPH":PF1WHU$"DECREASING":YY1YY6HU$"INCREASING"NA11YY6HU$"INCREASING"vDI$DI$(YY):(TE$)3DI$DI$(YY1)IJ((FR$,1))59:WX((FR$,1))24:IK(IJ10)1:ILM(IJ):WZ(WX10):DM(WX)PF06060(TE$)2RR6(TE$)4RRI$(6)"SOUTHWEST":DI$(7)"WEST":DI$(8)"NORTHWEST"QrTT18:WI$DI$(TT)YYTTis:PR$"":A12A11R300((YY1)2)((PW$)1(YY2(YY2))4(YY12((YY1)2)))30((TE$)1)6(P$)1D$;"READ FORE.DAT,R"R:FR$:D$;"CLOSE FORE.DAT".AIT, CALCULATING FORECAST!":7000:95:D$"OPEN FORE.DAT,L3":P129.52P$"6"29.52P1P130.31P$(5((P129.5195).2))P130.31P$"1"2pDI$(0)"NORTHWEST":DI$(1)"NORTH":DI$(2)"NORTHEAST":DI$(3)"EAST":DI$(4)"SOUTHEAST":DI$(5)"SOUTH":DT2:VT19:A$"TYPE IN NUMBER AND PRESS RETURN! ":95:AA$"":B$""KHBHT55:AA$(13)5080:(AA$(50)AA$(49))(B$)0ĺ(7):5070B$B$AA$:A$AA$:7000:90:5070AA(B$):AA1AA2ĺ(7):5064L20:CL1:90:HT3:VT10:A$"PLEASE WT6:A$"SEASONAL CHOICES":95:HT7:VT8:A$"SELECT FROM THE FOLLOWING:":95:HT14:VT10:A$"1. "MO$(M1)" - "MO$(M2):95:HT19:VT12:A$"OR":95:HT14:VT14:A$"2. "MO$(M4)" - "MO$(M3):95AHT2:VT19:A$" ":7000:HB$B$AA$:A$AA$:90:4040>A(B$):A1A12ĺ(7):4030HT6:VT24:20:CL0:95:A1A4A5A7A10A11A12M111:M23:M310:M44A2M112:M23:M311:M44A3M112:M22:M311:M43A6A8A9M110:M24:M39:M45HT12:V"WHAT IS THE ZONE FOR THE FORECAST?":7000:95HT3:VT23:A$" ":7000:HT3:VT23:A$"TYPE IN NUMBER AND PRESS RETURN! ":95:AA$"":B$""HBHT55:AA$(13)4080:(AA$(57)AA$(48))(B$)1ĺ(7):4040PE IN NUMBER AND PRESS RETURN! ":95:AA$"":B$""; HBHT~ 55:AA$(13)3060:(AA$(53)AA$(49))(B$)0ĺ(7):3040 B$B$AA$:A$AA$:90:3040 B(B$):B1B5ĺ(7):3025. PW$B$:20:D$"BLOADWEATHER ZONES 1.STR":8048:HT3:VT21:A$3.141593:H(HT)HT76:V(VT)VT88:CL$" ":3010 D$"BLOAD PRESENT WEATHER.STR":8048:HT8:VT20:A$"WHAT IS CURRENT WEATHER?":901 HT3:VT22:A$" ":7000:HT3:VT22:A$"TY(FT$(I))ĺD$"BLOAD "FT$(I)",A"LO(I) LO(I1)LO(I)(43616)(43617)256::J768:I13:XLO(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2:[ HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT$"":49232,0:49234,0:49236,0:49239,0:PI224)(225)TF:CT0:RT0:HT(X6)7:(IN)ı i1:0:CL8:3:TF256:T531:TX49235:FU49234:HI49232:G$(7):D$(13)(4):J768:I13:LO(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2: n:(774)255150:D$"BLOAD THREE,A2048":LO(1)2304:I13' $" "::7000:(7):B$"":55m Z232,L1(FT):233,L2(FT):(FT$)ĺD$"BLOAD "FT$",A"LO(3):FT$(3)FT$:FT$"": _X7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1:, dHC:100X,Y:Z1(A$):((A$,Z,1))T5:99::62923:XOX:X(12857:ABAB128:AA$(AB):AA$(8)B$""ıj <(B$)1A$B$:B$"":HTHB:HC0:95:HC3:HTHB:(7):55 FHTHB:(B$)1A$(B$,(B$)1):95:A$(B$,1):HC0:95:HC3:B$(B$,(B$)1):HT(XO6)7:55 K55 NHTHT(B$):F60:A$"":TT1(B$):A$Aj$ ** WFORE/PRESENT WEATHER- **81012,0:50,128R10,76:11,64:12,148` TE$(PT) M(X)((X10(X10))10.05)(X10):105HT1:VT24:A$CL$:7000:HT8:VT24:A$"PRESS ANY KEY TO CONTINUE.":90716368,0- 9AB(16384):AB          T7:VT19:A$"AIR PRESSURE":7000:90:HT9:VT20:A$"MILLIBARS":7000:90:PR99200:PS44.44T225:435:HT1:VT22:A$"USE AND KEYS TO SET":7000:90:HT1:VT23:A$"PRESSURE OR TYPE IN VALUE DIRECTLY."A7000:90:HT1:VT24:A$"PRESS RETURN K0:90qPR2900:PS2.775:690HT11:VT4:A$"1000":7000:90:HT3:VT6:A$"992":7000:90:HT1:VT11:A$"984":7000:90:HT3:VT16:A$"976":7000:90:HT19:VT6:A$"1008":7000:90:HT21:VT11:A$"1016":7000:90:HT19:VT16:A$"1024":7000:90[H35,125:0:38,12138,125:HT19:VT6:A$"30.0":90NHT21:VT11:A$"30.5":90:6:147,42147,45:0:150,42150,45:HT19:VT16:A$"31.0":90:1:133,121135,121:133,120135,120:HT7:VT19:A$"AIR PRESSURE":7000:90:HT5:VT20:A$"INCHES OF MERCURY":700(7):525'B$B$AA$:A$AA$:95:525_B(B$):B1B2HT3:VT18:A$CL$:7000:(7):5151380:B2640:HT11:VT4:A$"29.5":90:HT3:VT6:A$"29.0":90:6:35,4135,45:0:38,4138,45:HT1:VT11:A$"28.5":90:HT3:VT16:A$"28.0":90:6:35,12110:VT10:A$"1. INCHES OF MERCURY?":7000:90:HT19:VT12:A$"OR":7000:90yHT10:VT14:A$"2. MILLIBARS?":7000:90HT3:VT18:A$"TYPE IN NUMBER AND PRESS RETURN! ":7000:90:B$"HBHT  55:AA$(13)535:(AA$(50)AA$(49))(B$)0ĺ50(TDR)81:Y244(TDR)85:3:X1,Y1X2,Y2FX11,Y1X21,Y2:X3X1:Y3Y1:X4X2:Y4Y2:0:X3,Y3X4,Y4:X31,Y3X41,Y4:435:LCL1:90:HT2:VT6:A$"DO YOU WISH TO ENTER THE AIR PRESSURE":7000:90:HT15:VT8:A$"IN UNITS OF:":7000:90:HTBLOAD ARROW3,A$1970*~Z135:W405:V22.5D$"BLOAD CIRCLE1.STR,":8048:TZWV:X156(TDR)81:Y150(TDR)85:X250(TDR)81:Y244(TDR)85:(TDR)1E2(TDR)1E2X181:X2813:X1,Y1X2,Y2::/X1818(TDR):Y1858(TDR):X2PERATURE":7000:95EHT10:VT13:A$"WET-BULB TEMPERATURE":7000:95:HT10:VT14:A$"PRESENT WEATHER CONDITIONS":7000:95:HT2:VT20:A$"PLEASE OBTAIN ANY MISSING INFORMATION":7000:95:HT2:VT21:A$"BEFORE PROCEEDING.":7000:95:20^485|D$"VT6:A$"YOU WILL NEED THE FOLLOWING:":7000:90,HT10:VT8:A$"PRESENT PRESSURE READING":7000:95:HT10:VT9:A$"PRESSURE TENDENCY":7000:95:HT10:VT10:A$"WIND DIRECTION":7000:95:HT10:VT11:A$"WIND SPEED":7000:95:HT10:VT12:A$"DRY-BULB TEM(2)"":FT$(3)"":230,32:0:0,0:62454= (775)25510930Y MO$(12),YY(13):X1120MO$(X):: JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC:CI$(20),RE(20):CL1:90:FL1:HT2:VT4:A$"IN ORDER TO HAVE AN ACCURATE FORECAST,":7000:90:HT2:,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2: HC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT$"":49232,0:49234,0:49236,0:49239,0:H(HT)HT76:V(VT)VT88 CL$" "' DR1.745329E2:FT$(1)"ONE":FT$4):C1$" ":J768:I13:LO(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::(774)255150 }D$"BLOAD THREE,A2048":LO(1)2304:I13:(FT$(I))ĺD$"BLOAD "FT$(I)",A"LO(I)= LO(I1)LO(I)(43616)(43617)256::J768:I13:XLO(I):J:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1: dHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TS:CT0:RT0:HT(X6)7:(IN)ık i1:0:CL8:3:TS256:T131:TX49235:FU49234:HI49232:G$(7):D$(13)((B$)7ıG <(B$)1A$B$:B$"":HTHB:HC0:95:HC3:HTHB:(7):55 FHTHB:(B$)1A$B$:7000:HC3:A$(B$,(B$)1):HTHB:95:B$(B$,(B$)1):55 K55 Z232,L1(FT):233,L2(FT):(FT$)ĺD$"BLOAD "FT$",A"LO(3):FT$(3)FT$:FT$"":B _X7HT6A1012,0:50,128/ WFORE (WFORE/WCALC)P 37952:10,76:11,64:12,148Y105HT1:VT24:A$CL$" ":7000:HT8:VT24:A$"PRESS ANY KEY TO CONTINUE.":90716368,0 9AB(16384):AB12857:ABAB128:AA$(AB):AA$(8)B$""                    [4NAAAA128:A1$(AA)\>NA1$(13)(AA$)0ĺ(7):20010\@NA1$(13)20070m\HNA1$(8)(AA$)0HT(XO6)7:A$(AA$,1):HC0:100:AA$"":HC3:HT(XO6)7:20010\MN(AA$)0ĺ(7):20010\RNA1$(49)A1$(54)ĺ(7):20010\WNA$A1$:100\\NAAZ$103,LO(LO256)256Z&104,(LO256)[(D$"RUN WTRAK"N[LCL0:90:HC3:HT6:VT10:FT1:A$"THANK YOU FOR USING FORECAST!":90[VHT10:VT12:A$"MAY YOUR DAYS BE SUNNY!":90:T15000::CL1:90:[*N16368,0[/NAA(16384):AA12820015HT5:VT12:FT2:A$"THE WEATHER KEEPER":90ZT12000:"Z:49233,0:49234,0:49236,0[ZLO2049:LO1,0:103,LO(LO256)256:104,(LO256)sZD$;"RUN WKEEP.EXP"ZHT4:VT12:FT2ZA$"THE WEATHER TRACKER"Z90Z LO19910Z"LO1,0HT2:VT12:FT2:HC3:A$"THE WEATHER FORECASTER":90:LO17920:LO1,0:103,LO(LO256)256:104,(LO256):D$"RUN WFOREYHT2:VT12:FT2:A$"THE WEATHER CALCULATOR":90:LO17920:LO1,0:103,LO(LO256)256:104,(LO256):775,255:D$;"RUN WFORE"YHT3:VT20:A$"TYPE IN NUMBER AND PRESS RETURN! ":100:AA$"":20010:XX(AA$)?XfCL1:90:XX900,950,1000,880,1050,1100XpHT3:VT12:FT2:HC3:A$"THE WEATHER TRAVELLER":90:LO21260:LO1,0:103,LO(LO256)256:104,(LO256):D$"RUN WTRAV3.EXP>YFORECASTER?":100:HT6:VT9:A$"2. THE WEATHER CALCULATOR?":100:HT6:VT11:A$"3. THE WEATHER KEEPER?":100X*HT6:VT13:A$"4. THE WEATHER TRAVELLER?":100:HT6:VT15:A$"5. THE WEATHER TRACKER?":100:HT6:VT17:A$"6. EXIT THE FORECAST PROGRAM?":100:U ARE USING A IIC OR IIE,":90VHT8:VT22:A$"MAKE SURE CAPS LOCK IS DOWN":90YVHT8:VT24:A$"PRESS ANY KEY TO CONTINUE.":90:16368,0:A1$VCL0:90:774,255:HT1:VT5:FT1:A$"WOULD YOU LIKE TO LOOK AT:":100:HT6:VT71WA$"1. THE WEATHER ,B:A8,A9A1,BjUT11000:T:CL0:90:FT1:HC3:CT1:VT6:A$"PRESENTED BY":90:CT1:VT8:A$"SCIENCE SOFTWARE ASSOCIATES":90:CT1:VT10:A$"COPYRIGHT 1984":90UCT1:VT17:A$"HI-RES TYPE COPYRIGHT 1982 BEAGLE BROS.":90UHT7.5:VT20:A$"IF YO0C:A88(O)81:A9858(O):A44(O)81:B8544(O)9T3:A8,A9A,B:A8,A9A1,B:0:A8,A9A,B:A8,A9A1,B:TO0PI3C:A44(O)81:B8544(O):A88(O)81:A9858(O):3:A8,A9A,B:A8,A9A1,B:0:A8,A9A,BTA8,A9A1,B::3:A8,A9A5180,145SHT12:VT21:A$"WEATHER STATION":90:FT1:HT12:VT4:A$"N":90:HT18:VT6:A$"NE":90:HT12:VT18:A$"S":90:HT19:VT16:A$"SE":90:HT21:VT11:A$"E":90:HT4:VT14:VT17:A$"SW":90:HT4:VT6:A$"NW":90:HT2:VT11:A$"W":90SOPI2(16385):8054,(16385)1:(774)255Č8048R(774)255750gRFT2:HT24:VT8:HC3:A$"FORECAST!":90:HT26:VT14:A$"YOUR":90:HT23:VT18:A$"AT-HOME":90R270,56270,66272,66272,56R270,70270,73272,73272,70R180,144185,144185,14):J1,(X256):L2(I)(J1):JJ2::230,32:0:0,0:62454:HC3hQrHT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$"":49232,0:49234,0:49236,0:49239,0:C.05:PI3.1416Q|D$"BLOAD RUNPACK"Q}D$;"BLOAD CIRCLE1.STR"Q8050,(16386):8058,(16386):8049,5)TF:CT0:RT0:HT(X6)7:1P1:0:CL8:3:TF256:T131:TX49235:FU49234:HI49232:G$(7):D$(13)(4)VT10:HT2:A$"AND A TEMPERATURE OF "(TD)" DEGREES":7000:95:VT12:HT2:A$"THE EFFECTIVE AIR TEMPERATURE":700020:FL1LO19910:LO1,0:103,LO(LO256)256:104,(LO256):774,255:775,255:7025,0:D$;"RUN WFORE"PCL1:95:DB501000:WI3WC$(DB):780PGD(WI):WC$(C(DB))P TG2WC$((5((WC$)32)9))QVT8:HT2:WG2A$"WITH A WIND OF ".5):VT11eONHT20:A$(TH):7000:95:VT15:HT18:A$"WHICH":7000:95:VT17:HT20:A$"IS":7000:95OTH72VT21:HT28:A$"COMFORTABLE.":95OTH82VT21:HT1:A$"UNCOMFORTABLE.":95OTH72TH82VT21:HT16:A$"SQUIRMISH.":7000:95hP19910:LO1,0:103,LO(LO256)256:104,(LO256):774,255:775,255:D$;"RUN WFORE" ODD$"BLOAD THI5.STR":8048:TH(DBWB).415:VT2:HT5:A$"THE TEMPERATURE HUMIDITY INDEX":7000:95:VT5:HT18:A$"(THI)":7000:95:VT9:HT20:A$"IS":7000:95:TH(THHT12:A$"DEGREES CELSIUS.":7000:95]MTG1VT16:HT10:A$"DEGREES FAHRENHEIT.":7000:95fM550MVT11:HT1:A$"SORRY, BUT YOUR TEMPERATURES DO NOT ":7000:95:VT13:HT1:A$"ALLOW FOR RELATIVE HUMIDITY CALCULATION.":7000:95SN&20:FL1LO985.5):VT4:HT3:A$"YOUR CURRENT RELATIVE HUMIDITY IS":7000:95:VT6:HT18:A$(RH)" %":7000:95:VT12:HT6:A$"WITH A RESULTING DEWPOINT OF":7000:95:VT14:HT19:TG1A$((5(DP32)9.5)):7000:95LTG1A$(DP):7000:95$MTG1VT16:L1:90:A21057.69:EEA(WB):EB(0):RH(100EA(DB)):RH0500:BB16914.63968718.2E:CC((BB2)4(A23)27):A1BB2CC:A10A3A1.3333KrA10A31((A1).333)K|B1BB2CC:B10BB1.3333KB10B1((B1).3333)LDP(A3B15.53LO(I1)LO(I)(43616)(43617)256::J768:I13:XLO(I):J,X(X256)256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2:JHC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT3$"":49232,0:49234,0:49236,0:49239,0:220J(7025)5580:(7025)6740KCı^Ii1:0:CL8:3:TF256:T131:TX49235:FU49234:HI49232:G$(7):D$(13)(4):J768:I13InLO(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2::(774)255150:D$"BLOAD THREE,A2048":LO(1)2304:I13I(FT$(I))ĺD$"BLOAD "FT$(I)",A"LO(I)zJ233,L2(FT):(FT3$)ĺD$"BLOAD "FT3$",A"LO(3):FT$(3)FT3$:FT3$"":H_X7HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1:IdHC:100X,Y:Z1(A$):((A$,Z,1))T1:99::62923:XOX:X(224)(225)TF:CT0:RT0:HT(X6)7:(IN)3T.0383:D(W)12.366.13(W1.609).32W1.609GVB(X)EE.00036730(DBWB)(1(WB32)1571):C(T)(9((33G25.45537(5(T32)933).5))532.5)GXDR1.745329E2:FT$(1)"ONE":FT$(2)"":FT$(3)"":230,32:0:0,0:62454:105BHZ232,L1(FT):DF ** HUMIDITY ** LF 84F16368,0:HT8:VT24:A$"PRESS ANY KEY TO CONTINUE.":7000:90F9AA(16384):AA12857:2GTH(HT)HT76:V(VT)VT88:A(T)1.032292E6T34.18125E5T21.839584E       .5)10:A$" ":7000:A$(X4):90:1070:1920AhB$"":HT36:VT10:A$" ":7000:B$AA$:HT36:HBHT:VT10:A$AA$:90h55:((AA$)58(AA$)47)(AA$)46ĭ(B$)5B$B$AA$:A$AA$:90:2070hAA$(13)2090:(7):2070@i*LO(B$):(LO55LHT1:VT24:A$"HURRICANE! PRESS RETURN WHEN SATISFIED!":90 gvB$""Gg55:AA$(13)2190:AA$(75)X2X1:Y2Y1:X1X11:1970pgAA$(76)X2X1:Y2Y1:X1X11:1970g(AA$)0ĺ(7):1920g(AA$)02010gHT36:VT10:X4X1H1VA:X4(X410Y1YSY4YS:Y1YY:Y2Y1YS:1070:FLİ11000:FL0efY2Y1:HT1:VT22:A$CL$:7000:HT1:VT23:A$CL$:7000:HT1:VT24:A$CL$:7000:HT1:VT22:A$"USE (LEFT) OR (RIGHT) KEYS, OR":90:HT1:VT23:A$"TYPE IN VALUE OF LONGITUDE TO MOVE":95glA$)47)(AA$)46ĭ(B$)5B$B$AA$:A$AA$:90:1710eAA$(13)1730:(7):1710eLA(B$):LA15LA45ĺ(7):HT36:VT6:A$" ":7000:1100:HT1:VT22:A$CL$:7000:HT1:VT23:A$CL$:7000:HT1:VT24:7000:1420eY45(LAVO):YS(Y4Y1):YYΠӍӠ׍ŠנΠӍΠӍŠנӍΠӍנӍΠԍנӍΠԍנӍΠԍנӍΠԍ΍נǠϠ΍ҠԠ׍נǠϠ΍ҠԠ׍׍׍נǠϠ΍ҠԠ׍׍ΠҠנӍӠ׍ΠҠנӍӠ׍ΠҠנӍӠΠҠנԍנčנҠΠčΠԍנҠΠčΠԍנҠΠčΠԍ΍΍΍٠׍΍΍΍΍΍׍ΠҠ׍ΠҠ׍׍׍׍נ̬άڬάìάŬάìììȬìĠ٬ĬϬ֬ĬϬԠŠ٬ԬΠϬΠϬŬŬĬ̬ԮӬϬŬ٬Ŭ̬נˬ٬ˬʬŬˬˬ٬ˬ¬Ϭ̬άҬجڬȬĬŬĬҬŬɬŬάӠӬ֬ŠˬҬӠӬŬ٬άɬӬάɬ̬ŬɬӬάŬ̬٬̬ԬŬάנӰŬӬˬϬĬԬɬĠӬɬŬìĬԬլɬάجӬάŬ̬լˬӠ٬Ϭ٠Ԭ̬ìά֬ŬìŬ٬Ϭ̬ɬȬĬȬìӬȬĬȬӬجҬϬӠӬϬԬɬȬά̠Ϭج٬٬ŬͬϬجŬˬŬìà٬ʬĬŬĬӬԬŬĬάŬجϬ٬άԬά     δŲ͵ȵ¿ü¾½óýĴĽ¿ųÿ½³¿þŴ´Ŀȴ½¼þÿ¾Ŵ½ĵžſųȽĽſ¿Ĵž¾žŽŶ´ÿ¾òÿÿ³ó¿²¾½ýüĿļƼľij¿óÿij²óſòDzIJƳǴýĽƾľƼijĽ¿óòDzÿó¾ÿ¿´þżŴòĴõ¾ľüþĽĿƽ½³Ŀ½ų³Ŀ¿²ƴųĿó¾ĴĿ´þ´ųĽō¾ƾżŽ¾ŵŽ¿ŴĿÿļ¾½³ĴĿ¾űöÿ¶¿ȶǵþ¿Ľ¿ľſÿ½ıĶĿĿý¾¼ôĴ¿ý½ôĽýƾĿýƿľųþ¾ų¼¿½½þýļļijIJ˴ÿȴ½ĽŴĿ¿ŴĽþĽ¼ÿſ²¿òɲ¾ó½üôĿ½žżżõżſżž¾Ķò²ųŽǾĴñÿżϳĿʹǴ½Ľ¼ŽľĽŲļļ¾ųÿ½ij½¿ļijijóβžž¾²ʳžžɵǵ¾ĵ½ĴýſļƾĿ½ǼĽƿijſôĿõþÿııļŽĿòž¾ŲžȾñǵõüÿijļı±¿ľ¾¼Ŀ´ÿſűĴ¿űĴþ±±¿ñþĿþþżžļԼԼĿԼ½±ǿſľý­ľ¼ƽԼüԼ¼¼Ľ¿ųµÿõ¾µ´½Ĵľ¿ijĴļ¾ŽĽųÿ³±ôÿÿŵĿüľĴµÿ³Ŵ½¿ļþÿĽļľƾĿµŽľſôſ¾ĿĽ¾üñý½ԼſĿԼƽÿ¼ÿĿ±ýſſ½IJĴýıdzüž±ѳſŴµſŵü¿ļý´ĿŽľƾľŵ´ļųĿ½þľԾ¿¿ñű¿¿ÿ½ĽĽ¾ųžųǽij½²½ýÿÿñȳÿɴĽµÿ̴¿ɵĿƵüüĿļ¾ųĽ¿Ƽľ¾Žý¿ļ¿½òƳԾĿԾ½Խü¿ļÿ½żżľƽſǽż¿ű                             ijlk ~󅟆nmLȱȱeȱe(ӊ0ȱ ie枦ş 0FȱAȱ<ȱȱŰ+H8oȑoȥpphei e枥`̄iq imoݗ`x<0GOO`cՁݗŁ܇`>`8p8<xc (`O`;`*``ՕՕ```@@x`pxy|pOO`g>`>`;`+6Xl@3)``0`xf 0|`;`*``ՅՅՁ`pp`@x`,Յ`>`|>x|xs)``0`xf 0|`;`*``ՅՕ՝`` @݇`+ׁ`,Օw`pyY lx0OO`f6 ` 6lp3 +`.v p `;``Ձԁ`pp`x݆݇`,Յ`yY lx0GOG`f6 `l`|>x|xs +`.`n 0 ``;`;``ՕՎ݇`pp`xՕ݁`0y<0 MAM `g`l6Xl3 +`.@x~ p<xx`;`>`ԁՇ݁``0@@Օ݇݁`0YlpMMAM`f6`8p8<pc +`.`xf?`0|`x`;`;```ՕՇ`pp`xՕ`0xy|0 MGA`f>ԁCp@೬΃3y|LNOC@MOg>컎+ ,.@xb?`0|`;`;`*``Օ.C@ û1q8|L OCMC C̋+<x801?..C@0 λ+.+<>y|0s.0l |<| .@0 û+C λqYl0 B Mf 6l0Ys.0l\|83.p|,<.@-0.⻎λ+.C.sYl0L@GMf> 6<lxx3.p 6flL3 .0l, .@-C0 3x|0L @MGcY6 6flL 1/p| |..C0p 0Xl0xM@MO gy6@ @@@@@@@@@@p< |..C0@ û3Xl0LOC@Mf96 6flL     1B$B$AA$:A$AA$:95:370S(7):370TB$"N"N3:590TCL1:95:E0:HT7:VT8:A$"SELECT FROM THE FOLLOWING:":7000:95:HT6:VT10:A$"1. HURRICANE TRACK (EAST)":7000:95:HT6:VT11:A$"2. HURRICANE TRACK (WEST)":7000:95:HT6:VT12:A$"3. (3)""S230,32:0:0,0:62454:H1.2173913:H2.2:HT18:VT8:A$"NOTE!":90:HT2:VT10:A$"YOU WILL NEED A DATA DISK TO PROCEED.":95:HT4:VT20:A$"ARE YOU READY TO PROCEED (Y/N)?":95:B$"SHBHTSr55:AA$(13)390Sw(AA$"Y"AA$"N")(B$))256:L1(I)(J):J1,(X256):L2(I)(J1):JJ2:yRHC3:HT1:VT1:FT1:CT0:IN0:CL8:RT0:FT$"":49232,0:49234,0:49236,0:49239,0:PI3.141593:H(HT)HT76:V(VT)VT88RCL$" ":FT$(1)"ONE":FT$(2)"":FT$13:LO(I)(J)(J1)256:L1(I)(J):L2(I)(J1):JJ2:OQnD$"BLOAD HU,A$1970":(774)255150:D$"BLOAD THREE,A2048":LO(1)2304:I13yQ(FT$(I))ĺD$"BLOAD "FT$(I)",A"LO(I)QLO(I1)LO(I)(43616)(43617)256::J768:I13:XLO(I):J,X(X256HT6:Y8VT8:RT16:CL8BGCL:BG:CL8:0,0:62454:VT1:HT1:FT1:kPdHC:100X,Y:Z1(A$):((A$,Z,1))T5:99::62923:XOX:X(224)(225)TF:HT(X6)7:Pi1:0:CL8:3:TF256:T531:TX49235:FU49234:HI49232:G$(7):D$(13)(4):J768:IбO<(B$)1A$B$:B$"":HTHB:HC0:95:HC3:HTHB:(7):55eOFHTHB:(B$)1A$(B$,(B$)1):95:A$(B$,1):HC0:95:HC3:B$(B$,(B$)1):HT(XO6)7:55mOK55OZ232,L1(FT):233,L2(FT):(FT$)ĺD$"BLOAD "FT$",A"LO(3):FT$(3)FT$:FT$"": P_X7F0M1012,0:50,128M ***** WTRAK *****N37952:10,76:11,64:12,148)NA(50,1):B(50,1)2N 105uN16368,0:HT8:VT24:A$"PRESS ANY KEY TO CONTINUE.":7000:90N716368,0N9AA(16384):AA12857:AAAA128:AA$(AA):AA$(8)B$""               /D ,D,@a<`~?~!#d0D,@ ``gL/0՚|,@~@`ċgL3ft|@gL?fLv@E"DHPݻ0Dy"DL?P| ,DH#D 6 0Dy"D P| ,DH#D =x0D,@py@,@a@axsp~ q ,@a@ ``dž@? `s`0,@<0pOg@ͧ3~L @ ,@a@ `~```` 0,@pa>3fLxժ՚xժ,@```@3fLv@spsv0"D2Pܻ݃0"fx?R@`| ,D8#D ,@a@@a~p?x #D,D,@a@ `~~ x`|`" ,D8#D ,@a0`@a@| #D,D,@a@ `~|a~ #0D,@0`xgLg3f`ת՚`ת,@x`xCgL3fv@gLl HT8:VT23:A$"WHAT IS THE DATE (MM/DD)?":90:B$"Hl HBHTl. 55:AA$(13)2370:((AA$)46(AA$)58)(B$)5B$B$AA$:A$AA$:90:2350l< (7):2350lB (B$)5(B$,3,1)":VT23:A$CL$:7000:HT1:VT24:A$CL$:7000:HT1:A$"IS THE LOCATION CORRECT (Y/N)?":90:B$"":HBHTjk55:AA$(13)2290:(AA$"Y"AA$"N")(B$)0ĺ(7):2270kAA$"Y"AA$"N"B$AA$:A$AA$:90:2270lHT1:VT24:A$CL$:7000:B$"Y"B$""İ11420/j4X44.6(LOVA):XS(X4X1):XXX1XSX4XS:X1XX:X2X1XS:1070::XS1X1X1XS:X2X11:10709jX2X1[jEEEE1:A(EE,0)X1:A(EE,1)Y1gjT1EEjTT1DD:A(T,0)B(TT,0)A(T,1)B(TT,1)İ10000jTT:)kHT1:VT22:A$CL$:7000:HT1O100)VA101.3044ĺ(7):HT36:VT10:A$" ":7000:1100:HT1:VT22:A$CL$:7000:HT1:VT23:7000:HT1:VT24:7000:1420i-(LO100LO145)VA146.3044ĺ(7):HT36:VT10:A$" ":7000:1100:HT1:VT22:A$CL$:7000:HT1:VT23:7000:HT1:VT24:7000:L,a GY[hu --???---->???7---->???7----???-- --66??$$ 666.--$$$7- <=<>@>?>@A@=?<>`ؠ *j.8**&*7*7*%*z< *$*:8 *z8$*+ *$*0 *j+8**~?&*7*7*%*>p *$*p *j,$*+ *$*0 **U U}|%UV6U5~X6U5X6Uu\%U_ U%UW U$U U*j. *`8*@ *~~%*7*@7*&*~*%*/ *`$* *+#*z, *>08* *z/%*7*@7*&*|+ *$*j/ *0$* *$*:8 *z88* *j+%*7*7*&*/ *$*z< *:8$* *$*8@Y@@@@@@@@@@*` *%*7*7*7*%*@ *@$*@ *j.#*j+ *8*` *%*7*7*7*%* *@$* *j$*j. *8*@ *?p%*7*@7*'*/*%*+ *`$* *+#a{ dfhjlnprtvxzE  8$ I d` LLQU63>>$)5(222)6)X83870ī3930J((222)5(222)6)(X83870)393022,148)NA(50,1):B(50,1)2N 105uN16368,0:HT8:VT24:A$"PRESS ANY KEY TO CONTINUE.":7000:90N716368,0N9AA(16384):AA12857:AAAA128:AA$(AA):AA$(8)B$"")6)(X81230X81185)1240:((222)5(222)6)(X81240X81350)13603}J((222)5(222)6)X838703930I}T(222)8ĺ(7):l}'232,112:233,25:3:1X1,Y1:}*232,112:233,25:1X5,Y5:JJ((222)5(222)6)X83870ī3930J((22293,135:194,139210,143210,145212,145212,147216,147:HT1:VT1:A$"W 140 130 120 110 100":95|HT33:VT5:A$"40":95:HT33:VT11:A$"30":95:HT33:VT17:A$"20":95:HT33:VT20:A$"N":95: }@X8(218)(219)256:((222)5(22274,116164,104160,98160,95162,95162,93157,93157,85:157,85148,76151,76151,74153,74153,76158,76158,74158,76161,76164,80164,84169,917|169,92169,95172,95172,98176,101176,106178,106178,110:179,111182,115183,115186,118186,12316,10106,20103,21107,24107,28105,28106,34:106,34114,42114,47116,47118,44122,48118,50122,57122,60:123,60123,64127,64142,81142,85:144,85147,89147,98143,101152,108159,108Y{152,108159,108162,114162,116164,116169,123174,116:1L$:7000:HT1:VT24:7000:HT1:VT22:A$"SORRY, ENTERED DATA DOES NOT ALLOW":7000:90:HT1:VT23yA$"FOR A CALCULATION OF NEXT POSITION!":7000:90:20:D$"CLOSE "HU$:CL1:90:3870y&yX776,HT1:777,(A$)HT1.5:778,V(VT)1:TT(0):zl10B(NH,1)Y1w :SxFC$"":HT5:VT10:A$"INSERT FORECAST! DISK IN DRIVE 1!":7000:90:20:D$"OPEN FORE.DAT,L3":D$"READ FORE.DAT,R0":FC$xZFC$"`0** p0**`0**0@@0** ,* 0**a0* ?**0@A0**~ /* 0**UUU`UUy`I0UՀUHw{U`X UUU3Uj*@UUU>/*:0@U`UUx*fUgx U U> U UU`UUy@U~՝UUx'{U`pUUUsUzj@UU U8.*: U@UU8*fU` U U`>Ug UߗU`UU@U~՟U UU xU`UUU?wUzpUUU8>* U@UU 8*fU` U U`*Ug UUUUAU~ՇU UI +* *U?wUUU Ux* U@UU8*fpU` U U`*Ug U߇U@UUAGUՇU Uo U*0+*?U +*0@ +*+* U{+*C? +*@$+*0? +*+*p+*@+* +*+**q+*s8+**G~1+*p*C? +*$+*0? +*+*C<+*@+* +*+*@+*~p+*x+*p*^!+*?+* **~+*U}WUJ+*@b+*@|+* +* +*p+* +*x+*@*\L!+*+***+*UMWUB+*@*p+*uU +*0@ +*+* U + +*x+*@*|m3+*+***+*W_uB+*@*@+*U +*0@ +*+*U+*? +*$+* ? +*+***~+*W\=B+*@*x8@+*U O+*0@+*~>+*U+* +*$+*`W5+*+*b+*@p+*+*+*p+*U y+*0* +*UB+*@ +*`$+*@W5+*|@ +*f+*@p+*+*0+*p+* +*?x+*@*|+*0+**>$+*@Wu+*|C? +*D+*|+*+*`@+*p+* +*x+*@*xZ+*8+*p**+*W\B+*@*`8_+*+*p +*+*@+*p+* +*sx+*@*q+*8+***G+*_\F+* *@|+*U 3+* * 0+*0U@+*|@ +* +*?x+**q?+*8+***~ +*||D+* *?+*U`+*`*0 +*0U`+*<@ +*<+*@U+*pC? +*D@@@@@@@@@@@*+*ppl+* *+*U@~+*@*0+*0U?+*0@ +*+*@ U+*@C? +*d+*0 +*+*8C<+*@+            WOULD YOU LIKE PRECIPITATION IN:":16:14:"1. INCHES?":14:18:"2. CENTIMETERS?20:3:"TYPE IN NUMBER AND PRESS RETURN.";:B$"":(95);:(0)55:A$C$720:(B$)0A$"1"A$"2"ĺ(7);:70517:705B$""ĺ(7):700B$"1"PE$" DEGREES FAHRENHEIT?":7:8:"2. DEGREES CELSIUS?t9:3:"TYPE IN NUMBER AND PRESS RETURN.";:B$"":(95);:(0)55:A$C$675:(B$)0A$"1"A$"2"ĺ(7);:66017:660B$""ĺ(7);:655B$"1"DG$"F":690DG$"CQ14:3:"ERS!)":9:3:"SORRY, COMMAS ARE NOT ALLOWED.)";[]3:12:B$"":E0:TT120:(95);::3g55:A$C$630:(B$)19A$","A$" "ĺ(7);:615q17:615vB$""ĺ(7);:6051{LC$B$::3:1:"WOULD YOU LIKE TO CHART TEMPERATURES IN:":5:8:"1.A$)48(A$)57ĺ(7);:555(517:555I:(B$)4(B$)4ĺ(7);:550V?YR$B$:0D495::3:1:"WHAT IS THE CITY AND STATE OF THE":5:"RECORD KEEPING STATION?":7:1:"TYPE IN CITY & STATE AND PRESS RETURN.":8:"(NOTE, LIMIT NAMES TO 20 CHARACT48(A$)57ĺ(7);:515%17:515GM(B$):M1M12ĺ(7);:510!M$MO$(M):19:4:"WHAT IS THE YEAR FOR THE DATA?":21:1&11:"TYPE IN FULL YEAR":22:11:"AND PRESS RETURN "(95)(95)(95)(95);:(0)3:B$"+55:A$C$570:(B$)3(4:6:"SELECT FROM THE FOLLOWING:":I13:I6:4:I". "MO$(I);:24:((I6),2)". "MO$(I6)::I46:I6:4:I". "MO$(I);:23:((I6),2)". "MO$(I6):17:1:"TYPE IN NUMBER AND PRESS RETURN! "(95);:(0):B$"55:A$C$540:(B$)1(A$)E.DAT":4604D$"CLOSE FORE.DAT":D4ĺ(7);:440=285hD$"CLOSE FORE.DAT"::N470,1110,11301:5:"CREATE A NEW MONTHLY RECORD":5:1:"SOME PRELIMINARY INFORMATION IS NEEDED!":I12500:::1:4:"WHAT IS THE APPROPRIATE MONTH?":580SK IN DRIVE!":20:D$"OPEN FORE.DAT":D$"READ FORE.DAT":A$:A$" K55 11:10:"THE WEATHER KEEPER":D11200:::7:17:"NOTE!":9:1:"YOU WILL NEED A DATA DISK TO PROCEED. 19:2:"ARE YOU READY TO PROCEED (Y/N)? "(95);:(0):B$" 55:A$(13)2aUK49233,0:49236,0:49234,0:50,255:SS1:D$(13)(4)::C$(13):200_A$;:B$B$A$:16368,0:8:24:"PRESS ANY KEY TO CONTINUE.";716368,0:A$:A$(8)B$""ı8B$""ĺ(7);:55 H(B$)1B$(B$,(B$)1):(0):(95);:(0):!! ! ! ! ! !!!!!!!!!                                       @@@@@@@@@@@VpU|.Uj|8U|.Uj|,U:|,Uz|.U:|"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? C Lו ÕÕ ֩Õ`B@Lĕ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#""@9UVU&U5|X6U5|X6Uu\%UW U%U U$U@ Uu\$U UpUUW Ux%U5\6U5X6U5X%UuUV$U U$U=X U `$U U9UW U%U5\6U5X6Uu\%U@UW$U U$Up Up$U U9UV Uu_%U5X6U5~X6Uu\%UUW$U U$U` U5X$U UV8U Uu_$UuV6U5X6U5X7UT$Uu~ U%UW U$U UW8UUW$UuT6U5X6U5X&UUV$U=x U$UuV U$U U9UU%U5T6U5X6U5X&UUV$U` U$Uu\ U@$U U9JwJMJMJJoJJNJnJ1JMJMJMJ6J-JvJMJMJ JJMJJvJJNJJ7@@C?.- ??N -5?*m ->??w- -7mu)->?7m:w)>?7-u ---5??w)>.>.N Mm57m57m5??-NMm57m57m?N Im 57m 57--->?.M)Nm57--?-->7mum)>7m)?w57uI-->?w m:?7--N>-5?757m:?.-Nr?-?-?N.-5?w)>.>?.-NRR?mJ?--->??oIIRJJMJMJ-JJ-.-N-->?7m:?.M:?7--N-->?7m:?.-7uI)->?7m7m5??-uMm57m5??.-57mu ->7->7->7-N6I575m5??-Nm57-5?7m57mu5757m:?.-N m 5??.--57m 57m uM)>7- 5??7m->7m)N3)??. 57m5??-N-??. 5??.-7uI3)??. 57m??w--N-??. 5??.--->?7m:?N)>?7-u )->?7m:?. 5??-N--->?w 57uI3)??. ?m5??-N)??. 5?w)>?7-u 5w:.N5w:.MIwwu-I??.-*-5??VI NwuI.-??N)?.uI3)-n- n- s--N)??. 57-->7mu--7m?7m57-u J)??. 7m5??-N1-??. 57m5??>??wmu ? m:? ?wm??NuIm1w)?-7Mu)->?7M?M??-u57 )>757?u?575?.N ->7-NN I:.??7--;.N 7MRRI:?7-- 7uII ?-?-?NI )??. 57m5??-N1->w57?7-us-??N)?m??.-uN-??N)?N5??.-NI57m??7--7u ad)<CO[l|#2EW`ju&9KYiz"4D]p &,28>DJPV\bhntz" 575w:.Nnm57m ) ???.-----"" " " " "