Multiple names: WEATHERWIZ.JUL, WEATHER WIZ

00000000: 01 08 47 08 0A 00 8F 20  43 4F 50 59 52 49 47 48  |..G.... COPYRIGH|
00000010: 54 20 31 39 38 37 20 43  4F 4D 50 55 54 45 21 20  |T 1987 COMPUTE! |
00000020: 50 55 42 4C 49 43 41 54  49 4F 4E 53 2C 20 49 4E  |PUBLICATIONS, IN|
00000030: 43 2E 20 20 41 4C 4C 20  52 49 47 48 54 53 20 52  |C.  ALL RIGHTS R|
00000040: 45 53 45 52 56 45 44 00  52 08 14 00 8D 20 31 35  |ESERVED.R.... 15|
00000050: 32 30 00 6E 08 1E 00 99  20 22 05 54 48 45 20 57  |20.n.... ".THE W|
00000060: 45 41 54 48 45 52 20 57  49 5A 41 52 44 22 00 74  |EATHER WIZARD".t|
00000070: 08 28 00 99 00 B9 08 32  00 99 20 22 43 4F 50 59  |.(.....2.. "COPY|
00000080: 52 49 47 48 54 20 31 39  38 37 20 43 4F 4D 50 55  |RIGHT 1987 COMPU|
00000090: 54 45 21 20 50 55 42 4C  49 43 41 54 49 4F 4E 53  |TE! PUBLICATIONS|
000000A0: 22 3A 99 20 22 41 4C 4C  20 52 49 47 48 54 53 20  |":. "ALL RIGHTS |
000000B0: 52 45 53 45 52 56 45 44  22 00 CE 08 3C 00 81 20  |RESERVED"...<.. |
000000C0: 4A B2 31 20 A4 20 33 30  30 30 3A 82 20 4A 00 D9  |J.1 . 3000:. J..|
000000D0: 08 46 00 8D 20 31 35 32  30 00 15 09 50 00 99 20  |.F.. 1520...P.. |
000000E0: 22 45 4E 54 45 52 20 4D  4F 4E 54 48 20 28 55 53  |"ENTER MONTH (US|
000000F0: 45 20 4E 55 4D 42 45 52  29 22 3B 3A 4D 49 4E B2  |E NUMBER)";:MIN.|
00000100: 31 3A 4D 41 58 B2 31 32  3A 8D 20 31 33 39 30 3A  |1:MAX.12:. 1390:|
00000110: 4D 20 B2 20 45 00 42 09  5A 00 99 20 22 45 4E 54  |M . E.B.Z.. "ENT|
00000120: 45 52 20 44 41 59 22 3B  3A 4D 49 4E B2 31 3A 4D  |ER DAY";:MIN.1:M|
00000130: 41 58 B2 33 31 3A 8D 20  31 33 39 30 3A 44 20 B2  |AX.31:. 1390:D .|
00000140: 20 45 00 76 09 64 00 99  20 22 45 4E 54 45 52 20  | E.v.d.. "ENTER |
00000150: 54 48 45 20 59 45 41 52  22 3B 3A 4D 49 4E B2 30  |THE YEAR";:MIN.0|
00000160: 3A 4D 41 58 B2 32 31 30  30 3A 8D 20 31 33 39 30  |:MAX.2100:. 1390|
00000170: 3A 59 20 B2 20 45 00 81  09 6E 00 8D 20 31 35 32  |:Y . E...n.. 152|
00000180: 30 00 B1 09 78 00 99 20  22 50 4C 45 41 53 45 20  |0...x.. "PLEASE |
00000190: 49 4E 50 55 54 20 4E 55  4D 42 45 52 53 20 57 48  |INPUT NUMBERS WH|
000001A0: 45 4E 20 50 52 4F 4D 50  54 45 44 20 42 59 20 3F  |EN PROMPTED BY ?|
000001B0: 22 00 B7 09 82 00 99 00  E7 09 8C 00 99 20 22 20  |"............ " |
000001C0: 46 52 4F 4D 20 54 48 45  20 4D 45 4E 55 20 45 4E  |FROM THE MENU EN|
000001D0: 54 45 52 20 54 48 45 20  4E 55 4D 42 45 52 20 43  |TER THE NUMBER C|
000001E0: 4F 52 52 45 53 2D 22 00  0D 0A 96 00 99 20 22 50  |ORRES-"...... "P|
000001F0: 4F 4E 44 49 4E 47 20 54  4F 20 54 48 45 20 57 49  |ONDING TO THE WI|
00000200: 4E 44 20 44 49 52 45 43  54 49 4F 4E 22 00 13 0A  |ND DIRECTION"...|
00000210: A0 00 99 00 40 0A AA 00  99 20 22 4E 3D 20 4E 4F  |....@.... "N= NO|
00000220: 52 54 48 2C 20 53 3D 20  53 4F 55 54 48 2C 20 45  |RTH, S= SOUTH, E|
00000230: 3D 20 45 41 53 54 2C 20  57 3D 20 57 45 53 54 22  |= EAST, W= WEST"|
00000240: 00 6C 0A B4 00 99 20 22  28 4E 4F 54 45 3A 20 54  |.l.... "(NOTE: T|
00000250: 48 45 20 44 49 52 45 43  54 49 4F 4E 53 20 41 52  |HE DIRECTIONS AR|
00000260: 45 20 57 48 45 52 45 20  54 48 45 22 00 9C 0A BE  |E WHERE THE"....|
00000270: 00 99 20 22 57 49 4E 44  20 43 4F 4D 45 53 20 46  |.. "WIND COMES F|
00000280: 52 4F 4D 2C 20 4E 4F 54  20 57 48 45 52 45 20 49  |ROM, NOT WHERE I|
00000290: 54 20 49 53 20 47 4F 49  4E 47 2E 22 00 C9 0A C8  |T IS GOING."....|
000002A0: 00 99 20 22 53 4F 2C 20  27 4E 45 27 20 4D 45 41  |.. "SO, 'NE' MEA|
000002B0: 4E 53 20 41 20 57 49 4E  44 20 42 4C 4F 57 49 4E  |NS A WIND BLOWIN|
000002C0: 47 20 4F 55 54 20 4F 46  22 00 E1 0A D2 00 99 20  |G OUT OF"...... |
000002D0: 22 54 48 45 20 4E 4F 52  54 48 45 41 53 54 2E 29  |"THE NORTHEAST.)|
000002E0: 22 00 E7 0A DC 00 99 00  17 0B E6 00 99 20 22 2D  |"............ "-|
000002F0: 2D 2D 2D 2D 2D 2D 2D 2D  20 57 49 4E 44 20 44 49  |-------- WIND DI|
00000300: 52 45 43 54 49 4F 4E 20  4D 45 4E 55 20 2D 2D 2D  |RECTION MENU ---|
00000310: 2D 2D 2D 2D 2D 2D 22 00  1D 0B F0 00 99 00 3C 0B  |------".......<.|
00000320: FA 00 99 22 31 2E 20 4E  22 A6 34 29 22 32 2E 20  |..."1. N".4)"2. |
00000330: 4E 45 22 A6 33 29 22 33  2E 20 45 22 00 42 0B 04  |NE".3)"3. E".B..|
00000340: 01 99 00 62 0B 0E 01 99  22 34 2E 20 53 45 22 A6  |...b...."4. SE".|
00000350: 33 29 22 35 2E 20 53 22  A6 34 29 22 36 2E 20 53  |3)"5. S".4)"6. S|
00000360: 57 22 00 68 0B 18 01 99  00 8D 0B 22 01 99 22 37  |W".h.......".."7|
00000370: 2E 20 57 22 A6 34 29 22  38 2E 20 4E 57 22 A6 33  |. W".4)"8. NW".3|
00000380: 29 22 39 2E 20 4E 4F 20  57 49 4E 44 22 00 93 0B  |)"9. NO WIND"...|
00000390: 2C 01 99 00 99 0B 36 01  99 00 B6 0B 40 01 4D 49  |,.....6.....@.MI|
000003A0: 4E B2 31 3A 4D 41 58 B2  39 3A 8D 20 31 33 39 30  |N.1:MAX.9:. 1390|
000003B0: 3A 57 20 B2 20 45 00 C1  0B 4A 01 8D 20 31 35 32  |:W . E...J.. 152|
000003C0: 30 00 07 0C 54 01 99 20  22 45 4E 54 45 52 20 42  |0...T.. "ENTER B|
000003D0: 41 52 4F 4D 45 54 52 49  43 20 50 52 45 53 53 55  |AROMETRIC PRESSU|
000003E0: 52 45 22 3A 99 22 49 4E  20 49 4E 43 48 45 53 20  |RE":."IN INCHES |
000003F0: 4F 46 20 4D 45 52 43 55  52 59 20 28 45 58 3A 32  |OF MERCURY (EX:2|
00000400: 39 2E 39 35 29 22 3B 00  27 0C 5E 01 4D 49 4E B2  |9.95)";.'.^.MIN.|
00000410: 32 37 3A 4D 41 58 B2 33  33 3A 8D 20 31 34 38 30  |27:MAX.33:. 1480|
00000420: 3A 42 50 20 B2 20 45 00  32 0C 68 01 8D 20 31 35  |:BP . E.2.h.. 15|
00000430: 32 30 00 61 0C 72 01 99  20 22 50 4C 45 41 53 45  |20.a.r.. "PLEASE|
00000440: 20 45 4E 54 45 52 20 54  48 45 20 4E 55 4D 42 45  | ENTER THE NUMBE|
00000450: 52 20 54 48 41 54 20 44  45 53 43 52 49 42 45 53  |R THAT DESCRIBES|
00000460: 22 00 86 0C 7C 01 99 20  22 43 55 52 52 45 4E 54  |"...|.. "CURRENT|
00000470: 20 42 41 52 4F 4D 45 54  52 49 43 20 41 43 54 49  | BAROMETRIC ACTI|
00000480: 56 49 54 59 2E 22 00 A6  0C 86 01 99 20 22 42 41  |VITY."...... "BA|
00000490: 52 4F 4D 45 54 45 52 20  49 53 3A 20 31 2E 20 53  |ROMETER IS: 1. S|
000004A0: 54 45 41 44 59 22 00 C1  0C 90 01 99 20 A6 31 34  |TEADY"...... .14|
000004B0: 29 22 32 2E 20 52 49 53  49 4E 47 20 46 41 53 54  |)"2. RISING FAST|
000004C0: 22 00 DE 0C 9A 01 99 20  A6 31 34 29 22 33 2E 20  |"...... .14)"3. |
000004D0: 53 4C 4F 57 4C 59 20 52  49 53 49 4E 47 22 00 FA  |SLOWLY RISING"..|
000004E0: 0C A4 01 99 20 A6 31 34  29 22 34 2E 20 46 41 4C  |.... .14)"4. FAL|
000004F0: 4C 49 4E 47 20 46 41 53  54 22 00 18 0D AE 01 99  |LING FAST"......|
00000500: 20 A6 31 34 29 22 35 2E  20 53 4C 4F 57 4C 59 20  | .14)"5. SLOWLY |
00000510: 46 41 4C 4C 49 4E 47 22  00 1E 0D B8 01 99 00 3C  |FALLING".......<|
00000520: 0D C2 01 4D 49 4E B2 31  3A 4D 41 58 B2 35 3A 8D  |...MIN.1:MAX.5:.|
00000530: 20 31 33 39 30 3A 42 44  20 B2 20 45 00 47 0D CC  | 1390:BD . E.G..|
00000540: 01 8D 20 31 35 32 30 00  74 0D D6 01 99 20 22 50  |.. 1520.t.... "P|
00000550: 4C 45 41 53 45 20 45 4E  54 45 52 20 54 48 45 20  |LEASE ENTER THE |
00000560: 4E 55 4D 42 45 52 20 46  4F 52 20 54 48 45 20 4D  |NUMBER FOR THE M|
00000570: 41 49 4E 22 00 9A 0D E0  01 99 20 22 43 4C 4F 55  |AIN"...... "CLOU|
00000580: 44 20 54 59 50 45 20 46  4F 52 20 59 4F 55 52 20  |D TYPE FOR YOUR |
00000590: 4C 4F 43 41 54 49 4F 4E  2E 22 00 A0 0D EA 01 99  |LOCATION."......|
000005A0: 00 D5 0D F4 01 99 20 22  31 2E 20 43 49 52 52 55  |...... "1. CIRRU|
000005B0: 53 22 3A 99 20 22 32 2E  20 43 55 4D 55 4C 4F 4E  |S":. "2. CUMULON|
000005C0: 49 4D 42 55 53 22 3A 99  20 22 33 2E 20 53 54 52  |IMBUS":. "3. STR|
000005D0: 41 54 55 53 22 00 13 0E  FE 01 99 20 22 34 2E 20  |ATUS"...... "4. |
000005E0: 4E 49 4D 42 4F 53 54 52  41 54 55 53 22 3A 99 20  |NIMBOSTRATUS":. |
000005F0: 22 35 2E 20 41 4C 54 4F  53 54 52 41 54 55 53 22  |"5. ALTOSTRATUS"|
00000600: 3A 99 20 22 36 2E 20 41  4C 54 4F 43 55 4D 55 4C  |:. "6. ALTOCUMUL|
00000610: 55 53 22 00 4D 0E 08 02  99 20 22 37 2E 20 43 49  |US".M.... "7. CI|
00000620: 52 52 4F 53 54 52 41 54  55 53 22 3A 99 20 22 38  |RROSTRATUS":. "8|
00000630: 2E 20 43 55 4D 55 4C 55  53 22 3A 99 20 22 39 2E  |. CUMULUS":. "9.|
00000640: 20 4E 4F 20 43 4C 4F 55  44 53 22 3A 99 00 6A 0E  | NO CLOUDS":..j.|
00000650: 12 02 4D 49 4E B2 31 3A  4D 41 58 B2 39 3A 8D 20  |..MIN.1:MAX.9:. |
00000660: 31 33 39 30 3A 43 20 B2  20 45 00 75 0E 1C 02 8D  |1390:C . E.u....|
00000670: 20 31 35 32 30 00 B1 0E  26 02 99 20 22 49 4E 50  | 1520...&.. "INP|
00000680: 55 54 20 48 55 4D 49 44  49 54 59 22 3A 99 20 22  |UT HUMIDITY":. "|
00000690: 28 45 58 2E 20 49 4E 50  55 54 20 35 30 20 46 4F  |(EX. INPUT 50 FO|
000006A0: 52 20 35 30 25 20 48 55  4D 49 44 49 54 59 29 22  |R 50% HUMIDITY)"|
000006B0: 3B 00 D0 0E 30 02 4D 49  4E B2 30 3A 4D 41 58 B2  |;...0.MIN.0:MAX.|
000006C0: 31 30 30 3A 8D 20 31 34  38 30 3A 48 20 B2 20 45  |100:. 1480:H . E|
000006D0: 00 DB 0E 3A 02 8D 20 31  35 32 30 00 1C 0F 44 02  |...:.. 1520...D.|
000006E0: 99 20 22 49 4E 50 55 54  20 54 45 4D 50 45 52 41  |. "INPUT TEMPERA|
000006F0: 54 55 52 45 20 49 4E 20  46 41 48 52 45 4E 48 45  |TURE IN FAHRENHE|
00000700: 49 54 22 3A 99 22 28 45  58 2E 20 36 33 20 3D 20  |IT":."(EX. 63 = |
00000710: 36 33 20 44 45 47 2E 20  46 29 22 3B 00 3E 0F 4E  |63 DEG. F)";.>.N|
00000720: 02 4D 49 4E B2 AB 31 33  30 3A 4D 41 58 B2 31 33  |.MIN..130:MAX.13|
00000730: 30 3A 8D 20 31 34 38 30  3A 54 20 B2 20 45 00 49  |0:. 1480:T . E.I|
00000740: 0F 58 02 8D 20 31 35 32  30 00 59 0F 62 02 8F 20  |.X.. 1520.Y.b.. |
00000750: 46 4F 52 45 43 41 53 54  53 00 6F 0F 6C 02 8B 20  |FORECASTS.o.l.. |
00000760: 42 50 20 B1 20 32 39 2E  39 20 A7 20 37 31 30 00  |BP . 29.9 . 710.|
00000770: 9A 0F 76 02 8B 20 28 57  B1 B2 31 20 AF 20 57 B3  |..v.. (W..1 . W.|
00000780: B2 35 29 20 AF 20 42 44  B2 34 20 AF 20 42 50 B1  |.5) . BD.4 . BP.|
00000790: 32 39 2E 37 20 A7 20 38  36 30 00 D4 0F 80 02 8B  |29.7 . 860......|
000007A0: 20 28 57 B1 B2 36 20 AF  20 57 B3 B2 38 29 20 AF  | (W..6 . W..8) .|
000007B0: 20 28 42 44 B1 B2 31 20  AF 20 42 44 B3 B2 33 29  | (BD..1 . BD..3)|
000007C0: 20 AF 20 54 B1 37 35 20  AF 20 48 B1 36 38 20 A7  | . T.75 . H.68 .|
000007D0: 20 39 31 30 00 FE 0F 8A  02 8B 20 28 57 B1 B2 36  | 910...... (W..6|
000007E0: 20 AF 20 57 B3 B2 38 29  20 AF 20 28 42 44 B2 32  | . W..8) . (BD.2|
000007F0: 20 B0 20 42 44 B2 33 29  20 A7 20 39 33 30 00 14  | . BD.3) . 930..|
00000800: 10 94 02 8B 20 42 50 20  B1 20 32 39 2E 37 20 A7  |.... BP . 29.7 .|
00000810: 20 38 31 30 00 2F 10 9E  02 8B 20 28 42 44 B2 32  | 810./.... (BD.2|
00000820: 20 B0 20 42 44 B2 33 29  20 A7 20 31 30 34 30 00  | . BD.3) . 1040.|
00000830: 51 10 A8 02 8B 20 28 57  B1 B2 31 20 AF 20 57 B3  |Q.... (W..1 . W.|
00000840: B2 35 29 20 AF 20 42 44  B2 34 20 A7 20 31 31 31  |.5) . BD.4 . 111|
00000850: 30 00 71 10 B2 02 8B 20  28 57 B2 32 20 B0 20 57  |0.q.... (W.2 . W|
00000860: B2 33 29 20 AF 20 42 44  B2 35 20 A7 20 31 31 32  |.3) . BD.5 . 112|
00000870: 30 00 7B 10 BC 02 89 20  38 31 30 00 B3 10 C6 02  |0.{.... 810.....|
00000880: 8B 20 28 57 B1 B2 36 20  AF 20 57 B3 B2 38 29 20  |. (W..6 . W..8) |
00000890: AF 20 28 42 44 B2 31 20  B0 20 42 44 B2 33 29 20  |. (BD.1 . BD.3) |
000008A0: AF 20 54 B1 37 35 20 AF  20 48 B1 37 30 20 A7 20  |. T.75 . H.70 . |
000008B0: 39 35 30 00 DD 10 D0 02  8B 20 28 57 B1 B2 36 20  |950...... (W..6 |
000008C0: AF 20 57 B3 B2 38 29 20  AF 20 28 42 44 B2 31 20  |. W..8) . (BD.1 |
000008D0: B0 20 42 44 B2 33 29 20  A7 20 39 37 30 00 F5 10  |. BD.3) . 970...|
000008E0: DA 02 8B 20 57 B2 34 20  AF 20 42 44 B2 35 20 A7  |... W.4 . BD.5 .|
000008F0: 20 31 30 30 30 00 20 11  E4 02 8B 20 57 B2 34 20  | 1000. .... W.4 |
00000900: AF 20 42 50 B1 33 30 2E  35 20 AF 20 28 42 44 B2  |. BP.30.5 . (BD.|
00000910: 34 20 B0 20 42 44 B2 35  29 20 A7 20 31 30 32 30  |4 . BD.5) . 1020|
00000920: 00 40 11 EE 02 8B 20 28  57 B2 34 20 B0 20 57 B2  |.@.... (W.4 . W.|
00000930: 35 29 20 AF 20 42 44 B2  34 20 A7 20 31 30 36 30  |5) . BD.4 . 1060|
00000940: 00 60 11 F8 02 8B 20 28  57 B2 34 20 B0 20 57 B2  |.`.... (W.4 . W.|
00000950: 35 29 20 AF 20 42 44 B2  35 20 A7 20 31 30 38 30  |5) . BD.5 . 1080|
00000960: 00 80 11 02 03 8B 20 28  57 B2 33 20 B0 20 57 B2  |...... (W.3 . W.|
00000970: 34 29 20 AF 20 42 44 B2  34 20 A7 20 31 30 39 30  |4) . BD.4 . 1090|
00000980: 00 A0 11 0C 03 8B 20 57  B2 35 20 AF 20 28 42 44  |...... W.5 . (BD|
00000990: B2 34 20 B0 20 42 44 B2  35 29 20 A7 20 38 36 30  |.4 . BD.5) . 860|
000009A0: 00 C0 11 16 03 8B 20 28  57 B2 31 20 B0 20 57 B2  |...... (W.1 . W.|
000009B0: 32 29 20 AF 20 42 44 B2  34 20 A7 20 31 31 34 30  |2) . BD.4 . 1140|
000009C0: 00 E0 11 20 03 8B 20 28  57 B2 31 20 B0 20 57 B2  |... .. (W.1 . W.|
000009D0: 32 29 20 AF 20 42 44 B2  35 20 A7 20 31 31 36 30  |2) . BD.5 . 1160|
000009E0: 00 1B 12 2A 03 91 20 43  20 89 20 31 31 38 30 2C  |...*.. C . 1180,|
000009F0: 31 32 31 30 2C 20 31 32  36 30 2C 20 31 32 38 30  |1210, 1260, 1280|
00000A00: 2C 20 31 33 30 30 2C 20  38 32 30 2C 20 31 33 31  |, 1300, 820, 131|
00000A10: 30 2C 20 38 34 30 2C 20  38 34 30 00 33 12 34 03  |0, 840, 840.3.4.|
00000A20: 8B 20 54 B1 37 35 20 AF  20 48 B1 36 38 20 A7 20  |. T.75 . H.68 . |
00000A30: 39 35 30 00 3E 12 3E 03  89 20 31 33 31 30 00 57  |950.>.>.. 1310.W|
00000A40: 12 48 03 8B 20 54 B1 37  35 20 AF 20 48 B1 36 38  |.H.. T.75 . H.68|
00000A50: 20 A7 20 31 33 33 30 00  62 12 52 03 89 20 31 33  | . 1330.b.R.. 13|
00000A60: 34 30 00 8B 12 5C 03 99  20 22 46 4F 52 45 43 41  |40...\.. "FORECA|
00000A70: 53 54 3A 20 53 54 52 4F  4E 47 20 57 49 4E 44 53  |ST: STRONG WINDS|
00000A80: 20 41 4E 44 20 48 45 41  56 59 22 00 B8 12 66 03  | AND HEAVY"...f.|
00000A90: 99 20 22 50 52 45 43 49  50 49 54 41 54 49 4F 4E  |. "PRECIPITATION|
00000AA0: 20 43 41 4E 20 42 45 20  45 58 50 45 43 54 45 44  | CAN BE EXPECTED|
00000AB0: 20 57 49 54 48 49 4E 22  00 E5 12 70 03 99 20 22  | WITHIN"...p.. "|
00000AC0: 54 48 45 4E 20 4E 45 58  54 20 36 2D 32 34 20 48  |THEN NEXT 6-24 H|
00000AD0: 4F 55 52 53 2E 20 4C 4F  57 45 52 20 54 45 4D 50  |OURS. LOWER TEMP|
00000AE0: 45 52 41 2D 22 00 06 13  7A 03 99 20 22 54 55 52  |ERA-"...z.. "TUR|
00000AF0: 45 53 20 41 52 45 20 41  4C 53 4F 20 46 4F 52 45  |ES ARE ALSO FORE|
00000B00: 43 41 53 54 2E 22 00 11  13 84 03 89 20 31 35 33  |CAST."...... 153|
00000B10: 30 00 3F 13 8E 03 99 20  22 5B 53 4D 41 4C 4C 20  |0.?.... "[SMALL |
00000B20: 43 48 41 4E 43 45 20 4F  46 20 54 48 55 4E 44 45  |CHANCE OF THUNDE|
00000B30: 52 53 54 4F 52 4D 53 20  54 4F 44 41 59 5D 22 00  |RSTORMS TODAY]".|
00000B40: 45 13 98 03 99 00 74 13  A2 03 99 20 22 46 4F 52  |E.....t.... "FOR|
00000B50: 45 43 41 53 54 3A 20 46  41 49 52 20 57 45 41 54  |ECAST: FAIR WEAT|
00000B60: 48 45 52 20 43 41 4E 20  42 45 20 45 58 50 45 43  |HER CAN BE EXPEC|
00000B70: 54 45 44 22 00 9F 13 AC  03 99 20 22 46 4F 52 20  |TED"...... "FOR |
00000B80: 54 48 45 20 4E 45 58 54  20 32 34 20 54 4F 20 33  |THE NEXT 24 TO 3|
00000B90: 36 20 48 4F 55 52 53 22  3A 89 20 31 35 33 30 00  |6 HOURS":. 1530.|
00000BA0: CE 13 B6 03 99 20 22 5B  53 4C 49 47 48 54 20 43  |..... "[SLIGHT C|
00000BB0: 48 41 4E 43 45 20 4F 46  20 54 48 55 4E 44 45 52  |HANCE OF THUNDER|
00000BC0: 53 54 4F 52 4D 53 20 54  4F 44 41 59 5D 22 00 D4  |STORMS TODAY]"..|
00000BD0: 13 C0 03 99 00 01 14 CA  03 99 20 22 46 4F 52 45  |.......... "FORE|
00000BE0: 43 41 53 54 3A 20 43 4F  4E 54 49 4E 55 45 44 20  |CAST: CONTINUED |
00000BF0: 46 41 49 52 20 57 45 41  54 48 45 52 20 46 4F 52  |FAIR WEATHER FOR|
00000C00: 22 00 2E 14 D4 03 99 20  22 54 48 45 20 4E 45 58  |"...... "THE NEX|
00000C10: 54 20 32 34 20 48 4F 55  52 53 2E 20 54 45 4D 50  |T 24 HOURS. TEMP|
00000C20: 45 52 41 54 55 52 45 53  20 57 49 4C 4C 22 00 55  |ERATURES WILL".U|
00000C30: 14 DE 03 99 20 22 52 45  4D 41 49 4E 20 4E 45 41  |.... "REMAIN NEA|
00000C40: 52 4C 59 20 43 4F 4E 53  54 41 4E 54 2E 22 3A 89  |RLY CONSTANT.":.|
00000C50: 20 31 35 33 30 00 85 14  E8 03 99 20 22 46 4F 52  | 1530...... "FOR|
00000C60: 45 43 41 53 54 3A 20 50  52 45 43 49 50 49 54 41  |ECAST: PRECIPITA|
00000C70: 54 49 4F 4E 20 43 41 4E  20 42 45 20 45 58 50 45  |TION CAN BE EXPE|
00000C80: 43 54 45 44 22 00 A4 14  F2 03 99 20 22 49 4E 20  |CTED"...... "IN |
00000C90: 32 34 20 2D 20 34 38 20  48 52 53 2E 22 3A 89 20  |24 - 48 HRS.":. |
00000CA0: 31 35 33 30 00 D2 14 FC  03 99 20 22 46 4F 52 45  |1530...... "FORE|
00000CB0: 43 41 53 54 3A 20 57 41  52 4D 45 52 20 54 45 4D  |CAST: WARMER TEM|
00000CC0: 50 45 52 41 54 55 52 45  53 20 46 4F 52 20 54 48  |PERATURES FOR TH|
00000CD0: 45 22 00 F0 14 06 04 99  20 22 4E 45 58 54 20 32  |E"...... "NEXT 2|
00000CE0: 34 20 48 4F 55 52 53 2E  22 3A 89 20 31 35 33 30  |4 HOURS.":. 1530|
00000CF0: 00 1B 15 10 04 99 20 22  46 4F 52 45 43 41 53 54  |...... "FORECAST|
00000D00: 3A 20 43 4C 45 41 52 20  57 45 41 54 48 45 52 20  |: CLEAR WEATHER |
00000D10: 41 48 45 41 44 20 57 49  54 48 22 00 3F 15 1A 04  |AHEAD WITH".?...|
00000D20: 99 20 22 43 4F 4F 4C 45  52 20 54 45 4D 50 45 52  |. "COOLER TEMPER|
00000D30: 41 54 55 52 45 53 2E 22  3A 89 20 31 35 33 30 00  |ATURES.":. 1530.|
00000D40: 6E 15 24 04 99 20 22 46  4F 52 45 43 41 53 54 3A  |n.$.. "FORECAST:|
00000D50: 20 48 49 47 48 20 57 49  4E 44 53 20 41 4E 44 20  | HIGH WINDS AND |
00000D60: 50 52 45 43 49 50 49 54  41 54 49 4F 4E 22 00 8E  |PRECIPITATION"..|
00000D70: 15 2E 04 99 20 22 57 49  54 48 49 4E 20 31 32 20  |.... "WITHIN 12 |
00000D80: 48 4F 55 52 53 2E 22 3A  89 20 31 35 33 30 00 C6  |HOURS.":. 1530..|
00000D90: 15 38 04 99 20 22 46 4F  52 45 43 41 53 54 3A 20  |.8.. "FORECAST: |
00000DA0: 50 52 45 43 49 50 49 54  41 54 49 4F 4E 20 57 49  |PRECIPITATION WI|
00000DB0: 54 48 49 4E 20 32 34 20  48 4F 55 52 53 2E 22 3A  |THIN 24 HOURS.":|
00000DC0: 89 20 31 35 33 30 00 F5  15 42 04 99 20 22 46 4F  |. 1530...B.. "FO|
00000DD0: 52 45 43 41 53 54 3A 20  48 49 47 48 20 57 49 4E  |RECAST: HIGH WIN|
00000DE0: 44 53 20 41 4E 44 20 50  52 45 43 49 50 49 54 41  |DS AND PRECIPITA|
00000DF0: 54 49 4F 4E 22 00 15 16  4C 04 99 20 22 57 49 54  |TION"...L.. "WIT|
00000E00: 48 49 4E 20 32 34 20 48  4F 55 52 53 2E 22 3A 89  |HIN 24 HOURS.":.|
00000E10: 20 31 35 33 30 00 5A 16  56 04 99 20 22 46 4F 52  | 1530.Z.V.. "FOR|
00000E20: 45 43 41 53 54 3A 20 53  45 56 45 52 45 20 57 45  |ECAST: SEVERE WE|
00000E30: 41 54 48 45 52 3A 20 53  54 4F 52 4D 59 20 57 49  |ATHER: STORMY WI|
00000E40: 54 48 22 3A 99 20 22 48  49 47 48 20 57 49 4E 44  |TH":. "HIGH WIND|
00000E50: 53 2E 22 3A 89 20 31 35  33 30 00 89 16 60 04 99  |S.":. 1530...`..|
00000E60: 20 22 46 4F 52 45 43 41  53 54 3A 20 43 4F 4E 54  | "FORECAST: CONT|
00000E70: 49 4E 55 49 4E 47 20 50  52 45 43 49 50 49 54 41  |INUING PRECIPITA|
00000E80: 54 49 4F 4E 20 43 41 4E  22 00 C1 16 6A 04 99 20  |TION CAN"...j.. |
00000E90: 22 42 45 20 45 58 50 45  43 54 45 44 20 46 4F 52  |"BE EXPECTED FOR|
00000EA0: 20 54 48 45 20 4E 45 58  54 20 31 32 20 54 4F 20  | THE NEXT 12 TO |
00000EB0: 32 34 20 48 4F 55 52 53  2E 22 3A 89 20 31 35 33  |24 HOURS.":. 153|
00000EC0: 30 00 F1 16 74 04 99 20  22 46 4F 52 45 43 41 53  |0...t.. "FORECAS|
00000ED0: 54 3A 20 53 54 4F 52 4D  53 20 57 49 54 48 20 48  |T: STORMS WITH H|
00000EE0: 49 47 48 20 57 49 4E 44  53 20 57 49 54 48 49 4E  |IGH WINDS WITHIN|
00000EF0: 22 00 28 17 7E 04 99 20  22 32 34 20 48 4F 55 52  |".(.~.. "24 HOUR|
00000F00: 53 2E 20 20 43 4F 4F 4C  45 52 20 54 45 4D 50 45  |S.  COOLER TEMPE|
00000F10: 52 41 54 55 52 45 53 20  41 53 20 57 45 4C 4C 2E  |RATURES AS WELL.|
00000F20: 22 3A 89 20 31 35 33 30  00 55 17 88 04 99 20 22  |":. 1530.U.... "|
00000F30: 46 4F 52 45 43 41 53 54  3A 20 50 52 45 43 49 50  |FORECAST: PRECIP|
00000F40: 49 54 41 54 49 4F 4E 20  57 49 54 48 49 4E 20 32  |ITATION WITHIN 2|
00000F50: 34 2D 33 36 22 00 89 17  92 04 99 20 22 48 4F 55  |4-36"...... "HOU|
00000F60: 52 53 2C 20 53 4C 49 47  48 54 4C 59 20 43 4F 4F  |RS, SLIGHTLY COO|
00000F70: 4C 45 52 20 54 45 4D 50  45 52 41 54 55 52 45 53  |LER TEMPERATURES|
00000F80: 2E 22 3A 89 20 31 35 33  30 00 B0 17 9C 04 99 20  |.":. 1530...... |
00000F90: 22 46 4F 52 45 43 41 53  54 3A 20 49 46 20 43 49  |"FORECAST: IF CI|
00000FA0: 52 52 55 53 20 43 4C 4F  55 44 53 20 41 52 45 22  |RRUS CLOUDS ARE"|
00000FB0: 00 DE 17 A6 04 99 20 22  49 4E 43 52 45 41 53 49  |...... "INCREASI|
00000FC0: 4E 47 20 41 4E 44 20 42  45 43 4F 4D 49 4E 47 20  |NG AND BECOMING |
00000FD0: 4D 4F 52 45 20 44 4F 4D  49 4E 41 4E 54 22 00 0B  |MORE DOMINANT"..|
00000FE0: 18 B0 04 99 20 22 57 45  20 43 41 4E 20 45 58 50  |.... "WE CAN EXP|
00000FF0: 45 43 54 20 57 41 52 4D  45 52 20 57 45 41 54 48  |ECT WARMER WEATH|
00001000: 45 52 2E 22 3A 89 20 31  35 33 30 00 35 18 BA 04  |ER.":. 1530.5...|
00001010: 99 20 22 46 4F 52 45 43  41 53 54 3A 20 35 30 2D  |. "FORECAST: 50-|
00001020: 38 30 25 20 43 48 41 4E  43 45 20 4F 52 20 50 52  |80% CHANCE OR PR|
00001030: 45 43 49 2D 22 00 63 18  C4 04 99 20 22 50 49 54  |ECI-".c.... "PIT|
00001040: 41 54 49 4F 4E 20 57 49  54 48 49 4E 20 54 48 45  |ATION WITHIN THE|
00001050: 20 4E 45 58 54 20 32 34  2D 33 36 20 48 4F 55 52  | NEXT 24-36 HOUR|
00001060: 53 2E 22 00 91 18 CE 04  99 20 22 43 48 41 4E 43  |S."...... "CHANC|
00001070: 45 20 4F 52 20 50 52 45  43 49 50 49 54 41 54 49  |E OR PRECIPITATI|
00001080: 4F 4E 20 57 49 4C 4C 20  49 4E 43 52 45 41 53 45  |ON WILL INCREASE|
00001090: 22 00 BF 18 D8 04 99 20  22 57 49 54 48 20 54 48  |"...... "WITH TH|
000010A0: 45 20 41 43 43 55 4D 55  4C 41 54 49 4F 4E 20 4F  |E ACCUMULATION O|
000010B0: 46 20 4D 4F 52 45 20 43  55 4D 55 4C 4F 2D 22 00  |F MORE CUMULO-".|
000010C0: E2 18 E2 04 99 20 22 4E  49 4D 42 55 53 20 54 59  |..... "NIMBUS TY|
000010D0: 50 45 20 43 4C 4F 55 44  53 2E 22 3A 89 20 31 35  |PE CLOUDS.":. 15|
000010E0: 33 30 00 22 19 EC 04 99  20 22 46 4F 52 45 43 41  |30.".... "FORECA|
000010F0: 53 54 3A 20 31 30 2D 32  30 25 20 43 48 41 4E 43  |ST: 10-20% CHANC|
00001100: 45 20 4F 46 20 22 3B 3A  8B 20 54 B1 33 35 20 A7  |E OF ";:. T.35 .|
00001110: 20 99 22 53 48 4F 57 45  52 53 22 3A 89 20 31 35  | ."SHOWERS":. 15|
00001120: 33 30 00 3F 19 F6 04 99  20 22 53 4E 4F 57 20 46  |30.?.... "SNOW F|
00001130: 4C 55 52 52 49 45 53 22  3A 89 20 31 35 33 30 00  |LURRIES":. 1530.|
00001140: 6E 19 00 05 99 20 22 46  4F 52 45 43 41 53 54 3A  |n.... "FORECAST:|
00001150: 20 39 30 25 20 43 48 41  4E 43 45 20 4F 46 20 48  | 90% CHANCE OF H|
00001160: 45 41 56 59 20 50 52 45  43 49 50 49 2D 22 00 98  |EAVY PRECIPI-"..|
00001170: 19 0A 05 99 20 22 54 41  54 49 4F 4E 20 57 49 54  |.... "TATION WIT|
00001180: 48 49 4E 20 31 32 2D 32  34 20 48 4F 55 52 53 2E  |HIN 12-24 HOURS.|
00001190: 22 3A 89 20 31 35 33 30  00 CF 19 14 05 99 20 22  |":. 1530...... "|
000011A0: 46 4F 52 45 43 41 53 54  3A 20 43 48 41 4E 43 45  |FORECAST: CHANCE|
000011B0: 20 4F 46 20 4C 49 47 48  54 20 50 52 45 43 49 50  | OF LIGHT PRECIP|
000011C0: 49 54 41 54 49 4F 4E 22  3A 89 20 31 35 33 30 00  |ITATION":. 1530.|
000011D0: FA 19 1E 05 99 20 22 46  4F 52 45 43 41 53 54 3A  |..... "FORECAST:|
000011E0: 20 50 52 45 43 49 50 49  54 41 54 49 4F 4E 20 57  | PRECIPITATION W|
000011F0: 49 54 48 20 48 45 41 56  59 22 00 1F 1A 28 05 99  |ITH HEAVY"...(..|
00001200: 20 22 57 49 4E 44 53 20  49 4E 20 32 34 2D 34 38  | "WINDS IN 24-48|
00001210: 20 48 4F 55 52 53 2E 22  3A 89 20 31 35 33 30 00  | HOURS.":. 1530.|
00001220: 4C 1A 32 05 99 20 22 5B  50 4F 53 53 49 42 49 4C  |L.2.. "[POSSIBIL|
00001230: 49 54 59 20 4F 46 20 54  48 55 4E 44 45 52 53 54  |ITY OF THUNDERST|
00001240: 4F 52 4D 53 20 54 4F 44  41 59 5D 22 00 7C 1A 3C  |ORMS TODAY]".|.<|
00001250: 05 99 20 22 46 4F 52 45  43 41 53 54 3A 20 46 41  |.. "FORECAST: FA|
00001260: 49 52 20 57 45 41 54 48  45 52 20 54 4F 44 41 59  |IR WEATHER TODAY|
00001270: 20 57 49 54 48 20 4C 49  47 48 54 22 00 9E 1A 46  | WITH LIGHT"...F|
00001280: 05 99 20 22 54 4F 20 4D  4F 44 45 52 41 54 45 20  |.. "TO MODERATE |
00001290: 57 49 4E 44 53 2E 22 3A  89 20 31 35 33 30 00 BA  |WINDS.":. 1530..|
000012A0: 1A 50 05 8F 20 49 4E 54  45 47 45 52 20 49 4E 50  |.P.. INTEGER INP|
000012B0: 55 54 20 52 4F 55 54 49  4E 45 00 EA 1A 5A 05 99  |UT ROUTINE...Z..|
000012C0: 20 22 45 4E 54 45 52 20  41 4E 20 49 4E 54 45 47  | "ENTER AN INTEG|
000012D0: 45 52 20 42 45 54 57 45  45 4E 22 3B 4D 49 4E 3B  |ER BETWEEN";MIN;|
000012E0: 22 20 41 4E 44 22 3B 4D  41 58 00 FE 1A 64 05 99  |" AND";MAX...d..|
000012F0: 20 22 2C 20 54 52 59 20  41 47 41 49 4E 22 00 17  | ", TRY AGAIN"..|
00001300: 1B 6E 05 45 24 B2 22 22  3A 85 20 45 24 3A 45 20  |.n.E$."":. E$:E |
00001310: B2 20 C5 28 45 24 29 00  37 1B 78 05 8B 20 45 B2  |. .(E$).7.x.. E.|
00001320: 30 20 AF 20 C8 28 45 24  2C 31 29 B3 B1 22 30 22  |0 . .(E$,1).."0"|
00001330: 20 A7 20 31 33 37 30 00  6B 1B 82 05 8B 20 45 B3  | . 1370.k.... E.|
00001340: B1 B5 28 45 29 20 A7 20  99 20 22 50 4C 45 41 53  |..(E) . . "PLEAS|
00001350: 45 20 45 4E 54 45 52 20  41 4E 20 49 4E 54 45 47  |E ENTER AN INTEG|
00001360: 45 52 22 3B 3A 89 20 31  33 38 30 00 8D 1B 8C 05  |ER";:. 1380.....|
00001370: 8B 20 4D 49 4E B1 45 20  A7 20 99 20 22 54 4F 4F  |. MIN.E . . "TOO|
00001380: 20 4C 4F 57 22 3B 3A 89  20 31 33 38 30 00 B0 1B  | LOW";:. 1380...|
00001390: 96 05 8B 20 45 B1 4D 41  58 20 A7 20 99 20 22 54  |... E.MAX . . "T|
000013A0: 4F 4F 20 48 49 47 48 22  3B 3A 89 20 31 33 38 30  |OO HIGH";:. 1380|
000013B0: 00 B6 1B A0 05 8E 00 D6  1B AA 05 8F 20 52 45 41  |............ REA|
000013C0: 4C 20 4E 55 4D 42 45 52  20 49 4E 50 55 54 20 52  |L NUMBER INPUT R|
000013D0: 4F 55 54 49 4E 45 00 04  1C B4 05 99 20 22 45 4E  |OUTINE...... "EN|
000013E0: 54 45 52 20 41 20 4E 55  4D 42 45 52 20 42 45 54  |TER A NUMBER BET|
000013F0: 57 45 45 4E 22 3B 4D 49  4E 3B 22 20 41 4E 44 22  |WEEN";MIN;" AND"|
00001400: 3B 4D 41 58 00 18 1C BE  05 99 20 22 2C 20 54 52  |;MAX...... ", TR|
00001410: 59 20 41 47 41 49 4E 22  00 4D 1C C8 05 45 24 B2  |Y AGAIN".M...E$.|
00001420: 22 22 3A 85 20 45 24 3A  45 20 B2 20 C5 28 45 24  |"":. E$:E . .(E$|
00001430: 29 3A 8B 20 45 B2 30 20  AF 20 C8 28 45 24 2C 31  |):. E.0 . .(E$,1|
00001440: 29 B3 B1 22 30 22 20 A7  20 31 34 36 30 00 6F 1C  |).."0" . 1460.o.|
00001450: D2 05 8B 20 4D 49 4E B1  45 20 A7 20 99 20 22 54  |... MIN.E . . "T|
00001460: 4F 4F 20 4C 4F 57 22 3B  3A 89 20 31 34 37 30 00  |OO LOW";:. 1470.|
00001470: 92 1C DC 05 8B 20 45 B1  4D 41 58 20 A7 20 99 20  |..... E.MAX . . |
00001480: 22 54 4F 4F 20 48 49 47  48 22 3B 3A 89 20 31 34  |"TOO HIGH";:. 14|
00001490: 37 30 00 98 1C E6 05 8E  00 A8 1C F0 05 99 20 C7  |70............ .|
000014A0: 28 31 34 37 29 3B 3A 8E  00 C0 1C FA 05 99 3A 99  |(147);:.......:.|
000014B0: 20 4D 3B 22 2F 22 3B 44  3B 22 2F 22 3B 59 3A 99  | M;"/";D;"/";Y:.|
000014C0: 00 E7 1C 04 06 99 20 22  54 45 4D 50 45 52 41 54  |...... "TEMPERAT|
000014D0: 55 52 45 20 49 53 3A 20  22 3B 54 3B 22 20 44 45  |URE IS: ";T;" DE|
000014E0: 47 2E 20 46 22 3A 99 00  05 1D 0E 06 99 20 22 48  |G. F":....... "H|
000014F0: 55 4D 49 44 49 54 59 20  49 53 3A 20 22 3B 48 3B  |UMIDITY IS: ";H;|
00001500: 22 25 22 3A 99 00 33 1D  18 06 99 20 22 42 41 52  |"%":..3.... "BAR|
00001510: 4F 4D 45 54 52 49 43 20  50 52 45 53 53 55 52 45  |OMETRIC PRESSURE|
00001520: 20 49 53 3A 20 22 3B 42  50 3B 22 20 49 4E 2E 20  | IS: ";BP;" IN. |
00001530: 48 47 22 00 48 1D 22 06  81 20 4A B2 31 20 A4 20  |HG".H.".. J.1 . |
00001540: 33 35 30 30 3A 82 20 4A  00 56 1D 2C 06 99 3A 99  |3500:. J.V.,..:.|
00001550: 3A 99 3A 99 3A 99 00 86  1D 36 06 99 20 22 50 52  |:.:.:....6.. "PR|
00001560: 45 53 53 20 3C 52 45 54  55 52 4E 3E 20 54 4F 20  |ESS <RETURN> TO |
00001570: 4D 41 4B 45 20 41 4E 4F  54 48 45 52 20 46 4F 52  |MAKE ANOTHER FOR|
00001580: 45 43 41 53 54 22 00 8F  1D 40 06 85 20 50 24 00  |ECAST"...@.. P$.|
00001590: 9A 1D 4A 06 8D 20 31 35  32 30 00 A4 1D 54 06 89  |..J.. 1520...T..|
000015A0: 20 31 32 30 00 00 00                              | 120...         |

..G.... COPYRIGHT 1987 COMPUTE! PUBLICAT
IONS, INC.  ALL RIGHTS RESERVED.R.... 15
20.N.... ".THE WEATHER WIZARD".T.(.....2
.. "COPYRIGHT 1987 COMPUTE! PUBLICATIONS
":. "ALL RIGHTS RESERVED".N.<.. J.1 . 30
00:. J.Y.F.. 1520...P.. "ENTER MONTH (US
E NUMBER)";:MIN.1:MAX.12:. 1390:M . E.B.
Z.. "ENTER DAY";:MIN.1:MAX.31:. 1390:D .
 E.V.D.. "ENTER THE YEAR";:MIN.0:MAX.210
0:. 1390:Y . E...N.. 1520...X.. "PLEASE 
INPUT NUMBERS WHEN PROMPTED BY ?".......
..... " FROM THE MENU ENTER THE NUMBER C
ORRES-"...... "PONDING TO THE WIND DIREC
TION"... ...@.... "N= NORTH, S= SOUTH, E
= EAST, W= WEST".L.... "(NOTE: THE DIREC
TIONS ARE WHERE THE"...... "WIND COMES F
ROM, NOT WHERE IT IS GOING.".I.H.. "SO, 
'NE' MEANS A WIND BLOWING OUT OF"...R.. 
"THE NORTHEAST.)"............ "---------
 WIND DIRECTION MENU ---------".......<.
..."1. N".4)"2. NE".3)"3. E".B.....B....
"4. SE".3)"5. S".4)"6. SW".H.......".."7
. W".4)"8. NW".3)"9. NO WIND"...,.....6.
....@.MIN.1:MAX.9:. 1390:W . E.A.J.. 152
0...T.. "ENTER BAROMETRIC PRESSURE":."IN
 INCHES OF MERCURY (EX:29.95)";.'.^.MIN.
27:MAX.33:. 1480:BP . E.2.H.. 1520.A.R..
 "PLEASE ENTER THE NUMBER THAT DESCRIBES
"...|.. "CURRENT BAROMETRIC ACTIVITY."..
.... "BAROMETER IS: 1. STEADY".A.... .14
)"2. RISING FAST"...... .14)"3. SLOWLY R
ISING"...... .14)"4. FALLING FAST"......
 .14)"5. SLOWLY FALLING".......<.B.MIN.1
:MAX.5:. 1390:BD . E.G.L.. 1520.T.V.. "P
LEASE ENTER THE NUMBER FOR THE MAIN"....
.. "CLOUD TYPE FOR YOUR LOCATION.". ....
.U.... "1. CIRRUS":. "2. CUMULONIMBUS":.
 "3. STRATUS"...... "4. NIMBOSTRATUS":. 
"5. ALTOSTRATUS":. "6. ALTOCUMULUS".M...
. "7. CIRROSTRATUS":. "8. CUMULUS":. "9.
 NO CLOUDS":..J...MIN.1:MAX.9:. 1390:C .
 E.U.... 1520...&.. "INPUT HUMIDITY":. "
(EX. INPUT 50 FOR 50% HUMIDITY)";.P.0.MI
N.0:MAX.100:. 1480:H . E...:.. 1520...D.
. "INPUT TEMPERATURE IN FAHRENHEIT":."(E
X. 63 = 63 DEG. F)";.>.N.MIN..130:MAX.13
0:. 1480:T . E.I.X.. 1520.Y.B.. FORECAST
S.O.L.. BP . 29.9 . 710...V.. (W..1 . W.
.5) . BD.4 . BP.29.7 . 860.T.... (W..6 .
 W..8) . (BD..1 . BD..3) . T.75 . H.68 .
 910...... (W..6 . W..8) . (BD.2 . BD.3)
 . 930...... BP . 29.7 . 810./.... (BD.2
 . BD.3) . 1040.Q.... (W..1 . W..5) . BD
.4 . 1110.Q.... (W.2 . W.3) . BD.5 . 112
0.{.... 810...F.. (W..6 . W..8) . (BD.1 
. BD.3) . T.75 . H.70 . 950...P.. (W..6 
. W..8) . (BD.1 . BD.3) . 970...Z.. W.4 
. BD.5 . 1000. .... W.4 . BP.30.5 . (BD.
4 . BD.5) . 1020.@.... (W.4 . W.5) . BD.
4 . 1060.`.... (W.4 . W.5) . BD.5 . 1080
...... (W.3 . W.4) . BD.4 . 1090. .... W
.5 . (BD.4 . BD.5) . 860...... (W.1 . W.
2) . BD.4 . 1140... .. (W.1 . W.2) . BD.
5 . 1160...*.. C . 1180,1210, 1260, 1280
, 1300, 820, 1310, 840, 840.3.4.. T.75 .
 H.68 . 950.>.>.. 1310.W.H.. T.75 . H.68
 . 1330.B.R.. 1340...\.. "FORECAST: STRO
NG WINDS AND HEAVY"...F.. "PRECIPITATION
 CAN BE EXPECTED WITHIN"...P.. "THEN NEX
T 6-24 HOURS. LOWER TEMPERA-"...Z.. "TUR
ES ARE ALSO FORECAST."...... 1530.?.... 
"[SMALL CHANCE OF THUNDERSTORMS TODAY]".
E.....T.... "FORECAST: FAIR WEATHER CAN 
BE EXPECTED"...... "FOR THE NEXT 24 TO 3
6 HOURS":. 1530.N.... "[SLIGHT CHANCE OF
 THUNDERSTORMS TODAY]".T.......J.. "FORE
CAST: CONTINUED FAIR WEATHER FOR"...T.. 
"THE NEXT 24 HOURS. TEMPERATURES WILL".U
.... "REMAIN NEARLY CONSTANT.":. 1530...
... "FORECAST: PRECIPITATION CAN BE EXPE
CTED"...... "IN 24 - 48 HRS.":. 1530.R..
.. "FORECAST: WARMER TEMPERATURES FOR TH
E"...... "NEXT 24 HOURS.":. 1530...... "
FORECAST: CLEAR WEATHER AHEAD WITH".?...
. "COOLER TEMPERATURES.":. 1530.N.$.. "F
ORECAST: HIGH WINDS AND PRECIPITATION"..
.... "WITHIN 12 HOURS.":. 1530.F.8.. "FO
RECAST: PRECIPITATION WITHIN 24 HOURS.":
. 1530...B.. "FORECAST: HIGH WINDS AND P
RECIPITATION"...L.. "WITHIN 24 HOURS.":.
 1530.Z.V.. "FORECAST: SEVERE WEATHER: S
TORMY WITH":. "HIGH WINDS.":. 1530...`..
 "FORECAST: CONTINUING PRECIPITATION CAN
".A.J.. "BE EXPECTED FOR THE NEXT 12 TO 
24 HOURS.":. 1530...T.. "FORECAST: STORM
S WITH HIGH WINDS WITHIN".(.~.. "24 HOUR
S.  COOLER TEMPERATURES AS WELL.":. 1530
.U.... "FORECAST: PRECIPITATION WITHIN 2
4-36"...... "HOURS, SLIGHTLY COOLER TEMP
ERATURES.":. 1530...... "FORECAST: IF CI
RRUS CLOUDS ARE"...... "INCREASING AND B
ECOMING MORE DOMINANT"...... "WE CAN EXP
ECT WARMER WEATHER.":. 1530.5.... "FOREC
AST: 50-80% CHANCE OR PRECI-".C.D.. "PIT
ATION WITHIN THE NEXT 24-36 HOURS."...N.
. "CHANCE OR PRECIPITATION WILL INCREASE
"...X.. "WITH THE ACCUMULATION OF MORE C
UMULO-"...... "NIMBUS TYPE CLOUDS.":. 15
30.".... "FORECAST: 10-20% CHANCE OF ";:
. T.35 . ."SHOWERS":. 1530.?.... "SNOW F
LURRIES":. 1530.N.... "FORECAST: 90% CHA
NCE OF HEAVY PRECIPI-"...... "TATION WIT
HIN 12-24 HOURS.":. 1530.O.... "FORECAST
: CHANCE OF LIGHT PRECIPITATION":. 1530.
..... "FORECAST: PRECIPITATION WITH HEAV
Y"...(.. "WINDS IN 24-48 HOURS.":. 1530.
L.2.. "[POSSIBILITY OF THUNDERSTORMS TOD
AY]".|.<.. "FORECAST: FAIR WEATHER TODAY
 WITH LIGHT"...F.. "TO MODERATE WINDS.":
. 1530...P.. INTEGER INPUT ROUTINE...Z..
 "ENTER AN INTEGER BETWEEN";MIN;" AND";M
AX...D.. ", TRY AGAIN"...N.E$."":. E$:E 
. E(E$).7.X.. E.0 . H(E$,1).."0" . 1370.
K.... E...(E) . . "PLEASE ENTER AN INTEG
ER";:. 1380...... MIN.E . . "TOO LOW";:.
 1380...... E.MAX . . "TOO HIGH";:. 1380
... ...V.... REAL NUMBER INPUT ROUTINE..
.... "ENTER A NUMBER BETWEEN";MIN;" AND"
;MAX...... ", TRY AGAIN".M.H.E$."":. E$:
E . E(E$):. E.0 . H(E$,1).."0" . 1460.O.
R.. MIN.E . . "TOO LOW";:. 1470...... E.
MAX . . "TOO HIGH";:. 1470............ G
(147);:.......:. M;"/";D;"/";Y:....... "
TEMPERATURE IS: ";T;" DEG. F":....... "H
UMIDITY IS: ";H;"%":..3.... "BAROMETRIC 
PRESSURE IS: ";BP;" IN. HG".H.".. J.1 . 
3500:. J.V.,..:.:.:.:....6.. "PRESS <RET
URN> TO MAKE ANOTHER FORECAST"...@.. P$.
..J.. 1520...T.. 120...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL