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

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


Post has shared content

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