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
 50  PRINT D$"-/SIDER/MISC/NEW.MODEM"
 55  GOSUB 1015: GOSUB 1015
 60  & Z: REM  * INIT MODEM WITH AT COMMANDS
 62  PRINT D$"PR#4": PRINT D$"IN#4"
 63  GOSUB 1015
 70  PRINT "ATDT"DI$: GOSUB 1015
 79  REM  * Next line gets modem result code *
 80  & W: IF  PEEK (255) <  > 1 THEN 1000
 140 A = 0
 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 14000: NEXT 
 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 
 2020  RETURN