Any short type-ins for unattended Beebs?

discussion of beeb/electron applications, languages, utils and educational s/w
User avatar
lurkio
Posts: 1735
Joined: Tue Apr 09, 2013 11:30 pm
Location: Doomawangara
Contact:

Re: Any short type-ins for unattended Beebs?

Post by lurkio » Thu May 24, 2018 10:21 am

timmy wrote:My school favourite was to do a quick:

Code: Select all

?&FE40=0:CLS
on all the machines before the teacher came and then sit down and wait for people to start typing...
Simple but evil!
davidb wrote:One for the Electron. Perhaps someone can convert it to the Beeb:

Code: Select all

10FOR A%=8 TO &20
20?&FE03=A%
30NEXT
40RUN
&FE03 controls the top 6 bits of the screen start address.
What exactly is it meant to do? The results, in ElectrEm at least, are variable.

:?:

User avatar
davidb
Posts: 2145
Joined: Sun Nov 11, 2007 10:11 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by davidb » Thu May 24, 2018 10:43 am

lurkio wrote:What exactly is it meant to do? The results, in ElectrEm at least, are variable.
Ah, it turns out I had run some of the previous programs before running this one. Try the next iteration on this theme:

Code: Select all

10FOR A%=8 TO &20
20?&FE03=A%
25!(&1000+(RND AND &7FFF))=RND
30NEXT
40RUN

User avatar
davidb
Posts: 2145
Joined: Sun Nov 11, 2007 10:11 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by davidb » Thu May 24, 2018 10:54 am

This can probably be shortened but is a more colourful version of the previous program:

Code: Select all

10MODE5
20VDU23,1,0;0;0;0;
30A%=&18
40REPEAT
50!(&3000+RND(&4FFF))=RND
60?&FE03=A%
70A%=A%+1
80IF A%=&40 A%=&18
90UNTIL FALSE
Edit: Also try MODE 2 instead of MODE 5 for even more colours!

User avatar
davidb
Posts: 2145
Joined: Sun Nov 11, 2007 10:11 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by davidb » Thu May 24, 2018 12:13 pm

And to round off for now, here's one that switches screen modes periodically:

Code: Select all

10MODE2
20?&FE00=0
30M%=2
40A%=&18
50B%=0
60REPEAT
70!(&3000+RND(&4FFF))=RND
80?&FE03=A%
90A%=A%+1
100IF A%=&40 A%=&18
110B%=B%+1
120IF B%=256 B%=0:M%=M%+1:?&FE07=(M%AND7)*8
130UNTIL FALSE
Edit: Video on YouTube.

pcbbc
Posts: 8
Joined: Wed Jun 21, 2017 2:23 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by pcbbc » Fri Jun 01, 2018 4:42 pm

It's a silly little program, but one I rather admire:

Code: Select all

10 READ A$
20 PRINT "   10 READ A$"'"   20 ";A$'"   30 DATA ";A$
30 DATA PRINT "   10 READ A$"'"   20 ";A$'"   30 DATA ";A$
I should point out not my original creation (An Acorn Abuser quiz/competition BITD, IIRC).

User avatar
BigEd
Posts: 2056
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Fri Jun 01, 2018 5:14 pm

I do like a quine! But they always are a bit of a head-scratcher...

User avatar
lurkio
Posts: 1735
Joined: Tue Apr 09, 2013 11:30 pm
Location: Doomawangara
Contact:

Re: Any short type-ins for unattended Beebs?

Post by lurkio » Fri Jun 01, 2018 6:44 pm

pcbbc wrote:
Fri Jun 01, 2018 4:42 pm
It's a silly little program, but one I rather admire:

Code: Select all

10 READ A$
20 PRINT "   10 READ A$"'"   20 ";A$'"   30 DATA ";A$
30 DATA PRINT "   10 READ A$"'"   20 ";A$'"   30 DATA ";A$
I should point out not my original creation (An Acorn Abuser quiz/competition BITD, IIRC).

Finally, an answer to the puzzle in the April 1986 issue of The Micro User!:

Untitled.jpg

:idea:

User avatar
AndyF
Posts: 1058
Joined: Sat Feb 23, 2008 10:16 pm
Location: Derby
Contact:

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Sun Jun 03, 2018 1:50 pm

Great stuff! :)

I did always find it odd that you cannot in BBC Basic so something like this:

10 CLS
20 PRINT 123
30 PRINT 321
40 LIST 30

Which is a bit of a shame in some ways. :oops: although it would be of limited use, I do note that both ZX and Amstrad Basic's (as I have the machines to hand) both are happy to do that and list said line/lines, although the ZX does list from that point rather than "just this line"
Andy

* NEW * The Jetset Willy and Manic Miner community :)

Adventure games ported across to the BBC (in progress) as soon as I can find some time!

pcbbc
Posts: 8
Joined: Wed Jun 21, 2017 2:23 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by pcbbc » Tue Jun 05, 2018 2:41 pm

lurkio wrote:
Fri Jun 01, 2018 6:44 pm
Finally, an answer to the puzzle in the April 1986 issue of The Micro User!
Ah, Micro User. Well done - How long did it take you to find that?!

Solution then followed in the following month's issue...
solution.png
Kudos to Peter Lloyd of Dunstable.

User avatar
AndyF
Posts: 1058
Joined: Sat Feb 23, 2008 10:16 pm
Location: Derby
Contact:

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Wed Jun 06, 2018 11:15 am

pcbbc wrote:
Tue Jun 05, 2018 2:41 pm
Off topic (sorry) would you happen to be Stuart of PCBBC ? :?: Just curious. I did buy this 'back then' for a crispy £5 cheque, I think I still have the original 3.5 floppy somewhere too!
Andy

* NEW * The Jetset Willy and Manic Miner community :)

Adventure games ported across to the BBC (in progress) as soon as I can find some time!

User avatar
lurkio
Posts: 1735
Joined: Tue Apr 09, 2013 11:30 pm
Location: Doomawangara
Contact:

Re: Any short type-ins for unattended Beebs?

Post by lurkio » Wed Jun 06, 2018 12:03 pm

pcbbc wrote:
Tue Jun 05, 2018 2:41 pm
lurkio wrote:
Fri Jun 01, 2018 6:44 pm
Finally, an answer to the puzzle in the April 1986 issue of The Micro User!
Ah, Micro User. Well done - How long did it take you to find that?!
Not long. Welcome to Stardot... :D

pcbbc wrote: Solution then followed in the following month's issue... Kudos to Peter Lloyd of Dunstable.
Aha! Hadn't seen that before, actually. Thanks!

:idea:

Commie_User
Posts: 1128
Joined: Wed Jan 27, 2016 12:50 am
Contact:

Re: Any short type-ins for unattended Beebs?

Post by Commie_User » Sun Jun 10, 2018 11:31 pm

pau1ie wrote:
Sun Apr 15, 2018 6:56 pm
The National Museum Of Computing (Bletchley Park) Earlier today after a few minutes typing!
Now that's one spooky picture as it happens. It looks like an abandoned school out of the Twilight Zone or something! I bet one or two of us wouldn't mind a fortnight's holiday there. A Stop At Willoughby for the 80s.

Great proggies by the way! Lovely to have on the background. Anything to make the place look even more computery.

Commie_User
Posts: 1128
Joined: Wed Jan 27, 2016 12:50 am
Contact:

Re: Any short type-ins for unattended Beebs?

Post by Commie_User » Mon Jun 11, 2018 2:28 pm

lurkio wrote:
Thu May 24, 2018 10:21 am
timmy wrote:My school favourite was to do a quick:

Code: Select all

?&FE40=0:CLS
on all the machines before the teacher came and then sit down and wait for people to start typing...
Simple but evil!
What??? Whyever wasn't this brought up during my RIFFER topic?? I love easily doable BBC noises which I can sample or perform!

That's fantastic. Any more sound tricks?

User avatar
Rich Talbot-Watkins
Posts: 1332
Joined: Thu Jan 13, 2005 5:20 pm
Location: Palma, Mallorca
Contact:

Re: Any short type-ins for unattended Beebs?

Post by Rich Talbot-Watkins » Tue Jun 12, 2018 8:35 am

timmy wrote:
Thu May 24, 2018 8:52 am
My school favourite was to do a quick:

Code: Select all

?&FE40=0:CLS
on all the machines before the teacher came and then sit down and wait for people to start typing...
What does that do? Enables sound chip writes at the same time as keyboard scan? It doesn't work on jsbeeb or B-Em... I wonder why? :-k

User avatar
AndyF
Posts: 1058
Joined: Sat Feb 23, 2008 10:16 pm
Location: Derby
Contact:

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Thu Jun 21, 2018 11:19 am

A slight variation on the two previous submissions of mine, although I did experiment quite a lot with different GCOL values (XOR / OR / AND etc) as well as a few other factors. Anyway here is 'Colour Flecks'
flecks.png
flecks.ssd
(1 KiB) Downloaded 10 times
No laughing! :oops: :lol:

Its a bit slow but otherwise the patterns would eventually fill the screen too quickly. I did at one stage have a loop (later set to a random value) to do a CLG then tried with detecting a keypress instead but that would fall outside the scope of "unattended" probably. Anyway it is what it is. :mrgreen:
Andy

* NEW * The Jetset Willy and Manic Miner community :)

Adventure games ported across to the BBC (in progress) as soon as I can find some time!

User avatar
BigEd
Posts: 2056
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Thu Jun 21, 2018 11:31 am

There are a number of visually dramatic type-ins in the BBC Micro Compendium - RobC lent me his copy and I took some snaps...

Image

Image

Image

Image

Image

User avatar
lurkio
Posts: 1735
Joined: Tue Apr 09, 2013 11:30 pm
Location: Doomawangara
Contact:

Re: Any short type-ins for unattended Beebs?

Post by lurkio » Fri Jun 22, 2018 6:27 pm

BigEd wrote:
Thu Jun 21, 2018 11:31 am
There are a number of visually dramatic type-ins in the BBC Micro Compendium - RobC lent me his copy and I took some snaps...
The last one's short but neat:
(Time-lapse version, there.)

:idea:

User avatar
BigEd
Posts: 2056
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Sat Jun 23, 2018 11:35 am

AndyF wrote:
Thu Jun 21, 2018 11:19 am
A slight variation...
ever so slightly Jackson Pollock!

I have snaps of the remaining type-ins from the Compendium. Stand by...

Drawing a milk splash

Image

Image

Bresenham meets Moiré

Image

Image

Image

Drawing on the tube

Image

Image

Image

Edit: fixup image tag
Last edited by BigEd on Sat Jun 23, 2018 11:37 am, edited 1 time in total.

User avatar
lurkio
Posts: 1735
Joined: Tue Apr 09, 2013 11:30 pm
Location: Doomawangara
Contact:

Re: Any short type-ins for unattended Beebs?

Post by lurkio » Sat Jun 23, 2018 2:13 pm

BigEd wrote:
Sat Jun 23, 2018 11:35 am
Drawing on the tube
I tried typing that one in, but it doesn't seem to produce quite the same image that's in the photo/printout you uploaded.

Have I made a typo? [EDIT: Yes, I had! Corrected now.]:

http://bbcmicro.co.uk/jsbeeb/play.php?p ... iplier=100

Code: Select all

50CLS
60*FX11,0
70I."Enter phrase: "A$
80IFLENA$>8 A$=LEFT$(A$,8)
90IFLENA$<8 A$=A$+" ":G.90
100LE%=LENA$
110DIM PO%(LE%,7),X% 100,SI%(35),CO%(35)
120F.T%=0TO35
130SI%(T%)=SIN(RAD(T%*5-45))*250
140CO%(T%)=COS(RAD(T%*5-45))*250
150N.
160Y%=X%DIV256
170F.T%=1TOLE%
180?X%=ASC(MID$(A$,T%,1))
190A%=10
200CALL&FFF1
210F.P%=0TO7
220PO%(T%,P%)=?(X%+1+P%)
230N.,
240
250MO.0
260V.29,640;0;
270F.T%=-640TO640ST.50
280MOV.T%,1023
290MOV.T%+25,1023
300PL.85,T%*6,0
310PL.85,(T%+25)*6,0
320N.
330V.26
340F.C%=-400TO1100
350V.29,C%-(C%MOD2);C%+(C%MOD2);
360PROCsemi(C%+400)
370N.
375ONERROR G.385
380*SAVE P.TUBE 3000 8000
385ONERROROFF
390END
400
410
420DEFPROCsemi(C%)
430LOCAL B%,K%,A%,H%
440B%=2^(7-(C%DIV4)MOD8)
450K%=4
460F.T%=0TO35
470H%=(C%DIV32+T%DIV8)MODLE%
480IF(PO%(H%+1,T%MOD8)ANDB%)=0 THEN GCOL0,0 EL. GCOL0,1
490PL.K%,SI%(T%),CO%(T%)
500K%=5
510N.
520END.
:?:
Last edited by lurkio on Sat Jun 23, 2018 2:40 pm, edited 1 time in total.

User avatar
IanS
Posts: 635
Joined: Mon Aug 31, 2009 6:02 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by IanS » Sat Jun 23, 2018 2:28 pm

Line 130 & 140 should be "5-45" not "5.45"

User avatar
lurkio
Posts: 1735
Joined: Tue Apr 09, 2013 11:30 pm
Location: Doomawangara
Contact:

Re: Any short type-ins for unattended Beebs?

Post by lurkio » Sat Jun 23, 2018 2:40 pm

IanS wrote:
Sat Jun 23, 2018 2:28 pm
Line 130 & 140 should be "5-45" not "5.45"
Wow, you've got better eyes than me! Thanks. Corrected above.

:idea:

User avatar
BigEd
Posts: 2056
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Sat Jun 23, 2018 2:54 pm

Thanks for the URLifications, Lurkio!

User avatar
BigEd
Posts: 2056
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Mon Jun 25, 2018 7:49 am

The redoubtable Bruce Clark has posted some type-ins over here:
http://forum.6502.org/viewtopic.php?p=60765#p60765

User avatar
kieranhj
Posts: 714
Joined: Sat Sep 19, 2015 10:11 pm
Location: Farnham, Surrey, UK
Contact:

Re: Any short type-ins for unattended Beebs?

Post by kieranhj » Mon Jun 25, 2018 11:02 am

BigEd wrote:
Sat Jun 23, 2018 11:35 am
I have snaps of the remaining type-ins from the Compendium. Stand by...

Image
Given my recent CRTC spelunking, I'm desperate to see what's on page 84 for the "Doubling the vertical screen resolution" ditty!
Bitshifters Collective | Retro Code & Demos for BBC Micro & Acorn computers | https://bitshifters.github.io/

User avatar
BigEd
Posts: 2056
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Mon Jun 25, 2018 11:25 am

Stand by for a code dump... this being a bit more than your usual type-in challenge...

Image

Image

Image

Image

User avatar
ctr
Posts: 163
Joined: Wed Jul 16, 2014 2:53 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by ctr » Mon Jun 25, 2018 2:45 pm

BigEd wrote:
Mon Jun 25, 2018 7:49 am
The redoubtable Bruce Clark has posted some type-ins over here:
http://forum.6502.org/viewtopic.php?p=60765#p60765
In the third program edit line 60 to change the plus to a minus:

Code: Select all

- 60 PRINT CHR$(32+3*(C-INT(C)<.4));
+ 60 PRINT CHR$(32-3*(C-INT(C)<.4));
I guess Apple BASIC uses +1 for TRUE.

In the last program add:

Code: Select all

25 DIM B(7)

User avatar
Rich Talbot-Watkins
Posts: 1332
Joined: Thu Jan 13, 2005 5:20 pm
Location: Palma, Mallorca
Contact:

Re: Any short type-ins for unattended Beebs?

Post by Rich Talbot-Watkins » Tue Jun 26, 2018 10:07 am

ctr wrote:
Mon Jun 25, 2018 2:45 pm
In the third program edit line 60 to change the plus to a minus:

Code: Select all

- 60 PRINT CHR$(32+3*(C-INT(C)<.4));
+ 60 PRINT CHR$(32-3*(C-INT(C)<.4));
I guess Apple BASIC uses +1 for TRUE.
Yes, I also spotted that. There's also a boolean expression in line 40 which needs changing:

Code: Select all

- 40 A=ATN(Y/X)+(X<0)*SGN(Y)*P
+ 40 A=ATN(Y/X)-(X<0)*SGN(Y)*P

Andrew_Waite
Posts: 41
Joined: Tue Aug 30, 2016 2:58 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by Andrew_Waite » Sat Jun 30, 2018 7:16 pm

This program was my favourite for typing into the computers at WHSmith back in the day :
10MODE 2
20GCOL 0,RND(7)
30PLOT 85,RND(1279),RND(1023)
40GOTO 20

User avatar
AndyF
Posts: 1058
Joined: Sat Feb 23, 2008 10:16 pm
Location: Derby
Contact:

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Sun Jul 01, 2018 10:50 am

Andrew_Waite wrote:
Sat Jun 30, 2018 7:16 pm
This program was my favourite for typing into the computers at WHSmith back in the day :
10MODE 2
20GCOL 0,RND(7)
30PLOT 85,RND(1279),RND(1023)
40GOTO 20
I quite like that, its small, efficient and colourful! :D
Andy

* NEW * The Jetset Willy and Manic Miner community :)

Adventure games ported across to the BBC (in progress) as soon as I can find some time!

User avatar
AndyF
Posts: 1058
Joined: Sat Feb 23, 2008 10:16 pm
Location: Derby
Contact:

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Sun Jul 01, 2018 10:53 am

Here is an updated version of my 'Colour Flecks' small routine.

Does take a bit of time to build up though and it does not completely flood (hopefully) the screen even if left a long time. Pressing a key will reset it, thought about just a CLG but RUN seemed better as eventually if I set a GOTO it would complain, never mind.

Combi pic of output and listing, note the few 'lines' it does complete are multicoloured.
flecks2.png
And a quick .ssd of said listing to save typing:
flecks2.ssd
(1 KiB) Downloaded 6 times
Erm, enjoy (or not) :mrgreen:
Andy

* NEW * The Jetset Willy and Manic Miner community :)

Adventure games ported across to the BBC (in progress) as soon as I can find some time!

Post Reply