here is a fun mouse program:

*ESC OFF:rem set program brake off

print "move mouse. click to change colour. Esc to quit"

first=true:rem toggle fist mouse scan

repeat:rem main loop

repeat:rem mouse loop

keyb$=inkey$(0):rem read keyboard buffer

mouse mx,my,mb:rem get mouse input

if first=true then oldmx=mx:oldmy=my:first=false

until oldmx<>mx or oldmy<>my or keyb$=chr$(27)

oldmx=mx:oldmy=my

if mb<>0 then c=abs(cos(mx/10)*15)gcol c:rem if mouse is pressed change colour

line abs(cos(mx/100)*mx),abs(sin(my/100)*my),mx,my

until false or keyb$=chr$(27):rem end if "esc" key is pressed

*ESC on:rem set program break on.

print "end program..."

wait 100

quit

rem short and simple

*ESC OFF:rem set program brake off

print "move mouse. click to change colour. Esc to quit"

first=true:rem toggle fist mouse scan

repeat:rem main loop

repeat:rem mouse loop

keyb$=inkey$(0):rem read keyboard buffer

mouse mx,my,mb:rem get mouse input

if first=true then oldmx=mx:oldmy=my:first=false

until oldmx<>mx or oldmy<>my or keyb$=chr$(27)

oldmx=mx:oldmy=my

if mb<>0 then c=abs(cos(mx/10)*15)gcol c:rem if mouse is pressed change colour

line abs(cos(mx/100)*mx),abs(sin(my/100)*my),mx,my

until false or keyb$=chr$(27):rem end if "esc" key is pressed

*ESC on:rem set program break on.

print "end program..."

wait 100

quit

rem short and simple

you need to plot a spiral ? here is something useful .

vdu 23,22,1024;683;32,32,16,0

origin 1024,683

r=100

sp=5

a=0:b=0

for n=0 to 360*5 step sp

x=cos(rad(n))

y=sin(rad(n))

plot x,y

line a,b,x,y

a=x

b=y

wait 1

next

vdu 23,22,1024;683;32,32,16,0

origin 1024,683

r=100

sp=5

a=0:b=0

for n=0 to 360*5 step sp

x=cos(rad(n))

**r**(n/360)y=sin(rad(n))

**r**(n/360)plot x,y

line a,b,x,y

a=x

b=y

wait 1

next

#rgb

#tint

#bbc4w

to find and seperate RGB colors. use this metode:

dim calc(5)

x%=0:y%=0

circle fill x%,y%,100

:

r=tint(x%,y%):rem geting the rgb% total

:

calc(1)= int((r/&10000)):rem blue

calc(2)= r-(int((r/&10000))*&10000)

calc(3)=int(calc(2)/&100):rem green

calc(4)=calc(3)*&100

calc(5)=calc(2)-calc(4):rem red

red%=calc(5)

green%=calc(3)

blue%=calc(1)

:

print red%,green%,blue%

#tint

#bbc4w

to find and seperate RGB colors. use this metode:

dim calc(5)

x%=0:y%=0

circle fill x%,y%,100

:

r=tint(x%,y%):rem geting the rgb% total

:

calc(1)= int((r/&10000)):rem blue

calc(2)= r-(int((r/&10000))*&10000)

calc(3)=int(calc(2)/&100):rem green

calc(4)=calc(3)*&100

calc(5)=calc(2)-calc(4):rem red

red%=calc(5)

green%=calc(3)

blue%=calc(1)

:

print red%,green%,blue%

Post has shared content

**it's**

**like**

**elite**

**but**

**2d**

**and**

**written**

**in**

**bbc**

**BASIC**http://superdecade.blogspot.co.uk/2013/02/new-version-of-starfunk-released.html

Post has shared content

**Google for ISBN-13 numbers**

An ISBN number is a unique identification number for commercial books. The listing below is for an ISBN-13 validation program in BBC BASIC. If a valid book number is found the program then performs a Google search (probably bringing up a link to Amazon.co...

Post has shared content

**Checking for Valid Droid Names**

A valid STARWARS droid name consists of a letter, a number followed by a letter and a number (actually, not strictly correct , but it will do for the purposes of this demo, which can be expanded upon to check for valid postcodes, car registration plates, et...

Post has shared content

**Solar System Simulator**

I'm still waiting for my supper to cook, so I've written a simple solar system simulator. Create any number of 'planets' and put them into random orbits around a star. Sure, some of the planets are going to be ejected into deep space, never to been seen a...

Wait while more posts are being loaded