'Draw Arcs demo  by bar1010
dim integer x, y, i, o, s, e, r, g, b, j
cls
mode 1, 16
j = 0
do
 x = rnd * 800 'x pixel coordinate
 y = rnd * 600 'y pixel coordinate
 i = rnd * 145 'inner radius
 o = rnd * 2 + i 'outer radius
 s = rnd * 340 + 1 'start angle
 e = rnd * 340 + 1 'end angle
 r = rnd * 255 'red
 g = rnd * 255 'green
 b = rnd * 255 'blue
 
 'ARC X, Y, R1, R2, A1, A2, C
 'Draws an arc with the center at the X and Y coordinates.
 'R1 and R2 are the inner and outer radius defining the
 'thickness of the arc.  If they are the same the arc will
 'be one pixel thick.  A1 and A2 are the start and end
 'angles in degrees.  C is the color of the arc.

 arc rnd * x, y, i, o, s, e, rgb(r,g,b)

 pause 575
 j = j + 1
 if j > rnd * 925 then
   cls
   j = 0
 endif
loop

OPTION USBKEYBOARD lang [,noLED]

Error: System fault
Possible causes:
 - PRINT command followed by other keyword, e.g. PRINT AS
 - POKEing somewhere you shouldn't
 - CSUB taking too long to run without calling <foo>
 - firmware bug