10  REM    Weather
 20  REM    Written on 02/27/89 by -DC-
 30  REM 
 35  ONERR  GOTO 235
 40 D$ =  CHR$ (4): DIM A$(5000)
 41 DI$ = "7673950":GF = 0
 55  POKE 49355,22
 60  PRINT D$"PR#4"
 62  PRINT : GOSUB 1015
 63  PRINT "ATS0=0E0&C1X1DT"DI$: GOSUB 1015
 75  CALL 24617: REM   * DISABLE INTERRUPTS... ALLOW INPUTS *
 78  PRINT D$"IN#4"
 80  FOR Z = 1 TO 22000: NEXT 
 120  PRINT 
 125  FOR A = 1 TO 2: GET A$(A): IF A$(A) = ">" THEN 140
 130  NEXT : GOTO 240
 135  IF  PEEK (49355) <  > 22 THEN GF = 1: GOTO 235
 140 A = 0: PRINT "FP WA"
 145  GET A$
 150  GET A$(A)
 160  IF A$(A) = ">" THEN 200
 170 A = A + 1: GOTO 150
 200  PRINT D$"IN#0": PRINT D$"PR#0"
 205 F$ = "/SIDER/DATA/TEMP": PRINT D$"OPEN"F$: PRINT D$"READ"F$
 208  INPUT I$: PRINT D$"CLOSE": PRINT D$"DELETE"F$
 209 F$ = "/SIDER/DATA/WEATHER.TXT": PRINT D$"DELETE"F$
 210  PRINT D$"OPEN"F$: PRINT D$"WRITE"F$
 215  PRINT I$: PRINT "Weather"
 220  FOR B = 1 TO (A - 20): PRINT A$(B);: NEXT 
 230  PRINT D$"CLOSE"
 235  PRINT D$"PR#4"
 240 I$ = "BYE": PRINT I$
 250  FOR A = 1 TO 8000: NEXT 
 255  IF GF = 1 THEN  RUN 
 1000  REM 
 1010  POKE 36864,99: PR# 7
 1015  FOR A = 1 TO 1000: NEXT : RETURN 
 2000  FOR X = 1 TO  LEN (I$):K =  ASC ( MID$ (I$,X,1))
 2005  PRINT  CHR$ (K);
 2010  POKE 49352,K: FOR K = 1 TO 300: NEXT : NEXT 
 2011  PRINT 
 2015  POKE 49352,13: FOR K = 1 TO 10000: NEXT : POKE 49355,22
 2020  RETURN