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):
  1. Load up the program into the BB4W editing window that you wish to send to this site 
  2. Select all the program, using Edit, then Select All
  3. Copy the program onto the clipboard using Right Click, Copy or Edit, Copy
  4. 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. 
  5. Any associated data files can be attached to the email. 
  6. 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

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