WEATHER/TEMP CON
FILE INFORMATION
FILENAME(S): WEATHER/TEMP CON
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-10-20 14:30:09
APPEARS ON: 1 disk(s)
FILE HASH
6363692eeb16b7e8a0d14d5daf86da3c8734220e3d6a91cc18c148ac6e9074dc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0007ED | WEATHER/TEMP CON | PRG | Treasure Chest - Klaus Der Suhler | 30 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 17 04 64 00 8F 2A 2A 2A 57 45 41 54 48 45 |....d..***WEATHE|
00000010: 52 4D 41 4E 2A 2A 2A 00 3C 04 6E 00 8F 2A 2A 2A |RMAN***.<.n..***|
00000020: 57 52 49 54 54 45 4E 20 42 59 20 47 4C 45 4E 4E |WRITTEN BY GLENN|
00000030: 20 50 52 45 53 43 4F 54 54 2A 2A 2A 00 64 04 78 | PRESCOTT***.d.x|
00000040: 00 8F 2A 2A 2A 52 45 56 49 53 45 44 20 46 4F 52 |..***REVISED FOR|
00000050: 20 42 59 20 45 44 20 4D 41 52 43 48 45 53 43 48 | BY ED MARCHESCH|
00000060: 49 2A 2A 2A 00 87 04 82 00 99 22 93 1D 1D 1D 1D |I***......".....|
00000070: 1D 1D 1D 1D 1D 1D 2A 2A 2A 57 45 41 54 48 45 52 |......***WEATHER|
00000080: 4D 41 4E 2A 2A 2A 22 00 8F 04 8C 00 99 3A 99 00 |MAN***"......:..|
00000090: C4 04 96 00 99 22 53 45 4C 45 43 54 20 54 48 45 |....."SELECT THE|
000000A0: 20 50 4F 52 54 49 4F 4E 20 4F 46 20 54 48 45 20 | PORTION OF THE |
000000B0: 50 52 4F 47 52 41 4D 20 59 4F 55 20 20 20 57 41 |PROGRAM YOU WA|
000000C0: 4E 54 3A 22 00 E8 04 A0 00 99 A3 34 29 22 31 2E |NT:".......4)"1.|
000000D0: 20 54 45 4D 50 45 52 41 54 55 52 45 20 43 4F 4E | TEMPERATURE CON|
000000E0: 56 45 52 53 49 4F 4E 22 00 10 05 AA 00 99 A3 34 |VERSION".......4|
000000F0: 29 22 32 2E 20 54 45 4D 50 45 52 41 54 55 52 45 |)"2. TEMPERATURE|
00000100: 20 48 55 4D 49 44 49 54 59 20 49 4E 44 45 58 22 | HUMIDITY INDEX"|
00000110: 00 3F 05 B4 00 99 A3 34 29 22 33 2E 20 57 49 4E |.?.....4)"3. WIN|
00000120: 44 20 43 48 49 4C 4C 20 45 51 55 49 56 41 4C 45 |D CHILL EQUIVALE|
00000130: 4E 54 20 54 45 4D 50 45 52 41 54 55 52 45 22 00 |NT TEMPERATURE".|
00000140: 6D 05 BE 00 99 A3 34 29 22 91 34 2E 20 52 45 4C |m.....4)".4. REL|
00000150: 41 54 49 56 45 20 48 55 4D 49 44 49 54 59 20 41 |ATIVE HUMIDITY A|
00000160: 4E 44 20 44 45 57 20 50 4F 49 4E 54 22 00 8D 05 |ND DEW POINT"...|
00000170: C8 00 99 3A 99 22 45 4E 54 45 52 20 59 4F 55 52 |...:."ENTER YOUR|
00000180: 20 53 45 4C 45 43 54 49 4F 4E 2D 2D 22 00 94 05 | SELECTION--"...|
00000190: D2 00 85 53 00 9C 05 DC 00 99 3A 99 00 B3 05 E6 |...S......:.....|
000001A0: 00 91 53 89 32 34 30 2C 35 38 30 2C 37 33 30 2C |..S.240,580,730,|
000001B0: 38 35 30 00 DF 05 F0 00 99 22 93 1D 1D 1D 1D 1D |850......"......|
000001C0: 1D 1D 2A 2A 54 45 4D 50 45 52 41 54 55 52 45 20 |..**TEMPERATURE |
000001D0: 43 4F 4E 56 45 52 53 49 4F 4E 2A 2A 22 3A 99 00 |CONVERSION**":..|
000001E0: 1A 06 FA 00 99 22 49 4E 50 55 54 20 54 45 4D 50 |....."INPUT TEMP|
000001F0: 45 52 41 54 55 52 45 20 41 4E 44 20 53 43 41 4C |ERATURE AND SCAL|
00000200: 45 20 53 45 50 41 52 41 54 45 44 20 20 20 42 59 |E SEPARATED BY|
00000210: 20 41 20 43 4F 4D 4D 41 2E 22 00 2F 06 04 01 99 | A COMMA."./....|
00000220: 22 4C 45 54 20 43 3D 43 45 4C 53 49 55 53 22 00 |"LET C=CELSIUS".|
00000230: 47 06 0E 01 99 22 20 20 20 20 46 3D 46 41 48 52 |G...." F=FAHR|
00000240: 45 4E 48 45 49 54 22 00 5B 06 18 01 99 22 20 20 |ENHEIT".[...." |
00000250: 20 20 4B 3D 4B 45 4C 56 49 4E 22 00 70 06 22 01 | K=KELVIN".p.".|
00000260: 99 22 20 20 20 20 52 3D 52 41 4E 4B 49 4E 45 22 |." R=RANKINE"|
00000270: 00 91 06 2C 01 99 22 46 4F 52 20 45 58 41 4D 50 |...,.."FOR EXAMP|
00000280: 4C 45 3A 20 33 30 2C 43 20 4F 52 20 34 35 2C 46 |LE: 30,C OR 45,F|
00000290: 22 00 B2 06 36 01 99 3A 99 22 45 4E 54 45 52 20 |"...6..:."ENTER |
000002A0: 54 45 4D 50 41 54 55 52 45 2C 53 43 41 4C 45 2D |TEMPATURE,SCALE-|
000002B0: 2D 22 00 BC 06 40 01 85 54 2C 53 24 00 CD 06 4A |-"...@..T,S$...J|
000002C0: 01 8B 53 24 B3 B1 22 43 22 89 33 38 30 00 D6 06 |..S$.."C".380...|
000002D0: 54 01 54 31 B2 54 00 E8 06 5E 01 54 32 B2 28 39 |T.T1.T...^.T2.(9|
000002E0: AD 35 29 AC 54 AA 33 32 00 F8 06 68 01 54 33 B2 |.5).T.32...h.T3.|
000002F0: 54 AA 32 37 33 2E 31 35 00 0D 07 72 01 54 34 B2 |T.273.15...r.T4.|
00000300: 28 39 AD 35 29 AC 54 33 3A 89 35 31 30 00 1E 07 |(9.5).T3:.510...|
00000310: 7C 01 8B 53 24 B3 B1 22 46 22 89 34 32 30 00 27 ||..S$.."F".420.'|
00000320: 07 86 01 54 32 B2 54 00 3B 07 90 01 54 31 B2 28 |...T2.T.;...T1.(|
00000330: 35 AD 39 29 AC 28 54 AB 33 32 29 00 49 07 9A 01 |5.9).(T.32).I...|
00000340: 54 B2 54 31 3A 89 33 36 30 00 5A 07 A4 01 8B 53 |T.T1:.360.Z....S|
00000350: 24 B3 B1 22 4B 22 89 34 37 30 00 63 07 AE 01 54 |$.."K".470.c...T|
00000360: 33 B2 54 00 72 07 B8 01 54 34 B2 28 39 AD 35 29 |3.T.r...T4.(9.5)|
00000370: AC 54 00 83 07 C2 01 54 32 B2 54 34 AB 34 35 39 |.T.....T2.T4.459|
00000380: 2E 36 37 00 9D 07 CC 01 54 31 B2 28 35 AD 39 29 |.67.....T1.(5.9)|
00000390: AC 28 54 32 AB 33 32 29 3A 89 35 31 30 00 AE 07 |.(T2.32):.510...|
000003A0: D6 01 8B 53 24 B3 B1 22 52 22 89 35 30 30 00 BD |...S$.."R".500..|
000003B0: 07 E0 01 54 33 B2 28 35 AD 39 29 AC 54 00 CB 07 |...T3.(5.9).T...|
000003C0: EA 01 54 34 B2 54 3A 89 34 35 30 00 F0 07 F4 01 |..T4.T:.450.....|
000003D0: 99 22 49 4E 50 55 54 20 45 52 52 4F 52 2C 20 54 |."INPUT ERROR, T|
000003E0: 52 59 20 41 47 41 49 4E 2D 2D 22 3A 89 32 35 30 |RY AGAIN--":.250|
000003F0: 00 11 08 FE 01 99 22 20 20 20 20 22 3B 54 31 3B |......" ";T1;|
00000400: 22 44 45 47 52 45 45 53 20 43 45 4C 53 49 55 53 |"DEGREES CELSIUS|
00000410: 22 00 35 08 08 02 99 22 20 20 20 20 22 3B 54 32 |".5...." ";T2|
00000420: 3B 22 44 45 47 52 45 45 53 20 46 41 48 52 45 4E |;"DEGREES FAHREN|
00000430: 48 45 49 54 22 00 55 08 12 02 99 22 20 20 20 20 |HEIT".U...." |
00000440: 22 3B 54 33 3B 22 44 45 47 52 45 45 53 20 4B 45 |";T3;"DEGREES KE|
00000450: 4C 56 49 4E 22 00 78 08 1C 02 99 22 20 20 20 20 |LVIN".x...." |
00000460: 22 3B 54 34 3B 22 44 45 47 52 45 45 53 20 52 41 |";T4;"DEGREES RA|
00000470: 4E 4B 49 4E 45 22 3A 99 00 98 08 26 02 99 22 54 |NKINE":....&.."T|
00000480: 52 59 20 41 47 41 49 4E 20 3F 20 28 59 20 4F 52 |RY AGAIN ? (Y OR|
00000490: 20 4E 29 22 3A 85 41 24 00 A8 08 30 02 8B 41 24 | N)":.A$...0..A$|
000004A0: B2 22 59 22 89 33 31 30 00 B9 08 3A 02 8B 41 24 |."Y".310...:..A$|
000004B0: B2 22 4E 22 89 31 33 38 30 00 E6 08 44 02 99 22 |."N".1380...D.."|
000004C0: 93 20 20 20 20 2A 2A 54 45 4D 50 45 52 41 54 55 |. **TEMPERATU|
000004D0: 52 45 20 48 55 4D 49 44 49 54 59 20 49 4E 44 45 |RE HUMIDITY INDE|
000004E0: 58 2A 2A 22 3A 99 00 2A 09 4E 02 99 22 49 4E 50 |X**":..*.N.."INP|
000004F0: 55 54 20 44 52 59 20 42 55 4C 42 2C 57 45 54 20 |UT DRY BULB,WET |
00000500: 42 55 4C 42 20 54 45 4D 50 53 20 49 4E 20 20 20 |BULB TEMPS IN |
00000510: 20 20 20 20 20 46 41 48 52 45 4E 48 45 49 54 20 | FAHRENHEIT |
00000520: 44 45 47 52 45 45 53 2D 2D 22 00 4B 09 58 02 99 |DEGREES--".K.X..|
00000530: 22 45 4E 54 45 52 20 54 45 4D 50 28 44 52 59 29 |"ENTER TEMP(DRY)|
00000540: 2C 54 45 4D 50 28 57 45 54 29 22 00 54 09 62 02 |,TEMP(WET)".T.b.|
00000550: 85 44 2C 57 00 69 09 6C 02 43 B2 30 2E 34 AC 28 |.D,W.i.l.C.0.4.(|
00000560: 44 AA 57 29 AA 31 35 3A 99 00 96 09 76 02 8F 2A |D.W).15:....v..*|
00000570: 2A 2A 54 2E 48 2E 49 2E 3D 54 45 4D 50 45 52 41 |**T.H.I.=TEMPERA|
00000580: 54 55 52 45 20 48 55 4D 49 44 49 54 59 20 49 4E |TURE HUMIDITY IN|
00000590: 44 45 58 2A 2A 2A 00 A7 09 80 02 99 22 54 2E 48 |DEX***......"T.H|
000005A0: 2E 49 2E 3D 22 3B 43 00 B5 09 8A 02 8B 43 B1 36 |.I.=";C......C.6|
000005B0: 30 89 36 37 30 00 D8 09 94 02 99 22 28 42 45 4C |0.670......"(BEL|
000005C0: 4F 57 20 43 4F 4D 46 4F 52 54 20 52 45 47 49 4F |OW COMFORT REGIO|
000005D0: 4E 29 22 3A 89 37 30 30 00 02 0A 9E 02 8B 43 B1 |N)":.700......C.|
000005E0: 37 30 89 36 38 30 3A 99 22 28 49 4E 20 43 4F 4D |70.680:."(IN COM|
000005F0: 46 4F 52 54 20 52 45 47 49 4F 4E 29 22 3A 89 37 |FORT REGION)":.7|
00000600: 30 30 00 33 0A A8 02 8B 43 B1 B2 38 30 89 36 39 |00.3....C..80.69|
00000610: 30 3A 99 22 28 4D 41 52 47 49 4E 41 4C 20 43 4F |0:."(MARGINAL CO|
00000620: 4D 46 4F 52 54 20 52 45 47 49 4F 4E 29 22 3A 89 |MFORT REGION)":.|
00000630: 37 30 30 00 70 0A B2 02 99 22 28 55 4E 43 4F 4D |700.p...."(UNCOM|
00000640: 46 4F 52 54 41 42 4C 45 20 52 45 47 49 4F 4E 29 |FORTABLE REGION)|
00000650: 22 3A 99 22 28 42 45 57 41 52 45 20 4F 46 20 48 |":."(BEWARE OF H|
00000660: 45 41 54 20 45 58 48 41 55 53 54 49 4F 4E 29 22 |EAT EXHAUSTION)"|
00000670: 00 92 0A BC 02 99 3A 99 22 54 52 59 20 41 47 41 |......:."TRY AGA|
00000680: 49 4E 20 3F 20 28 59 20 4F 52 20 4E 29 22 3A 85 |IN ? (Y OR N)":.|
00000690: 41 24 00 A2 0A C6 02 8B 41 24 B2 22 59 22 89 36 |A$......A$."Y".6|
000006A0: 30 30 00 B3 0A D0 02 8B 41 24 B2 22 4E 22 89 31 |00......A$."N".1|
000006B0: 33 38 30 00 DF 0A DA 02 99 22 93 20 20 20 20 20 |380......". |
000006C0: 2A 2A 57 49 4E 44 20 43 48 49 4C 4C 20 45 51 55 |**WIND CHILL EQU|
000006D0: 49 56 41 4C 45 4E 54 20 54 45 4D 50 2A 2A 22 00 |IVALENT TEMP**".|
000006E0: E5 0A E4 02 99 00 29 0B EE 02 99 22 49 4E 50 55 |......)...."INPU|
000006F0: 54 20 54 45 4D 50 20 49 4E 20 46 41 48 52 45 4E |T TEMP IN FAHREN|
00000700: 48 45 49 54 20 44 45 47 52 45 45 53 2C 20 41 4E |HEIT DEGREES, AN|
00000710: 44 20 20 20 57 49 4E 44 20 56 45 4C 4F 43 49 54 |D WIND VELOCIT|
00000720: 59 20 49 4E 20 4D 50 48 22 00 32 0B F8 02 85 44 |Y IN MPH".2....D|
00000730: 2C 55 00 43 0B 02 03 55 39 B2 55 AD 32 2E 32 33 |,U.C...U9.U.2.23|
00000740: 36 39 34 00 55 0B 0C 03 44 39 B2 35 AD 39 AC 28 |694.U...D9.5.9.(|
00000750: 44 AB 33 32 29 00 81 0B 16 03 51 B2 33 33 AB 28 |D.32).....Q.33.(|
00000760: 31 30 2E 34 35 AA 31 30 AC BA 28 55 39 29 AB 55 |10.45.10..(U9).U|
00000770: 39 29 AC 28 33 33 AB 44 39 29 AD 32 32 2E 30 33 |9).(33.D9).22.03|
00000780: 34 00 92 0B 20 03 51 B2 39 AD 35 AC 51 AA 33 32 |4... .Q.9.5.Q.32|
00000790: 3A 99 00 C3 0B 2A 03 99 22 45 51 55 49 56 41 4C |:....*.."EQUIVAL|
000007A0: 45 4E 54 20 57 49 4E 44 20 43 48 49 4C 4C 20 54 |ENT WIND CHILL T|
000007B0: 45 4D 50 3D 22 3B 51 3B 22 44 45 47 52 45 45 53 |EMP=";Q;"DEGREES|
000007C0: 22 3A 99 00 E3 0B 34 03 99 22 54 52 59 20 41 47 |":....4.."TRY AG|
000007D0: 41 49 4E 20 3F 20 28 59 20 4F 52 20 4E 29 22 3A |AIN ? (Y OR N)":|
000007E0: 85 41 24 00 F3 0B 3E 03 8B 41 24 B2 22 59 22 89 |.A$...>..A$."Y".|
000007F0: 37 35 30 00 04 0C 48 03 8B 41 24 B2 22 4E 22 89 |750...H..A$."N".|
00000800: 31 33 38 30 00 33 0C 52 03 99 22 93 20 20 20 20 |1380.3.R..". |
00000810: 20 2A 2A 52 45 4C 41 54 49 56 45 20 48 55 4D 49 | **RELATIVE HUMI|
00000820: 44 49 54 59 20 26 20 44 45 57 20 50 4F 49 4E 54 |DITY & DEW POINT|
00000830: 2A 2A 22 00 39 0C 5C 03 99 00 7B 0C 66 03 99 22 |**".9.\...{.f.."|
00000840: 49 4E 50 55 54 20 44 52 59 20 42 55 4C 42 2C 57 |INPUT DRY BULB,W|
00000850: 45 54 20 42 55 4C 42 20 54 45 4D 50 53 20 49 4E |ET BULB TEMPS IN|
00000860: 20 20 20 20 20 20 20 20 46 41 48 52 45 4E 48 45 | FAHRENHE|
00000870: 49 54 20 44 45 47 52 45 45 53 22 00 9C 0C 70 03 |IT DEGREES"...p.|
00000880: 99 22 45 4E 54 45 52 20 54 45 4D 50 28 44 52 59 |."ENTER TEMP(DRY|
00000890: 29 2C 54 45 4D 50 28 57 45 54 29 22 00 A9 0C 7A |),TEMP(WET)"...z|
000008A0: 03 85 44 31 2C 57 31 3A 99 00 D6 0C 84 03 99 22 |..D1,W1:......."|
000008B0: 55 53 45 20 53 54 41 4E 44 41 52 44 20 41 20 54 |USE STANDARD A T|
000008C0: 4D 20 50 52 45 53 53 55 52 45 20 3F 20 28 59 20 |M PRESSURE ? (Y |
000008D0: 4F 52 20 4E 29 22 00 DE 0C 8E 03 85 41 24 00 EE |OR N)"......A$..|
000008E0: 0C 98 03 8B 41 24 B2 22 59 22 89 39 37 30 00 32 |....A$."Y".970.2|
000008F0: 0D A2 03 99 22 45 4E 54 45 52 20 41 20 54 4D 20 |...."ENTER A TM |
00000900: 50 52 45 53 53 55 52 45 2C 53 43 41 4C 45 20 28 |PRESSURE,SCALE (|
00000910: 4D 3D 4D 49 4C 4C 49 42 41 52 53 2C 20 49 3D 49 |M=MILLIBARS, I=I|
00000920: 4E 43 48 45 53 20 4F 46 20 4D 45 52 43 55 52 59 |NCHES OF MERCURY|
00000930: 29 22 00 3C 0D AC 03 85 41 2C 48 24 00 4C 0D B6 |)".<....A,H$.L..|
00000940: 03 8B 48 24 B2 22 4D 22 89 39 38 30 00 62 0D C0 |..H$."M".980.b..|
00000950: 03 41 B2 41 AD 30 2E 37 35 30 30 36 32 3A 89 39 |.A.A.0.750062:.9|
00000960: 38 30 00 70 0D CA 03 41 B2 31 30 31 33 2E 32 36 |80.p...A.1013.26|
00000970: 00 7D 0D D4 03 53 B2 33 37 33 2E 31 36 00 8A 0D |.}...S.373.16...|
00000980: DE 03 49 B2 32 37 33 2E 31 36 00 93 0D E8 03 54 |..I.273.16.....T|
00000990: B2 44 31 00 9D 0D F2 03 8D 31 32 34 30 00 B1 0D |.D1......1240...|
000009A0: FC 03 44 32 B2 54 32 3A 45 31 B2 45 3A 54 B2 57 |..D2.T2:E1.E:T.W|
000009B0: 31 00 BB 0D 06 04 8D 31 32 34 30 00 CA 0D 10 04 |1......1240.....|
000009C0: 57 32 B2 54 32 3A 45 32 B2 45 00 F2 0D 1A 04 45 |W2.T2:E2.E.....E|
000009D0: 33 B2 41 AC 28 44 32 AB 57 32 29 AC 28 2E 30 30 |3.A.(D2.W2).(.00|
000009E0: 30 36 36 AC 28 31 AA 2E 30 30 31 31 35 AC 57 32 |066.(1..00115.W2|
000009F0: 29 29 00 14 0E 24 04 48 B2 31 30 30 AC 28 45 32 |))...$.H.100.(E2|
00000A00: AB 45 33 29 AD 45 31 3A 50 B2 45 32 AB 45 33 3A |.E3).E1:P.E2.E3:|
00000A10: 54 B2 44 31 00 1E 0E 2E 04 8D 31 32 34 30 00 2C |T.D1......1240.,|
00000A20: 0E 38 04 8B 45 B2 50 89 31 31 32 30 00 38 0E 42 |.8..E.P.1120.8.B|
00000A30: 04 54 B2 54 AB 30 2E 31 00 42 0E 4C 04 8D 31 32 |.T.T.0.1.B.L..12|
00000A40: 34 30 00 50 0E 56 04 8B 45 B1 50 89 31 30 39 30 |40.P.V..E.P.1090|
00000A50: 00 64 0E 60 04 4E 39 B2 B5 28 54 29 3A 4E 35 B2 |.d.`.N9..(T):N5.|
00000A60: 54 AB 4E 39 00 76 0E 6A 04 8B 4E 35 B1 B2 30 2E |T.N9.v.j..N5..0.|
00000A70: 35 89 31 31 35 30 00 85 0E 74 04 54 B2 4E 39 3A |5.1150...t.T.N9:|
00000A80: 89 31 31 36 30 00 94 0E 7E 04 54 B2 B5 28 54 AA |.1160...~.T..(T.|
00000A90: 30 2E 35 29 00 9C 0E 88 04 99 3A 99 00 B6 0E 92 |0.5)......:.....|
00000AA0: 04 99 22 20 20 20 20 20 54 45 4D 50 28 44 52 59 |.." TEMP(DRY|
00000AB0: 29 3D 22 3B 44 31 00 D0 0E 9C 04 99 22 20 20 20 |)=";D1......" |
00000AC0: 20 20 54 45 4D 50 28 57 45 54 29 3D 22 3B 57 31 | TEMP(WET)=";W1|
00000AD0: 00 E9 0E A6 04 99 22 54 45 4D 50 20 44 45 57 20 |......"TEMP DEW |
00000AE0: 50 4F 49 4E 54 3D 22 3B 54 00 04 0F B0 04 99 22 |POINT=";T......"|
00000AF0: 20 20 52 45 4C 20 48 55 4D 49 44 49 54 59 3D 22 | REL HUMIDITY="|
00000B00: 3B 48 3A 99 00 24 0F BA 04 99 22 54 52 59 20 41 |;H:..$...."TRY A|
00000B10: 47 41 49 4E 20 3F 20 28 59 20 4F 52 20 4E 29 22 |GAIN ? (Y OR N)"|
00000B20: 3A 85 41 24 00 34 0F C4 04 8B 41 24 B2 22 59 22 |:.A$.4....A$."Y"|
00000B30: 89 38 36 30 00 45 0F CE 04 8B 41 24 B2 22 4E 22 |.860.E....A$."N"|
00000B40: 89 31 33 38 30 00 64 0F D8 04 54 32 B2 35 AD 39 |.1380.d...T2.5.9|
00000B50: AC 28 54 AB 33 32 29 3A 54 33 B2 54 32 AA 32 37 |.(T.32):T3.T2.27|
00000B60: 33 2E 31 35 00 74 0F E2 04 8B 54 B3 B2 33 32 89 |3.15.t....T..32.|
00000B70: 31 33 32 30 00 8C 0F EC 04 56 B2 AB 37 2E 39 30 |1320.....V..7.90|
00000B80: 32 39 38 AC 28 53 AD 54 33 AB 31 29 00 A2 0F F6 |298.(S.T3.1)....|
00000B90: 04 57 B2 35 2E 30 32 38 30 38 AC BC 28 53 AD 54 |.W.5.02808..(S.T|
00000BA0: 33 29 00 CF 0F 00 05 58 B2 AB 2E 30 30 30 30 30 |3).....X...00000|
00000BB0: 30 31 33 38 31 36 AC 28 31 30 AE 28 31 31 2E 33 |013816.(10.(11.3|
00000BC0: 34 34 AC 28 31 AB 54 33 AD 53 29 29 AB 31 29 00 |44.(1.T3.S)).1).|
00000BD0: F9 0F 0A 05 59 B2 2E 30 30 38 31 33 32 38 AC 28 |....Y..0081328.(|
00000BE0: 31 30 AE 28 AB 33 2E 34 39 31 34 39 AC 28 53 AD |10.(.3.49149.(S.|
00000BF0: 54 33 AB 31 29 29 AB 31 29 00 12 10 14 05 45 39 |T3.1)).1).....E9|
00000C00: B2 56 AA 57 AA 58 AA 59 AA 33 2E 30 30 35 37 32 |.V.W.X.Y.3.00572|
00000C10: 30 39 00 22 10 1E 05 45 B2 31 30 AE 28 45 39 29 |09."...E.10.(E9)|
00000C20: 3A 8E 00 3A 10 28 05 56 B2 AB 39 2E 30 39 37 31 |:..:.(.V..9.0971|
00000C30: 38 AC 28 49 AD 54 33 AB 31 29 00 51 10 32 05 57 |8.(I.T3.1).Q.2.W|
00000C40: B2 AB 33 2E 35 36 36 35 34 AC BC 28 49 AD 54 33 |..3.56654..(I.T3|
00000C50: 29 00 68 10 3C 05 58 B2 2E 38 37 36 37 39 33 AC |).h.<.X..876793.|
00000C60: 28 31 AB 54 33 AD 49 29 00 7D 10 46 05 45 39 B2 |(1.T3.I).}.F.E9.|
00000C70: 56 AA 57 AA 58 AA 2E 37 38 35 38 33 35 00 8B 10 |V.W.X..785835...|
00000C80: 50 05 45 B2 31 30 AE 28 45 39 29 00 91 10 5A 05 |P.E.10.(E9)...Z.|
00000C90: 8E 00 B5 10 64 05 99 22 4E 45 57 20 53 45 4C 45 |....d.."NEW SELE|
00000CA0: 43 54 49 4F 4E 20 3F 20 28 59 20 4F 52 20 4E 29 |CTION ? (Y OR N)|
00000CB0: 22 3A 85 41 24 00 C5 10 6E 05 8B 41 24 B2 22 59 |":.A$...n..A$."Y|
00000CC0: 22 89 31 33 30 00 CB 10 78 05 80 00 00 00 82 |".130...x...... |
....D..***WEATHERMAN***.<.N..***WRITTEN
BY GLENN PRESCOTT***.D.X..***REVISED FOR
BY ED MARCHESCHI***......"...........**
*WEATHERMAN***"......:..D...."SELECT THE
PORTION OF THE PROGRAM YOU WANT:"...
...4)"1. TEMPERATURE CONVERSION".......4
)"2. TEMPERATURE HUMIDITY INDEX".?.....4
)"3. WIND CHILL EQUIVALENT TEMPERATURE".
M.....4)".4. RELATIVE HUMIDITY AND DEW P
OINT"...H..:."ENTER YOUR SELECTION--"...
R..S......:.......S.240,580,730,850.....
."........**TEMPERATURE CONVERSION**":..
....."INPUT TEMPERATURE AND SCALE SEPARA
TED BY A COMMA."./...."LET C=CELSIUS".
G...." F=FAHRENHEIT".[...." K=KELV
IN".P.".." R=RANKINE"...,.."FOR EXAMP
LE: 30,C OR 45,F"...6..:."ENTER TEMPATUR
E,SCALE--"...@..T,S$.M.J..S$.."C".380.V.
T.T1.T...^.T2.(9.5).T.32...H.T3.T.273.15
...R.T4.(9.5).T3:.510...|..S$.."F".420.'
...T2.T.;...T1.(5.9).(T.32).I...T.T1:.36
0.Z....S$.."K".470.C...T3.T.R...T4.(9.5)
.T...B.T2.T4.459.67...L.T1.(5.9).(T2.32)
:.510...V..S$.."R".500.....T3.(5.9).T.K.
..T4.T:.450......"INPUT ERROR, TRY AGAIN
--":.250......" ";T1;"DEGREES CELSIUS
".5...." ";T2;"DEGREES FAHRENHEIT".U.
..." ";T3;"DEGREES KELVIN".X...."
";T4;"DEGREES RANKINE":....&.."TRY AGAIN
? (Y OR N)":.A$...0..A$."Y".310...:..A$
."N".1380...D..". **TEMPERATURE HUMID
ITY INDEX**":..*.N.."INPUT DRY BULB,WET
BULB TEMPS IN FAHRENHEIT DEGREES-
-".K.X.."ENTER TEMP(DRY),TEMP(WET)".T.B.
.D,W.I.L.C.0.4.(D.W).15:....V..***T.H.I.
=TEMPERATURE HUMIDITY INDEX***......"T.H
.I.=";C......C.60.670.X...."(BELOW COMFO
RT REGION)":.700......C.70.680:."(IN COM
FORT REGION)":.700.3....C..80.690:."(MAR
GINAL COMFORT REGION)":.700.P...."(UNCOM
FORTABLE REGION)":."(BEWARE OF HEAT EXHA
USTION)"......:."TRY AGAIN ? (Y OR N)":.
A$...F..A$."Y".600...P..A$."N".1380...Z.
.". **WIND CHILL EQUIVALENT TEMP**".
......)...."INPUT TEMP IN FAHRENHEIT DEG
REES, AND WIND VELOCITY IN MPH".2....D
,U.C...U9.U.2.23694.U...D9.5.9.(D.32)...
..Q.33.(10.45.10..(U9).U9).(33.D9).22.03
4... .Q.9.5.Q.32:..C.*.."EQUIVALENT WIND
CHILL TEMP=";Q;"DEGREES":....4.."TRY AG
AIN ? (Y OR N)":.A$...>..A$."Y".750...H.
.A$."N".1380.3.R..". **RELATIVE HUMI
DITY & DEW POINT**".9.\...{.F.."INPUT DR
Y BULB,WET BULB TEMPS IN FAHRENHE
IT DEGREES"...P.."ENTER TEMP(DRY),TEMP(W
ET)"...Z..D1,W1:..V...."USE STANDARD A T
M PRESSURE ? (Y OR N)"......A$......A$."
Y".970.2...."ENTER A TM PRESSURE,SCALE (
M=MILLIBARS, I=INCHES OF MERCURY)".<....
A,H$.L....H$."M".980.B...A.A.0.750062:.9
80.P.J.A.1013.26.}.T.S.373.16.....I.273.
16.....T.D1......1240.....D2.T2:E1.E:T.W
1......1240.J...W2.T2:E2.E.....E3.A.(D2.
W2).(.00066.(1..00115.W2))...$.H.100.(E2
.E3).E1:P.E2.E3:T.D1......1240.,.8..E.P.
1120.8.B.T.T.0.1.B.L..1240.P.V..E.P.1090
.D.`.N9..(T):N5.T.N9.V.J..N5..0.5.1150..
.T.T.N9:.1160...~.T..(T.0.5)......:.....
.." TEMP(DRY)=";D1.P...." TEMP(W
ET)=";W1......"TEMP DEW POINT=";T......"
REL HUMIDITY=";H:..$...."TRY AGAIN ? (
Y OR N)":.A$.4.D..A$."Y".860.E.N..A$."N"
.1380.D.X.T2.5.9.(T.32):T3.T2.273.15.T..
..T..32.1320.....V..7.90298.(S.T3.1)....
.W.5.02808..(S.T3).O...X...00000013816.(
10.(11.344.(1.T3.S)).1).....Y..0081328.(
10.(.3.49149.(S.T3.1)).1).....E9.V.W.X.Y
.3.0057209."...E.10.(E9):..:.(.V..9.0971
8.(I.T3.1).Q.2.W..3.56654..(I.T3).H.<.X.
.876793.(1.T3.I).}.F.E9.V.W.X..785835...
P.E.10.(E9)...Z.....D.."NEW SELECTION ?
(Y OR N)":.A$.E.N..A$."Y".130.K.X......
> CLICK IMAGE PREVIEW FOR FULL MODAL