What's your best easy to remember BASIC program you could type in and leave running on a computer in a shop / classroom?

[u/kimondo]

/r/bbcmicro/comments/1vmh9m5/whats_your_best_easy_to_remember_basic_program/

We’ve been discussing this on the BBC Micro and Spectrum subreddits!

[u/dr_stevious]

10 POKE 646, 0
20 PRINT CHR$(147)
30 PRINT " DR STEVIOUS RULEZ!!!";
40 FOR I = 0 TO 15
50 POKE 53280, I
60 POKE 53281, I
70 NEXT I
80 GOTO 30

This is typical of what I would leave running on the display C64 in a department store when I was a kid 😊

[u/Pengo2001]

10 PRINT ”HELLO WORLD“

20 GOTO 10

[u/fzammetti → u/Pengo2001]

Probably the same one everyone my age will name, but it's been in my head since 4th grade in, I forget, 1981 or so (and on a T-shirt I have since ~2020):

10 PRINT CHR$(205.5+RND(1)); : GOTO 10

[u/CompetitiveSleeping]

10 FOR T=49152 TO 49157:READ Q:POKE T,Q:NEXT T

20 SYS 49152

30 DATA 238,32,208,76,0,192

[u/Musicman1972 → u/CompetitiveSleeping]

I saw this and thought "that can't be easy to remember" but then instantly knew what it did so I guess it was!

[u/OMGCluck]

10 D=53280:POKED,0
20 K=PEEK(D):POKED,PEEK(D+1):POKED+1,K:FORK=KTOD/8:NEXT:GOTO20

Like being gently POKED with a FORK every 8 seconds.

[u/Linker3000]

Wait 6502,100

(PET)