Guest Programs

Send Email

If you do not have your own website (yet) and would like to publish a BBC Basic program here for others to run and possibly develop, you are welcome to do so. Short programs which are instructive for beginners would be particularly welcome.

Here's how to send in your program(s):

Load up the program into the BB4W editing window that you wish to send to this site
Select all the program, using Edit, then Select All
Copy the program onto the clipboard using Right Click, Copy or Edit, Copy
Paste the program from the clipboard into an email, together with some appropriate notes to explain to our readers what it does and how it works.
Any associated data files can be attached to the email.
Please do not send exec. versions as the idea is to be able to read the program and possibly develop it further.

Zyra's game of Guess

Download the text file version of Guess by clicking this link.
Load it into BB4W by the select all, copy, paste method and save it to disc.
Run and Play!
You can possibly add some bells and whistles and send it back here!

Mark Llewelyn's BlackJack Game

A regular correspondent, Mark, (13) from West Wales, has produced this excellent BBC Basic program using arrays, loops, conditional testing, strings, file handling with very little guidance indeed. Brilliant! But be warned, playing this game can be addictive....

Blackjack exec. version - play now! See the Blackjack Listing (Text)

Mark's Spiral Mods

By altering just one of the parameters in my program some nice effects are produced :

Small Ones

      REM Spirals by RG Weston 19-11-02
      REM Modified by ML
      MODE8:OFF
      REPEAT
        ORIGIN RND(1300),RND(1100)
        R=1: L=10+RND(100) :c=RND(9)
        MOVE 0,0
        REPEAT
          t=t+20 :R=R+0.5: GCOL0,c
          DRAW R*COSRADt,R*SINRADt
        UNTIL R>L/2
      UNTIL FALSE

and Big Ones

      REM Spirals by RG Weston 19-11-02
      REM Modified by ML
      MODE8:OFF
      REPEAT
        ORIGIN RND(1300),RND(1100)
        R=1: L=10+RND(100) :c=RND(9)
        MOVE 0,0
        REPEAT
          t=t+20 :R=R+0.5: GCOL0,c
          DRAW R*COSRADt,R*SINRADt
        UNTIL R>L*2
      UNTIL FALSE

Mark's Moonlight Sonata :

      REM Moonlight
      REM from Mark
      REM 6th March 2003
      NN=52
      DIM P(NN)
      DIM D(NN)
      P(1)=100-(4*4)
      P(2)=100+(4*1)
      P(3)=100+(4*4)
      P(4)=100-(4*4)
      P(5)=100+(4*1)
      P(6)=100+(4*4)
      P(7)=100-(4*4)
      P(8)=100+(4*1)
      P(9)=100+(4*4)
      P(10)=100-(4*4)
      P(11)=100+(4*1)
      P(12)=100+(4*4)
      P(13)=100-(4*4)
      P(14)=100+(4*1)
      P(15)=100+(4*4)
      P(16)=100-(4*4)
      P(17)=100+(4*1)
      P(18)=100+(4*4)
      P(19)=100-(4*4)
      P(20)=100+(4*1)
      P(21)=100+(4*4)
      P(22)=100-(4*4)
      P(23)=100+(4*1)
      P(24)=100+(4*4)
      P(25)=100-(4*3)
      P(26)=100+(4*1)
      P(27)=100+(4*4)
      P(28)=100-(4*3)
      P(29)=100+(4*1)
      P(30)=100+(4*4)
      P(31)=100-(4*3)
      P(32)=100+(4*2)
      P(33)=100+(4*6)
      P(34)=100-(4*3)
      P(35)=100+(4*2)
      P(36)=100+(4*6)
      P(37)=100-(4*4)
      P(38)=100+(4*2)
      P(39)=100+(4*6)
      P(40)=100-(4*4)
      P(41)=100+(4*1)
      P(42)=100+(4*4)
      P(43)=100-(4*4)
      P(44)=100+(4*1)

      P(46)=100-(4*4)
      P(47)=100+(4*0)
      P(48)=100+(4*3)
      P(49)=100-(4*8)
      P(50)=100-(4*4)
      P(51)=100+(4*1)
      P(52)=100-(4*8)
      FOR Q= 1 TO NN
        D(Q)=8
      NEXT
      FOR X= 1 TO NN
        TIME=0
        SOUND 1,-5,P(X),D(X)
        REM REPEAT UNTIL D(X)=TIME/5
      NEXT
      END

Tom's 3 Dice Program

      MODE8
      OFF
      PRINT' "Three Dice"'
      REPEAT
        d1=RND(6)
        d2=RND(6)
        d3=RND(6)
        sum=d1+d2+d3
        COLOUR RND(15)
        PRINTTAB(12);d1;" + ";d2;" + ";d3;" = ";sum
        delay=INKEY(100)
      UNTIL sum=18
      PRINT ' "Yippee"
      PRINT ' ' ' "Press SPACE to go again"
      halt=GET
      RUN

I like this program as an example of neat and efficient programming, which gives a fascinating display.

For instructions about how to run these listings click here

Richard Weston's Home Page