:59468,12C WEATHER COPYRIGHT (C) 1980 RANDALL LOCKWOODT 90 DYKE RDm SETAUKET, NY 11733s: CURSOR #18 MAR 1980 BOX 550, GOLETA, CA. 93017 AS OF 25 MAR 80ZPG$"WEATHER":NM$"18":62000dV$"VARIABLY CLOUDY"?iW$"WARMER":C$"COOLER":P$"PRECIPITATION":I$"IMPROVEMENT"IZ(4)h:"BAROMETER READINGS:"sI12"TIME OF READING"I"? ";:60000:T(IN$)(IN$,2)"PM"TT12T1T24"1 TO 24,PLEASE.":210 "PRESSURE WAS? ";:60000:B(IN$)4B28B32"28 TO 31.9,PLEASE.":260KZ(I)T:Z(I2)B:Io"T1Z(1):B1Z(2):T2Z(3):B2Z(4)w^H7hB228.8H6rB229.2H5|B229.5H4B229.7H3B229.9H2B230.1H1B230.4H0BB1.05(((T110)12)2)?EB.05(((T210)12)2):DB2EGV0VD.15V1eD.07V2uD.07V3D.15V4:"WIND DIRECTIONI18:X$:I". "X$: NORTH,NE,EAST,SE,SOUTH,SW,WEST,NW60000:W(IN$)1'&W0W7"ENTER DIRECTION 1-8 PLEASE":540>0"SKY CONDITION"Z:I15:X$:I". "X$:IDCLEAR,PARTLY CLOUDY,MOSTLY CLOUDY,OVERCAST,RAINN60000:C(IN$)1PC0C4"ENTER CONDITION 1-5 PLEASE": 590 l"PRESENT TEMPERATURE (FAHRENHEIT)? ";:60000:T(IN$)A "HERE IS THE FORECAST FOR YOUR IMMEDIATEp "AREA FOR THE NEXT 6 TO 24 HOUR PERIOD: N200W25H5VC4:N0I1N:X$: I15:F$(I)::J5 F$F$(J):F$""JJ1:690 X$C$:H0:M$"":A$"" Y((F$,1))64:Y13720E Y740,750,760,770,800,770,820,820,730,991,850,860,880 Y13870,730,890,730,900,910,930,910,730,960,970,970 "UNKNOWN ERROR": "FAIR":1000 X$W$ "FAIR AND GENERALLY "X$:1000 V$", ";:Y6C$" WITH A CHANCE OF "; "LIGHT "P$".":1000D "PARTLY CLOUDY WITH A CHANCE OF SOME"u *P$". A WARMING TREND WILL":"FOLLOW.":1000 4"INCREASING CLOUDS OR OVERCAST":Y8"WARMING TREND":TT8 >991 RW$::TT8:991 \C$::TT8:991 fW$", WITH "; p"RAIN LIKELY":10005 z"TURNING"C$:M$I$:H24:991Q M$"CLEARING":H12:991y M$I$:A$"COOLER WEATHER":H12:991 M$I$:H6:991 M$"FAIR":A$C$:H6:991 M$"CLEARING":Y25M$"THEN "M$:A$"BECOMING COOLER" V$:"SLIGHT ";:991( 1110:M$""M$;:A$""" AND "A$;C H" WITHIN"H"HOURS";I e "WINDS: ";:B$(F$,1) B$"N"" PROBABLY INCREASING" B$"F""13-24 MPH B$"S""STRONG (25-38 MPH) B$"G""VERY STRONG (>40 MPH) B$"W""DANGEROUS (55-73 MPH)($B$"H""HURRICANE FORCEB.B$"D""DIMINISHINGZ8B$"U""UNCHANGEDlB62040::190V"CHANCE OF ";:T401150`"SNOW";:T30", SLEET";jT25" OR FREEZING RAIN";t".":~T50"RAIN OR ";"SHOWERS";:T50" OR THUNDERSTORMS";(".":]AD,,,,WD,AD,,,,TD,AD,,,XD,RD,AU,DU,GU,,JU,GN,,,MN,CU,,,,WU,CD,,,,UD,AD,,,XD,RD,AU,DU,GU,,JU,GN,,,MN,CF,,,,WF,CU,,,,UU,AU,,,XU,RU,DU,,GU,,JU,GN,,,MN,CF,,,,UF,CF,,,,UF,AU,,AF,XF,RF,DF,,GF,JF,3JN,,LN,PN,,CS,,,YS,US,CF,,,FF,SF,CF,,YF,FF,SF,FShLS,,,,LS,,,PS,,CS,,,PS,SS,CS,,FS,,SS,CS,FS,,,SSSS,,,,,LS,,PS,,,CG,,FG,,SG,CG,FG,,SG,,FG,SG,,,SG,,,,,LG,,PG,,,FW,,,SW,,FW,,SW,,,SW,,,,,SW,,,,,LW,,PW,,AU,,,,TU,AU,,,DU,RU,AU,,,GU,JU,DN,GN,,,MN,GN,,,EMN,CU,,,,UU,AU,,,DU,RU,AU,,,GU,JU,DN,GN,,,MN,GN,w,,MN,CF,,,,UF,AU,,,DU,RU,AU,,,GU,JU,GN,,,,MN GN,,,,MN,CF,,YF,SF,CF,,,FF,SF,AF,,,GF,JF,GN,,,MN,,GS,MS,,,CS,,,FS,SS,CS,,,FS,SS,AS,XS,JS,,,JS,,MS,,,MS,,,#(,YS,,FS,SS,,FS,,,SS,,LS,,,,,LG,PG,,,,PG,,,,S2SG,,,,,SG,,,,,LG,,,PG,,PW,,,,,PW,,,,,LW,,,u<,LW,,,,,PW,,,,,PW,,,,,PH,,,,FAU,,,DU,RU,AU,,,DU,JU,AU,,DU,GU,JU,EN,HN,,,NN,HN,,,,NNPAU,,,DU,RU,AU,,,DU,JU,AU,,DU,GU,JU,EN,HN,,,NN,HN,,,,NN'ZAU,,,DU,RU,AU,,,DU,JU,AU,,DU,GU,JU,HN,,,,NN,GN,,,,MNadAF,,,DF,JF,AF,,,GF,JF,AF,,DF,GF,JF,GN,,,MN,,GS,MS,,,nAS,DS,JS,,,DS,JS,,,,DS,JS,,,,JS,MS,,,,MS,,,,xLS,,,,,LS,,,,,LS,,,,,LG,PG,,,,PG,,,,,LG,,,,LG,,,,,PG,,,,,PW,,,,,PW,,,,,LW,,,,,PW,,,, PW,,,,,PW,,,,,PH,,,,TAU,,,DU,JU,AU,,,DU,JU,BU,,EU,HU,KU,EN,HN,,,NN,HN,,,,NN,AU,,,DU,JUAU,,,DU,JU,AU,,DU,GU,JU,HN,,,,NN,HN,,,,NN,AU,,,DU,JU,AU,,,DU,JUAU,,DU,GU,JU,HN,,,,NN,GN,,,,MN,AF,,,DF,JF,AF,,DF,GF,JF,AF,,GF,,JF#GN,,,MN,,GS,MS,,,,DS,JS,,,,JS,,,,,JS,,,,MS,JS,MS,,,,MS,,,,,LSi,,,,LS,,,,,LS,,,,,LG,DG,,,,PG,,,,,LG,,,,,LG,,,,,PG,,,,,PW,,,,,PW,,,,LW,,,,,PW,,,,,PW,,,,,PW,,,,,PH,,,,AU,,,,DU,BU,,,,EU,BU,,,EU,KU,BN,HN,,,NN,HN,,,,NN,AU,,,,DU,BU,,,,EU)BU,,,EU,KU,EN,HN,,,KN,HN,,,,NN,AU,,,,DU,AU,,,DU,JU,BU,,,EU,KU,HN,,,,KNqGN,,,,MN,AF,,,DF,JF,AF,,,DF,JF,AF,,DF,GF,JF,GN,,,JN,MN,GN,,,MN,,DSJS,,SS,,DF,JF,,SF,,JF,,,,,JS,,,MS,,LS,,PS,,,SS,,,,,SS,,,,,SS,,,,,SS,,,,LS,,PS,,,SG,,,,,SG,,,,,SG,,,,,SG,,,,,LG,,PG,,,SW,,,,,SW,,,,SW,,,,,SW,,,,,LW,,PW,,eAU,,,,DU,BU,,,,EU,BU,,,,EU,BN,EN,HN,,KN,EN,HN,,,KN,AU,,,,DU,AU,,,,DUBU,,,EU,RU,BN,EN,HN,,KN,HN,,,,KN,CF,,,,FF,AU,,,,TU,BU,,,XU,RU"EN,HN,,,KN,HN,,,GN,JN,CF,,,YF,UF,AF,,,XF,RF,AF,,XF,DF,RF,GN,,,JN,,GN7,,,JN,,CS,,YS,FS,US,CF,,FF,,SF,DF,FF,LF,SF,,JS,LS,,SS,,SS,,,,,CS|6FS,,SS,,FS,,,SS,,SS,,,,,SS,,,,,SS,,,,,FG,,SG,,,SG,,,,,SG,,,,,SG@,,,,SG,,,,,SW,,,,,SW,,,,,SW,,,,,SW,,,,,SW,,,,JAD,,,,XD,BD,,,,XD,BD,,,,ED,BU,,EU,,KU,BN,,EN,HN,KNTAU,,,,XU,AD,,,,XD,AD,,,,DD,BU,,EU,,KU,BN,EN,HN,,KNW^CF,,,,XF,AU,,,,XU,AU,,,,TU,BU,,EU,DU,JU,EN,,HN,,JNhCF,,,,WF,CF,,,,WF,AU,,AF,,TF,AF,DF,GF,JF,,DN,GN,,JN,,CSr,,,WS,CF,,,,UF,AF,CF,,YF,UF,DF,,JF,SF,,LS,SS,,,,CS,,,,US |CS,,,FS,US,CS,,FS,,S,FS,LS,SS,,,SS,,,,,CG,,YG,FG,UGBFG,,,UG,,FG,,SG,,,SG,,,,,SG,,,,,FW,,,SW,,FW,,SW,,\SW,,,,,SW,,,,,SW,,,,AD,,,,XD,AD,,,,XD,AD,,,,XD,BU,,EU,,KU,BN,,EN,HN,KN,CU,,,,YUAD,,,,XD,AD,,,,XD,BU,,EU,,KU,BN,EN,,HN,KN,CF,,,,YF,CU,,,,YU#AU,,,,TU,AU,,DU,,JU,BN,EN,DN,GN,JN,CF,,,,WF,CF,,,,WF,AU,,AF,,TFmAF,DF,,,JF,DN,,,JN,,CS,,,,WS,CF,,,,UF,AF,CF,,YF,UF,AF,DF,,SF,,FS,,SS,,CS,,,,WS,CS,,,YS,US,CS,,FS,,US,FS,,,SS,,SS,,,,,CG,,,YG,UG,CG,,YGFG,UG,FG,,,SG,,FG,SG,,,,SG,,,,,CW,FW,,,UW,FW,,,SW,UW,SW,,,,,SW,,,, SW,,,,,*,`IN$" ":ZTTI:ZC2:ZD$(20)BjZ$:Z$""60070rtZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15}~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010 IN$IN$Z$:Z$;ZD$;Z$;)Z13IN$(IN$,2):CR$;:UZ20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010""::CR$(13):100TI110:"";:I:0"";9);"CURSOR #";NM$;" ";PG$:" COPYRIGHT (C) 1980 BY RANDALL LOCKWOOD)D60500FN"FORECAST THE WEATHER?eX"HIT RETURN TO BEGIN|bIN$:IN$""62050l60300