Any short type-ins for unattended Beebs?

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

Re: Any short type-ins for unattended Beebs?

Postby 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.

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

Re: Any short type-ins for unattended Beebs?

Postby BigEd » Tue Apr 10, 2018 1:35 pm

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

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

Re: Any short type-ins for unattended Beebs?

Postby 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/archive/tapeimages/leisure/Acornsoft/CreativeGraphics_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 1011 times


CreativeGraphics_B.dsd
(28.75 KiB) Downloaded 17 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.

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

Re: Any short type-ins for unattended Beebs?

Postby 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: 994
Joined: Sat Feb 23, 2008 10:16 pm
Location: Derby
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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.

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

Re: Any short type-ins for unattended Beebs?

Postby 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: 1728
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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: 1515
Joined: Tue Apr 09, 2013 11:30 pm
Location: Doomawangara
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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: 994
Joined: Sat Feb 23, 2008 10:16 pm
Location: Derby
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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

User avatar
mez
Posts: 38
Joined: Mon Feb 14, 2011 1:58 pm
Location: Yorkshire, UK
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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
BigEd
Posts: 1728
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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: 1946
Joined: Mon Jan 08, 2007 6:38 am
Location: Derby, UK
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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: 1515
Joined: Tue Apr 09, 2013 11:30 pm
Location: Doomawangara
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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: 1728
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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: 492
Joined: Thu May 10, 2012 9:48 pm
Location: Bedford
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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: 2042
Joined: Sun Nov 11, 2007 10:11 pm
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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 625 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 625 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 625 times

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

Re: Any short type-ins for unattended Beebs?

Postby 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)

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

Re: Any short type-ins for unattended Beebs?

Postby 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 7 times
maze.ssd.zip
(686 Bytes) Downloaded 8 times

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

Re: Any short type-ins for unattended Beebs?

Postby 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: 1728
Joined: Sun Jan 24, 2010 10:24 am
Location: West
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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: 994
Joined: Sat Feb 23, 2008 10:16 pm
Location: Derby
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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!

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

Re: Any short type-ins for unattended Beebs?

Postby 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 11 times

Richard Russell
Posts: 212
Joined: Sun Feb 27, 2011 10:35 am
Contact:

Re: Any short type-ins for unattended Beebs?

Postby 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: