FORECASTER VII
FILE INFORMATION
FILENAME(S): FORECASTER VII
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-10-20 14:30:37
APPEARS ON: 1 disk(s)
FILE HASH
d23541aefe8b007e66ab4711c5cf91be1ba2c4014ffc4522e0bf6b8a787e8592
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0001UT | FORECASTER VII | PRG | Treasure Chest - Klaus Der Suhler | 7 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.| 00000010: 20 35 33 32 38 31 2C 30 00 36 08 14 00 8F 20 20 | 53281,0.6.... | 00000020: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **************| 00000030: 2A 2A 2A 2A 2A 2A 00 54 08 1E 00 8F 20 20 20 20 |******.T.... | 00000040: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 2F 31 |* COMMODORE 64/1| 00000050: 32 38 20 2A 00 72 08 28 00 8F 20 20 20 20 2A 57 |28 *.r.(.. *W| 00000060: 45 41 54 48 45 52 20 46 4F 52 45 43 41 53 54 45 |EATHER FORECASTE| 00000070: 52 2A 00 90 08 32 00 8F 20 20 20 20 2A 2A 2A 2A |R*...2.. ****| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 00 9A 08 3C 00 99 22 93 1E 22 00 A5 08 46 00 99 |...<..".."...F..| 000000A0: 22 11 11 11 22 00 C6 08 50 00 99 A3 39 29 22 57 |"..."...P...9)"W| 000000B0: 45 41 54 48 45 52 20 46 4F 52 45 43 41 53 54 45 |EATHER FORECASTE| 000000C0: 52 20 56 49 49 22 00 E5 08 5A 00 99 A3 39 29 22 |R VII"...Z...9)"| 000000D0: 20 20 42 59 20 4A 4F 48 4E 20 53 43 4F 54 54 20 | BY JOHN SCOTT | 000000E0: 4B 55 4C 41 22 00 FE 08 64 00 99 A3 31 31 29 22 |KULA"...d...11)"| 000000F0: 20 20 20 20 20 30 31 2F 32 33 2F 38 37 22 00 09 | 01/23/87"..| 00000100: 09 65 00 99 22 11 11 11 22 00 30 09 66 00 99 A3 |.e.."...".0.f...| 00000110: 36 29 22 52 49 47 48 54 20 38 33 2E 36 34 25 20 |6)"RIGHT 83.64% | 00000120: 4F 46 20 54 48 45 20 54 49 4D 45 20 21 21 21 22 |OF THE TIME !!!"| 00000130: 00 43 09 6E 00 81 20 54 B2 31 20 A4 20 37 30 30 |.C.n.. T.1 . 700| 00000140: 30 3A 82 00 4F 09 78 00 99 22 93 11 11 11 22 00 |0:..O.x.."....".| 00000150: 62 09 82 00 99 22 4D 41 49 4E 20 4D 45 4E 55 11 |b...."MAIN MENU.| 00000160: 11 22 00 7D 09 8C 00 99 22 31 2E 20 46 4F 52 45 |.".}...."1. FORE| 00000170: 43 41 53 54 20 57 45 41 54 48 45 52 22 00 8C 09 |CAST WEATHER"...| 00000180: 96 00 99 22 32 2E 20 51 55 49 54 22 00 A3 09 A0 |..."2. QUIT"....| 00000190: 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 |.. A$:. A$."" . | 000001A0: 31 36 30 00 BF 09 AA 00 8B 20 C5 28 41 24 29 B1 |160...... .(A$).| 000001B0: 32 B0 C5 28 41 24 29 B3 31 20 A7 20 31 36 30 00 |2..(A$).1 . 160.| 000001C0: D2 09 B4 00 8B 20 41 24 B2 22 31 22 20 A7 20 32 |..... A$."1" . 2| 000001D0: 31 30 00 E3 09 BE 00 8B 20 41 24 B2 22 32 22 20 |10...... A$."2" | 000001E0: A7 20 A2 00 E9 09 C8 00 A2 00 04 0A D2 00 8F 20 |. ............. | 000001F0: 20 20 20 20 20 20 2A 20 46 4F 52 43 41 53 54 49 | * FORCASTI| 00000200: 4E 47 20 2A 00 0D 0A DC 00 99 22 93 22 00 24 0A |NG *......".".$.| 00000210: E6 00 99 A3 31 35 29 22 46 4F 52 45 43 41 53 54 |....15)"FORECAST| 00000220: 49 4E 47 22 00 2F 0A F0 00 99 22 11 11 11 22 00 |ING"./...."...".| 00000230: 45 0A FA 00 99 22 50 4C 45 41 53 45 20 45 4E 54 |E...."PLEASE ENT| 00000240: 45 52 3A 11 22 00 5C 0A 04 01 85 22 54 45 4D 50 |ER:.".\...."TEMP| 00000250: 45 52 41 54 55 52 45 3A 22 3B 54 45 00 77 0A 0E |ERATURE:";TE.w..| 00000260: 01 99 22 49 53 20 54 48 45 20 54 45 4D 50 45 52 |.."IS THE TEMPER| 00000270: 41 54 55 52 45 3A 22 00 88 0A 18 01 99 22 31 29 |ATURE:"......"1)| 00000280: 20 53 54 45 41 44 59 22 00 9D 0A 22 01 99 22 32 | STEADY"...".."2| 00000290: 29 20 53 4C 4F 57 20 20 52 49 53 45 22 00 B2 0A |) SLOW RISE"...| 000002A0: 2C 01 99 22 33 29 20 52 41 50 49 44 20 52 49 53 |,.."3) RAPID RIS| 000002B0: 45 22 00 C7 0A 36 01 99 22 34 29 20 53 4C 4F 57 |E"...6.."4) SLOW| 000002C0: 20 20 46 41 4C 4C 22 00 DC 0A 40 01 99 22 35 29 | FALL"...@.."5)| 000002D0: 20 52 41 50 49 44 20 46 41 4C 4C 22 00 04 0B 4A | RAPID FALL"...J| 000002E0: 01 A1 20 54 4D 24 3A 54 4D B2 C5 28 54 4D 24 29 |.. TM$:TM..(TM$)| 000002F0: 3A 8B 20 54 4D B3 36 20 AF 20 54 4D B1 30 20 A7 |:. TM.6 . TM.0 .| 00000300: 20 33 35 30 00 0E 0B 54 01 89 20 33 33 30 00 17 | 350...T.. 330..| 00000310: 0B 5E 01 99 22 93 22 00 2E 0B 68 01 99 A3 31 35 |.^.."."...h...15| 00000320: 29 22 46 4F 52 45 43 41 53 54 49 4E 47 22 00 39 |)"FORECASTING".9| 00000330: 0B 72 01 99 22 11 11 11 22 00 4F 0B 7C 01 99 22 |.r.."...".O.|.."| 00000340: 50 4C 45 41 53 45 20 45 4E 54 45 52 3A 11 22 00 |PLEASE ENTER:.".| 00000350: 6E 0B 86 01 85 22 42 41 52 4F 4D 45 54 52 49 43 |n...."BAROMETRIC| 00000360: 20 50 52 45 53 53 55 52 45 3A 22 3B 42 50 00 87 | PRESSURE:";BP..| 00000370: 0B 90 01 99 22 49 53 20 54 48 45 20 42 41 52 4F |...."IS THE BARO| 00000380: 4D 45 54 45 52 3A 22 00 98 0B 9A 01 99 22 31 29 |METER:"......"1)| 00000390: 20 53 54 45 41 44 59 22 00 AD 0B A4 01 99 22 32 | STEADY"......"2| 000003A0: 29 20 53 4C 4F 57 20 20 52 49 53 45 22 00 C2 0B |) SLOW RISE"...| 000003B0: AE 01 99 22 33 29 20 52 41 50 49 44 20 52 49 53 |..."3) RAPID RIS| 000003C0: 45 22 00 D7 0B B8 01 99 22 34 29 20 53 4C 4F 57 |E"......"4) SLOW| 000003D0: 20 20 46 41 4C 4C 22 00 EC 0B C2 01 99 22 35 29 | FALL"......"5)| 000003E0: 20 52 41 50 49 44 20 46 41 4C 4C 22 00 13 0C C3 | RAPID FALL"....| 000003F0: 01 99 22 41 20 52 41 50 49 44 20 43 48 41 4E 47 |.."A RAPID CHANG| 00000400: 45 20 49 53 20 41 4E 59 20 43 48 41 4E 47 45 20 |E IS ANY CHANGE | 00000410: 49 4E 22 00 32 0C C4 01 99 22 45 58 43 45 53 53 |IN".2...."EXCESS| 00000420: 20 4F 46 20 30 2E 30 36 20 50 45 52 20 48 4F 55 | OF 0.06 PER HOU| 00000430: 52 22 00 5A 0C CC 01 A1 20 42 4D 24 3A 42 4D B2 |R".Z.... BM$:BM.| 00000440: C5 28 42 4D 24 29 3A 8B 20 42 4D B3 36 20 AF 20 |.(BM$):. BM.6 . | 00000450: 42 4D B1 30 20 A7 20 34 38 30 00 64 0C D6 01 89 |BM.0 . 480.d....| 00000460: 20 34 36 30 00 6D 0C E0 01 99 22 93 22 00 84 0C | 460.m...."."...| 00000470: EA 01 99 A3 31 35 29 22 46 4F 52 45 43 41 53 54 |....15)"FORECAST| 00000480: 49 4E 47 22 00 8F 0C F4 01 99 22 11 11 11 22 00 |ING"......"...".| 00000490: A5 0C FE 01 99 22 50 4C 45 41 53 45 20 45 4E 54 |....."PLEASE ENT| 000004A0: 45 52 3A 11 22 00 C4 0C FF 01 99 22 11 41 53 20 |ER:."......".AS | 000004B0: 4E 2C 4E 45 2C 45 2C 53 45 2C 53 2C 53 57 2C 57 |N,NE,E,SE,S,SW,W| 000004C0: 2C 4E 57 22 00 CA 0C 00 02 99 00 E5 0C 08 02 85 |,NW"............| 000004D0: 22 57 49 4E 44 20 44 49 52 45 43 54 49 4F 4E 3A |"WIND DIRECTION:| 000004E0: 22 3B 57 44 24 00 FF 0C 12 02 8B 20 57 44 24 B2 |";WD$...... WD$.| 000004F0: 22 4E 22 20 A7 20 57 B2 31 3A 89 20 36 32 30 00 |"N" . W.1:. 620.| 00000500: 19 0D 1C 02 8B 20 57 44 24 B2 22 4E 45 22 A7 20 |..... WD$."NE". | 00000510: 57 B2 32 3A 89 20 36 32 30 00 33 0D 26 02 8B 20 |W.2:. 620.3.&.. | 00000520: 57 44 24 B2 22 45 22 20 A7 20 57 B2 33 3A 89 20 |WD$."E" . W.3:. | 00000530: 36 32 30 00 4D 0D 30 02 8B 20 57 44 24 B2 22 53 |620.M.0.. WD$."S| 00000540: 45 22 A7 20 57 B2 34 3A 89 20 36 32 30 00 67 0D |E". W.4:. 620.g.| 00000550: 3A 02 8B 20 57 44 24 B2 22 53 22 20 A7 20 57 B2 |:.. WD$."S" . W.| 00000560: 35 3A 89 20 36 32 30 00 81 0D 44 02 8B 20 57 44 |5:. 620...D.. WD| 00000570: 24 B2 22 53 57 22 A7 20 57 B2 36 3A 89 20 36 32 |$."SW". W.6:. 62| 00000580: 30 00 9B 0D 4E 02 8B 20 57 44 24 B2 22 57 22 20 |0...N.. WD$."W" | 00000590: A7 20 57 B2 37 3A 89 20 36 32 30 00 B5 0D 58 02 |. W.7:. 620...X.| 000005A0: 8B 20 57 44 24 B2 22 4E 57 22 A7 20 57 B2 38 3A |. WD$."NW". W.8:| 000005B0: 89 20 36 32 30 00 BF 0D 62 02 89 20 34 38 30 00 |. 620...b.. 480.| 000005C0: D7 0D 6C 02 8F 20 20 20 20 20 20 20 20 2A 20 53 |..l.. * S| 000005D0: 45 41 52 43 48 20 2A 00 03 0E 76 02 8B 20 42 50 |EARCH *...v.. BP| 000005E0: B1 B2 33 30 2E 32 39 20 AF 20 42 4D B2 34 20 AF |..30.29 . BM.4 .| 000005F0: 20 57 B1 B2 36 20 AF 20 57 B3 B2 38 20 A7 20 31 | W..6 . W..8 . 1| 00000600: 30 30 30 00 2F 0E 80 02 8B 20 42 50 B1 B2 33 30 |000./.... BP..30| 00000610: 2E 32 34 20 AF 20 42 4D B2 31 20 AF 20 57 B1 B2 |.24 . BM.1 . W..| 00000620: 36 20 AF 20 57 B3 B2 38 20 A7 20 31 30 31 30 00 |6 . W..8 . 1010.| 00000630: 5B 0E 8A 02 8B 20 42 50 B1 B2 33 30 2E 31 39 20 |[.... BP..30.19 | 00000640: AF 20 42 4D B2 31 20 AF 20 57 B1 B2 36 20 AF 20 |. BM.1 . W..6 . | 00000650: 57 B3 B2 38 20 A7 20 31 30 32 30 00 87 0E 94 02 |W..8 . 1020.....| 00000660: 8B 20 42 50 B1 B2 33 30 2E 31 39 20 AF 20 42 4D |. BP..30.19 . BM| 00000670: B2 33 20 AF 20 57 B1 B2 36 20 AF 20 57 B3 B2 38 |.3 . W..6 . W..8| 00000680: 20 A7 20 31 30 33 30 00 B3 0E 9E 02 8B 20 42 50 | . 1030...... BP| 00000690: B1 B2 33 30 2E 31 39 20 AF 20 42 4D B2 34 20 AF |..30.19 . BM.4 .| 000006A0: 20 57 B1 B2 36 20 AF 20 57 B3 B2 38 20 A7 20 31 | W..6 . W..8 . 1| 000006B0: 30 34 30 00 DF 0E A8 02 8B 20 42 50 B1 B2 33 30 |040...... BP..30| 000006C0: 2E 31 37 20 AF 20 42 4D B2 35 20 AF 20 57 B1 B2 |.17 . BM.5 . W..| 000006D0: 36 20 AF 20 57 B3 B2 38 20 A7 20 31 30 35 30 00 |6 . W..8 . 1050.| 000006E0: 09 0F B2 02 8B 20 42 50 B1 B2 33 30 2E 31 37 20 |..... BP..30.17 | 000006F0: AF 20 42 4D B2 34 20 AF 20 28 57 B2 34 B0 57 B2 |. BM.4 . (W.4.W.| 00000700: 35 29 20 A7 20 31 30 36 30 00 32 0F BC 02 8B 20 |5) . 1060.2.... | 00000710: 42 50 B1 B2 33 30 2E 31 35 20 AF 20 42 4D B2 35 |BP..30.15 . BM.5| 00000720: 20 AF 20 28 57 B2 34 B0 57 B2 35 29 A7 20 31 30 | . (W.4.W.5). 10| 00000730: 37 30 00 5E 0F C6 02 8B 20 42 50 B1 B2 33 30 2E |70.^.... BP..30.| 00000740: 31 35 20 AF 20 42 4D B2 34 20 AF 20 57 B1 B2 32 |15 . BM.4 . W..2| 00000750: 20 AF 20 57 B3 B2 34 20 A7 20 31 30 38 30 00 8A | . W..4 . 1080..| 00000760: 0F D0 02 8B 20 42 50 B1 B2 33 30 2E 31 33 20 AF |.... BP..30.13 .| 00000770: 20 42 4D B2 35 20 AF 20 57 B1 B2 32 20 AF 20 57 | BM.5 . W..2 . W| 00000780: B3 B2 34 20 A7 20 31 30 39 30 00 B3 0F DA 02 8B |..4 . 1090......| 00000790: 20 42 50 B1 B2 33 30 2E 31 33 20 AF 20 42 4D B2 | BP..30.13 . BM.| 000007A0: 34 20 AF 28 57 B2 32 B0 57 B2 33 29 20 A7 20 31 |4 .(W.2.W.3) . 1| 000007B0: 31 30 30 00 DC 0F E4 02 8B 20 42 50 B1 B2 33 30 |100...... BP..30| 000007C0: 2E 31 31 20 AF 20 42 4D B2 35 20 AF 28 57 B2 32 |.11 . BM.5 .(W.2| 000007D0: B0 57 B2 33 29 20 A7 20 31 31 31 30 00 08 10 EE |.W.3) . 1110....| 000007E0: 02 8B 20 42 50 B1 B2 32 39 2E 38 39 20 AF 20 42 |.. BP..29.89 . B| 000007F0: 4D B2 35 20 AF 20 57 B1 B2 31 20 AF 20 57 B3 B2 |M.5 . W..1 . W..| 00000800: 33 20 A7 20 31 31 32 30 00 34 10 F8 02 8B 20 42 |3 . 1120.4.... B| 00000810: 50 B1 B2 32 39 2E 38 35 20 AF 20 42 4D B2 35 20 |P..29.85 . BM.5 | 00000820: AF 20 57 B1 B2 33 20 AF 20 57 B3 B2 35 20 A7 20 |. W..3 . W..5 . | 00000830: 31 31 33 30 00 52 10 02 03 8B 20 42 50 B3 B2 33 |1130.R.... BP..3| 00000840: 30 2E 31 30 20 AF 20 42 50 B2 33 20 A7 20 31 31 |0.10 . BP.3 . 11| 00000850: 34 30 00 7E 10 0C 03 8B 20 42 50 B3 B2 33 30 2E |40.~.... BP..30.| 00000860: 31 30 20 AF 20 42 4D B2 34 20 AF 20 57 B1 B2 32 |10 . BM.4 . W..2| 00000870: 20 AF 20 57 B3 B2 34 20 A7 20 31 31 35 30 00 AA | . W..4 . 1150..| 00000880: 10 16 03 8B 20 42 50 B3 B2 33 30 2E 31 30 20 AF |.... BP..30.10 .| 00000890: 20 42 4D B2 35 20 AF 20 57 B1 B2 32 20 AF 20 57 | BM.5 . W..2 . W| 000008A0: B3 B2 34 20 A7 20 31 31 36 30 00 D3 10 20 03 8B |..4 . 1160... ..| 000008B0: 20 42 50 B3 B2 33 30 2E 30 30 20 AF 20 42 4D B2 | BP..30.00 . BM.| 000008C0: 32 20 AF 28 57 B2 35 B0 57 B2 36 29 20 A7 20 31 |2 .(W.5.W.6) . 1| 000008D0: 31 37 30 00 08 11 E8 03 99 22 46 41 49 52 20 41 |170......"FAIR A| 000008E0: 4E 44 20 57 41 52 4D 45 52 20 46 4F 52 20 54 48 |ND WARMER FOR TH| 000008F0: 45 20 4E 45 58 54 20 34 38 20 48 4F 55 52 53 2E |E NEXT 48 HOURS.| 00000900: 22 3A 89 20 39 30 30 30 00 4E 11 F2 03 99 22 43 |":. 9000.N...."C| 00000910: 4F 4E 54 49 4E 55 45 44 20 46 41 49 52 20 57 49 |ONTINUED FAIR WI| 00000920: 54 48 20 4C 49 54 54 4C 45 20 4F 52 20 4E 4F 20 |TH LITTLE OR NO | 00000930: 43 48 41 4E 47 45 20 49 4E 20 54 45 4D 50 45 52 |CHANGE IN TEMPER| 00000940: 41 54 55 52 45 2E 22 3A 89 20 39 30 30 30 00 99 |ATURE.":. 9000..| 00000950: 11 FC 03 99 22 46 41 49 52 2C 20 4C 49 54 54 4C |...."FAIR, LITTL| 00000960: 45 20 43 48 41 4E 47 45 20 49 4E 20 54 45 4D 50 |E CHANGE IN TEMP| 00000970: 2E 20 46 4F 52 20 54 48 45 20 20 20 20 4E 45 58 |. FOR THE NEX| 00000980: 54 20 32 34 20 54 4F 20 34 38 20 48 4F 55 52 53 |T 24 TO 48 HOURS| 00000990: 2E 22 3A 89 20 39 30 30 30 00 B9 11 06 04 8B 20 |.":. 9000...... | 000009A0: 54 4D B2 35 20 B0 20 54 4D B2 34 20 AF 20 54 45 |TM.5 . TM.4 . TE| 000009B0: B3 34 30 A7 20 31 30 33 32 00 F6 11 07 04 99 22 |.40. 1032......"| 000009C0: 46 41 49 52 20 54 4F 44 41 59 2C 20 52 41 49 4E |FAIR TODAY, RAIN| 000009D0: 59 20 41 4E 44 20 57 41 52 4D 45 52 20 49 4E 20 |Y AND WARMER IN | 000009E0: 34 38 20 20 20 20 20 20 48 4F 55 52 53 2E 22 3A |48 HOURS.":| 000009F0: 89 20 39 30 30 30 00 33 12 08 04 99 22 46 41 49 |. 9000.3...."FAI| 00000A00: 52 20 54 4F 44 41 59 2C 20 50 4F 53 53 49 42 49 |R TODAY, POSSIBI| 00000A10: 4C 49 54 59 20 4F 46 20 53 4E 4F 57 20 49 4E 20 |LITY OF SNOW IN | 00000A20: 34 38 20 20 20 48 4F 55 52 53 2E 22 3A 89 20 39 |48 HOURS.":. 9| 00000A30: 30 30 30 00 52 12 10 04 8B 20 54 4D B2 35 20 B0 |000.R.... TM.5 .| 00000A40: 20 54 4D B2 34 20 AF 20 54 45 B3 34 30 A7 31 30 | TM.4 . TE.40.10| 00000A50: 34 32 00 80 12 11 04 99 22 57 41 52 4D 45 52 2C |42......"WARMER,| 00000A60: 20 52 41 49 4E 20 49 4E 20 32 34 20 54 4F 20 33 | RAIN IN 24 TO 3| 00000A70: 36 20 48 4F 55 52 53 2E 22 3A 89 20 39 30 30 30 |6 HOURS.":. 9000| 00000A80: 00 BD 12 12 04 99 22 43 4F 4C 44 45 52 2C 20 50 |......"COLDER, P| 00000A90: 4F 53 53 49 42 49 4C 49 54 59 20 4F 46 20 53 4E |OSSIBILITY OF SN| 00000AA0: 4F 57 20 49 4E 20 32 34 20 54 4F 20 33 36 20 48 |OW IN 24 TO 36 H| 00000AB0: 4F 55 52 53 2E 22 3A 89 20 39 30 30 30 00 DC 12 |OURS.":. 9000...| 00000AC0: 1A 04 8B 20 54 4D B2 35 20 B0 20 54 4D B2 34 20 |... TM.5 . TM.4 | 00000AD0: AF 20 54 45 B3 34 30 A7 31 30 35 32 00 0A 13 1B |. TE.40.1052....| 00000AE0: 04 99 22 57 41 52 4D 45 52 2C 20 52 41 49 4E 20 |.."WARMER, RAIN | 00000AF0: 49 4E 20 31 38 20 54 4F 20 32 34 20 48 4F 55 52 |IN 18 TO 24 HOUR| 00000B00: 53 2E 22 3A 89 20 39 30 30 30 00 47 13 1C 04 99 |S.":. 9000.G....| 00000B10: 22 43 4F 4C 44 45 52 2C 20 50 4F 53 53 49 42 49 |"COLDER, POSSIBI| 00000B20: 4C 49 54 59 20 4F 46 20 53 4E 4F 57 20 49 4E 20 |LITY OF SNOW IN | 00000B30: 31 38 20 54 4F 20 32 34 20 48 4F 55 52 53 2E 22 |18 TO 24 HOURS."| 00000B40: 3A 89 20 39 30 30 30 00 66 13 24 04 8B 20 54 4D |:. 9000.f.$.. TM| 00000B50: B2 35 20 B0 20 54 4D B2 34 20 AF 20 54 45 B3 34 |.5 . TM.4 . TE.4| 00000B60: 30 A7 31 30 36 32 00 99 13 25 04 99 22 50 4F 53 |0.1062...%.."POS| 00000B70: 49 42 49 4C 49 54 59 20 4F 46 20 53 4E 4F 57 20 |IBILITY OF SNOW | 00000B80: 49 4E 20 32 20 54 4F 20 32 34 20 48 4F 55 52 53 |IN 2 TO 24 HOURS| 00000B90: 2E 22 3A 89 20 39 30 30 30 00 D6 13 26 04 99 22 |.":. 9000...&.."| 00000BA0: 57 49 4E 44 59 A0 20 50 4F 53 49 42 49 4C 49 54 |WINDY. POSIBILIT| 00000BB0: 59 20 4F 46 20 53 4E 4F 57 20 49 4E 20 31 32 20 |Y OF SNOW IN 12 | 00000BC0: 54 4F 20 32 34 20 20 20 48 4F 55 52 53 2E 22 3A |TO 24 HOURS.":| 00000BD0: 89 20 39 30 30 30 00 F5 13 2E 04 8B 20 54 4D B2 |. 9000...... TM.| 00000BE0: 35 20 B0 20 54 4D B2 34 20 AF 20 54 45 B3 34 30 |5 . TM.4 . TE.40| 00000BF0: A7 31 30 37 32 00 22 14 2F 04 99 22 57 49 4E 44 |.1072."./.."WIND| 00000C00: 59 2C 20 52 41 49 4E 20 49 4E 20 31 32 20 54 4F |Y, RAIN IN 12 TO| 00000C10: 20 32 34 20 48 4F 55 52 53 2E 22 3A 89 20 39 30 | 24 HOURS.":. 90| 00000C20: 30 30 00 5F 14 30 04 99 22 57 49 4E 44 59 A0 20 |00._.0.."WINDY. | 00000C30: 50 4F 53 49 42 49 4C 49 54 59 20 4F 46 20 53 4E |POSIBILITY OF SN| 00000C40: 4F 57 20 49 4E 20 31 32 20 54 4F 20 32 34 20 20 |OW IN 12 TO 24 | 00000C50: 20 48 4F 55 52 53 2E 22 3A 89 20 39 30 30 30 00 | HOURS.":. 9000.| 00000C60: 7E 14 38 04 8B 20 54 4D B2 35 20 B0 20 54 4D B2 |~.8.. TM.5 . TM.| 00000C70: 34 20 AF 20 54 45 B3 34 30 A7 31 30 38 32 00 A4 |4 . TE.40.1082..| 00000C80: 14 39 04 99 22 52 41 49 4E 20 49 4E 20 31 32 20 |.9.."RAIN IN 12 | 00000C90: 54 4F 20 31 38 20 48 4F 55 52 53 2E 22 3A 89 20 |TO 18 HOURS.":. | 00000CA0: 39 30 30 30 00 D8 14 3A 04 99 22 50 4F 53 49 42 |9000...:.."POSIB| 00000CB0: 49 4C 49 54 59 20 4F 46 20 53 4E 4F 57 20 49 4E |ILITY OF SNOW IN| 00000CC0: 20 31 32 20 54 4F 20 31 38 20 48 4F 55 52 53 2E | 12 TO 18 HOURS.| 00000CD0: 22 3A 89 20 39 30 30 30 00 F7 14 42 04 8B 20 54 |":. 9000...B.. T| 00000CE0: 4D B2 35 20 B0 20 54 4D B2 34 20 AF 20 54 45 B3 |M.5 . TM.4 . TE.| 00000CF0: 34 30 A7 31 30 39 32 00 21 15 43 04 99 22 57 49 |40.1092.!.C.."WI| 00000D00: 4E 44 59 20 41 4E 44 20 52 41 49 4E 20 49 4E 20 |NDY AND RAIN IN | 00000D10: 31 32 20 48 4F 55 52 53 2E 22 3A 89 20 39 30 30 |12 HOURS.":. 900| 00000D20: 30 00 5E 15 44 04 99 22 57 49 4E 44 59 20 41 4E |0.^.D.."WINDY AN| 00000D30: 44 20 50 4F 53 49 42 49 4C 49 54 59 20 4F 46 20 |D POSIBILITY OF | 00000D40: 53 4E 4F 57 20 49 4E 20 31 32 20 20 20 20 20 20 |SNOW IN 12 | 00000D50: 48 4F 55 52 53 2E 22 3A 89 20 39 30 30 30 00 81 |HOURS.":. 9000..| 00000D60: 15 4C 04 99 22 49 4E 20 53 55 4D 4D 45 52 20 57 |.L.."IN SUMMER W| 00000D70: 49 54 48 20 4C 49 47 48 54 20 57 49 4E 44 53 3A |ITH LIGHT WINDS:| 00000D80: 22 00 A4 15 4D 04 99 22 52 41 49 4E 20 4D 41 59 |"...M.."RAIN MAY| 00000D90: 20 4E 4F 54 20 46 41 4C 4C 20 46 4F 52 20 44 41 | NOT FALL FOR DA| 00000DA0: 59 53 2E 22 00 C7 15 4E 04 99 22 49 4E 20 57 49 |YS."...N.."IN WI| 00000DB0: 4E 54 45 52 3A 20 52 41 49 4E 20 49 4E 20 32 34 |NTER: RAIN IN 24| 00000DC0: 20 48 4F 55 52 53 22 00 D2 15 4F 04 89 20 39 30 | HOURS"...O.. 90| 00000DD0: 30 30 00 01 16 56 04 99 22 49 4E 20 53 55 4D 4D |00...V.."IN SUMM| 00000DE0: 45 52 3A 20 52 41 49 4E 20 4C 49 4B 45 4C 59 20 |ER: RAIN LIKELY | 00000DF0: 49 4E 20 31 32 20 54 4F 20 32 34 20 48 52 53 2E |IN 12 TO 24 HRS.| 00000E00: 22 00 3E 16 57 04 99 22 49 4E 20 57 49 4E 54 45 |".>.W.."IN WINTE| 00000E10: 52 3A 20 52 41 49 4E 20 4F 52 20 53 4E 4F 57 20 |R: RAIN OR SNOW | 00000E20: 57 49 54 48 20 49 4E 43 52 45 41 53 49 4E 47 20 |WITH INCREASING | 00000E30: 57 49 4E 44 53 2E 22 3A 89 20 39 30 30 30 00 5E |WINDS.":. 9000.^| 00000E40: 16 60 04 8B 20 54 4D B2 34 20 B0 20 54 4D B2 35 |.`.. TM.4 . TM.5| 00000E50: 20 AF 20 54 45 B3 34 30 20 A7 31 31 32 32 00 78 | . TE.40 .1122.x| 00000E60: 16 61 04 99 22 48 45 41 56 59 20 52 41 49 4E 2E |.a.."HEAVY RAIN.| 00000E70: 22 3A 89 20 39 30 30 30 00 A4 16 62 04 99 22 53 |":. 9000...b.."S| 00000E80: 4E 4F 57 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 |NOW FOLLOWED BY | 00000E90: 41 20 43 4F 4C 44 20 57 41 56 45 2E 22 3A 89 20 |A COLD WAVE.":. | 00000EA0: 39 30 30 30 00 C4 16 6A 04 8B 20 54 4D B2 34 20 |9000...j.. TM.4 | 00000EB0: B0 20 54 4D B2 35 20 AF 20 54 45 B3 34 30 20 A7 |. TM.5 . TE.40 .| 00000EC0: 31 31 33 32 00 0E 17 6B 04 99 22 53 45 56 45 52 |1132...k.."SEVER| 00000ED0: 45 20 53 54 4F 52 4D 20 57 41 52 4E 49 4E 47 21 |E STORM WARNING!| 00000EE0: 20 57 49 4E 44 59 20 26 20 52 41 49 4E 59 A0 20 | WINDY & RAINY. | 00000EF0: 20 20 20 43 4C 45 41 52 49 4E 47 20 49 4E 20 32 | CLEARING IN 2| 00000F00: 34 20 48 52 53 2E 22 3A 89 20 39 30 30 30 00 58 |4 HRS.":. 9000.X| 00000F10: 17 6C 04 99 22 53 45 56 45 52 45 20 53 54 4F 52 |.l.."SEVERE STOR| 00000F20: 4D 20 57 41 52 4E 49 4E 47 21 20 57 49 4E 44 59 |M WARNING! WINDY| 00000F30: 20 26 20 53 4E 4F 57 59 A0 20 20 20 20 43 4C 45 | & SNOWY. CLE| 00000F40: 41 52 49 4E 47 20 49 4E 20 32 34 20 48 52 53 2E |ARING IN 24 HRS.| 00000F50: 22 3A 89 20 39 30 30 30 00 7A 17 74 04 99 22 43 |":. 9000.z.t.."C| 00000F60: 4C 45 41 52 49 4E 47 20 41 4E 44 20 43 4F 4C 44 |LEARING AND COLD| 00000F70: 45 52 2E 22 3A 89 39 30 30 30 00 9A 17 7E 04 8B |ER.":.9000...~..| 00000F80: 20 54 4D B2 34 20 B0 20 54 4D B2 35 20 AF 20 54 | TM.4 . TM.5 . T| 00000F90: 45 B3 34 30 20 A7 31 31 35 32 00 C6 17 7F 04 99 |E.40 .1152......| 00000FA0: 22 52 41 49 4E 20 46 4F 52 20 54 48 45 20 4E 45 |"RAIN FOR THE NE| 00000FB0: 58 54 20 44 41 59 20 4F 52 20 54 57 4F 2E 22 3A |XT DAY OR TWO.":| 00000FC0: 89 20 39 30 30 30 00 01 18 80 04 99 22 50 4F 53 |. 9000......"POS| 00000FD0: 53 49 42 49 4C 49 54 59 20 4F 46 20 53 4E 4F 57 |SIBILITY OF SNOW| 00000FE0: 20 46 4F 52 20 54 48 45 20 4E 45 58 54 20 44 41 | FOR THE NEXT DA| 00000FF0: 59 20 4F 52 20 54 57 4F 2E 22 3A 89 20 39 30 30 |Y OR TWO.":. 900| 00001000: 30 00 21 18 88 04 8B 20 54 4D B2 34 20 B0 20 54 |0.!.... TM.4 . T| 00001010: 4D B2 35 20 AF 20 54 45 B3 33 35 20 A7 31 31 36 |M.5 . TE.35 .116| 00001020: 32 00 6D 18 89 04 99 22 52 41 49 4E 20 26 20 57 |2.m...."RAIN & W| 00001030: 49 4E 44 59 2C 20 46 4F 4C 4C 4F 57 45 44 20 42 |INDY, FOLLOWED B| 00001040: 59 20 43 4C 45 41 52 49 4E 47 20 41 4E 44 20 20 |Y CLEARING AND | 00001050: 43 4F 4F 4C 20 54 45 4D 50 53 2E 20 49 4E 20 32 |COOL TEMPS. IN 2| 00001060: 34 20 48 52 53 2E 22 3A 89 39 30 30 30 00 B9 18 |4 HRS.":.9000...| 00001070: 8A 04 99 22 53 4E 4F 57 20 26 20 57 49 4E 44 59 |..."SNOW & WINDY| 00001080: 2C 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 43 4C |, FOLLOWED BY CL| 00001090: 45 41 52 49 4E 47 20 41 4E 44 20 20 43 4F 4F 4C |EARING AND COOL| 000010A0: 20 54 45 4D 50 53 2E 20 49 4E 20 32 34 20 48 52 | TEMPS. IN 24 HR| 000010B0: 53 2E 22 3A 89 39 30 30 30 00 01 19 92 04 99 22 |S.":.9000......"| 000010C0: 43 4C 45 41 52 49 4E 47 20 49 4E 20 41 20 46 45 |CLEARING IN A FE| 000010D0: 57 20 48 4F 55 52 53 2C 20 46 41 49 52 20 46 4F |W HOURS, FAIR FO| 000010E0: 52 20 54 48 45 20 20 20 4E 45 58 54 20 53 45 56 |R THE NEXT SEV| 000010F0: 45 52 41 4C 20 44 41 59 53 2E 22 3A 89 39 30 30 |ERAL DAYS.":.900| 00001100: 30 00 25 19 28 23 99 A3 38 29 22 48 49 54 20 41 |0.%.(#..8)"HIT A| 00001110: 4E 59 20 4B 45 59 20 46 4F 52 20 4D 41 49 4E 20 |NY KEY FOR MAIN | 00001120: 4D 45 4E 55 22 00 3D 19 29 23 A1 20 41 24 3A 8B |MENU".=.)#. A$:.| 00001130: 20 41 24 B2 22 22 20 A7 20 39 30 30 31 00 47 19 | A$."" . 9001.G.| 00001140: 2A 23 89 20 31 32 30 00 00 00 |*#. 120... |
.......53280,0:. 53281,0.6.... ******
**************.T.... * COMMODORE 64/1
28 *.R.(.. *WEATHER FORECASTER*...2..
********************...<..".."...F..
"...".F.P...9)"WEATHER FORECASTER VII"..
.Z...9)" BY JOHN SCOTT KULA"...D...11)"
01/23/87"...E.."...".0.F...6)"RIGHT
83.64% OF THE TIME !!!".C.N.. T.1 . 700
0:..O.X.."....".B...."MAIN MENU..".}....
"1. FORECAST WEATHER"......"2. QUIT"...
.. A$:. A$."" . 160...... E(A$).2.E(A$).
1 . 160.R.... A$."1" . 210...... A$."2"
. ....H.....R.. * FORCASTING *....
..".".$.....15)"FORECASTING"./...."...".
E...."PLEASE ENTER:.".\...."TEMPERATURE:
";TE.W...."IS THE TEMPERATURE:"......"1)
STEADY"...".."2) SLOW RISE"...,.."3) R
APID RISE".G.6.."4) SLOW FALL"...@.."5)
RAPID FALL"...J.. TM$:TM.E(TM$):. TM.6
. TM.0 . 350...T.. 330...^.."."...H...15
)"FORECASTING".9.R.."...".O.|.."PLEASE E
NTER:.".N...."BAROMETRIC PRESSURE:";BP..
...."IS THE BAROMETER:"......"1) STEADY"
......"2) SLOW RISE".B...."3) RAPID RIS
E".W...."4) SLOW FALL"...B.."5) RAPID F
ALL"...C.."A RAPID CHANGE IS ANY CHANGE
IN".2.D.."EXCESS OF 0.06 PER HOUR".Z.L..
BM$:BM.E(BM$):. BM.6 . BM.0 . 480.D.V..
460.M....".".......15)"FORECASTING"....
.."..."......"PLEASE ENTER:.".D....".AS
N,NE,E,SE,S,SW,W,NW".J.........."WIND DI
RECTION:";WD$...... WD$."N" . W.1:. 620.
..... WD$."NE". W.2:. 620.3.&.. WD$."E"
. W.3:. 620.M.0.. WD$."SE". W.4:. 620.G.
:.. WD$."S" . W.5:. 620...D.. WD$."SW".
W.6:. 620...N.. WD$."W" . W.7:. 620...X.
. WD$."NW". W.8:. 620...B.. 480.W.L..
* SEARCH *...V.. BP..30.29 . BM.4 .
W..6 . W..8 . 1000./.... BP..30.24 . BM
.1 . W..6 . W..8 . 1010.[.... BP..30.19
. BM.1 . W..6 . W..8 . 1020...... BP..30
.19 . BM.3 . W..6 . W..8 . 1030...... BP
..30.19 . BM.4 . W..6 . W..8 . 1040.....
. BP..30.17 . BM.5 . W..6 . W..8 . 1050.
..... BP..30.17 . BM.4 . (W.4.W.5) . 106
0.2.... BP..30.15 . BM.5 . (W.4.W.5). 10
70.^.F.. BP..30.15 . BM.4 . W..2 . W..4
. 1080...P.. BP..30.13 . BM.5 . W..2 . W
..4 . 1090...Z.. BP..30.13 . BM.4 .(W.2.
W.3) . 1100...... BP..30.11 . BM.5 .(W.2
.W.3) . 1110...... BP..29.89 . BM.5 . W.
.1 . W..3 . 1120.4.... BP..29.85 . BM.5
. W..3 . W..5 . 1130.R.... BP..30.10 . B
P.3 . 1140.~.... BP..30.10 . BM.4 . W..2
. W..4 . 1150...... BP..30.10 . BM.5 .
W..2 . W..4 . 1160.S. .. BP..30.00 . BM.
2 .(W.5.W.6) . 1170......"FAIR AND WARME
R FOR THE NEXT 48 HOURS.":. 9000.N...."C
ONTINUED FAIR WITH LITTLE OR NO CHANGE I
N TEMPERATURE.":. 9000......"FAIR, LITTL
E CHANGE IN TEMP. FOR THE NEXT 24 TO
48 HOURS.":. 9000...... TM.5 . TM.4 . TE
.40. 1032......"FAIR TODAY, RAINY AND WA
RMER IN 48 HOURS.":. 9000.3...."FAI
R TODAY, POSSIBILITY OF SNOW IN 48 HOU
RS.":. 9000.R.... TM.5 . TM.4 . TE.40.10
42......"WARMER, RAIN IN 24 TO 36 HOURS.
":. 9000......"COLDER, POSSIBILITY OF SN
OW IN 24 TO 36 HOURS.":. 9000...... TM.5
. TM.4 . TE.40.1052......"WARMER, RAIN
IN 18 TO 24 HOURS.":. 9000.G...."COLDER,
POSSIBILITY OF SNOW IN 18 TO 24 HOURS."
:. 9000.F.$.. TM.5 . TM.4 . TE.40.1062..
.%.."POSIBILITY OF SNOW IN 2 TO 24 HOURS
.":. 9000.V.&.."WINDY POSIBILITY OF SNO
W IN 12 TO 24 HOURS.":. 9000...... TM.
5 . TM.4 . TE.40.1072."./.."WINDY, RAIN
IN 12 TO 24 HOURS.":. 9000._.0.."WINDY
POSIBILITY OF SNOW IN 12 TO 24 HOURS."
:. 9000.~.8.. TM.5 . TM.4 . TE.40.1082..
.9.."RAIN IN 12 TO 18 HOURS.":. 9000.X.:
.."POSIBILITY OF SNOW IN 12 TO 18 HOURS.
":. 9000...B.. TM.5 . TM.4 . TE.40.1092.
!.C.."WINDY AND RAIN IN 12 HOURS.":. 900
0.^.D.."WINDY AND POSIBILITY OF SNOW IN
12 HOURS.":. 9000...L.."IN SUMMER W
ITH LIGHT WINDS:"...M.."RAIN MAY NOT FAL
L FOR DAYS.".G.N.."IN WINTER: RAIN IN 24
HOURS".R.O.. 9000...V.."IN SUMMER: RAIN
LIKELY IN 12 TO 24 HRS.".>.W.."IN WINTE
R: RAIN OR SNOW WITH INCREASING WINDS.":
. 9000.^.`.. TM.4 . TM.5 . TE.40 .1122.X
.A.."HEAVY RAIN.":. 9000...B.."SNOW FOLL
OWED BY A COLD WAVE.":. 9000.D.J.. TM.4
. TM.5 . TE.40 .1132...K.."SEVERE STORM
WARNING! WINDY & RAINY CLEARING IN 2
4 HRS.":. 9000.X.L.."SEVERE STORM WARNIN
G! WINDY & SNOWY CLEARING IN 24 HRS.
":. 9000.Z.T.."CLEARING AND COLDER.":.90
00...~.. TM.4 . TM.5 . TE.40 .1152.F...
"RAIN FOR THE NEXT DAY OR TWO.":. 9000..
...."POSSIBILITY OF SNOW FOR THE NEXT DA
Y OR TWO.":. 9000.!.... TM.4 . TM.5 . TE
.35 .1162.M...."RAIN & WINDY, FOLLOWED B
Y CLEARING AND COOL TEMPS. IN 24 HRS.":
.9000......"SNOW & WINDY, FOLLOWED BY CL
EARING AND COOL TEMPS. IN 24 HRS.":.900
0......"CLEARING IN A FEW HOURS, FAIR FO
R THE NEXT SEVERAL DAYS.":.9000.%.(#..
8)"HIT ANY KEY FOR MAIN MENU".=.)#. A$:.
A$."" . 9001.G.*#. 120...
> CLICK IMAGE PREVIEW FOR FULL MODAL