From Newsgroup: comp.sys.acorn.misc

Thought this might be of interest...

MODE 1920,1080,32 : OFF
x = 1920: y = 1080
REPEAT
REM Random direction
dir = RND(4)
IF dir = 1 THEN y = y + 10 : REM Up
IF dir = 2 THEN x = x + 10 : REM Right
IF dir = 3 THEN y = y - 10 : REM Down
IF dir = 4 THEN x = x - 10 : REM Left

REM Keep graphic on screen
IF x < 0 THEN x = 0
IF x > 3838 THEN x = 3838
IF y < 0 THEN y = 0
IF y > 2158 THEN y = 2158

GCOL RND(255),RND(255),RND(255)
CIRCLE FILL x, y, 20
FOR delay = 1 TO 1000 : NEXT delay
UNTIL FALSE

Parameters set for 1920 x 1080 monitors - alter as required.

Warning: Very fast graphic routine and might cause migraine - if
concerned simply increase delay (suggest 100000 instead of 1000).

Richards

--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.sys.acorn.misc

On 9 Jan 2026 as I do recall,
Richard Ashbery wrote:

Thought this might be of interest...

It works; what is "DeepSeek"?
--
Harriet Bazley == Loyaulte me lie ==

We have met the enemy, and he is us.
--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.sys.acorn.misc

In article <5c989287c3basura@invalid.addr.uk>,
Richard Ashbery <basura@invalid.addr.uk> wrote:

Thought this might be of interest...

MODE 1920,1080,32 : OFF

etc...

Okay, but why would this be of interest?

Paul

--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.sys.acorn.misc

In Nachricht <5c989287c3basura@invalid.addr.uk>
Richard Ashbery <basura@invalid.addr.uk> haben Sie
geschrieben:

Thought this might be of interest...

...

Parameters set for 1920 x 1080 monitors - alter as required.

Warning: Very fast graphic routine and might cause migraine - if
concerned simply increase delay (suggest 100000 instead of 1000).

Richards

Hallo Richards,

nice and simple Algo, could be a good screensaver ;-) .


Greetings Jnrgen
--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.sys.acorn.misc

In message <5c989287c3basura@invalid.addr.uk>
Richard Ashbery <basura@invalid.addr.uk> wrote:

Thought this might be of interest...

MODE 1920,1080,32 : OFF
x = 1920: y = 1080
REPEAT
REM Random direction
dir = RND(4)
IF dir = 1 THEN y = y + 10 : REM Up
IF dir = 2 THEN x = x + 10 : REM Right
IF dir = 3 THEN y = y - 10 : REM Down
IF dir = 4 THEN x = x - 10 : REM Left

REM Keep graphic on screen
IF x < 0 THEN x = 0
IF x > 3838 THEN x = 3838
IF y < 0 THEN y = 0
IF y > 2158 THEN y = 2158

GCOL RND(255),RND(255),RND(255)
CIRCLE FILL x, y, 20
FOR delay = 1 TO 1000 : NEXT delay
UNTIL FALSE

Parameters set for 1920 x 1080 monitors - alter as required.

Warning: Very fast graphic routine and might cause migraine - if
concerned simply increase delay (suggest 100000 instead of 1000).

Had to Google what DeepSeek was!
Good to see AI cable of writing BBC BASIC code!
--
Paul Stewart
Sent from A9home running RISC OS 4.42
--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.sys.acorn.misc

In message <5c989287c3basura@invalid.addr.uk>
Richard Ashbery <basura@invalid.addr.uk> wrote:

Thought this might be of interest...

MODE 1920,1080,32 : OFF
x = 1920: y = 1080
REPEAT
REM Random direction
dir = RND(4)
IF dir = 1 THEN y = y + 10 : REM Up
IF dir = 2 THEN x = x + 10 : REM Right
IF dir = 3 THEN y = y - 10 : REM Down
IF dir = 4 THEN x = x - 10 : REM Left

REM Keep graphic on screen
IF x < 0 THEN x = 0
IF x > 3838 THEN x = 3838
IF y < 0 THEN y = 0
IF y > 2158 THEN y = 2158

GCOL RND(255),RND(255),RND(255)
CIRCLE FILL x, y, 20
FOR delay = 1 TO 1000 : NEXT delay
UNTIL FALSE

Parameters set for 1920 x 1080 monitors - alter as required.

Warning: Very fast graphic routine and might cause migraine - if
concerned simply increase delay (suggest 100000 instead of 1000).

Slight improvement by getting current the current screen mode

MODE MODE
REM get current screen mode
SYS"OS_ScreenMode",1 TO r0%,r1%
x%= r1%!4
y%= r1%!8
PRINT x%
PRINT y%
x=x%
y=y%
x%=(x%*2)-2
y%=(y%*2)-2

REM MODE 1360,768,32 : OFF
REM x = 1360: y = 768
REPEAT
REM Random direction
dir = RND(4)
IF dir = 1 THEN y = y + 10 : REM Up
IF dir = 2 THEN x = x + 10 : REM Right
IF dir = 3 THEN y = y - 10 : REM Down
IF dir = 4 THEN x = x - 10 : REM Left

REM Keep graphic on screen
IF x < 0 THEN x = 0
IF x > x% THEN x = x%
IF y < 0 THEN y = 0
IF y > y% THEN y = y%

GCOL RND(255),RND(255),RND(255)
CIRCLE FILL x, y, 20
FOR delay = 1 TO 1000 : NEXT delay
UNTIL FALSE
--
Paul Stewart
Sent from A9home running RISC OS 4.42
--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.sys.acorn.misc

In article <b491ab985c.Paul@phorefaux>,
Paul Stewart <phorefaux@gmail.com> wrote:

In message <5c989287c3basura@invalid.addr.uk>
Richard Ashbery <basura@invalid.addr.uk> wrote:

[snip my message]

Slight improvement by getting current the current screen mode

MODE MODE
REM get current screen mode
SYS"OS_ScreenMode",1 TO r0%,r1%
x%= r1%!4
y%= r1%!8
PRINT x%
PRINT y%
x=x%
y=y%
x%=(x%*2)-2
y%=(y%*2)-2

REM MODE 1360,768,32 : OFF
REM x = 1360: y = 768
REPEAT
REM Random direction
dir = RND(4)
IF dir = 1 THEN y = y + 10 : REM Up
IF dir = 2 THEN x = x + 10 : REM Right
IF dir = 3 THEN y = y - 10 : REM Down
IF dir = 4 THEN x = x - 10 : REM Left

REM Keep graphic on screen
IF x < 0 THEN x = 0
IF x > x% THEN x = x%
IF y < 0 THEN y = 0
IF y > y% THEN y = y%

GCOL RND(255),RND(255),RND(255)
CIRCLE FILL x, y, 20
FOR delay = 1 TO 1000 : NEXT delay
UNTIL FALSE

I wanted to keep code to bear minimum but changes are of course
necessary to get code to run on other monitor resolutions.


Richard

--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.sys.acorn.misc

In article <5c989ed0baPaul@sprie.nl>,
Paul Sprangers <Paul@sprie.nl> wrote:

In article <5c989287c3basura@invalid.addr.uk>,
Richard Ashbery <basura@invalid.addr.uk> wrote:

Thought this might be of interest...

MODE 1920,1080,32 : OFF

etc...

Okay, but why would this be of interest?

Why not?

Perhaps better to post in c.s.a.programmer.

Richard

--- Synchronet 3.21a-Linux NewsLink 1.2