10  REM    Weather
 20  REM    Written on 02/27/89 by -DC-
 30  REM 
 35  ONERR  GOTO 235
 40 D$ =  CHR$ (4)
 41 DI$ = "7673950":GF = 0
 45  PRINT D$"-/SIDER/MISC/HAYES.DVR": PRINT D$"-/SIDER/MISC/MODEMWORKS"
 46  PRINT D$"-/SIDER/MISC/AMPERWORKS"
 50  &  SCRN( 0): & SLOT(4): &  USR (0): &  SPEED= 0: & HANGUP
 55  & OUTPUT(2): &  CALL DI$
 60  DIM A$(2000)
 80  &  WAIT  FOR CARRIER,A: IF A <  > 0 THEN  PRINT A: GOTO 235
 90  FOR Z = 1 TO 20000: &  WAIT  FOR "(tm) >",A
 100  IF A = 0 THEN  NEXT : PRINT A: GOTO 235
 140 A = 0: PRINT "FP WA"
 150  &  GET A$(A)
 160  IF  RIGHT$ (A$(A),1) = ">" THEN 200
 170 A = A + 1: GOTO 150
 200  & OUTPUT(3)
 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  & HANGUP
 1000  REM 
 1010  POKE 36864,99: PR# 7