<MSSSRDRWEPREDRYWETPRESVPTEMVVPRDDPCLDWINCHILDMDMLALOYLEADATTMMMMLLTANTANAAL1L2SNSNCSCSXHXHRISSEMINMIN  !"#$%&'()*+,-./0123456789:;< WEATHER CALCBY JAN NULL,NATIONAL WEATHER SERVICE( (c) 1986, ANTIC PUBLISHING2.@.@@K:<;@,;@,MAIN MENU +#( Ҡ (#(9(1. TEMPERATURE9(2. DEW POINT/RELATIVE HUMIDITY6( 3. WIND CHILL+(4. SUNRISE/SUNSET6(5. ENDC A+CAA APA`APOPTION SELECT SUBROUTINEQ((Ԡκ')@.(>:,8 AD6-A:>:,,N BQ$& +TEMPERATURE0 +0( Še( (+(1. CONVERSION FROM FAHRENHEITJ(2. CONVERSION FROM CELSIUSe(3. RETURN TO MAIN MENU) A)AAAL1 +1( ԠV:( (,(ENTER FAHRENHEIT TEMPERATURE 6 A:`%%6-+&@2,$+@'@ ,j..6-P:+%As,$A%?P,'At..6-P:+%AYi,$A%?P,'Ay$$6-P:$A%?P,'A~"("(CELSIUS TEMPERATURE= !(!(KELVIN TEMPERATURE= !(!(RANKIN TEMPERATURE= (( ( (%( FOR MAIN MENU((!!(ANY OTHER KEY TO CONTINUE$)@$"AUA;;(3WOULD YOU LIKE ANOTHER FAHRENHEIT CONVERSION? (Y/N)$)@$"@A A. +.( Ӡ7( ()(ENTER CELSIUS TEMPERATURE 3 A7(!!6-$@ '@%@22..6-P:+%As,$A%?P,'A<..6-P:+%AYi,$A%?P,'AA$$6-P:$A%?P,'AF%(%(FAHRENHEIT TEMPERATURE= P!(!(KELVIN TEMPERATURE= Z!(!(RANKIN TEMPERATURE= d(( ( (%( FOR MAIN MENU((n!!(ANY OTHER KEY TO CONTINUEx$)@$"AUA88(0WOULD YOU LIKE ANOTHER CELSIUS CONVERSION? (Y/N)$)@$"@A ADEW POINT/RH1 +1( נԯŠ5(1(&ENTER DRY BULB TEMPERATURE (DEGREES F)55(1(&ENTER WET BULB TEMPERATURE (DEGREES F)56-@0//6-++@'@ ,$+&@2,,%As //6-++@'@ ,$+&@2,,%As6-'?0 446-@$J:+@'$+&As,,'+&@5,,*776->g$$+&,$+@%++&@2,'Aq,,4 6-&>446-@$J:+@'$+&As,,'+&@5,,HJ6-+A$,'+ )!A@(RH OUT OF RANGEJ A R 6-K:+$,'A,'@'\))6-+As&+@5$,,'+@&,f<+6-+&As,$@ '@%@2<6-P:%?P,p""6-P:?P%+A%$+&,,,z(( DEW POINT= 6(RELATIVE HUMIDITY= -6-P:%?P,6( %''(ESTIMATED CLOUD BASES=  FT.( ( ((((.(ΠҠΠ::(2ANY OTHER KEY FOR ANOTHER DEW POINT/RH CALCULATION$)@$"AUA A WIND CHILL+ ++( Ġ̠\( (/(!ENTER AIR TEMPERATURE (DEGREES F)9 AP =\!A) 6@AP X(,(!ENTER WIND SPEED (MPH) 6 AP0:X!AP) AP0 @6-@!@P6-@PDD6-?$+@q$M:,%@&?%$,$+&@@,%@@&&6-P:+$A%?P,'A,0 +*( Ġ̠-(0(( TEMPERATURE: ( WIND SPEED : (($($(WIND CHILL FACTOR IS: / @1*!@(/( 4 @*!(4( ٠7 @*!6@ (7( Ҡ. 6@(.( Š4( ( ((((((4( FOR MAIN MENU$($(ANY OTHER KEY TO CONTINUE $)@$"AUA APpSUNRISE/SUNSETu. +(( ů+(.(zf$(ENTER LATITUDE (DEGREES,MIN). A`4f )!@) )!@YA`g%(ENTER LONGITUDE (DEGREES,MIN)/ A` 5g )!A) )!@YA` 7%(ENTER DATE (Month, Day, Year)/ A`07?? @)!@) @)!@1) A`0( (( CALCULATING6-%'@`6-%'@` 6-+'@,&P:'@,Aa00++'A,&P:'A,",Aa6-@ Aa 6-@AA6-P:+Au$,'@ ,&$P:+%@ ,'@,%&@0%%6-%+@%'@,'@$%%6-%+@%'@,'@$ 6-6-6-?V$&@%6-?V$&@%$336-%@`$G:,%?$G:$@,%AVP.336-%@`$G:,%?$G:$@,%AVP86-?t`$+G:,'E:,,B6-?t`$+G:,'E:,,L6-+D:,,V6-+D:,,`QUADRANT CONVERSIONSb!A`6-&A`c!A`6-&A`d 6-%A`e 6-%A`j6-P:'@,%@t6-P:'@,%@~ 6-O:,6-O:,+"@+6-%+@$+@&,,5"@56-+@$,%+@$+@&,,5"@56-+@$,%+@$+@&,,+"@+6-%+@$+@&,,5"@56-+@$,%+@$+@&,,5"@56-+@$,%+@$+@&,,6-'@6-'@6-?9x $G:,6-?9x $G:,""6-O:E:D:'M:6$%@,,,,""6-O:E:D:'M:6$%@,,,, E$6-+E:@3,&$G:,,'+$E:,,E6-@&D:'M:6$%@,,E$6-+E:@3,&$G:,,'+$E:,,E6-@&D:'M:6$%@,,6-A`&6-'@(6-'@2>6-%&+?W$,&@b>6-%+'@,&P:'@,<>6-%&+?W$,&@b>6-%+'@,&P:'@,F 6-%@$P 6-%@$Z!@$6-&@$]P:, @Ad^&6-&@6.P.M.& Aeb6.A.M.d!@$6-&@$gP:, @Aeh&6-&@6.P.M.& Ael6.A.M.n3 +'( ů*(-(0(3(p##(LAT :  DEG,  MINr##(LONG:  DEG,  MINt#(DATE: // (#(x16-+&P:,,$@`'P:, @1 Ae`<<( SUNRISE: P:,:P:,  LOCAL STANDARD TIME/6-+&P:,,$@`/P:, @AepF<( SUNSET : P:,:P:,  LOCAL STANDARD TIMEF AeG=( SUNRISE: P:,:0P:,  LOCAL STANDARD TIMEG Ae@==( SUNSET : P:,:0P:,  LOCAL STANDARD TIME4(1(&ADD ONE HOUR FOR DAYLIGHT SAVINGS TIME4(%( ("(ΠҠΠ%(!!(ANY OTHER KEY TO CONTINUE$)@$"AUACC(;WOULD YOU LIKE TO USE THE SAME LATITUDE AND LONGITUDE (Y/N)V)@"@&+@( ůF6-L6-V A`0 A` D1:WX.BAS