Any short type-ins for unattended Beebs?

discussion of beeb/electron applications, languages, utils and educational s/w
User avatar
AndyF
Posts: 1090
Joined: Sat Feb 23, 2008 10:16 pm
Location: Derby
Contact:

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Tue Apr 10, 2018 1:15 pm

BigEd wrote:I'm hoping that you can NEW, then *EXEC a file, and then RUN the program.
That works fine, thanks. :)

Unsure what I did last time, the output appeared as you'd expect but RUN resulted in a Bad Program message. It seems to work now.
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: 2139
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Tue Apr 10, 2018 1:35 pm

If you ran that beastly random poke demo, it could cause trouble!

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

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Tue Apr 10, 2018 6:50 pm

FourthStone wrote:Oldie but a goodie, on tape image but could be easily transferred to DSD.

https://www.stairwaytohell.com/bbc/arch ... hics_B.zip

I remember running these BITD :-D
And here they are on a .dsd :) I did think about using the Watford format to get them all onto one side or using ADFS but decided against it. Anyway there are 36 files on the tape so I've simply split them into 18 per side, by loading from tape and saving to disc...

Praise for definable function keys to save much typing. :D

Contents:
contents.png
contents.png (4.29 KiB) Viewed 1815 times
CreativeGraphics_B.dsd
(28.75 KiB) Downloaded 37 times
Some of them are actually quite reasonable, I've not checked they all work however but they are just a direct save from tape so if there's a problem it existed (famous last words) on the tape image copy of them.
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: 2139
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Tue Apr 10, 2018 7:31 pm

Thanks - pretty good! I see the program we've been calling SPHERE is here called WOOLBAL and is (c) Acornsoft.

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

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Thu Apr 12, 2018 10:15 am

Would be good to see if anyone has any more to share. :)

I did make some adjustments to the second routine of mine, such as having a random number (1 to 10) of black then random (1 to 50) of colours which worked reasonably well.

I then tried it at double, in that a random number was chosen and then "chosen*2" was used for black and just "chosen" was used for either lines or pixels. That worked reasonably well although I did not bother to save it, given that its a moments work to adjust it to do that, plus its too similar to the other two already I've submitted.
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
pau1ie
Posts: 586
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

Re: Any short type-ins for unattended Beebs?

Post by pau1ie » Sun Apr 15, 2018 6:56 pm

The National Museum Of Computing (Bletchley Park) Earlier today after a few minutes typing! I typed in the programs! I pointed the attendant at this thread, so Hello if you are reading! I played with colour curves in gimp as the screen displays don't show up too well. It is a lovely place to go with the family.

I altered my one to wrap around rather than ping back to the centre, which I think works nicely.
Attachments
TNMOC_20180415_142922151.jpg
TNMOC
I'm working on http://bbcmicro.co.uk

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

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Sun Apr 15, 2018 7:13 pm

That's brilliant! Thanks for doing the work and spreading the word. Type-ins for everyone!

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

Re: Any short type-ins for unattended Beebs?

Post by lurkio » Sun Apr 15, 2018 7:49 pm

pau1ie wrote:The National Museum Of Computing (Bletchley Park) Earlier today after a few minutes typing! I typed in the programs! I pointed the attendant at this thread, so Hello if you are reading!
Cool!

:D

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

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Mon Apr 16, 2018 12:07 pm

pau1ie wrote:The National Museum Of Computing (Bletchley Park) Earlier today after a few minutes typing! I typed in the programs! I pointed the attendant at this thread, so Hello if you are reading!
Excellent! :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
mez
Posts: 39
Joined: Mon Feb 14, 2011 1:58 pm
Location: Yorkshire, UK
Contact:

Re: Any short type-ins for unattended Beebs?

Post by mez » Tue Apr 17, 2018 8:11 pm

Used to do this at 6th Form, if you have a good memory. Customize the text at line 80. Best to keep it subtle and appropriate (!). You can use teletext colors of course. Run it and press BREAK. It survives a "*FX200,3" + BREAK, which used to really annoy the Comp Sci teacher when he tried that.

Code: Select all

   10 OSCLI"FX247,76":OSCLI"FX248,64":OSCLI"FX249,1"
   20 FOR T%=0 TO 2 STEP 2
   30 P%=&140:[OPT T%
   40 BCC p:RTS
   50 .p LDA#215:LDX#128:JSR&FFF4:LDX#255
   60 .l INX:LDA m,X:CMP#0:BEQe:JSR&FFEE:JMP l
   70 .e RTS
   80 .m EQUS CHR$10+"BBC Moroncomputer"+CHR$10+CHR$10+CHR$13
   90 EQUB0
  100 ]:NEXT

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

Re: Any short type-ins for unattended Beebs?

Post by lurkio » Thu Apr 19, 2018 9:44 pm

Code: Select all

MODE1:VDU23,128,1,2,4,8,16,32,64,128,23,129,128,64,32,16,8,4,2,1,23,1,0;0;0;0;19,3,RND(7);0;:REPEATPRINTCHR$(127+RND(2));:IFINKEY(2)OR-1:UNTILFALSE
http://bbcmicro.co.uk/jsbeeb/play.php?p ... 3AFDA30DFF

:idea:

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

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Thu Apr 19, 2018 11:36 pm

Nice touch with the link! There's a whole book about this program, and it's free:
https://10print.org/

User avatar
jms2
Posts: 2051
Joined: Mon Jan 08, 2007 6:38 am
Location: Derby, UK
Contact:

Re: Any short type-ins for unattended Beebs?

Post by jms2 » Fri Apr 20, 2018 12:07 pm

That's neat!

Out of curiosity, what's the reason for

Code: Select all

IFINKEY(2)OR-1
being there?

I've tried removing it, and the program runs faster because it isn't waiting for the INKEY(2) delay. I would have thought that pressing a key would cause the program to speed up, but it doesn't seem to. Also, the delay doesn't really seem to be an improvement anyway.... or is there some additional function that I'm missing?

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

Re: Any short type-ins for unattended Beebs?

Post by lurkio » Fri Apr 20, 2018 1:17 pm

jms2 wrote:That's neat! Out of curiosity, what's the reason for IFINKEY(2)OR-1 being there? I've tried removing it, and the program runs faster because it isn't waiting for the INKEY(2) delay. I would have thought that pressing a key would cause the program to speed up, but it doesn't seem to. Also, the delay doesn't really seem to be an improvement anyway.... or is there some additional function that I'm missing?
I just wanted to slow down the scrolling so the pattern wouldn't judder off screen too quickly! Dunno why keypresses don't speed it up though -- you'd think they would.

:?:

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

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Fri Apr 20, 2018 1:30 pm

pau1ie wrote:The National Museum Of Computing (Bletchley Park) Earlier today after a few minutes typing! I typed in the programs!
This is such a good result I thought it was worth a post elsewhere: here it is. (The weekly mos6502 posts are also collected here for those who don't want to follow on G+ - it's mostly me doing the posting these days, and it often seems to come around to an Acorn-centric post.)

(Thanks for the permission to copy and repost the image pau1ie - direct linking didn't seem to work.)

User avatar
pau1ie
Posts: 586
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

Re: Any short type-ins for unattended Beebs?

Post by pau1ie » Fri Apr 20, 2018 8:47 pm

BigEd wrote:I thought it was worth a post elsewhere
Fame at last!
I'm working on http://bbcmicro.co.uk

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

Re: Any short type-ins for unattended Beebs?

Post by davidb » Fri Apr 20, 2018 10:35 pm

I made a quick video of something like lurkio's program.

The code is similar to the code below:

Code: Select all

MODE 5
VDU 23,224,128,64,32,16,8,4,2,1
VDU 23,225,1,2,4,8,16,32,64,128
REPEAT
VDU 223+RND(2)
UNTIL FALSE
maze1_half.png
maze1_half.png (1.77 KiB) Viewed 1429 times
I was using the user-defined character memory directly to more succinctly allow changes to the characters, as in the following variant:

Code: Select all

MODE 5
VDU 23,224,128,64,32,16,8,4,2,1
VDU 23,225,1,2,4,8,16,32,64,128
REPEAT
VDU 223+RND(2)
A%=RND(4)-1
B%=(A%+2) MOD 4
A%=&C00+(A%*4)
B%=&C00+(B%*4)
!A%=!A% EOR !B%
UNTIL FALSE
maze2_half.png
maze2_half.png (2.11 KiB) Viewed 1429 times
The following might be interesting to fans of MODE 7:

Code: Select all

MODE 7
C%=0
REPEAT
IF C%=0 THEN VDU 145:C%=1
A%=RND(2)
VDU 154+(A%*15)),290-(A%*62)
C%=(C%+2) MOD 40
IF C%=39 THEN PRINT:C%=0
UNTIL FALSE
maze_teletext_half.png
maze_teletext_half.png (888 Bytes) Viewed 1429 times

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

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Sat Apr 21, 2018 10:13 am

Excellent. The second one (I had to type them in as copy/paste did not work) had a small typo maybe ? Its gained an extra )

Code: Select all

VDU 154+(A%*15)),290-(A%*62)

Code: Select all

VDU 154+(A%*15),290-(A%*62)
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
davidb
Posts: 2231
Joined: Sun Nov 11, 2007 10:11 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by davidb » Sat Apr 21, 2018 11:07 am

AndyF wrote:Excellent. The second one (I had to type them in as copy/paste did not work) had a small typo maybe ? Its gained an extra )
Yes, you're right! #-o

I've attached tape and disk images containing the programs for convenience. :)
Attachments
maze.uef.zip
(554 Bytes) Downloaded 13 times
maze.ssd.zip
(686 Bytes) Downloaded 15 times

hexwab
Posts: 32
Joined: Wed Jul 08, 2015 8:27 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by hexwab » Sat Apr 21, 2018 1:30 pm

Code: Select all

10 MODE 0
20 VDU 23,224,60,255,255,60,0,0,0,0
30 VDU 5,29,640;512;
40 FOR I=1 TO 1000 STEP 2.4
50 D=16*SQRI:MOVE D*COSI,D*SINI:VDU 224
60 NEXT
70 VDU 4
(Interestingly this is about twice as fast on a Master as on a B due to improved VDU 5 handling.)

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

Re: Any short type-ins for unattended Beebs?

Post by BigEd » Sat Apr 21, 2018 2:21 pm

Ooh I like that - sunflower! (Basic 4 also has much faster trig, will help speed this up on a Master.)

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

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Sat Apr 21, 2018 4:15 pm

That's quite neat I like that. I tried it on a 'B , It seemed a bit faster with the GFX Extension Rom enabled but that might be my imagination. Good regardless!
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!

hexwab
Posts: 32
Joined: Wed Jul 08, 2015 8:27 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by hexwab » Sun Apr 22, 2018 12:30 am

BigEd wrote:Ooh I like that - sunflower!
Cheers. It's based on https://js1k.com/2010-first/demo/779 - interestingly the BASIC version (which I made no attempt to golf) is already smaller than the size-optimized javascript and could probably be easily made half its size.
BigEd wrote:(Basic 4 also has much faster trig, will help speed this up on a Master.)
Seems I was wrong, it is indeed all about the faster trig. Model B: 3119cs, 2855cs with no plotting. Master (OS 3.20): 1541cs, 1420cs with no plotting. Master (OS 3.50[1]): 1198cs, 1077cs with no plotting. "No plotting" means removing the ":VDU224". These are all according to b-em. Attached is the precise program I used (for science!). Some subtraction reveals that just the plotting takes 264cs on a B and 121cs on a Master (either version), which, while a significant speedup, is nonetheless lost in the noise.

Speaking of faster trig, here's a parametric WOOLBAL: https://www.vertexshaderart.com/art/wt7dgJfnc9ut9a8tk (start at the bottom left).

[1] Isn't this the version that has some fp inaccuracies? I forget.
Attachments
sunf.zip
(361 Bytes) Downloaded 21 times

User avatar
Richard Russell
Posts: 526
Joined: Sun Feb 27, 2011 10:35 am
Location: Downham Market, Norfolk
Contact:

Re: Any short type-ins for unattended Beebs?

Post by Richard Russell » Wed Apr 25, 2018 9:11 am

hexwab wrote:Model B: 3119cs, 2855cs with no plotting. Master (OS 3.20): 1541cs, 1420cs with no plotting. Master (OS 3.50[1]): 1198cs, 1077cs with no plotting. "No plotting" means removing the ":VDU224".
OnePlus 5 (BBCSDL 0.20f): 19cs, 1cs with no plotting.
iPod 6thG (BBCSDL 0.20i): 22cs, 1cs with no plotting.
:lol:

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

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Wed May 23, 2018 12:50 pm

As much as I hate to bump a topic, wondered if anyone had any more interesting short routines to share ? :) Some of the ones submitted are excellent.

I did have a vague idea of writing one that displayed the teletext graphic blocks at random positions on the screen in random colours, although (without looking into it) the control code might make it add a space so it could look odd, then again a backspace might fix (not tried do not have access to Beeb-Em as I write this) :)
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!

dp11
Posts: 841
Joined: Sun Aug 12, 2012 8:47 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by dp11 » Wed May 23, 2018 1:06 pm

If you had a cassette to 3.5mm Jack lead on your person. You could play a MP3 on your phone .

A lot quicker than typing

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

Re: Any short type-ins for unattended Beebs?

Post by AndyF » Wed May 23, 2018 4:41 pm

dp11 wrote:If you had a cassette to 3.5mm Jack lead on your person. You could play a MP3 on your phone .

A lot quicker than typing
I couldn't with my phone as its a Nokia 100 :oops:
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
timmy
Posts: 162
Joined: Thu Apr 27, 2006 12:19 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by timmy » Thu May 24, 2018 8:48 am

pau1ie wrote:The National Museum Of Computing (Bletchley Park) Earlier today after a few minutes typing! I typed in the programs! I pointed the attendant at this thread, so Hello if you are reading! I played with colour curves in gimp as the screen displays don't show up too well. It is a lovely place to go with the family.

I altered my one to wrap around rather than ping back to the centre, which I think works nicely.
Good work!! :-)

User avatar
timmy
Posts: 162
Joined: Thu Apr 27, 2006 12:19 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Post by timmy » Thu May 24, 2018 8:52 am

JoolsH wrote:Always a fun one on the school beebs:

Code: Select all

10 ?RND=RND:RUN
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...

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

Re: Any short type-ins for unattended Beebs?

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

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.

Post Reply