From: Paul Sprangers <Paul@sprie.nl>
Subject: Re: Director's Calendar - weird bug
Newsgroups: comp.sys.acorn.programmer
Date: Tue, 02 Aug 2022 15:36:24 +0200 (Custom)
Message-ID: <5a11ad2c7ePaul@sprie.nl>
References: <c8cf64115a.harriet@bazleyfamily.co.uk>     <483b6a115a.harriet@bazleyfamily.co.uk>
User-Agent: Pluto/3.18 (RISC OS/5.29) NewsHound/v1.52-32
Organization: None
Path: csiph.com!news.mixmin.net!sewer!alphared!news.uzoreto.com!news-out.netnews.com!news.alt.net!fdc2.netnews.com!peer01.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.ams4!peer.am4.highwinds-media.com!news.highwinds-media.com!feed.abavia.com!abe004.abavia.com!abp002.abavia.com!news.kpn.nl!not-for-mail
Lines: 21
Injection-Date: Tue, 02 Aug 2022 15:39:14 +0200
Injection-Info: news.kpn.nl; mail-complaints-to="abuse@kpn.com"
X-Received-Bytes: 1228
Xref: csiph.com comp.sys.acorn.programmer:6397

In article <483b6a115a.harriet@bazleyfamily.co.uk>,
   Harriet Bazley <harriet@bazleyfamily.co.uk> wrote:

To me, the code doesn't look extremely efficient. For example, the redraw
routine will never be called, as the window consists of icons only.

Anyhow, it seems that this small change may work, as far as I've tested it
(admittedly, not very far):

  date% = VAL(MID$(time$,5,2))
  IF date% > 1 THEN
     FOR n=date% TO 2 STEP -1
       PROCcalday_change(-1)
     NEXT n
  ENDIF

Paul

-- 
https://riscos.sprie.nl