TEMP. CONV.
FILE INFORMATION
FILENAME(S): TEMP. CONV.
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-10-20 14:37:21
APPEARS ON: 1 disk(s)
FILE HASH
fe7e1571bfdf02844b70c17e263fda8fa297806e821bf82062b8e560df8c51a0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 COLLECTION 2 | TEMP. CONV. | PRG | Treasure Chest - LehrerMIL | 35 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 64 00 8F 2A 2A 2A 57 45 41 54 48 45 |....d..***WEATHE| 00000010: 52 4D 41 4E 2A 2A 2A 00 3C 08 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 88 08 78 | PRESCOTT***...x| 00000040: 00 8F 2A 2A 2A 52 45 56 49 53 45 44 20 42 59 20 |..***REVISED BY | 00000050: 45 44 20 4D 41 52 43 48 45 53 43 48 49 2A 2A 2A |ED MARCHESCHI***| 00000060: 20 20 20 20 20 20 20 20 20 20 2A 2A 43 36 34 20 | **C64 | 00000070: 43 48 41 4E 47 45 53 20 33 2F 31 2F 38 33 20 42 |CHANGES 3/1/83 B| 00000080: 59 20 57 49 4D 2A 2A 2A 00 BE 08 82 00 97 35 33 |Y WIM***......53| 00000090: 32 38 30 2C 31 3A 97 35 33 32 38 31 2C 31 3A 99 |280,1:.53281,1:.| 000000A0: 22 90 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 2A 2A 2A |"............***| 000000B0: 57 45 41 54 48 45 52 4D 41 4E 2A 2A 2A 22 00 C6 |WEATHERMAN***"..| 000000C0: 08 8C 00 99 3A 99 00 FB 08 96 00 99 22 53 45 4C |....:......."SEL| 000000D0: 45 43 54 20 54 48 45 20 50 4F 52 54 49 4F 4E 20 |ECT THE PORTION | 000000E0: 4F 46 20 54 48 45 20 50 52 4F 47 52 41 4D 20 59 |OF THE PROGRAM Y| 000000F0: 4F 55 20 20 20 57 41 4E 54 3A 22 00 1F 09 A0 00 |OU WANT:".....| 00000100: 99 A3 34 29 22 31 2E 20 54 45 4D 50 45 52 41 54 |..4)"1. TEMPERAT| 00000110: 55 52 45 20 43 4F 4E 56 45 52 53 49 4F 4E 22 00 |URE CONVERSION".| 00000120: 47 09 AA 00 99 A3 34 29 22 32 2E 20 54 45 4D 50 |G.....4)"2. TEMP| 00000130: 45 52 41 54 55 52 45 20 48 55 4D 49 44 49 54 59 |ERATURE HUMIDITY| 00000140: 20 49 4E 44 45 58 22 00 76 09 B4 00 99 A3 34 29 | INDEX".v.....4)| 00000150: 22 33 2E 20 57 49 4E 44 20 43 48 49 4C 4C 20 45 |"3. WIND CHILL E| 00000160: 51 55 49 56 41 4C 45 4E 54 20 54 45 4D 50 45 52 |QUIVALENT TEMPER| 00000170: 41 54 55 52 45 22 00 A4 09 BE 00 99 A3 34 29 22 |ATURE".......4)"| 00000180: 91 34 2E 20 52 45 4C 41 54 49 56 45 20 48 55 4D |.4. RELATIVE HUM| 00000190: 49 44 49 54 59 20 41 4E 44 20 44 45 57 20 50 4F |IDITY AND DEW PO| 000001A0: 49 4E 54 22 00 C4 09 C8 00 99 3A 99 22 45 4E 54 |INT"......:."ENT| 000001B0: 45 52 20 59 4F 55 52 20 53 45 4C 45 43 54 49 4F |ER YOUR SELECTIO| 000001C0: 4E 2D 2D 22 00 CB 09 D2 00 85 53 00 D3 09 DC 00 |N--"......S.....| 000001D0: 99 3A 99 00 EA 09 E6 00 91 53 89 32 34 30 2C 35 |.:.......S.240,5| 000001E0: 38 30 2C 37 33 30 2C 38 35 30 00 16 0A F0 00 99 |80,730,850......| 000001F0: 22 93 1D 1D 1D 1D 1D 1D 1D 2A 2A 54 45 4D 50 45 |"........**TEMPE| 00000200: 52 41 54 55 52 45 20 43 4F 4E 56 45 52 53 49 4F |RATURE CONVERSIO| 00000210: 4E 2A 2A 22 3A 99 00 51 0A FA 00 99 22 49 4E 50 |N**":..Q...."INP| 00000220: 55 54 20 54 45 4D 50 45 52 41 54 55 52 45 20 41 |UT TEMPERATURE A| 00000230: 4E 44 20 53 43 41 4C 45 20 53 45 50 41 52 41 54 |ND SCALE SEPARAT| 00000240: 45 44 20 20 20 42 59 20 41 20 43 4F 4D 4D 41 2E |ED BY A COMMA.| 00000250: 22 00 66 0A 04 01 99 22 4C 45 54 20 43 3D 43 45 |".f...."LET C=CE| 00000260: 4C 53 49 55 53 22 00 7E 0A 0E 01 99 22 20 20 20 |LSIUS".~...." | 00000270: 20 46 3D 46 41 48 52 45 4E 48 45 49 54 22 00 92 | F=FAHRENHEIT"..| 00000280: 0A 18 01 99 22 20 20 20 20 4B 3D 4B 45 4C 56 49 |...." K=KELVI| 00000290: 4E 22 00 A7 0A 22 01 99 22 20 20 20 20 52 3D 52 |N"...".." R=R| 000002A0: 41 4E 4B 49 4E 45 22 00 C8 0A 2C 01 99 22 46 4F |ANKINE"...,.."FO| 000002B0: 52 20 45 58 41 4D 50 4C 45 3A 20 33 30 2C 43 20 |R EXAMPLE: 30,C | 000002C0: 4F 52 20 34 35 2C 46 22 00 E9 0A 36 01 99 3A 99 |OR 45,F"...6..:.| 000002D0: 22 45 4E 54 45 52 20 54 45 4D 50 41 54 55 52 45 |"ENTER TEMPATURE| 000002E0: 2C 53 43 41 4C 45 2D 2D 22 00 F3 0A 40 01 85 54 |,SCALE--"...@..T| 000002F0: 2C 53 24 00 04 0B 4A 01 8B 53 24 B3 B1 22 43 22 |,S$...J..S$.."C"| 00000300: 89 33 38 30 00 0D 0B 54 01 54 31 B2 54 00 1F 0B |.380...T.T1.T...| 00000310: 5E 01 54 32 B2 28 39 AD 35 29 AC 54 AA 33 32 00 |^.T2.(9.5).T.32.| 00000320: 2F 0B 68 01 54 33 B2 54 AA 32 37 33 2E 31 35 00 |/.h.T3.T.273.15.| 00000330: 44 0B 72 01 54 34 B2 28 39 AD 35 29 AC 54 33 3A |D.r.T4.(9.5).T3:| 00000340: 89 35 31 30 00 55 0B 7C 01 8B 53 24 B3 B1 22 46 |.510.U.|..S$.."F| 00000350: 22 89 34 32 30 00 5E 0B 86 01 54 32 B2 54 00 72 |".420.^...T2.T.r| 00000360: 0B 90 01 54 31 B2 28 35 AD 39 29 AC 28 54 AB 33 |...T1.(5.9).(T.3| 00000370: 32 29 00 80 0B 9A 01 54 B2 54 31 3A 89 33 36 30 |2).....T.T1:.360| 00000380: 00 91 0B A4 01 8B 53 24 B3 B1 22 4B 22 89 34 37 |......S$.."K".47| 00000390: 30 00 9A 0B AE 01 54 33 B2 54 00 A9 0B B8 01 54 |0.....T3.T.....T| 000003A0: 34 B2 28 39 AD 35 29 AC 54 00 BA 0B C2 01 54 32 |4.(9.5).T.....T2| 000003B0: B2 54 34 AB 34 35 39 2E 36 37 00 D4 0B CC 01 54 |.T4.459.67.....T| 000003C0: 31 B2 28 35 AD 39 29 AC 28 54 32 AB 33 32 29 3A |1.(5.9).(T2.32):| 000003D0: 89 35 31 30 00 E5 0B D6 01 8B 53 24 B3 B1 22 52 |.510......S$.."R| 000003E0: 22 89 35 30 30 00 F4 0B E0 01 54 33 B2 28 35 AD |".500.....T3.(5.| 000003F0: 39 29 AC 54 00 02 0C EA 01 54 34 B2 54 3A 89 34 |9).T.....T4.T:.4| 00000400: 35 30 00 27 0C F4 01 99 22 49 4E 50 55 54 20 45 |50.'...."INPUT E| 00000410: 52 52 4F 52 2C 20 54 52 59 20 41 47 41 49 4E 2D |RROR, TRY AGAIN-| 00000420: 2D 22 3A 89 32 35 30 00 48 0C FE 01 99 22 20 20 |-":.250.H...." | 00000430: 20 20 22 3B 54 31 3B 22 44 45 47 52 45 45 53 20 | ";T1;"DEGREES | 00000440: 43 45 4C 53 49 55 53 22 00 6C 0C 08 02 99 22 20 |CELSIUS".l...." | 00000450: 20 20 20 22 3B 54 32 3B 22 44 45 47 52 45 45 53 | ";T2;"DEGREES| 00000460: 20 46 41 48 52 45 4E 48 45 49 54 22 00 8C 0C 12 | FAHRENHEIT"....| 00000470: 02 99 22 20 20 20 20 22 3B 54 33 3B 22 44 45 47 |.." ";T3;"DEG| 00000480: 52 45 45 53 20 4B 45 4C 56 49 4E 22 00 AF 0C 1C |REES KELVIN"....| 00000490: 02 99 22 20 20 20 20 22 3B 54 34 3B 22 44 45 47 |.." ";T4;"DEG| 000004A0: 52 45 45 53 20 52 41 4E 4B 49 4E 45 22 3A 99 00 |REES RANKINE":..| 000004B0: CF 0C 26 02 99 22 54 52 59 20 41 47 41 49 4E 20 |..&.."TRY AGAIN | 000004C0: 3F 20 28 59 20 4F 52 20 4E 29 22 3A 85 41 24 00 |? (Y OR N)":.A$.| 000004D0: DF 0C 30 02 8B 41 24 B2 22 59 22 89 33 31 30 00 |..0..A$."Y".310.| 000004E0: F0 0C 3A 02 8B 41 24 B2 22 4E 22 89 31 33 38 30 |..:..A$."N".1380| 000004F0: 00 1D 0D 44 02 99 22 93 20 20 20 20 2A 2A 54 45 |...D..". **TE| 00000500: 4D 50 45 52 41 54 55 52 45 20 48 55 4D 49 44 49 |MPERATURE HUMIDI| 00000510: 54 59 20 49 4E 44 45 58 2A 2A 22 3A 99 00 61 0D |TY INDEX**":..a.| 00000520: 4E 02 99 22 49 4E 50 55 54 20 44 52 59 20 42 55 |N.."INPUT DRY BU| 00000530: 4C 42 2C 57 45 54 20 42 55 4C 42 20 54 45 4D 50 |LB,WET BULB TEMP| 00000540: 53 20 49 4E 20 20 20 20 20 20 20 20 46 41 48 52 |S IN FAHR| 00000550: 45 4E 48 45 49 54 20 44 45 47 52 45 45 53 2D 2D |ENHEIT DEGREES--| 00000560: 22 00 82 0D 58 02 99 22 45 4E 54 45 52 20 54 45 |"...X.."ENTER TE| 00000570: 4D 50 28 44 52 59 29 2C 54 45 4D 50 28 57 45 54 |MP(DRY),TEMP(WET| 00000580: 29 22 00 8B 0D 62 02 85 44 2C 57 00 A0 0D 6C 02 |)"...b..D,W...l.| 00000590: 43 B2 30 2E 34 AC 28 44 AA 57 29 AA 31 35 3A 99 |C.0.4.(D.W).15:.| 000005A0: 00 CD 0D 76 02 8F 2A 2A 2A 54 2E 48 2E 49 2E 3D |...v..***T.H.I.=| 000005B0: 54 45 4D 50 45 52 41 54 55 52 45 20 48 55 4D 49 |TEMPERATURE HUMI| 000005C0: 44 49 54 59 20 49 4E 44 45 58 2A 2A 2A 00 DE 0D |DITY INDEX***...| 000005D0: 80 02 99 22 54 2E 48 2E 49 2E 3D 22 3B 43 00 EC |..."T.H.I.=";C..| 000005E0: 0D 8A 02 8B 43 B1 36 30 89 36 37 30 00 0F 0E 94 |....C.60.670....| 000005F0: 02 99 22 28 42 45 4C 4F 57 20 43 4F 4D 46 4F 52 |.."(BELOW COMFOR| 00000600: 54 20 52 45 47 49 4F 4E 29 22 3A 89 37 30 30 00 |T REGION)":.700.| 00000610: 39 0E 9E 02 8B 43 B1 37 30 89 36 38 30 3A 99 22 |9....C.70.680:."| 00000620: 28 49 4E 20 43 4F 4D 46 4F 52 54 20 52 45 47 49 |(IN COMFORT REGI| 00000630: 4F 4E 29 22 3A 89 37 30 30 00 6A 0E A8 02 8B 43 |ON)":.700.j....C| 00000640: B1 B2 38 30 89 36 39 30 3A 99 22 28 4D 41 52 47 |..80.690:."(MARG| 00000650: 49 4E 41 4C 20 43 4F 4D 46 4F 52 54 20 52 45 47 |INAL COMFORT REG| 00000660: 49 4F 4E 29 22 3A 89 37 30 30 00 A7 0E B2 02 99 |ION)":.700......| 00000670: 22 28 55 4E 43 4F 4D 46 4F 52 54 41 42 4C 45 20 |"(UNCOMFORTABLE | 00000680: 52 45 47 49 4F 4E 29 22 3A 99 22 28 42 45 57 41 |REGION)":."(BEWA| 00000690: 52 45 20 4F 46 20 48 45 41 54 20 45 58 48 41 55 |RE OF HEAT EXHAU| 000006A0: 53 54 49 4F 4E 29 22 00 C9 0E BC 02 99 3A 99 22 |STION)"......:."| 000006B0: 54 52 59 20 41 47 41 49 4E 20 3F 20 28 59 20 4F |TRY AGAIN ? (Y O| 000006C0: 52 20 4E 29 22 3A 85 41 24 00 D9 0E C6 02 8B 41 |R N)":.A$......A| 000006D0: 24 B2 22 59 22 89 36 30 30 00 EA 0E D0 02 8B 41 |$."Y".600......A| 000006E0: 24 B2 22 4E 22 89 31 33 38 30 00 16 0F DA 02 99 |$."N".1380......| 000006F0: 22 93 20 20 20 20 20 2A 2A 57 49 4E 44 20 43 48 |". **WIND CH| 00000700: 49 4C 4C 20 45 51 55 49 56 41 4C 45 4E 54 20 54 |ILL EQUIVALENT T| 00000710: 45 4D 50 2A 2A 22 00 1C 0F E4 02 99 00 60 0F EE |EMP**".......`..| 00000720: 02 99 22 49 4E 50 55 54 20 54 45 4D 50 20 49 4E |.."INPUT TEMP IN| 00000730: 20 46 41 48 52 45 4E 48 45 49 54 20 44 45 47 52 | FAHRENHEIT DEGR| 00000740: 45 45 53 2C 20 41 4E 44 20 20 20 57 49 4E 44 20 |EES, AND WIND | 00000750: 56 45 4C 4F 43 49 54 59 20 49 4E 20 4D 50 48 22 |VELOCITY IN MPH"| 00000760: 00 69 0F F8 02 85 44 2C 55 00 7A 0F 02 03 55 39 |.i....D,U.z...U9| 00000770: B2 55 AD 32 2E 32 33 36 39 34 00 8C 0F 0C 03 44 |.U.2.23694.....D| 00000780: 39 B2 35 AD 39 AC 28 44 AB 33 32 29 00 B8 0F 16 |9.5.9.(D.32)....| 00000790: 03 51 B2 33 33 AB 28 31 30 2E 34 35 AA 31 30 AC |.Q.33.(10.45.10.| 000007A0: BA 28 55 39 29 AB 55 39 29 AC 28 33 33 AB 44 39 |.(U9).U9).(33.D9| 000007B0: 29 AD 32 32 2E 30 33 34 00 C9 0F 20 03 51 B2 39 |).22.034... .Q.9| 000007C0: AD 35 AC 51 AA 33 32 3A 99 00 FA 0F 2A 03 99 22 |.5.Q.32:....*.."| 000007D0: 45 51 55 49 56 41 4C 45 4E 54 20 57 49 4E 44 20 |EQUIVALENT WIND | 000007E0: 43 48 49 4C 4C 20 54 45 4D 50 3D 22 3B 51 3B 22 |CHILL TEMP=";Q;"| 000007F0: 44 45 47 52 45 45 53 22 3A 99 00 1A 10 34 03 99 |DEGREES":....4..| 00000800: 22 54 52 59 20 41 47 41 49 4E 20 3F 20 28 59 20 |"TRY AGAIN ? (Y | 00000810: 4F 52 20 4E 29 22 3A 85 41 24 00 2A 10 3E 03 8B |OR N)":.A$.*.>..| 00000820: 41 24 B2 22 59 22 89 37 35 30 00 3B 10 48 03 8B |A$."Y".750.;.H..| 00000830: 41 24 B2 22 4E 22 89 31 33 38 30 00 6A 10 52 03 |A$."N".1380.j.R.| 00000840: 99 22 93 20 20 20 20 20 2A 2A 52 45 4C 41 54 49 |.". **RELATI| 00000850: 56 45 20 48 55 4D 49 44 49 54 59 20 26 20 44 45 |VE HUMIDITY & DE| 00000860: 57 20 50 4F 49 4E 54 2A 2A 22 00 70 10 5C 03 99 |W POINT**".p.\..| 00000870: 00 B2 10 66 03 99 22 49 4E 50 55 54 20 44 52 59 |...f.."INPUT DRY| 00000880: 20 42 55 4C 42 2C 57 45 54 20 42 55 4C 42 20 54 | BULB,WET BULB T| 00000890: 45 4D 50 53 20 49 4E 20 20 20 20 20 20 20 20 46 |EMPS IN F| 000008A0: 41 48 52 45 4E 48 45 49 54 20 44 45 47 52 45 45 |AHRENHEIT DEGREE| 000008B0: 53 22 00 D3 10 70 03 99 22 45 4E 54 45 52 20 54 |S"...p.."ENTER T| 000008C0: 45 4D 50 28 44 52 59 29 2C 54 45 4D 50 28 57 45 |EMP(DRY),TEMP(WE| 000008D0: 54 29 22 00 E0 10 7A 03 85 44 31 2C 57 31 3A 99 |T)"...z..D1,W1:.| 000008E0: 00 0D 11 84 03 99 22 55 53 45 20 53 54 41 4E 44 |......"USE STAND| 000008F0: 41 52 44 20 41 20 54 4D 20 50 52 45 53 53 55 52 |ARD A TM PRESSUR| 00000900: 45 20 3F 20 28 59 20 4F 52 20 4E 29 22 00 15 11 |E ? (Y OR N)"...| 00000910: 8E 03 85 41 24 00 25 11 98 03 8B 41 24 B2 22 59 |...A$.%....A$."Y| 00000920: 22 89 39 37 30 00 69 11 A2 03 99 22 45 4E 54 45 |".970.i...."ENTE| 00000930: 52 20 41 20 54 4D 20 50 52 45 53 53 55 52 45 2C |R A TM PRESSURE,| 00000940: 53 43 41 4C 45 20 28 4D 3D 4D 49 4C 4C 49 42 41 |SCALE (M=MILLIBA| 00000950: 52 53 2C 20 49 3D 49 4E 43 48 45 53 20 4F 46 20 |RS, I=INCHES OF | 00000960: 4D 45 52 43 55 52 59 29 22 00 73 11 AC 03 85 41 |MERCURY)".s....A| 00000970: 2C 48 24 00 83 11 B6 03 8B 48 24 B2 22 4D 22 89 |,H$......H$."M".| 00000980: 39 38 30 00 99 11 C0 03 41 B2 41 AD 30 2E 37 35 |980.....A.A.0.75| 00000990: 30 30 36 32 3A 89 39 38 30 00 A7 11 CA 03 41 B2 |0062:.980.....A.| 000009A0: 31 30 31 33 2E 32 36 00 B4 11 D4 03 53 B2 33 37 |1013.26.....S.37| 000009B0: 33 2E 31 36 00 C1 11 DE 03 49 B2 32 37 33 2E 31 |3.16.....I.273.1| 000009C0: 36 00 CA 11 E8 03 54 B2 44 31 00 D4 11 F2 03 8D |6.....T.D1......| 000009D0: 31 32 34 30 00 E8 11 FC 03 44 32 B2 54 32 3A 45 |1240.....D2.T2:E| 000009E0: 31 B2 45 3A 54 B2 57 31 00 F2 11 06 04 8D 31 32 |1.E:T.W1......12| 000009F0: 34 30 00 01 12 10 04 57 32 B2 54 32 3A 45 32 B2 |40.....W2.T2:E2.| 00000A00: 45 00 29 12 1A 04 45 33 B2 41 AC 28 44 32 AB 57 |E.)...E3.A.(D2.W| 00000A10: 32 29 AC 28 2E 30 30 30 36 36 AC 28 31 AA 2E 30 |2).(.00066.(1..0| 00000A20: 30 31 31 35 AC 57 32 29 29 00 4B 12 24 04 48 B2 |0115.W2)).K.$.H.| 00000A30: 31 30 30 AC 28 45 32 AB 45 33 29 AD 45 31 3A 50 |100.(E2.E3).E1:P| 00000A40: B2 45 32 AB 45 33 3A 54 B2 44 31 00 55 12 2E 04 |.E2.E3:T.D1.U...| 00000A50: 8D 31 32 34 30 00 63 12 38 04 8B 45 B2 50 89 31 |.1240.c.8..E.P.1| 00000A60: 31 32 30 00 6F 12 42 04 54 B2 54 AB 30 2E 31 00 |120.o.B.T.T.0.1.| 00000A70: 79 12 4C 04 8D 31 32 34 30 00 87 12 56 04 8B 45 |y.L..1240...V..E| 00000A80: B1 50 89 31 30 39 30 00 9B 12 60 04 4E 39 B2 B5 |.P.1090...`.N9..| 00000A90: 28 54 29 3A 4E 35 B2 54 AB 4E 39 00 AD 12 6A 04 |(T):N5.T.N9...j.| 00000AA0: 8B 4E 35 B1 B2 30 2E 35 89 31 31 35 30 00 BC 12 |.N5..0.5.1150...| 00000AB0: 74 04 54 B2 4E 39 3A 89 31 31 36 30 00 CB 12 7E |t.T.N9:.1160...~| 00000AC0: 04 54 B2 B5 28 54 AA 30 2E 35 29 00 D3 12 88 04 |.T..(T.0.5).....| 00000AD0: 99 3A 99 00 ED 12 92 04 99 22 20 20 20 20 20 54 |.:......." T| 00000AE0: 45 4D 50 28 44 52 59 29 3D 22 3B 44 31 00 07 13 |EMP(DRY)=";D1...| 00000AF0: 9C 04 99 22 20 20 20 20 20 54 45 4D 50 28 57 45 |..." TEMP(WE| 00000B00: 54 29 3D 22 3B 57 31 00 20 13 A6 04 99 22 54 45 |T)=";W1. ...."TE| 00000B10: 4D 50 20 44 45 57 20 50 4F 49 4E 54 3D 22 3B 54 |MP DEW POINT=";T| 00000B20: 00 3B 13 B0 04 99 22 20 20 52 45 4C 20 48 55 4D |.;...." REL HUM| 00000B30: 49 44 49 54 59 3D 22 3B 48 3A 99 00 5B 13 BA 04 |IDITY=";H:..[...| 00000B40: 99 22 54 52 59 20 41 47 41 49 4E 20 3F 20 28 59 |."TRY AGAIN ? (Y| 00000B50: 20 4F 52 20 4E 29 22 3A 85 41 24 00 6B 13 C4 04 | OR N)":.A$.k...| 00000B60: 8B 41 24 B2 22 59 22 89 38 36 30 00 7C 13 CE 04 |.A$."Y".860.|...| 00000B70: 8B 41 24 B2 22 4E 22 89 31 33 38 30 00 9B 13 D8 |.A$."N".1380....| 00000B80: 04 54 32 B2 35 AD 39 AC 28 54 AB 33 32 29 3A 54 |.T2.5.9.(T.32):T| 00000B90: 33 B2 54 32 AA 32 37 33 2E 31 35 00 AB 13 E2 04 |3.T2.273.15.....| 00000BA0: 8B 54 B3 B2 33 32 89 31 33 32 30 00 C3 13 EC 04 |.T..32.1320.....| 00000BB0: 56 B2 AB 37 2E 39 30 32 39 38 AC 28 53 AD 54 33 |V..7.90298.(S.T3| 00000BC0: AB 31 29 00 D9 13 F6 04 57 B2 35 2E 30 32 38 30 |.1).....W.5.0280| 00000BD0: 38 AC BC 28 53 AD 54 33 29 00 06 14 00 05 58 B2 |8..(S.T3).....X.| 00000BE0: AB 2E 30 30 30 30 30 30 31 33 38 31 36 AC 28 31 |..00000013816.(1| 00000BF0: 30 AE 28 31 31 2E 33 34 34 AC 28 31 AB 54 33 AD |0.(11.344.(1.T3.| 00000C00: 53 29 29 AB 31 29 00 30 14 0A 05 59 B2 2E 30 30 |S)).1).0...Y..00| 00000C10: 38 31 33 32 38 AC 28 31 30 AE 28 AB 33 2E 34 39 |81328.(10.(.3.49| 00000C20: 31 34 39 AC 28 53 AD 54 33 AB 31 29 29 AB 31 29 |149.(S.T3.1)).1)| 00000C30: 00 49 14 14 05 45 39 B2 56 AA 57 AA 58 AA 59 AA |.I...E9.V.W.X.Y.| 00000C40: 33 2E 30 30 35 37 32 30 39 00 59 14 1E 05 45 B2 |3.0057209.Y...E.| 00000C50: 31 30 AE 28 45 39 29 3A 8E 00 71 14 28 05 56 B2 |10.(E9):..q.(.V.| 00000C60: AB 39 2E 30 39 37 31 38 AC 28 49 AD 54 33 AB 31 |.9.09718.(I.T3.1| 00000C70: 29 00 88 14 32 05 57 B2 AB 33 2E 35 36 36 35 34 |)...2.W..3.56654| 00000C80: AC BC 28 49 AD 54 33 29 00 9F 14 3C 05 58 B2 2E |..(I.T3)...<.X..| 00000C90: 38 37 36 37 39 33 AC 28 31 AB 54 33 AD 49 29 00 |876793.(1.T3.I).| 00000CA0: B4 14 46 05 45 39 B2 56 AA 57 AA 58 AA 2E 37 38 |..F.E9.V.W.X..78| 00000CB0: 35 38 33 35 00 C2 14 50 05 45 B2 31 30 AE 28 45 |5835...P.E.10.(E| 00000CC0: 39 29 00 C8 14 5A 05 8E 00 EC 14 64 05 99 22 4E |9)...Z.....d.."N| 00000CD0: 45 57 20 53 45 4C 45 43 54 49 4F 4E 20 3F 20 28 |EW SELECTION ? (| 00000CE0: 59 20 4F 52 20 4E 29 22 3A 85 41 24 00 FC 14 6E |Y OR N)":.A$...n| 00000CF0: 05 8B 41 24 B2 22 59 22 89 31 33 30 00 02 15 78 |..A$."Y".130...x| 00000D00: 05 80 00 00 00 |..... |
....D..***WEATHERMAN***.<.N..***WRITTEN
BY GLENN PRESCOTT***...X..***REVISED BY
ED MARCHESCHI*** **C64 CHANGES
3/1/83 BY WIM***......53280,1:.53281,1:.
"............***WEATHERMAN***".F....:...
...."SELECT THE PORTION OF THE PROGRAM Y
OU WANT:"... ...4)"1. TEMPERATURE CONV
ERSION".G.....4)"2. TEMPERATURE HUMIDITY
INDEX".V.....4)"3. WIND CHILL EQUIVALEN
T TEMPERATURE".......4)".4. RELATIVE HUM
IDITY AND DEW POINT".D.H..:."ENTER YOUR
SELECTION--".K.R..S.S....:.......S.240,5
80,730,850......"........**TEMPERATURE C
ONVERSION**":..Q...."INPUT TEMPERATURE A
ND SCALE SEPARATED BY A COMMA.".F...."
LET C=CELSIUS".~...." F=FAHRENHEIT"..
...." K=KELVIN"...".." R=RANKINE".
H.,.."FOR EXAMPLE: 30,C OR 45,F"...6..:.
"ENTER TEMPATURE,SCALE--"...@..T,S$...J.
.S$.."C".380...T.T1.T...^.T2.(9.5).T.32.
/.H.T3.T.273.15.D.R.T4.(9.5).T3:.510.U.|
..S$.."F".420.^...T2.T.R...T1.(5.9).(T.3
2).....T.T1:.360......S$.."K".470.....T3
.T.....T4.(9.5).T...B.T2.T4.459.67.T.L.T
1.(5.9).(T2.32):.510...V..S$.."R".500...
..T3.(5.9).T.....T4.T:.450.'...."INPUT E
RROR, TRY AGAIN--":.250.H...." ";T1;"
DEGREES CELSIUS".L...." ";T2;"DEGREES
FAHRENHEIT"......" ";T3;"DEGREES KEL
VIN"......" ";T4;"DEGREES RANKINE":..
O.&.."TRY AGAIN ? (Y OR N)":.A$...0..A$.
"Y".310...:..A$."N".1380...D..". **TE
MPERATURE HUMIDITY INDEX**":..A.N.."INPU
T DRY BULB,WET BULB TEMPS IN FAHR
ENHEIT DEGREES--"...X.."ENTER TEMP(DRY),
TEMP(WET)"...B..D,W. .L.C.0.4.(D.W).15:.
.M.V..***T.H.I.=TEMPERATURE HUMIDITY IND
EX***......"T.H.I.=";C......C.60.670....
.."(BELOW COMFORT REGION)":.700.9....C.7
0.680:."(IN COMFORT REGION)":.700.J....C
..80.690:."(MARGINAL COMFORT REGION)":.7
00......"(UNCOMFORTABLE REGION)":."(BEWA
RE OF HEAT EXHAUSTION)".I....:."TRY AGAI
N ? (Y OR N)":.A$.Y.F..A$."Y".600...P..A
$."N".1380...Z..". **WIND CHILL EQUI
VALENT TEMP**".......`...."INPUT TEMP IN
FAHRENHEIT DEGREES, AND WIND VELOCITY
IN MPH".I....D,U.Z...U9.U.2.23694.....D
9.5.9.(D.32).....Q.33.(10.45.10..(U9).U9
).(33.D9).22.034.I. .Q.9.5.Q.32:....*.."
EQUIVALENT WIND CHILL TEMP=";Q;"DEGREES"
:....4.."TRY AGAIN ? (Y OR N)":.A$.*.>..
A$."Y".750.;.H..A$."N".1380.J.R..".
**RELATIVE HUMIDITY & DEW POINT**".P.\..
...F.."INPUT DRY BULB,WET BULB TEMPS IN
FAHRENHEIT DEGREES".S.P.."ENTER T
EMP(DRY),TEMP(WET)"...Z..D1,W1:......."U
SE STANDARD A TM PRESSURE ? (Y OR N)"...
...A$.%....A$."Y".970.I...."ENTER A TM P
RESSURE,SCALE (M=MILLIBARS, I=INCHES OF
MERCURY)".S....A,H$......H$."M".980.....
A.A.0.750062:.980...J.A.1013.26...T.S.37
3.16.A...I.273.16.J...T.D1.T....1240....
.D2.T2:E1.E:T.W1......1240.....W2.T2:E2.
E.)...E3.A.(D2.W2).(.00066.(1..00115.W2)
).K.$.H.100.(E2.E3).E1:P.E2.E3:T.D1.U...
.1240.C.8..E.P.1120.O.B.T.T.0.1.Y.L..124
0...V..E.P.1090...`.N9..(T):N5.T.N9...J.
.N5..0.5.1150...T.T.N9:.1160.K.~.T..(T.0
.5).S....:......." TEMP(DRY)=";D1...
..." TEMP(WET)=";W1. ...."TEMP DEW P
OINT=";T.;...." REL HUMIDITY=";H:..[...
."TRY AGAIN ? (Y OR N)":.A$.K.D..A$."Y".
860.|.N..A$."N".1380...X.T2.5.9.(T.32):T
3.T2.273.15......T..32.1320.C...V..7.902
98.(S.T3.1).Y...W.5.02808..(S.T3).....X.
..00000013816.(10.(11.344.(1.T3.S)).1).0
...Y..0081328.(10.(.3.49149.(S.T3.1)).1)
.I...E9.V.W.X.Y.3.0057209.Y...E.10.(E9):
..Q.(.V..9.09718.(I.T3.1)...2.W..3.56654
..(I.T3)...<.X..876793.(1.T3.I)...F.E9.V
.W.X..785835.B.P.E.10.(E9).H.Z.....D.."N
EW SELECTION ? (Y OR N)":.A$...N..A$."Y"
.130...X.....
> CLICK IMAGE PREVIEW FOR FULL MODAL