Sorry your browser is not supported!

sync on
set display mode 800,600,32
set window on
INK RGB(255,255,255), RGB(0,0,0)
Name$="image.bmp"
line#=1
do
mousex#=MOUSEX()
mousey#=MOUSEY()
Text 0,0, "Press 1 for white"
Text 0,20, "press 2 for Blue"
text 120,0, "Press 3 for red"
text 120,20, "Press 4 for yellow"
text 610,0, "Press 9 to draw a line"
text 610,15, "Press 8 to draw a circle"
text 610,30, "Press 7 to make bubbles.."
text 0,580, "Press SPACE to clear the screen"
text 250,580, "Press ENTER to save the image"
text 500,580, "Press ESCAPE to exit"
if scancode()=2 then ink RGB(255,255,255), RGB(0,0,0)
if scancode()=5 then ink RGB(255,255,0), RGB(0,0,0)
if scancode()=3 then ink RGB(0,0,255), RGB(0,0,0)
if scancode()=4 then ink rgb(255,0,0), rgb(0,0,0)
If spacekey()=1 then cls
if scancode()=10 : line#=1 : circle#=0 : bubbles#=0 : endif
If scancode()=9 : line#=0 : circle#=1 : bubbles#=0 : endif
If scancode()=8 : line#=0 : circle#=0 : bubbles#=1 : endif
If scancode()=28
hide mouse
save bitmap Name$
show mouse
endif
if mouseclick()=1 and mousey#<580 and mousey#>50
if circle#=1 then circle mousex#, mousey#, 10
if line#=1 then line mousex#, mousey#, mousex#, mousey#
if bubbles#=1 then circle mousex#, mousey#, mousemovey()
endif
line 0,50,800,50
line 0,580,800,580
sync
loop

Sync On
Set Display Mode 800, 600, 32
Set Window On
Randomize Timer()

getImages
Dim Color(2)
CLS RGB( 255, 255, 255 )

Do

   drawPanel

   If MouseClick() =0
      newX = MouseX()
      newY = MouseY()
      oldX = newX
      oldY = newY
   EndIf

   If MouseClick() =1
      newX = MouseX()
      newY = MouseY()
      Ink RGB( Color(0), Color(1), Color(2) ), 0
      Line oldX, oldY, newX, newY
      oldX = newX
      oldY = newY
   EndIf

Sync : Loop

Function getImages()
   ` get color select thingie
   For x = 0 To 50
      For y = 0 To 50
         Ink RGB( x*2.5+y*2.5, 0, 0 ), 0  :  Dot x, y
         Ink RGB( 0, x*2.5+y*2.5, 0 ), 0  :  Dot x+50, y
         Ink RGB( 0, 0, x*2.5+y*2.5 ), 0  :  Dot x+100, y
         Ink RGB( x*2.5+y*2.5, x*2.5+y*2.5, x*2.5+y*2.5 ), 0  :  Dot x+150, y
      Next y
   Next x
   Get Image 1, 0, 0, 200, 50
EndFunction


Function drawPanel()
   ` panel
   Ink RGB(199,196,158), 0
   Box 0, 0, Screen Width()-1, 50
   ` buttons
   If button( 225, 5, "Clear Screen" ) =1 Then CLS RGB( 255, 255, 255 )
   If button( 225, 25, "Save Image" ) =1
      Get Image 60, 0, 51, Screen Width()-1, Screen Height()-1
      Save Image "c:/image.bmp", 60
      Delete Image 60
   EndIf
   ` paste color select thingie
   Paste Image 1, 0, 0
   ` get draw color
   If MouseClick() =1
      If MouseX() <= 200 And MouseY() <= 50
         Color(0) = RGBR( Point( MouseX(), MouseY() ) )
         Color(1) = RGBG( Point( MouseX(), MouseY() ) )
         Color(2) = RGBB( Point( MouseX(), MouseY() ) )
      EndIf
   EndIf
   ` preview of selected color
   Ink RGB( Color(0), Color(1), Color(2) ), 0
   Box 400, 5, 445, 45
EndFunction


Function button( x, y, s$ )
   pressed =0
   Ink RGB( 000, 000, 000 ), 0 : Box x-1, y-1, x+Text Width( s$ )+1, y+Text Height( s$ )+1
   Ink RGB( 199, 196, 158 ), 0 : Box x, y, x+Text Width( s$ ), y+Text Height( s$ )
   Ink RGB( 000, 000, 000 ), 0 : Text x, y, s$
   If MouseX() > x And MouseX() < x+Text Width( s$ )+1
      If MouseY() > y And MouseY() < y+Text Height( s$ )+1
         If MouseClick() =1 Then pressed =1
      EndIf
   EndIf
EndFunction pressed

WIDTH = 800
HEIGHT = 600

set display mode WIDTH, HEIGHT,32

DRAW_COLOR = rgb(255,255,255)

rem length of slider track
SLIDER_LENGTH = 75
rem thickness of slider track
TRACK_HEIGHT = 3
rem height above and below track to extend the slider thumb
THUMB_EXT = 2
rem width of slider thumb
THUMB_WIDTH = 4
rem x-position to start drawing all sliders at
SLIDER_X = width-100
rem maximum brush size
MAX_BRUSH = 30
rem current brush size
BRUSH_SIZE = 1
rem current drawing action
ACTION = 1
rem density of spray scatter
SPRAY_DENSITY = 20
rem higher number makes spray fill less quickly
MAX_DENSITY = 100


rem define 3 sliders
rem 2nd dimension:
rem 1 = y-position
rem 2 = 0.0-1.0, thumb position on track
rem 3 = 1 if thumb is being dragged, 0 if not
dim sliders#(5,3)

for i = 1 to 3
   sliders#(i,1) = 6+(i-1)*12
   sliders#(i,2) = rnd(100)/100.0
next i
DRAW_COLOR = rgb(255*sliders#(1,2),255*sliders#(2,2),255*sliders#(3,2))

sliders#(4,1) = 70
sliders#(4,2) = 0.0
sliders#(5,1) = 100
sliders#(5,2) = (SPRAY_DENSITY*1.0)/MAX_DENSITY

rem boundaries of drawing area (left,top,right,bottom)
rem using array to make it gobally accessible
dim dimension(4)
dimension(1) = 2
dimension(2) = 2
dimension(3) = SLIDER_X-6
dimension(4) = HEIGHT-2


dim buttons(2)
buttons(1) = 1


sync on

ink rgb(192,192,192),0
drawOutlinedBox(dimension(1),dimension(2),dimension(3),dimension(4))  : rem

DO
   rem clears side panel
   ink rgb(192,192,192),0
   box dimension(3),dimension(2),WIDTH-1,200

   gosub _handle_drawing

   gosub _handle_sliders
   gosub _handle_buttons

   gosub _draw_sliders
   gosub _draw_buttons

sync
LOOP



rem ======================================
rem Handles drawing routines
rem ======================================
_handle_drawing:
   if mouseWithin(dimension(1),dimension(2),dimension(3),dimension(4)) and mouseclick() = 1
      if draw_flag = 0
         draw_flag = 1
         oldmx = mousex()
         oldmy = mousey()
      endif
   else
      draw_flag = 0
   endif

   if draw_flag = 1
      ink DRAW_COLOR, 0
      mx = mousex()
      my = mousey()
      bline(oldmx,oldmy,mx,my,BRUSH_SIZE, SPRAY_DENSITY, ACTION)
      oldmx = mx
      oldmy = my
   endif
RETURN



rem ======================================
rem Handles mouse interaction with sliders
rem ======================================
_handle_sliders:
   for i = 1 to 5
      tx = SLIDER_X+SLIDER_LENGTH*sliders#(i,2)
      ty1 = sliders#(i,1)-THUMB_EXT
      ty2 = sliders#(i,1)+THUMB_EXT+TRACK_HEIGHT
      if mouseWithin(tx,ty1,tx+THUMB_WIDTH,ty2)=1 and mouseclick() = 1
         sliders#(i,3) = 1
      endif
      if sliders#(i,3) = 1
         mx# = mousex()
         sliders#(i,2) = (mx# - SLIDER_X)/SLIDER_LENGTH
         if mousex() < SLIDER_X then sliders#(i,2) = 0
         if mousex() > SLIDER_X+SLIDER_LENGTH then sliders#(i,2) = 1
         if i = 4
            BRUSH_SIZE = sliders#(i,2)*MAX_BRUSH
            if BRUSH_SIZE < 1 then BRUSH_SIZE = 1
         else
            if i = 5
               SPRAY_DENSITY = sliders#(i,2)*MAX_DENSITY
            else
               DRAW_COLOR = rgb(255*sliders#(1,2),255*sliders#(2,2),255*sliders#(3,2))
            endif
         endif
      endif
      if mouseclick() <> 1 then sliders#(i,3) = 0
   next i
RETURN

rem ======================================
rem Handles mouse interaction with buttons
rem ======================================
_handle_buttons:
   for i = 1 to 2
      x = SLIDER_X+(i-1)*30
      y = 120
      if mouseWithin(x,y,x+24,y+24) and mouseclick() = 1
         for j = 1 to 2
            buttons(j) = 0
         next j
          buttons(i) = 1
          ACTION = i
      endif
   next i
RETURN

rem =========================
rem draw buttons
rem =========================
_draw_buttons:
   for i = 1 to 2
      x = SLIDER_X+(i-1)*30
      y = 120
      drawButton(x,y,24,buttons(i))
      ink 0,0
      if buttons(i) then ink rgb(255,0,0),0
      if i = 1 then text x+6,y+6,"P"
      if i = 2 then text x+6,y+6,"B"
   next i
RETURN


rem =========================
rem Draws the 3 color sliders
rem Draws color box
rem =========================
_draw_sliders:
   for i = 1 to 5
      ink rgb(255,255,255),0
      box SLIDER_X,sliders#(i,1),SLIDER_X+SLIDER_LENGTH,sliders#(i,1)+TRACK_HEIGHT
      tx = SLIDER_X+SLIDER_LENGTH*sliders#(i,2)
      ty1 = sliders#(i,1)-THUMB_EXT
      ty2 = sliders#(i,1)+THUMB_EXT+TRACK_HEIGHT
      ink rgb(128,128,128),0
      box tx,ty1,tx+THUMB_WIDTH,ty2
      cValue = int(255*sliders#(i,2))
      if i = 1 then ink rgb(cValue,0,0),0
      if i = 2 then ink rgb(0,cValue,0),0
      if i = 3 then ink rgb(0,0,cValue),0
      x = SLIDER_X+SLIDER_LENGTH
      if i < 4
         box x+6,ty1,x+23,ty2
      endif
      ink rgb(255,255,255),0
      if i = 4
         text SLIDER_X,ty1-16,"Brush Size"
         text x+6,ty1-6,str$(BRUSH_SIZE)
      endif
      if i = 5
         text SLIDER_X-4,ty1-16,"Spray Density"
         text x+6,ty1-6,str$(SPRAY_DENSITY)
      endif
   next i
   rem current color box
   ink DRAW_COLOR, 0
   box SLIDER_X,40,SLIDER_X+SLIDER_LENGTH+23,50
RETURN


rem =========================================
rem Checks if mouse is inside the defined box
rem =========================================
function mouseWithin(x1,y1,x2,y2)
   if mousex() > x1 and mousex() < x2 and mousey() > y1 and mousey() < y2 then exitfunction 1
endfunction 0

rem =========================================
rem Draws an outline of a box
rem =========================================
function drawOutlinedBox(x1,y1,x2,y2)
   line x1,y1,x2,y1
   line x1,y1,x1,y2
   line x2,y1,x2,y2
   line x1,y2,x2,y2
endfunction


rem =========================================
rem Draws a line using Bresenham's algorithm
rem =========================================
function bline(x1,y1,x2,y2,size, density, action)
   dx = x2-x1
   dy = y2-y1

   if action = 1 then drawDot(x1, y1, size)
   if action = 2 then spray(x1,y1,size, density)

   if abs(dx) > abs(dy)
      m# = (0.0 + dy)/dx
      b# = y1 - m#*x1

      if dx < 0
         dx = -1
      else
         dx = 1
      endif
      while x1 <> x2
         x1 = x1 + dx
         if action = 1 then drawDot(x1, int(m#*x1+b#), size)
         if action = 2 then spray(x1, int(m#*x1+b#), size, density)
      endwhile
   else
      if dy <> 0
         m# = (0.0 + dx)/dy
         b# = x1 - m#*y1
         if dy < 0
            dy = -1
         else
            dy = 1
         endif
         while y1 <> y2
            y1 = y1 + dy
            if action = 1 then drawDot(int(m#*y1+b#), y1, size)
            if action = 2 then spray(int(m#*y1+b#), y1, size, density)
         endwhile
      endif
   endif
endfunction

rem =====================================================
rem draws a box, clipping any parts outside of boundaries
rem =====================================================
function drawDot(x,y,size)
   s = size/2
   for px = x-s to x+s
      for py = y-s to y+s
         if px > dimension(1) and px < dimension(3) and py > dimension(2) and py < dimension(4)
            box px,py,px+1,py+1
         endif
      next py
   next px
endfunction

rem
rem
rem
function spray(x,y,size,density)
   s = size/2
   s2 = s*s
   d = density/2
   for px = x-s to x+s
      for py = y-s to y+s
         if px > dimension(1) and px < dimension(3) and py > dimension(2) and py < dimension(4)
            if ((px - x)^2 + (py-y)^2) <= s2
               if rnd(density) = d then box px,py,px+1,py+1
            endif
         endif
      next py
   next px
endfunction


rem =====================
rem draws a square button
rem =====================
function drawButton(x, y, size, active)

   a = 0
   b = rgb(255,255,255)

   if active = 0
      a = rgb(255,255,255)
      b = 0
   else
      a = 0
      b = rgb(255,255,255)
   endif
   ink a,0
   box x, y,x+size, y+1
   box x, y,x+1, y+size
   ink b,0
   box x, y+size-1,x+size, y+size
   box x+size-1, y,x+size,y+size

endfunction

sync on
set display mode 1024,768,32

dim CANVAS_WIDTH(1)
dim CANVAS_HEIGHT(1)
dim CURRENT_COLOR(0)
dim DRAWING_ON(0)
dim OLD_X(0)
dim OLD_Y(0)
dim RED(6)
dim GREEN(6)
dim BLUE(6)

CANVAS_WIDTH(0)=256
CANVAS_HEIGHT(0)=256

make_rgb_box()
make_canvas()


do
   update_screen()
   if mouseclick()=1 then  check_controls()
   update_canvas()
   clean_up()


   sync
loop


`FUNCTIONS

function update_screen()
   cls
   paste image 2,0,650
   paste image 1,5,700
   paste image 100,CANVAS_WIDTH(1),CANVAS_HEIGHT(1)

   draw_sliders()
endfunction

function make_rgb_box()
ink rgb(255,255,255),0
   box 8,8,267,67
   for a = 0 to 255
      ink rgb(a,0,0),0
      line 10+a,10,10+a,25

      ink rgb(0,a,0),0
      line 10+a,30,10+a,45

      ink rgb(0,0,a),0
      line 10+a,50,10+a,65

   next a
   get image 1,8,8,267,67

   cls
   ink rgb(255,255,255),0
   box 0,0,35,39
   ink rgb(130,130,130),0
   box 2,2,33,37
   get image 3,0,0,35,39

   box 2,650,1000,760
   get image 2,2,650,1000,760


endfunction

 function check_controls()
   mx=mousex()
   my=mousey()
   if mx>=7 and mx<=262 and my>=702 and my<=759
      if my>=702 and my<=717 then RED(CURRENT_COLOR(0))=mx-7
      if my>=722 and my<=737 then GREEN(CURRENT_COLOR(0))=mx-7
      if my>=742 and my<=757 then BLUE(CURRENT_COLOR(0))=mx-7
   endif
   if mx>=5 and mx<=240 and my>=660 and my<=690
      lx=(mx-5)/35
      CURRENT_COLOR(0)=lx
   endif
   if mx>=CANVAS_WIDTH(1) and MX<=CANVAS_WIDTH(1)+CANVAS_WIDTH(0)
      if my>=CANVAS_HEIGHT(1) and my<=CANVAS_HEIGHT(1)+CANVAS_HEIGHT(0)
         ink rgb(RED(CURRENT_COLOR(0)),GREEN(CURRENT_COLOR(0)),BLUE(CURRENT_COLOR(0))),0
         if DRAWING_ON(0)=0
            dot mx,my
            DRAWING_ON(0)=1
            OLD_X(0)=mx:OLD_Y(0)=my
         else
            line OLD_X(0),OLD_Y(0),mx,my
            OLD_X(0)=mx:OLD_Y(0)=my
         endif

      endif
   endif
endfunction

 function draw_sliders()
   ink rgb(255,255,0),0
   line 7+RED(CURRENT_COLOR(0)),702,7+RED(CURRENT_COLOR(0)),717:text 275,701,str$(RED(CURRENT_COLOR(0)))
   line 7+GREEN(CURRENT_COLOR(0)),722,7+GREEN(CURRENT_COLOR(0)),737:text 275,721,str$(GREEN(CURRENT_COLOR(0)))
   line 7+BLUE(CURRENT_COLOR(0)),742,7+BLUE(CURRENT_COLOR(0)),757:text 275,741,str$(BLUE(CURRENT_COLOR(0)))
   for a = 0 to 6
      if a=CURRENT_COLOR(0) then paste image 3,a*35,656
      ink rgb(RED(a),GREEN(a),BLUE(a)),0:box 5+a*35,660,a*5+(a+1)*30,690
   next a
endfunction

function make_canvas()
   ink rgb(255,255,255),0
   box 1,1,CANVAS_WIDTH(0),CANVAS_HEIGHT(0)
   get image 100,1,1,CANVAS_WIDTH(0),CANVAS_HEIGHT(0)
   CANVAS_WIDTH(1)=(screen width()-CANVAS_WIDTH(0))/2
   CANVAS_HEIGHT(1)=(650-CANVAS_HEIGHT(0))/2
endfunction

function update_canvas()
   get image 100,CANVAS_WIDTH(1),CANVAS_HEIGHT(1),CANVAS_WIDTH(1)+CANVAS_WIDTH(0),CANVAS_HEIGHT(1)+CANVAS_HEIGHT(0)
endfunction

function clean_up()
   mx=mousex():my=mousey()
   if mouseclick()<>1 then DRAWING_ON(0)=0
   if mx<CANVAS_WIDTH(1) or mx>CANVAS_WIDTH(1)+CANVAS_WIDTH(0) or my<CANVAS_HEIGHT(1) or my>CANVAS_HEIGHT(1)+CANVAS_HEIGHT(0) then DRAWING_ON(0)=0
endfunction

Rem Dark Basic Classic Project: DBC Paint
Rem Created: 02/02/2007 18:58:00
Rem Author: TDK_Man
Rem Company: Computech Tenerife
Rem E-Mail: tdk_man@computechtenerife.com
Rem Web Site: http://www.computechtenerife.com/db.htm

Rem ***** Main Source File *****
Gosub Setup

Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()

  If Mc=2: Rem Right Mouse Hide/Show Control Panel
    Gosub ShowHidePanel
  Endif

  If Mc=1 and FullViewMode = 1: Rem Menu Not On Screen So Do Drawing Action
    Gosub DoDrawAction
  Endif

  If Mc=1 and FullViewMode = 0
    If My > 6 and My < 26: Rem Over Buttons So Select New Option
      OldDrawMode = DrawMode
      DrawMode = (Mx-4) / ButtonWidth + 1
      If DrawMode < 9
        Rem Drawing Tools
        DTools = 1
        For N=0 To Buttons-1
          Paste Image N+1,N*ButtonWidth+4,6
        Next N
        Paste Image Buttons+DrawMode,(DrawMode-1)*ButtonWidth+4,6
      Else: Rem Non-Drawing Option Selected (Colour/New/Load/Save etc)
        DTools = 0
        Select DrawMode

          Case 9
            Rem Colour
            Paste Image Buttons+DrawMode,(DrawMode-1)*ButtonWidth+4,6
            Paste Image 1002,330,203: Rem Palette
            Repeat
              Sync
            Until MouseClick()=0
            ExitPanel=0
            Repeat
              Mx=MouseX(): My=MouseY(): Mc=MouseClick()
              If Mx>335 and My>208 and Mx<464 and My<370
                Rem Show Colour
                OverColour = Point(Mx,My)
                If Mc=0
                  Ink OverColour,0
                  Box 330+6,203+168,330+133,203+187
                Else
                  CurrentColour = OverColour
                  ExitPanel=1
                Endif
              Endif
              If (Mx<335 or My<208 or Mx>64 or My>370) and Mc>0
                Rem Close Palette (Cancel)
                ExitPanel=1
              Endif
              Sync
            Until ExitPanel=1
            Paste Image 1001,0,0
            Paste Image 1000,0,0
            DrawMode = OldDrawMode
            Gosub AllButtonsUp
            Paste Image Buttons+DrawMode,(DrawMode-1)*ButtonWidth+4,6
          EndCase

          Case 10
            Rem New
            Paste Image Buttons+DrawMode,(DrawMode-1)*ButtonWidth+4,6
            Repeat
              Sync
            Until MouseClick()=0
            CLS
            Get Image 1001,0,0,800,600: Rem Full Screen
            Paste Image 1000,0,0: Rem Top Strip
            DrawMode = OldDrawMode
            Gosub AllButtonsUp
            Paste Image Buttons+DrawMode,(DrawMode-1)*ButtonWidth+4,6
          EndCase

          Case 11
            Rem Load
            Paste Image Buttons+DrawMode,(DrawMode-1)*ButtonWidth+4,6
            Repeat
              Sync
            Until MouseClick()=0
            Title$="Load Bitmap": Rem Text to appear at top of fileselector
            Filter$="BMP": Rem 3 char filter extension (Eg: 'TXT') or *.* for all files
            Selected=Fileselect(CurDir$,Title$,Filter$)
            If Selected = 1
              Load Image Filename$(0),1001
              CurDir$=Path$(0)
            Endif
            Paste Image 1001,0,0
            Paste Image 1000,0,0
            DrawMode = OldDrawMode
            Gosub AllButtonsUp
            Paste Image Buttons+DrawMode,(DrawMode-1)*ButtonWidth+4,6
          EndCase

          Case 12
            Rem Save
            Paste Image Buttons+DrawMode,(DrawMode-1)*ButtonWidth+4,6
            Repeat
              Sync
            Until MouseClick()=0
            Title$="Save Bitmap": Rem Text to appear at top of fileselector
            Filter$="BMP": Rem 3 char filter extension (Eg: 'TXT') or *.* for all files
            Selected = Fileselect(CurDir$,Title$,Filter$)
            If Selected = 1
              If File Exist(Filename$(0)) Then Delete File Filename$(0)
              Save Image Filename$(0),1001
              CurDir$=Path$(0)
            Endif
            Paste Image 1001,0,0
            Paste Image 1000,0,0
            DrawMode = OldDrawMode
            Gosub AllButtonsUp
            Paste Image Buttons+DrawMode,(DrawMode-1)*ButtonWidth+4,6
          EndCase

          Case 13
            Rem Exit
            Delete Bitmap 1
            End
          EndCase
        EndSelect
      Endif
    Endif
    Repeat
      Sync
    Until MouseClick()=0
  Endif
  Sync
Loop
End

Rem ***********************************************************
Rem **                     PROCEDURES                        **
Rem ***********************************************************

DoDrawAction:
  Select DrawMode
    Case 1
      Gosub Draw
    EndCase
    Case 2
      Gosub DLine
    EndCase
    Case 3
      Gosub DCircle
    EndCase
    Case 4
      Gosub DFCircle
    EndCase
    Case 5
      Gosub DBox
    EndCase
    Case 6
      Gosub DFBox
    EndCase
    Case 7
      Gosub DSpray
    EndCase
    Case 8
    EndCase
  EndSelect
  Repeat
  Until MouseClick()=0
Return

AllButtonsUp:
  For N=1 To Buttons: Rem Buttons In Up State (1 to 11)
    Paste Image N,(N-1)*ButtonWidth+4,6
  Next N
Return

Draw:
  StartX=Mx: StartY=My
  Repeat
    Mx=MouseX(): My=MouseY(): Mc=MouseClick()
    Line StartX,StartY,Mx,My
    StartX=Mx: StartY=My
    Sync
  Until MouseClick() = 0
  Get Image 1001,0,0,800,600: Rem Full Screen
Return

DLine:
  StartX=Mx: StartY=My
  Repeat
    Mx=MouseX(): My=MouseY(): Mc=MouseClick()
    Paste Image 1001,0,0
    Line StartX,StartY,Mx,My
    Sync
  Until MouseClick() = 0
  Get Image 1001,0,0,800,600: Rem Full Screen
Return

DCircle:
  Hide Mouse
  Repeat
    Radius=ABS(MouseX()-Mx)
    Paste Image 1001,0,0
    Circle Mx,My,Radius
    Sync
  Until MouseClick()=0
  Get Image 1001,0,0,800,600: Rem Full Screen
  Show Mouse
Return

DFCircle:
  Hide Mouse
  Repeat
    Radius=ABS(MouseX()-Mx)
    Paste Image 1001,0,0
    SBFillCircle(Mx,My,Radius)
    Sync
  Until MouseClick()=0
  Get Image 1001,0,0,800,600: Rem Full Screen
  Show Mouse
Return

DBox:
  Hide Mouse
  StartX=Mx: StartY=My
  Repeat
    Mx=MouseX(): My=MouseY(): Mc=MouseClick()
    If Mx-StartX > 1 and My-StartY > 1
      Paste Image 1001,0,0
      Get Image 1003,Startx+1,Starty+1,Mx,My
      Box Startx,Starty,Mx,My
      Paste Image 1003,Startx+1,Starty+1
    Endif
    Sync
  Until MouseClick()=0
  Get Image 1001,0,0,800,600: Rem Full Screen
  Show Mouse
Return

DFBox:
  Hide Mouse
  StartX=Mx: StartY=My
  Repeat
    Mx=MouseX(): My=MouseY(): Mc=MouseClick()
    rem If Mx-StartX > 1 and My-StartY > 1
      Paste Image 1001,0,0
      Box Startx,Starty,Mx,My
    rem Endif
    Sync
  Until MouseClick()=0
  Get Image 1001,0,0,800,600: Rem Full Screen
  Show Mouse
Return

DSpray:
  Repeat
    Mx=MouseX(): My=MouseY(): Mc=MouseClick()
    Dx = MX+Rnd(40)-20
    Dy = MY+Rnd(40)-20
    Dot Dx,Dy
    Inc SyncCounter
    If SyncCounter = 20
      Sync
      SyncCounter = 0
    Endif
  Until MouseClick() = 0
  Get Image 1001,0,0,800,600: Rem Full Screen
Return

Setup:
  Set Display Mode 800,600,16
  Sync On: Sync Rate 0: CLS 0
  StartDir$=Get Dir$(): Rem Starting Directory
  CurDir$=StartDir$
  Get Image 1001,0,0,800,600: Rem Full Screen

  Rem Required DIM Statements For FileSelector Routines
  Dim Files$(1000,2): Dim Drv$(26): Dim Temp$(1000,2): Dim GotDrives(1)
  Dim Path$(1): Dim Filename$(1): Dim SliderHeight(1): Dim FileOffset(1)

  Buttons = 13
  Dim ButtonText$(Buttons)
  ButtonText$(1) = "Draw"
  ButtonText$(2) = "Line"
  ButtonText$(3) = "Circle"
  ButtonText$(4) = "FCircle"
  ButtonText$(5) = "Box"
  ButtonText$(6) = "FBox"
  ButtonText$(7) = "Spray"
  ButtonText$(8) = ""
  ButtonText$(9) = "Colour"
  ButtonText$(10) = "New"
  ButtonText$(11) = "Load"
  ButtonText$(12) = "Save"
  ButtonText$(13) = "Exit"

  Ink RGB(255,255,255),0: Box 0,0,799,32
  Ink RGB(120,120,120),0: Box 1,1,799,32
  Ink RGB(180,180,180),0: Box 1,1,798,31
  Set Text Font "Tahoma"
  Set Text Size 14
  DrawMode = 1
  ViewMode = 0
  ButtonWidth = 60
  Randomize Timer()
  For N=1 To Buttons: Rem Buttons In Up State (1 to 11)
    MakeButton(N,ButtonWidth,20,0,ButtonText$(N))
    Paste Image N,(N-1)*ButtonWidth+4,6
  Next N
  For N=1 To Buttons: Rem Buttons In Down State (12 to 22)
    MakeButton(N+Buttons,ButtonWidth,20,1,ButtonText$(N))
  Next N
  Paste Image DrawMode+Buttons,0+4,6: Rem Initial Down Button (Draw)
  Get Image 1000,0,0,800,32: Rem Top Strip

  Rem Create Colour Palette
  Create Bitmap 1,800,600
  Ink RGB(255,255,255),0: Box 0,0,139,193
  Ink RGB(100,100,100),0: Box 1,1,139,193
  Ink RGB(170,170,170),0: Box 1,1,138,192
  Ink RGB(255,255,255),0: Box 5,5,134,188
  Ink 0,0: Box 6,168,133,187
  For Y=0 To 16
    For X=0 To 255 Step 2
      R=X: G=0: B=0
      Ink RGB(X,0,0),0
      Dot X/2+6,Y+6
      Ink RGB(0,X,0),0
      Dot X/2+6,Y+16+6
      Ink RGB(0,0,X),0
      Dot X/2+6,Y+32+6
    Next X
  Next Y
  Rem Greys
  For Y=0 To 16
    For X=0 To 255 Step 2
      Ink RGB(X,X,X),0
      Dot X/2+6,Y+48+7
    Next X
  Next Y
  Rem Green To Red
  For Y=0 To 255 Step 8
    For X=0 To 255 Step 2
      Ink RGB(X,Y,0),0
      Dot X/2+6,Y/8+64+7
    Next X
  Next Y
  Rem Red To Blue
  For Y=0 To 255 Step 8
    For X=0 To 255 Step 2
      Ink RGB(Y,0,X),0
      Dot X/2+6,Y/8+96+7
    Next X
  Next Y
  Rem Blue To Green
  For Y=0 To 255 Step 8
    For X=0 To 255 Step 2
      Ink RGB(0,X,Y),0
      Dot X/2+6,Y/8+128+7
    Next X
  Next Y
  Get Image 1002,0,0,140,194
  CLS
  CurrentColour = 16777215
  Ink CurrentColour,0
  Set Current Bitmap 0
Return

ShowHidePanel:
  If FullViewMode = 0
    FullViewMode = 1
    Get Image 1000,0,0,800,32: Rem Top Strip
    For N = 0 To -32 Step -1
      Paste Image 1001,0,0: Rem Full Screen
      Paste Image 1000,0,N: Rem Top Strip
      Sync
    Next N
    Paste Image 1001,0,0: Rem Full Screen
  Else
    FullViewMode = 0
    Get Image 1001,0,0,800,600: Rem Full Screen
    For N = -32 To 0
      Paste Image 1000,0,N: Rem Top Strip
      Sync
    Next N
    Paste Image 1000,0,0: Rem Top Strip
  Endif
  Repeat
  Until MouseClick()=0
Return

Rem ***********************************************************
Rem **                     FUNCTIONS                         **
Rem ***********************************************************

Function MakeButton(ImageNum,Width,Height,State,Label$)
  Create Bitmap 1,800,600
  CLS RGB(255,0,0)
  If State=0
    Ink RGB(255,255,255),0: Box 0,0,Width,Height
    Ink RGB(100,100,100),0: Box 1,1,Width,Height
    Ink RGB(180,180,180),0: Box 1,1,Width-1,Height-1
  Else
    Ink RGB(0,0,0),0: Box 0,0,Width,Height
    Ink RGB(220,220,220),0: Box 1,1,Width,Height
    Ink RGB(180,180,180),0: Box 1,1,Width-1,Height-1
  Endif
  Ink 0,0: Center Text Width/2+1,3,Label$
  Get Image ImageNum,0,0,Width+1,Height+1
  Set Current Bitmap 0
EndFunction

Function SBFillCircle(CX,CY,R)
  Rem Function By Sven B - Pointless Re-Inventing The Wheel! :)
  sR = R*R
  For I = 1 to R
    h = sqrt(sR-i*i)
    box CX-i,CY-h,CX+i,CY+h
  Next I
endfunction

Rem ** Functions For FileSelector **

Function Rectangle(tlx,tly,w,h)
  Line tlx,tly,tlx+w,tly
  Line tlx+w,tly,tlx+w,tly+h
  Line tlx+w,tly+h,tlx,tly+h
  Line tlx,tly+h,tlx,tly
endfunction

function Arrow(Atype,AXpos,AYpos)
  If AType=1
    Rem Up Arrow
    Line AXpos,AYpos,AXpos-6,AYpos+6
    Line AXpos,AYpos,AXpos+6,AYpos+6
    Line AXpos,AYpos+1,AXpos-6,AYpos+6+1
    Line AXpos,AYpos+1,AXpos+6,AYpos+6+1
  Endif
  If AType=2
    Rem Down Arrow
    For I=0 to 5
      Dot AXPos+I,AYPos-I
      Dot AXPos+I+1,AYPos-I
      Dot AXPos-I+1,AYPos-I
      Dot AXPos-I,AYPos-I
    Next I
  Endif
endfunction

Function FileSelect(ProjDir$,Title$,Filter$)
  TFont$=TEXT FONT$()
  TSize=TEXT SIZE()
  Set Text Font "Tahoma"
  Set Text Size 14
  CentreX=Screen Width()/2: TLX=CentreX-127
  CentreY=Screen Height()/2: TLY=CentreY-153
  OldDir$=Get Dir$()
  Selected=0
  Set Camera View 0,0,1,1
  Sync
  FileOffset(0)=0: Cancel=0: OK=0
  Rem -------------------------------------------------------
  Ink rgb(255,255,255),0
  Rectangle(TLX,TLY,254,306):                 Rem Top Left Highlight
  Ink rgb(120,120,120),0
  Rectangle(TLX+1,TLY+1,253,305):             Rem Bottom Right Shadow
  Ink rgb(200,200,200),0:                     Rem Med Grey Background
  Box TLX+1,TLY+1,TLX+253,TLY+305
  Rem -------------------------------------------------------
  Ink rgb(120,120,120),0:                     Rem Dark Grey Bits
  Rectangle(TLX+12,TLY+29,229,20):            Rem Path Box
  Rectangle(TLX+12,TLY+57,148,177):           Rem Files List Box
  Rectangle(TLX+48,TLY+242,193,19):           Rem Filename Box
  Rectangle(TLX+12,TLY+272,110,20):           Rem OK Box
  Rectangle(TLX+132,TLY+272,110,20):          Rem Cancel Box
  Rectangle(TLX+162,TLY+57,20,15):            Rem Up Button
  Rectangle(TLX+162,TLY+74,20,143):           Rem Scroll Box
  Rectangle(TLX+162,TLY+219,20,15):           Rem Down Button
  Rem -------------------------------------------------------
  Ink rgb(255,255,255),0:                     Rem White Bits
  Rectangle(TLX+13,TLY+30,228,19):            Rem Path Box
  Rectangle(TLX+13,TLY+58,147,176):           Rem Files List Box
  Rectangle(TLX+49,TLY+243,192,18):           Rem Filename Box
  Rectangle(TLX+13,TLY+273,109,19):           Rem OK Box
  Rectangle(TLX+133,TLY+273,109,19):          Rem Cancel Box
  Rectangle(TLX+163,TLY+58,19,14):            Rem Up Button
  Rectangle(TLX+163,TLY+75,19,142):           Rem Scroll Box
  Rectangle(TLX+163,TLY+220,19,14):           Rem Down Button
  Rem -------------------------------------------------------
  Ink rgb(220,220,220),0:                     Rem Write-To Panels
  Box TLX+13,TLY+30,TLX+240,TLY+48:           Rem Clear Path Box
  Box TLX+13,TLY+58,TLX+159,TLY+233:          Rem Clear Files Box
  Box TLX+49,TLY+243,TLX+240,TLY+260:         Rem Clear Filename Box
  Box TLX+13,TLY+273,TLX+121,TLY+291:         Rem OK Box
  Box TLX+133,TLY+273,TLX+241,TLY+291:        Rem Cancel Box
  Box TLX+163,TLY+58,TLX+181,TLY+71:          Rem Up Button
  Box TLX+163,TLY+75,TLX+181,TLY+216 :        Rem Scroll Box
  Box TLX+163,TLY+220,TLX+181,TLY+233:        Rem Down Button
  Rem -------------- LABELS ----------------------------------
  Ink rgb(250,250,250),0:                     Rem Filename Label
  Text TLX+57,TLY+276,"OK"
  Text TLX+167,TLY+276,"Cancel"
  Center Text CentreX,TLY+7,Title$:           Rem Panel Title Text
  Text TLX+15,TLY+245, "File:":               Rem Filename Label
  Arrow(1,TLX+172,TLY+60)
  Arrow(2,TLX+171,TLY+228):                   Rem Up/Down Arrows
  Ink 0,rgb(200,200,200)
  Text TLX+56,TLY+275,"OK"
  Text TLX+167,TLY+275,"Cancel"
  Center Text CentreX-1,TLY+6,Title$
  Text TLX+14,TLY+244, "File:"
  Arrow(1,TLX+173,TLY+61)
  Arrow(2,TLX+172,TLY+229):                  Rem Up/Down Arrows
  CD ProjDir$
  DriveBoxes(TLX,TLY)
  FO=FileOffset(0)
  Scroll=0
  NumFiles=UpdatePanel(TLX,TLY,Filter$,ProjDir$,FO,Selected,0,Scroll)
  SlidePos=TLY+75
  SliderTop=DrawSlider(TLX,TLY,NumFiles)
  Show Mouse
  Repeat
    FSx=MouseX(): FSy=MouseY(): FSc=MouseClick()
    If FSx>TLX+12 and FSx<TLX+160 and FSy>TLY+57 and FSy<TLY+234 and FSc=1 :  Rem Files/Dir List area
      Selected=Int((FSy-TLY-58)/16)+1+FileOffset(0): FileClick=1
      REM **********************
      REM SELECT A NEW DIRECTORY
      REM **********************
      If Files$(Selected,2)="Dir":                                 Rem Open Directory And Re-Read
        Repeat
        Until MOUSECLICK()=0
        T=Timer()
        DClick=0
        Repeat:                                                    Rem Double Click routine
          TClock=Timer()-T
          DClick=MOUSECLICK()
        Until DClick=1 or TClock>=250
        If DClick=1:                                               Rem Mouse was double-clicked
          Scroll=0
          If Files$(Selected,1)=". <Parent>":                      Rem Back out of directory
            CD ".."
            ProjDir$=Get Dir$()
          Else:                                                    Rem Go Into New Directory
            CD Files$(Selected,1)
            ProjDir$=Get Dir$()
          Endif
          FileOffset(0)=0: FileClick=0: Selected=0
          FO=FileOffset(0)
          NumFiles=UpdatePanel(TLX,TLY,Filter$,ProjDir$,FO,Selected,OldNumFiles,Scroll)
          FO=FileOffset(0)
          SliderTop=DrawSlider(TLX,TLY,NumFiles)
        Else:                                                      Rem Mouse was single-clicked
          Scroll=1: OldNumFiles=NumFiles
          FO=FileOffset(0)
          NumFiles=UpdatePanel(TLX,TLY,Filter$,ProjDir$,FO,Selected,OldNumFiles,Scroll)
          SliderTop=DrawSlider(TLX,TLY,NumFiles)
        Endif
        Filename$(0)=""
        Repeat
        Until MouseClick()=0
        Sync
      Endif
      REM **********************
      REM     SELECT A FILE
      REM **********************
      If Files$(Selected,2)="File" and FileClick=1:                 Rem Clicked On Filename
        Filename$(0)=Files$(Selected,1)
        Repeat
        Until MOUSECLICK()=0
        T=Timer()
        DClick=0
        Repeat:                                                     Rem Double Click routine
          TClock=Timer()-T
          DClick=MOUSECLICK()
        Until DClick=1 or TClock>=250
        If DClick=1
          OK=1:                                                     Rem OK to leave fileselector
          Path$(0)=GET DIR$()+"\"
        Else
          Ink 0,rgb(220,220,220)
          Text TLX+53,TLY+244,Filename$(0):                         Rem Display Selected file's name
          FO=FileOffset(0)
          Scroll=1: OldNumFiles=NumFiles
          NumFiles=UpdatePanel(TLX,TLY,Filter$,ProjDir$,FO,Selected,OldNumFiles,Scroll)
          SliderTop=DrawSlider(TLX,TLY,NumFiles)
        Endif
      Endif
      Repeat
      Until MouseClick()=0
      Sync
    Endif
    REM **********************
    REM    SCROLL FILES UP
    REM **********************
    If FSx>TLX+162 and FSx<TLX+182 and FSy>TLY+57 and FSy<TLY+72 and FSc=1: Rem Scroll List Of Files Up
      FileOffset(0)=FileOffset(0)-1
      If FileOffset(0)<0 Then FileOffset(0)=0
      FO=FileOffset(0)
      Scroll=1: OldNumFiles=NumFiles
      NumFiles=UpdatePanel(TLX,TLY,Filter$,ProjDir$,FO,Selected,OldNumFiles,Scroll)
      SliderTop=DrawSlider(TLX,TLY,NumFiles)
      Sync
    Endif
    REM **********************
    REM   SCROLL FILES DOWN
    REM **********************
    If FSx>TLX+162 and FSx<TLX+182 and FSy>TLY+219 and FSy<TLY+234 and FSc=1: Rem Scroll List Of Files Down
      FileOffset(0)=FileOffset(0)+1
      If FileOffset(0)+11>NumFiles
        FileOffset(0)=FileOffset(0)-1
      Endif
      FO=FileOffset(0)
      Scroll=1: OldNumFiles=NumFiles
      NumFiles=UpdatePanel(TLX,TLY,Filter$,ProjDir$,FO,Selected,OldNumFiles,Scroll)
      SliderTop=DrawSlider(TLX,TLY,NumFiles)
      Sync
    Endif
    REM **********************
    REM     DRAG SCROLLBAR
    REM **********************
    If FSx>TLX+163 and FSx<TLX+181 and FSy>SliderTop and FSy<SliderTop+SliderHeight(0) and FSc=1:  Rem Slider Bar
      MouseDiff=FSy-SliderTop
      SliderTop=MoveSlider(TLX,TLY,MouseDiff,NumFiles,Selected)
      FSc=0
    Endif
    REM *************************
    REM   CLICK ABOVE SCROLLBAR
    REM *************************
    If FSx>TLX+162 and FSx<TLX+182 and FSy>TLY+74 and FSy<SliderTop and FSc=1:  Rem Slider Bar
      FileOffset(0)=FileOffset(0)-11
      If FileOffset(0)<0 Then FileOffset(0)=0
      FO=FileOffset(0)
      Scroll=1: OldNumFiles=NumFiles
      NumFiles=UpdatePanel(TLX,TLY,Filter$,ProjDir$,FO,Selected,OldNumFiles,Scroll)
      SliderTop=DrawSlider(TLX,TLY,NumFiles)
      Sleep 20
      Sync
    Endif
    REM *************************
    REM   CLICK BELOW SCROLLBAR
    REM *************************
    If FSx>TLX+162 and FSx<TLX+182 and FSy>SliderTop+SliderHeight(0) and FSy<TLY+217 and FSc=1:  Rem Slider Bar
      FileOffset(0)=FileOffset(0)+11
      If FileOffset(0)+11>NumFiles
        FileOffset(0)=NumFiles-11
      Endif
      FO=FileOffset(0)
      Scroll=1: OldNumFiles=NumFiles
      NumFiles=UpdatePanel(TLX,TLY,Filter$,ProjDir$,FO,Selected,OldNumFiles,Scroll)
      SliderTop=DrawSlider(TLX,TLY,NumFiles)
      Sleep 20
      Sync
    Endif
    REM **********************
    REM   ENTER NEW FILENAME
    REM **********************
    If FSx>TLX+42 and FSx<TLX+242 and FSy>TLY+242 and FSy<TLY+262 and FSc=1: Rem Click on Filename Entry Box
      Ink RGB(220,220,220),0
      Box TLX+49,TLY+243,TLX+241,TLY+260:         Rem Clear Filename Box
      Ink 0,RGB(220,220,220)
      Set Cursor TLX+53,TLY+244
      Input Fn$
      Fn$=Upper$(Fn$)
      Ink RGB(220,220,220),0
      Box TLX+49,TLY+243,TLX+241,TLY+261:         Rem Clear Filename Box
      If Filter$="*.*"
        Filename$(0)=Fn$
      Else
        ExtTest$="."+Filter$
        If Right$(Fn$,4)<>ExtTest$
          Filename$(0)=Fn$+"."+Filter$:           Rem Add . and extension
        Endif
      Endif
      Ink 0,RGB(220,220,220): Text TLX+53,TLY+244,Filename$(0)
      Path$(0)=GET DIR$()
      OK=1
    Endif
    REM **********************
    REM      OK BUTTON
    REM **********************
    If FSx>TLX+12 and FSx<TLX+122 and FSy>TLY+272 and FSy<TLY+292 and FSc=1:                        Rem OK
      If Files$(Selected,1)<>""
        OK=1
      Endif
    Endif
    REM **********************
    REM    CANCEL BUTTON
    REM **********************
    If FSx>TLX+132 and FSx<TLX+242 and FSy>TLY+272 and FSy<TLY+292 and FSc=1:                        Rem Cancel
      Filename$(0)=""
      Path$(0)=""
      OK=0: Cancel=1
      CD OldDir$
    Endif
    REM **********************
    REM     SELECT DRIVE
    REM **********************
    If FSx>TLX+198 and FSx<TLX+242 and FSy>TLY+57 and FSy<TLY+217 and FSc=1:       Rem Drives
      DrBoxX=(FSx-TLX+198)/22: DrBoxY=(FSy-TLY+57)/20
      DrNum=DrBoxY*2+DrBoxX+65
      If Chr$(DrNum)+":"=Drv$(DrNum-64)
        Ink rgb(220,220,220),0: Box TLX+13,TLY+30,TLX+240,TLY+48:        Rem Clear Path Box
        CurDrive$=Chr$(DrNum)+":\"
        CD CurDrive$
        DriveBoxes(TLX,TLY): Rem Highlight selected drive
        FO=FileOffset(0)
        Scroll=0
        NumFiles=UpdatePanel(TLX,TLY,Filter$,ProjDir$,FO,Selected,OldNumFiles,Scroll)
        DrawSlider(TLX,TLY,NumFiles)
        Sync
        Repeat
        Until MouseClick()=0
      Endif
    Endif
    Sync
  Until Cancel=1 or OK=1
  Repeat
  Until MOUSECLICK()=0
  Ink rgb(255,255,255),0
  Set Text Font TFont$
  Set Text Size TSize
EndFunction OK

Function UpdatePanel(TLX,TLY,Filter$,ProjDir$,FO,Selected,OldNumFiles,Scroll)
  FileOffset(0)=FO
  If Scroll=1: Rem Scrolling so no need to re-read files back in
    NumFiles=OldNumFiles
  Else
    For N=1 To 1000:                                              Rem Clear Out Old Directory Entries
      Files$(N,1)="": Files$(N,2)=""
      Temp$(N,1)="":  Files$(N,2)=""
    Next N
    Count=1: Filename$(0)="": DirCount=0: FileCount=0
    Find First
    Repeat
      FileType=Get File Type()
      If FileType=0:                                              Rem  If Type Is 'File'
        FullName$=Get File Name$()
        Ext$=Right$(FullName$,3)
        If Filter$="*.*":                                         Rem Display ALL Files
          Files$(Count,1)=FullName$
          Files$(Count,2)="File"
          Inc Count
          Inc FileCount
        Else:                                                     Rem Use Filter
          If Upper$(Ext$)=Filter$
            Files$(Count,1)=FullName$
            Files$(Count,2)="File"
            Inc Count
            Inc FileCount
          Endif
        Endif
      Endif
      If FileType=1:                                              Rem  If Type Is 'Directory'
        FullDirName$=Get File Name$()
        If FullDirName$<>".."
          Files$(Count,1)=FullDirName$
          If Files$(Count,1)="." then Files$(Count,1)=". <Parent>"
          Files$(Count,2)="Dir"
          Inc Count
          Inc DirCount
        Endif
      Endif
      Find Next
    Until Get File Type()=-1: Rem No more files
    NumFiles=Count-1
    Rem Sort All Entries For Display
    Repeat
      Swap=0
      For N=1 To NumFiles-1
        Fl1=Asc(Files$(N,1))
        Fl2=Asc(Files$(N+1,1))
        If Fl1>Fl2: Rem Characters in wrong position
          Swap=1
          T1$=Files$(N,1)
          T2$=Files$(N,2)
          Files$(N,1)=Files$(N+1,1)
          Files$(N,2)=Files$(N+1,2)
          Files$(N+1,1)=T1$
          Files$(N+1,2)=T2$
        Endif
      Next N
    Until Swap=0
    FCount=1: DCount=1
    For N=1 To NumFiles
      If Files$(N,2)="Dir" :                                      Rem  Separate Directories
        Temp$(DCount,1)=Files$(N,1)
        Temp$(DCount,2)=Files$(N,2)
        Inc DCount
      Else:                                                       Rem  Separate Files
        Temp$(FCount+DirCount,1)=Files$(N,1)
        Temp$(FCount+DirCount,2)=Files$(N,2)
        Inc FCount
      Endif
    Next N
    For N=1 To NumFiles:                                          Rem  Put back into main array
      Files$(N,1)=Temp$(N,1)
      Files$(N,2)=Temp$(N,2)
    Next N
    Rem Print New Path in Path box
    Ink rgb(220,220,220),0: Box TLX+13,TLY+30,TLX+240,TLY+48:     Rem Clear Path Box
    Ink 0,rgb(220,220,220)
    Path$(0)=Get Dir$()
    If Len(Path$(0))>39
      TempPath$=Left$(Path$(0),2)+"\...\"+Right$(Path$(0),32)
      Text TLX+16,TLY+32,TempPath$:                               Rem Path Position on Fileselector
    Else
      Path$=ProjDir$
      Text TLX+16,TLY+32,Path$(0):                                Rem Path Position on Fileselector
    Endif
  Endif
  Rem *******************
  Rem   DISLAY ENTRIES
  Rem *******************
  TextXPos=TLX+30: Ty=TLY+42
  Ink rgb(220,220,220),0
  Box TLX+13,TLY+58,TLX+159,TLY+233: Rem Clear Files Box
  For N=1 to 11:                     Rem Fill Files Box (Max 11 Entries)
    If FileOffset(0)+N<=NumFiles
      If N=Selected-FileOffset(0):   Rem Just clicked on entry
        Set text opaque
        Ink 0,rgb(255,255,255)
      Else
        Ink 0,rgb(220,220,220)
      Endif
      If Files$(FileOffset(0)+N,2)="Dir"
        Text TextXPos,Ty+N*16,Left$(Files$(FileOffset(0)+N,1),17)
        Ink 0,0: Box TextXPos-16,Ty+N*16+2,TextXPos-4,Ty+N*16+12
        Ink RGB(255,200,0),0: Box TextXPos-15,Ty+N*16+3,TextXPos-5,Ty+N*16+11
        Ink RGB(0,0,0),0: Box TextXPos-10,Ty+N*16+2,TextXPos-4,Ty+N*16+4
        Ink RGB(220,220,220),0: Box TextXPos-9,Ty+N*16+2,TextXPos-4,Ty+N*16+3
      Else
        Text TextXPos,Ty+N*16,Left$(Files$(FileOffset(0)+N,1),17)
        Ink RGB(0,0,255),0: Box TextXPos-15,Ty+N*16+2,TextXPos-5,Ty+N*16+12
        Ink RGB(255,255,255),0: Box TextXPos-14,Ty+N*16+5,TextXPos-6,Ty+N*16+11
      Endif
    Endif
    Set text transparent
  Next N
EndFunction NumFiles

Function DriveBoxes(TLX,TLY)
  CurDrive$=Left$(GET DIR$(),2)
  Rem Get Drive List First Time Function Called
  If GotDrives(0)=0
    GotDrives(0)=1
    Perform Checklist For Drives
    DrCount=Checklist Quantity()
    For T=1 To 26
      Drv$(T)="No Drive"
    Next T
    For T=1 To DrCount
      Dl=Asc(Checklist String$(T))-64
      Drv$(Dl)=Checklist String$(T)
    Next T
  Endif
  N=1
  For N2=0 to 7:                                                    Rem Draw Drive Buttons
    For N1=0 to 1
      D$=Chr$(64+N)+":" :                                           Rem Drives A: To P:
      Ink rgb(255,255,255),0
      Rectangle(N1*22+TLX+198, N2*20+TLY+57,22,20):                 Rem White Border
      Ink rgb(200,200,200),0
      If CurDrive$=D$
        Ink rgb(170,170,170),0:                                     Rem Centre  OK
      Endif
      Box N1*22+TLX+199,N2*20+TLY+58, N1*22+TLX+219, N2*20+TLY+76:  Rem Draw Box Background
      rem if calculated drive letter = Drive letter from checklist
      If D$=Drv$(N)
        Ink rgb(255,255,255),0
        Text N1*22+TLX+205, N2*20+TLY+60,D$: Rem the drive letter
        Ink 0,0
        Text N1*22+TLX+204, N2*20+TLY+59,D$: Rem the drive letter
      Else: Rem Grey out cos drive does not exist
        Ink rgb(255,255,255),0
        Text N1*22+TLX+205, N2*20+TLY+60,D$: Rem the drive letter
        Ink rgb(150,150,150),0
        Text N1*22+TLX+204, N2*20+TLY+59,D$: Rem the drive letter
      Endif
      Inc N
    Next N1
  Next N2
  Sync
EndFunction

Function DrawSlider(TLX,TLY,NumFiles)
  Items=NumFiles
  SliderHeight(0)=Int(11*(142.0/Items))
  MoveRange#=142.0-SliderHeight(0)
  MoveRatio#=MoveRange#/(Items-11)
  SlidePos=Int(TLY+75+FileOffset(0)*MoveRatio#)
  If SlidePos+SliderHeight(0)>TLY+215 Then SlidePos=TLY+215-SliderHeight(0)
  If Items<12
    SliderHeight(0)=140: SlidePos=TLY+75
  Endif
  Ink rgb(220,220,220),0:                                         Rem Write-To Panels
  Box TLX+163,TLY+75,TLX+181,TLY+216:                             Rem Scroll Box
  Ink rgb(255,255,255),0:                                         Rem White Bits
  Box TLX+163,SlidePos,TLX+165+16,SlidePos+SliderHeight(0)+1:     Rem Scroll Button
  Ink rgb(120,120,120),0:                                         Rem Dark Grey Bits
  Box TLX+164,SlidePos+1,TLX+165+16,SlidePos+SliderHeight(0)+1:   Rem Scroll Button
  Ink rgb(200,200,200),0:                                         Rem Write To Panel Colour
  Box TLX+164,SlidePos+1,TLX+165+15,SlidePos+SliderHeight(0):     Rem Scroll Button
EndFunction SlidePos

Function MoveSlider(TLX,TLY,MouseDiff,NumFiles,Selected)
  Items=NumFiles
  MoveRange#=142.0-SliderHeight(0)
  MoveRatio#=MoveRange#/(Items-10)
  Repeat
    FSx=MouseX():FSy=MouseY()
    SlidePos=FSy-MouseDiff
    If SlidePos<TLY+75 Then SlidePos=TLY+75
    If SlidePos+SliderHeight(0)>TLY+215 Then SlidePos=TLY+215-SliderHeight(0)
    Ink rgb(220,220,220),0:                                         Rem Write-To Panels
    Box TLX+163,TLY+75,TLX+181,TLY+216:                             Rem Scroll Box
    Ink rgb(255,255,255),0:                                         Rem White Bits
    Box TLX+163,SlidePos,TLX+165+16,SlidePos+SliderHeight(0)+1:     Rem Scroll Button
    Ink rgb(120,120,120),0:                                         Rem Dark Grey Bits
    Box TLX+164,SlidePos+1,TLX+165+16,SlidePos+SliderHeight(0)+1:   Rem Scroll Button
    Ink rgb(200,200,200),0:                                         Rem Write To Panel Colour
    Box TLX+164,SlidePos+1,TLX+165+15,SlidePos+SliderHeight(0):     Rem Scroll Button
    FileOffset(0)=Int((SlidePos-TLY-75)/MoveRatio#)
    TextXPos=TLX+30: Ty=TLY+42
    Ink rgb(220,220,220),0
    Box TLX+13,TLY+58,TLX+159,TLY+233:          Rem Clear Files Box
    Rem ***** DISPLAY ENTRIES *****
    For N=1 to 11:                              Rem Fill Files Box (Max 11 Entries)
      If FileOffset(0)+N<=NumFiles
        set text opaque
        Ink Rgb(255,255,255),0
        If N=Selected-FileOffset(0):            Rem Currently Selected Entry
          set text opaque
          Ink 0,rgb(255,255,255)
        Else
          Ink 0,rgb(220,220,220)
        Endif
        If Files$(FileOffset(0)+N,2)="Dir"
          Text TextXPos,Ty+N*16,Left$(Files$(FileOffset(0)+N,1),17)
          Ink 0,0: Box TextXPos-16,Ty+N*16+2,TextXPos-4,Ty+N*16+12
          Ink RGB(255,200,0),0: Box TextXPos-15,Ty+N*16+3,TextXPos-5,Ty+N*16+11
          Ink RGB(0,0,0),0: Box TextXPos-10,Ty+N*16+2,TextXPos-4,Ty+N*16+4
          Ink RGB(220,220,220),0: Box TextXPos-9,Ty+N*16+2,TextXPos-4,Ty+N*16+3
        Else
          Text TextXPos,Ty+N*16,Left$(Files$(FileOffset(0)+N,1),17)
          Ink RGB(0,0,255),0: Box TextXPos-15,Ty+N*16+2,TextXPos-5,Ty+N*16+12
          Ink RGB(255,255,255),0: Box TextXPos-14,Ty+N*16+5,TextXPos-6,Ty+N*16+11
        Endif
      Endif
      Set text transparent
    Next N
    Sync
  Until MouseClick()=0
EndFunction SlidePos

Nanogamez Guy

   Meets all the challenge requirements.  Has a very nice and easy
   to use color selection method.  However, I had a little trouble
   with clearing the screen - it would freeze until I pressed the
   mouse button again.  An extra sync would fix that.

Lucifer

   Meets color changing requirement, clear screen requirement, but does
   not draw continuous strokes.  Added bubble, circle, and save control extras.
   I couldn't get the draw line extra to work.  All in all, easy to use but the
   drawing part needs a little work.  Good  bubbles though!

Lukas W

   Meets all the challenge requiements.  Clean and fast interface.  Added
   save control extra.  I had a little trouble with color selection.  I couldn't
   get yellow or orange.  Good "right to the point" drawing program.

Phaelax

   Meets color changing requirement, continous stroke requirement, but has no
   clear screen option.  Easy and clear color selection and added brush size,
   shape, and spray extras.  I thought the implemenatation of Bresenham's
   algorithm was quite impressive to allow custom drawing methods.  The multiple
   loops inside the bline() and drawDot() functions in conjunction with each
   other and the use of the box command really slowed down the performance though.
   I often got straight lines when I moved the mouse in an arc.  Aside from that
   I really like the techniques used in this one.

Hobgoblin Lord

   Meets color changing requirement, continous stroke requirement, but has no
   clear screen option.  I really like the custom color assignment boxes.  The
   color selection sliders are very easy to use.  Nice and simple program.

TDK_man

   Meets all the challenge requirements.  Lot's of extras including saving and
   loading via custom dialog; also boxes, cicles, spray...  The toggle menu interface
   was a nice addition but I find a static menu a little easier to use.  I did
   notice that when I loaded a bitmap, the file selection dialog became part of
   the current drawing.  Even so, this is a fast multifeatured mouse drawing program.

rem Window Settings
set window on
set window size 550,480


a$="0"


rem Main Loop
do

box 140,5,440,25


sync on : sync rate 0

ink rgb(0,0,0),1
set cursor 150,10
print ">";a$

if button(150,55,"1")=1 
a$=a$+"1"
wait 100
endif
if button(250,55,"2")=1 
a$=a$+"2"
wait 100
endif
if button(350,55,"3")=1 
a$=a$+"3"
wait 100
endif
if button(150,155,"4")=1 
a$=a$+"4"
wait 100
endif
if button(250,155,"5")=1 
a$=a$+"5"
wait 100
endif
if button(350,155,"6")=1 
a$=a$+"6"
wait 100
endif
if button(150,255,"7")=1 
a$=a$+"7"
wait 100
endif
if button(250,255,"8")=1 
a$=a$+"8"
wait 100
endif
if button(350,255,"9")=1 
a$=a$+"9"
wait 100
endif
if button(250,355,"0")=1 
a$=a$+"0"
wait 100
endif
if button(150,355,"+")=1 
a$="0"
wait 100
z=1
endif
if button(450,55,"-")=1
a$="0"
z=2
wait 100
endif
if button(450,155,"/")=1
a$="0"
z=3
wait 100
endif
if button(450,255,"00")=1
a$=a$+"00"
wait 100
endif
if button(450,355,".")=1 
a$=a$+"."
wait 100
endif
if button(550,55,"AC")=1
a$="0"
endif
if button(350,355,"=")=1 and z=1
d=a+b
endif


if keystate(79)=1 
a$=a$+"1"
wait 100
endif
if keystate(80)=1 
a$=a$+"2"
wait 100
endif
if keystate(81)=1 
a$=a$+"3"
wait 100
endif
if keystate(75)=1 
a$=a$+"4"
wait 100
endif
if keystate(76)=1 
a$=a$+"5"
wait 100
endif
if keystate(77)=1 
a$=a$+"6"
wait 100
endif
if keystate(71)=1 
a$=a$+"7"
wait 100
endif
if keystate(72)=1 
a$=a$+"8"
wait 100
endif
if keystate(73)=1 
a$=a$+"9"
wait 100
endif
if keystate(82)=1 
a$=a$+"0"
wait 100
endif


sync
loop


rem Button Function
function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

sync on

d=8
a=4
addx=0
addy=0
num$="0"

dim bp(d,a,2)
for i=1 to d
	for j=1 to a
		bp(i,j,1)=j*40+addx
		bp(i,j,2)=i*15+30+addy
	next j
next i
dim b$(d,a)
b$(1,1)="sqrt" :b$(1,2)="cos"		:b$(1,3)="sin"		:b$(1,4)="tan"
b$(2,1)="hex"	:b$(2,2)="acos"	:b$(2,3)="asin"	:b$(2,4)="atan"
b$(3,1)="bin"	:b$(3,2)="hcos"	:b$(3,3)="hsin"	:b$(3,4)="htan"
b$(4,1)="pwr"	:b$(4,2)="pstv"	:b$(4,3)="int"		:b$(4,4)="="
b$(5,1)="7"		:b$(5,2)="8"		:b$(5,3)="9"		:b$(5,4)="/"
b$(6,1)="4"		:b$(6,2)="5"		:b$(6,3)="6"		:b$(6,4)="*"
b$(7,1)="1"		:b$(7,2)="2"		:b$(7,3)="3"		:b$(7,4)="-"
b$(8,1)="CE"	:b$(8,2)="0"		:b$(8,3)="(.)"		:b$(8,4)="+"

ink rgb(130,130,130),0
box bp(1,1,1)-5,bp(1,1,2)-5,bp(d,a,1)+32+5,bp(d,a,2)+13+5
ink rgb(150,150,150),0
box bp(1,1,1)-5,bp(1,1,2)-5-20,bp(d,a,1)+32+5,bp(1,a,2)-5
ink rgb(50,50,50),0
box bp(1,1,1),bp(1,1,2)-5-18,bp(d,a,1)+32,bp(1,a,2)-8
ink rgb(255,255,255),0
linebox(bp(1,1,1)-5-1,bp(1,1,2)-5-20-1,bp(d,a,1)+32+5+1,bp(d,a,2)+13+5+1)
linebox(bp(1,1,1)-5-1,bp(1,1,2)-5-20,bp(d,a,1)+32+5+1,bp(1,a,2)-5+1)

for i=1 to d
	for j=1 to a
		ink rgb(170,170,170),0
		box bp(i,j,1),bp(i,j,2),bp(i,j,1)+32,bp(i,j,2)+13
		ink rgb(255,255,255),0		
		center text bp(i,j,1)+16,bp(i,j,2),b$(i,j)
	next j
next i

do
	
	gosub displaynum
	gosub handlebuttons
	
	sync

loop

end

rem ************
rem sub-routines
rem ************

displaynum:
	ink rgb(50,50,50),0
	box bp(1,1,1),bp(1,1,2)-5-18,bp(d,a,1)+32,bp(1,a,2)-8
	if text width(num$)>100
		while text width(num$)>100
			num$=right$(num$,len(num$)-1)
			sync
		endwhile
	endif
	ink rgb(255,255,255),0
	text (bp(d,a,1)+32)-text width(num$),bp(1,a,2)-5-18,num$
return

handlebuttons:
	if mouseclick()=1
		if mouseclicked=0
			mouseclicked=1
			for i=1 to 8
				for j=1 to 4
					if mousewithin(bp(i,j,1),bp(i,j,2),bp(i,j,1)+32,bp(i,j,2)+13)
						num$=getavalue(num$,b$(i,j),addx,addy) 
					endif
				next j
			next i
		endif
	else
		mouseclicked=0
	endif
return

function linebox(x1,y1,x2,y2)

	line x1,y1,x1,y2
	line x1,y2,x2,y2
	line x2,y2,x2,y1
	line x2,y1,x1,y1

endfunction


function mousewithin(x1,y1,x2,y2)
  if mousex()>x1 and mousex()<x2 and mousey()>y1 and mousey()<y2 then exitfunction 1
endfunction 0

function getavalue(num$,t$,addx,addy)

	mode=0
	value$=num$

	if t$="0" or t$="1" or t$="2" or t$="3" or t$="4" or t$="5" or t$="6" or t$="7" or t$="8" or t$="9"
		value$=str$(val(num$+t$))
	endif
	if t$="CE" then value$="0"
	if t$="sqrt" then value$=str$(int(sqrt(val(num$))))
	if t$="cos" then value$=str$(int(cos(val(num$))))
	if t$="sin" then value$=str$(int(sin(val(num$))))
	if t$="tan" then value$=str$(int(tan(val(num$))))
	if t$="acos" then value$=str$(int(acos(val(num$))))
	if t$="asin" then value$=str$(int(asin(val(num$))))
	if t$="atan" then value$=str$(int(atan(val(num$))))
	if t$="hcos" then value$=str$(int(hcos(val(num$))))
	if t$="hsin" then value$=str$(int(hsin(val(num$))))
	if t$="htan" then value$=str$(int(htan(val(num$))))
	if t$="pstv" then value$=str$(int(abs(val(num$))))
	if t$="bin" then value$=bin$(val(num$))
	if t$="hex" then value$=str$(val(hex$(val(num$))))
	if t$="pwr" then mode=1
	if t$="/" then mode=2
	if t$="*" then mode=3
	if t$="-" then mode=4
	if t$="+" then mode=5
	
	`if mode>1 then value$=getvalueloop(num$,mode,addx,addy)
	
endfunction value$

remstart
function getvalueloop(num$,mode,addx,addy)

	done=0
	dim bp(d,a,2)
	for i=1 to d
		for j=1 to a
			bp(i,j,1)=j*40+addx
			bp(i,j,2)=i*15+30+addy
		next j
	next i
	dim b$(d,a)
	b$(1,1)="sqrt" :b$(1,2)="cos"		:b$(1,3)="sin"		:b$(1,4)="tan"
	b$(2,1)="hex"	:b$(2,2)="acos"	:b$(2,3)="asin"	:b$(2,4)="atan"
	b$(3,1)="bin"	:b$(3,2)="hcos"	:b$(3,3)="hsin"	:b$(3,4)="htan"
	b$(4,1)="pwr"	:b$(4,2)="pstv"	:b$(4,3)="int"		:b$(4,4)="="
	b$(5,1)="7"		:b$(5,2)="8"		:b$(5,3)="9"		:b$(5,4)="/"
	b$(6,1)="4"		:b$(6,2)="5"		:b$(6,3)="6"		:b$(6,4)="*"
	b$(7,1)="1"		:b$(7,2)="2"		:b$(7,3)="3"		:b$(7,4)="-"
	b$(8,1)="CE"	:b$(8,2)="0"		:b$(8,3)="(.)"		:b$(8,4)="+"

	while done=0
		if mouseclick()=1
			if mouseclicked=0
				mouseclicked=1
				for i=1 to 8
					for j=1 to 4
						if mousewithin(bp(i,j,1),bp(i,j,2),bp(i,j,1)+32,bp(i,j,2)+13)
							if b$(i,j)="CE" then value$=num$ : done=2
							if b$(i,j)="0" or b$(i,j)$="1" or b$(i,j)$="2" or b$(i,j)$="3" or b$(i,j)$="4" or b$(i,j)$="5" or b$(i,j)$="6" or b$(i,j)$="7" or b$(i,j)$="8" or b$(i,j)$="9"
								temp$=str$(val(temp$+b$(i,j)))
							endif
							if b$(i,j)="=" then done=1
						endif
					next j
				next i
			endif
		else
			mouseclicked=0
		endif
		ink rgb(50,50,50),0
		box bp(1,1,1),bp(1,1,2)-5-18,bp(d,a,1)+32,bp(1,a,2)-8
		if text width(temp$)>100
			while text width(temp$)>100
				temp$=right$(temp$,len(temp$)-1)
				sync
			endwhile
		endif
		ink rgb(255,255,255),0
		text (bp(d,a,1)+32)-text width(temp$),bp(1,a,2)-5-18,temp$
		sync
	endwhile
	if done=1
		temp2=val(num$)
		if mode=1 then temp2=exp(val(temp$)) : value$=str$(temp2)
		if mode=2 then value$=str$(temp2/val(temp$))
		if mode=3 then value$=str$(temp2*val(temp$))
		if mode=4 then value$=str$(temp2-val(temp$))
		if mode=5 then value$=str$(temp2+val(temp$))
		value$=str$(int(val(value$)))
	endif
endfunction value
remend

sync on

d=8
a=4
addx=0
addy=0
num$="0"

dim bp(d,a,2)
for i=1 to d
	for j=1 to a
		bp(i,j,1)=j*40+addx
		bp(i,j,2)=i*15+30+addy
	next j
next i
dim b$(d,a)
b$(1,1)="sqrt" :b$(1,2)="cos"		:b$(1,3)="sin"		:b$(1,4)="tan"
b$(2,1)="hex"	:b$(2,2)="acos"	:b$(2,3)="asin"	:b$(2,4)="atan"
b$(3,1)="bin"	:b$(3,2)="hcos"	:b$(3,3)="hsin"	:b$(3,4)="htan"
b$(4,1)="pwr"	:b$(4,2)="pstv"	:b$(4,3)="int"		:b$(4,4)="="
b$(5,1)="7"		:b$(5,2)="8"		:b$(5,3)="9"		:b$(5,4)="/"
b$(6,1)="4"		:b$(6,2)="5"		:b$(6,3)="6"		:b$(6,4)="*"
b$(7,1)="1"		:b$(7,2)="2"		:b$(7,3)="3"		:b$(7,4)="-"
b$(8,1)="CE"	:b$(8,2)="0"		:b$(8,3)="(.)"		:b$(8,4)="+"

ink rgb(130,130,130),0
box bp(1,1,1)-5,bp(1,1,2)-5,bp(d,a,1)+32+5,bp(d,a,2)+13+5
ink rgb(150,150,150),0
box bp(1,1,1)-5,bp(1,1,2)-5-20,bp(d,a,1)+32+5,bp(1,a,2)-5
ink rgb(50,50,50),0
box bp(1,1,1),bp(1,1,2)-5-18,bp(d,a,1)+32,bp(1,a,2)-8
ink rgb(255,255,255),0
linebox(bp(1,1,1)-5-1,bp(1,1,2)-5-20-1,bp(d,a,1)+32+5+1,bp(d,a,2)+13+5+1)
linebox(bp(1,1,1)-5-1,bp(1,1,2)-5-20,bp(d,a,1)+32+5+1,bp(1,a,2)-5+1)

for i=1 to d
	for j=1 to a
		ink rgb(170,170,170),0
		box bp(i,j,1),bp(i,j,2),bp(i,j,1)+32,bp(i,j,2)+13
		ink rgb(255,255,255),0		
		center text bp(i,j,1)+16,bp(i,j,2),b$(i,j)
	next j
next i

do
	
	gosub displaynum
	gosub handlebuttons
	
	sync

loop

end

rem ************
rem sub-routines
rem ************

displaynum:
	ink rgb(50,50,50),0
	box bp(1,1,1),bp(1,1,2)-5-18,bp(d,a,1)+32,bp(1,a,2)-8
	if text width(num$)>100
		while text width(num$)>100
			num$=right$(num$,len(num$)-1)
			sync
		endwhile
	endif
	ink rgb(255,255,255),0
	text (bp(d,a,1)+32)-text width(num$),bp(1,a,2)-5-18,num$
return

handlebuttons:
	if mouseclick()=1
		if mouseclicked=0
			mouseclicked=1
			for i=1 to 8
				for j=1 to 4
					if mousewithin(bp(i,j,1),bp(i,j,2),bp(i,j,1)+32,bp(i,j,2)+13)
						num$=getavalue(num$,b$(i,j),addx,addy) 
					endif
				next j
			next i
		endif
	else
		mouseclicked=0
	endif
return

rem *********
rem functions
rem *********

function linebox(x1,y1,x2,y2)

	line x1,y1,x1,y2
	line x1,y2,x2,y2
	line x2,y2,x2,y1
	line x2,y1,x1,y1

endfunction


function mousewithin(x1,y1,x2,y2)
  if mousex()>x1 and mousex()<x2 and mousey()>y1 and mousey()<y2 then exitfunction 1
endfunction 0

function getavalue(num$,t$,addx,addy)

	mode=0
	value$=num$

	`if a=0
		if t$="0" or t$="1" or t$="2" or t$="3" or t$="4" or t$="5" or t$="6" or t$="7" or t$="8" or t$="9"
			value$=str$(val(num$+t$))
	`		a=1
		endif
	`else
	`	num$="0" : a=0
	`endif
	if t$="CE" then value$="0"
	if t$="sqrt" then value$=str$(int(sqrt(val(num$))))
	if t$="cos" then value$=str$(int(cos(val(num$))))
	if t$="sin" then value$=str$(int(sin(val(num$))))
	if t$="tan" then value$=str$(int(tan(val(num$))))
	if t$="acos" then value$=str$(int(acos(val(num$))))
	if t$="asin" then value$=str$(int(asin(val(num$))))
	if t$="atan" then value$=str$(int(atan(val(num$))))
	if t$="hcos" then value$=str$(int(hcos(val(num$))))
	if t$="hsin" then value$=str$(int(hsin(val(num$))))
	if t$="htan" then value$=str$(int(htan(val(num$))))
	if t$="pstv" then value$=str$(int(abs(val(num$))))
	if t$="bin" then value$=bin$(val(num$))
	if t$="hex" then value$=str$(val(hex$(val(num$))))
	if t$="pwr" then mode=1
	if t$="/" then mode=2
	if t$="*" then mode=3
	if t$="-" then mode=4
	if t$="+" then mode=5
	
	if mode>0 then value$=getavalueloop(num$,mode,addx,addy)

endfunction value$


function getavalueloop(num$,mode,addx,addy)

	done=0
	d=8
	a=4
	temp$="0"

	while done=0
		if mouseclick()=1
			if mouseclicked=0
				mouseclicked=1
				for i=1 to 8
					for j=1 to 4
						if mousewithin(bp(i,j,1),bp(i,j,2),bp(i,j,1)+32,bp(i,j,2)+13)
							if b$(i,j)="CE" then value$=num$ : done=2
							if b$(i,j)="0" or b$(i,j)="1" or b$(i,j)="2" or b$(i,j)="3" or b$(i,j)="4" or b$(i,j)="5" or b$(i,j)="6" or b$(i,j)="7" or b$(i,j)="8" or b$(i,j)="9"
								temp$=str$(val(temp$+b$(i,j)))
							endif
							if b$(i,j)="=" then done=1
						endif
					next j
				next i
			endif
		else
			mouseclicked=0
		endif
		ink rgb(50,50,50),0
		box bp(1,1,1),bp(1,1,2)-5-18,bp(d,a,1)+32,bp(1,a,2)-8
		if text width(temp$)>100
			while text width(temp$)>100
				temp$=right$(temp$,len(temp$)-1)
				sync
			endwhile
		endif
		ink rgb(255,255,255),0
		text (bp(d,a,1)+32)-text width(temp$),bp(1,a,2)-5-18,temp$
		sync
	endwhile
	if done=1
		temp2=val(num$)
		if mode=1 then temp2=exp(val(temp$)) : value$=str$(temp2)
		if mode=2 then value$=str$(temp2/val(temp$))
		if mode=3 then value$=str$(temp2*val(temp$))
		if mode=4 then value$=str$(temp2-val(temp$))
		if mode=5 then value$=str$(temp2+val(temp$))
		value$=str$(int(val(value$)))
	endif
endfunction value$

A$="3.142"
FloatNum# = VAL(A$)
Print FloatNum# 
Wait Key

sync on
sync rate 60

do
   if mouseclick()=1
      print "Hello World ";
   endif

   sync
loop

sync on
sync rate 60

do
   if mouseclick()=1
      print "Hello World ";
      repeat
         rem wait here until mouse button is let go
         sync
      until mouseclick()=0
   endif

   sync
loop

input "Number 1:",num1#
print "Select operation: [1]Add [2]Subtract [3]Multiply [4]Divide"
input "Operation:",operation
input "Number 2:",num2#

if operation=1
print "Answer=",num1#+num2#
endif

if operation=2
print "Answer=",num1#-num2#
endif

if operation=3
print "Answer=",num1#*num2#
endif

if operation=4
print "Answer=",num1#/num2#
endif

print "Done."
for x=0 to 479
line 0,x,639,x
next x

sync on : sync rate 0

`Define the color
dim Color(3)
Color(1) = 200
Color(2) = 200
Color(3) = 200
dim TextColor(3)
TextColor(1) = 0
TextColor(2) = 0
TextColor(3) = 0

dim CalculatorData(2)

`For the calculator itself
dim Data$(2)
c = 1
op = -1

do

	cls rgb(75, 0, 0)
	text 320, 240, str$(screen fps())

	Calculator()

	sync
loop

`--------- FUNCTIONS ---------

function Calculator()

	`Draw calculator layout
	ink rgb(Color(1) / 10.0, Color(2) / 10.0, Color(3) / 10.0), 0
	box CalculatorData(1), CalculatorData(2), CalculatorData(1) + 130, CalculatorData(2) + 130
	ink rgb(255, 255, 255), 0
	box CalculatorData(1), CalculatorData(2), CalculatorData(1) + 129, CalculatorData(2) + 129
	ink rgb(Color(1), Color(2), color(3)), 0
	box CalculatorData(1) + 1, CalculatorData(2) + 1, CalculatorData(1) + 129, CalculatorData(2) + 129

	`Draw the canvas
	Display(CalculatorData(1) + 5, CalculatorData(2) + 5, 120, 20, Data$(c))

	`Draw the buttons
	for y = 0 to 2
		for x = 0 to 2
			nr = (y*3) + x + 1
			click = Button(CalculatorData(1) + 5 + (x*25), CalculatorData(2) + 30 + (y*25), 20, 20, str$(nr))

			`Handle clicking
			if click > 0 and Move = 0
				`Block mouse event
				repeat : until mouseclick() = 0
				if op > -1
					Data$(c) = Data$(c) + str$(nr)
				else
					Data$(c) = str$(nr)
					op = 0
				endif
			endif
		next x
	next y

	`The zero button
	click = Button(CalculatorData(1) + 5, CalculatorData(2) + 105, 45, 20, "0")
	if click > 0 and Move = 0
		repeat : until mouseclick() = 0
		if op > -1 then Data$(c) = Data$(c) + "0" : op = 0 : else Data$(c) = "0"
	endif

	`Decimal point button
	click = Button(CalculatorData(1) + 55, CalculatorData(2) + 105, 20, 20, ".")
	if click > 0 and Move = 0
		repeat : until mouseclick() = 0
		if op > -1 then Data$(c) = Data$(c) + "." : op = 0 : else Data$(c) = "0."
	endif

	`The operator buttons

	`Sum
	click = Button(CalculatorData(1) + 80, CalculatorData(2) + 30, 20, 20, "+")
	if click > 0 and Move = 0 then op = 1 : c = 2

	`Minus and negative
	click = Button(CalculatorData(1) + 80, CalculatorData(2) + 55, 20, 20, "-")
	if click > 0 and Move = 0
		if Data$(c) = "" or Data$(c) = "0"
			repeat : until mouseclick() = 0
			Data$(c) = "-" + Data$(c)
		else
			op = 2 : c = 2
			repeat : until mouseclick() = 0
		endif
	endif

	`Divide
	click = Button(CalculatorData(1) + 105, CalculatorData(2) + 30, 20, 20, "/")
	if click > 0 and Move = 0 then op = 3 : c = 2

	`Multiply
	click = Button(CalculatorData(1) + 105, CalculatorData(2) + 55, 20, 20, "*")
	if click > 0 and Move = 0 then op = 4 : c = 2

	`Square root
	click = Button(CalculatorData(1) + 105, CalculatorData(2) + 80, 20, 20, "sr")
	if click > 0 and Move = 0
		repeat : until mouseclick() = 0
		ret$ = Calculate(Data$(c), "", 5)
		Data$(1) = ret$ : Data$(2) = ""
		c = 1
		op = -1
	endif

	`Power
	click = Button(CalculatorData(1) + 105, CalculatorData(2) + 105, 20, 20, "^")
	if click > 0 and Move = 0 then op = 6 : c = 2

	`Complete Erase
	click = Button(CalculatorData(1) + 80, CalculatorData(2) + 80, 20, 20, "CE")
	if click > 0 and Move = 0 then op = -1 : c = 1 : Data$(1) = "" : Data$(2) = ""

	`Is
	click = Button(CalculatorData(1) + 80, CalculatorData(2) + 105, 20, 20, "=")
	if click > 0 and Move = 0
		repeat : until mouseclick() = 0
		ret$ = Calculate(Data$(1), Data$(2), op)
		Data$(1) = ret$ : Data$(2) = ""
		c = 1
		op = -1
	endif


	`Move the calculator
	if Move = 0
		if mousex() > CalculatorData(1) and mousex() < CalculatorData(1) + 130
			if mousey() > CalculatorData(2) and mousey() < CalculatorData(2) + 25
				if mouseclick() > 0
					difX = mousex() - CalculatorData(1)
					difY = mousey() - CalculatorData(2)
					Move = 1
				endif
			endif
		endif
	else
		CalculatorData(1) = mousex() - difX
		CalculatorData(2) = mousey() - difY
		if mouseclick() = 0 then Move = 0
	endif

endfunction

`Functions
function Button(x, y, sx, sy, txt$)

	`get clicking
	pressed = 0
	if mouseclick() > 0
		if mousex() > x and mousex() < x + sx
			if mousey() > y and mousey() < y + sy
				pressed = 1
			endif
		endif
	endif

	`Draw the button
	if pressed = 0
		ink rgb(Color(1)/10.0, Color(2)/10.0, Color(3)/10.0), 0
		box x, y, x + sx, y + sy
		ink rgb(255, 255, 255), 0
		box x, y, x + sx - 1, y + sy - 1
	else
		ink rgb(Color(1)/10.0, Color(2)/10.0, Color(3)/10.0), 0
		box x, y, x + sx - 1, y + sy - 1
		ink rgb(255, 255, 255), 0
		box x + 1, y + 1, x + sx, y + sy
	endif
	ink rgb(Color(1), Color(2), Color(3)), 0
	box x + 1, y + 1, x + sx - 1, y + sy - 1

	ink rgb(TextColor(1), TextColor(2), TextColor(3)), 0
	center text x + (sx/2), y + (sy/2) - (text height(txt$)/2), txt$

endfunction pressed

function Display(x, y, sx, sy, txt$)
	`this is just drawing a sunken box with text in it
	ink rgb(Color(1)/10.0, Color(2)/10.0, Color(3)/10.0), 0
	box x, y, x + sx, y + sy
	ink rgb(255, 255, 255), 0
	box x + 1, y + 1, x + sx, y + sy
	ink rgb(TextColor(1), TextColor(2), TextColor(3)), 0
	text x + 3, y + (sy/2) - (text height(txt$)/2), txt$
endfunction

function Calculate(a$, b$, op)

	`Get values
	a# = val(a$)
	b# = val(b$)

	`Calculate depending on the operator
	select op
		case 1
			ret$ = str$(a# + b#)
		endcase
		case 2
			ret$ = str$(a# - b#)
		endcase
		case 3
			ret$ = str$(a# / b#)
		endcase
		case 4
			ret$ = str$(a# * b#)
		endcase
		case 5
			ret$ = str$( sqrt(a#) )
		endcase
		case 6
			ret$ = str$( a# ^ b# )
		endcase
	endselect

endfunction ret$

sync on

a = calc(10,10,rgb(200,200,200),1)

ink rgb(255,255,255),0
print a

suspend for key

end

`the function
function calc(posx, posy, color, move)
	
	`preparations
	get image 65535,0,0,screen width(),screen height()
	defaultfont$ = text font$()
	defaultsize = text size()
	defaultstyle = text style()
	defaultback = text background type()

	dim number$(2)
	cnumber = 1
	answer$ = ""
	display$ = ""
	operator = 0

	set text font "Fixedsys"
	set text size 16
	set text to normal
	set text transparent

	`start loop
	do

		`background save
		paste image 65535,0,0

		`main window
		endx = posx + 120
		endy = posy + 120
		if endx > screen width() - 1 then endx = screen width() - 1
		if endy > screen height() - 1 then endy = screen height() - 1
		ink rgb(255,255,255),0
		box posx, posy, endx - 1, endy - 1
		ink rgb(10,10,10),0
		box posx + 1, posy + 1, endx, endy
		ink color,0
		box posx + 1, posy + 1, endx - 1, endy - 1

		`display
		endx = posx + 115
		endy = posy + 25
		if endx > screen width() - 1 then endx = screen width() - 1
		if endy > screen height() - 1 then endy = screen height() - 1
		ink rgb(10,10,10),0
		box posx + 5, posy + 5, endx - 1, endy - 1
		ink rgb(255,255,255),0
		box posx + 6, posy + 6, endx, endy
		ink rgb(255,255,255),0
		box posx + 6, posy + 6, endx - 1, endy - 1
		ink 0,0
		display$ = number$(cnumber)
		if display$ = "" then display$ = "0"
		text posx + 6, posy + 6, display$
		
		`calc_buttons
		for x = 1 to 3
			for y = 1 to 3
				nr = ((x-1)*3) + y
				if calc_button((posx + 5) + ((y-1)*21), (posy + 30) + ((x-1)*21), str$(nr), color) > 0 and hold = 0 and len(number$(cnumber)) < 10
					if operator = 5 then operator = 0 : number$(1) = ""
					hold = 1
					number$(cnumber) = number$(cnumber) + str$(nr)
				endif
			next y
		next x
		if calc_button(posx + 5, posy + 93, "0", color) > 0 and hold = 0 and len(number$(cnumber)) < 10
			if operator = 5 then operator = 0 : number$(1) = ""
			hold = 1 
			number$(cnumber) = number$(cnumber) + "0"
		endif
		if calc_button(posx + 26, posy + 93,".", color) > 0 and hold = 0 then hold = 1 : number$(cnumber) = number$(cnumber) + "."
		`operators
		if calc_button(posx + 68, posy + 30, "CA", color) > 0 and hold = 0
			hold = 1
			number$(1) = ""
			number$(2) = ""
			operator = 0
		endif
		if calc_button(posx + 68, posy + 51, "+", color) > 0 and hold = 0
			hold = 1
			if cnumber = 1
				inc cnumber
				number$(2) = ""
			else
				first# = val(number$(1))
				sec# = val(number$(2))
				select operator
					case 1 : number$(1) = str$(first# + sec#) : endcase
					case 2 : number$(1) = str$(first# - sec#) : endcase
					case 3 : number$(1) = str$(first# * sec#) : endcase
					case 4 : number$(1) = str$(first# / sec#) : endcase
				endselect
				if len(number$(1)) > 10 then number$(1) = "ERROR"
				number$(2) = ""
			endif
			operator = 1
		endif
		if calc_button(posx + 68, posy + 72, "-", color) > 0 and hold = 0
			hold = 1
			if cnumber = 1
				inc cnumber
				number$(2) = ""
			else
				first# = val(number$(1))
				sec# = val(number$(2))
				select operator
					case 1 : number$(1) = str$(first# + sec#) : endcase
					case 2 : number$(1) = str$(first# - sec#) : endcase
					case 3 : number$(1) = str$(first# * sec#) : endcase
					case 4 : number$(1) = str$(first# / sec#) : endcase
				endselect
				if len(number$(1)) > 15 then number$(1) = "ERROR"
				number$(2) = ""
			endif
			operator = 2
		endif
		if calc_button(posx + 89, posy + 51, "*", color) > 0 and hold = 0
			hold = 1
			if cnumber = 1
				inc cnumber
				number$(2) = ""
			else
				first# = val(number$(1))
				sec# = val(number$(2))
				select operator
					case 1 : number$(1) = str$(first# + sec#) : endcase
					case 2 : number$(1) = str$(first# - sec#) : endcase
					case 3 : number$(1) = str$(first# * sec#) : endcase
					case 4 : number$(1) = str$(first# / sec#) : endcase
				endselect
				if len(number$(1)) > 15 then number$(1) = "ERROR"
				number$(2) = ""
			endif
			operator = 3
		endif
		if calc_button(posx + 89, posy + 72, "/", color) > 0 and hold = 0
			hold = 1
			if cnumber = 1
				inc cnumber
			else
				first# = val(number$(1))
				sec# = val(number$(2))
				select operator
					case 1 : number$(1) = str$(first# + sec#) : endcase
					case 2 : number$(1) = str$(first# - sec#) : endcase
					case 3 : number$(1) = str$(first# * sec#) : endcase
					case 4 : number$(1) = str$(first# / sec#) : endcase
				endselect
				if len(number$(1)) > 15 then number$(1) = "ERROR"
				number$(2) = ""
			endif
			operator = 4
		endif
		if calc_button(posx + 47, posy + 93, "-#", color) > 0 and hold = 0 and len(number$(cnumber)) = 0
			hold = 1
			number$(cnumber) = number$(cnumber) + "-"
		endif
		if calc_button(posx + 89, posy + 93, "=", color) > 0 and hold = 0 and cnumber = 2
			cnumber = 1
			first# = val(number$(1))
			sec# = val(number$(2))
			select operator
				case 1 : number$(1) = str$(first# + sec#) : endcase
				case 2 : number$(1) = str$(first# - sec#) : endcase
				case 3 : number$(1) = str$(first# * sec#) : endcase
				case 4 : number$(1) = str$(first# / sec#) : endcase
			endselect
			if len(number$(1)) > 15 then number$(1) = "ERROR"
			operator = 5
		endif
		
		`exit calc_button
		if calc_button(posx + 89, posy + 30, "EX", color) > 0 and hold = 0 then hold = 1 : exit

		`unlock mouse
		if mouseclick() = 0 then hold = 0

		`if moving is allowed
		if move = 1
			if mousex() > posx and mousex() < posx + 120
				if mousey() > posy and mousey() < posy + 5
					if mouseclick() = 1 and moving = 0
						moving = 1
						difx = mousex() - posx
						dify = mousey() - posy
					endif
				endif
			endif
			if moving = 1
				posx = mousex() - difx
				posy = mousey() - dify
				if mouseclick() = 0 then moving = 0
			endif
		endif
		`boundries
		if posx < 0 then posx = 0
		if posy < 0 then posy = 0
		if posx > screen width() - 1 then posx = screen width() - 1
		if posy > screen height() - 1 then posy = screen height() - 1		

		sync
	loop

	`reset all
	cls
	set text font defaultfont$
	set text size defaultsize
	select defaultstyle
		case 1 : set text to italic : endcase
		case 2 : set text to bold : endcase
		case 3 : set text to bolditalic : endcase
	endselect
	if defaultback = 1
		set text transparent
	else
		set text opaque
	endif

endfunction val(number$(1))

function calc_button(x,y,content$,color)
	pressed = 0
	`layout
	if mousex() < x + 20 and mousex() > x
		if mousey() < y + 20 and mousey() > y
			if mouseclick() = 1 then pressed = 1
		endif
	endif
	endx = x + 20
	endy = y + 20
	if endx > screen width() - 1 then endx = screen width() - 1
	if endy > screen height() - 1 then endy = screen height() - 1
	if pressed = 1	
		ink rgb(20,20,20),0
		box x, y, endx - 1, endy - 1
		ink rgb(255,255,255),0
		box x + 1, y + 1, endx, endy
	else
		ink rgb(20,20,20),0
		box x + 1, y + 1, endx, endy
		ink rgb(255,255,255),0
		box x, y, endx - 1, endy - 1
	endif
	ink color,0
	box x + 1, y + 1, endx - 1, endy - 1 
	ink 0,0
	center text x + 10, y + 10 - (text size()/2), content$
endfunction pressed

rem original code by NanoGamez guy

sync on

d=8
a=4
addx=0
addy=0
num$="0"

dim bp(d,a,2)
for i=1 to d
   for j=1 to a
      bp(i,j,1)=j*40+addx
      bp(i,j,2)=i*15+30+addy
   next j
next i
dim b$(d,a)
b$(1,1)="sqrt" :b$(1,2)="cos"      :b$(1,3)="sin"      :b$(1,4)="tan"
b$(2,1)="hex"   :b$(2,2)="acos"   :b$(2,3)="asin"   :b$(2,4)="atan"
b$(3,1)="bin"   :b$(3,2)="hcos"   :b$(3,3)="hsin"   :b$(3,4)="htan"
b$(4,1)="pwr"   :b$(4,2)="pstv"   :b$(4,3)="int"      :b$(4,4)="="
b$(5,1)="7"      :b$(5,2)="8"      :b$(5,3)="9"      :b$(5,4)="/"
b$(6,1)="4"      :b$(6,2)="5"      :b$(6,3)="6"      :b$(6,4)="*"
b$(7,1)="1"      :b$(7,2)="2"      :b$(7,3)="3"      :b$(7,4)="-"
b$(8,1)="CE"   :b$(8,2)="0"      :b$(8,3)="."      :b$(8,4)="+"

ink rgb(130,130,130),0
box bp(1,1,1)-5,bp(1,1,2)-5,bp(d,a,1)+32+5,bp(d,a,2)+13+5
ink rgb(150,150,150),0
box bp(1,1,1)-5,bp(1,1,2)-5-20,bp(d,a,1)+32+5,bp(1,a,2)-5
ink rgb(50,50,50),0
box bp(1,1,1),bp(1,1,2)-5-18,bp(d,a,1)+32,bp(1,a,2)-8
ink rgb(255,255,255),0
linebox(bp(1,1,1)-5-1,bp(1,1,2)-5-20-1,bp(d,a,1)+32+5+1,bp(d,a,2)+13+5+1)
linebox(bp(1,1,1)-5-1,bp(1,1,2)-5-20,bp(d,a,1)+32+5+1,bp(1,a,2)-5+1)

for i=1 to d
   for j=1 to a
      ink rgb(170,170,170),0
      box bp(i,j,1),bp(i,j,2),bp(i,j,1)+32,bp(i,j,2)+13
      ink rgb(255,255,255),0
      center text bp(i,j,1)+16,bp(i,j,2),b$(i,j)
   next j
next i

do

   gosub displaynum
   gosub handlebuttons

   sync

loop

end

rem ************
rem sub-routines
rem ************

displaynum:
   ink rgb(50,50,50),0
   box bp(1,1,1),bp(1,1,2)-5-18,bp(d,a,1)+32,bp(1,a,2)-8
   if text width(num$)>100
      while text width(num$)>100
         num$=right$(num$,len(num$)-1)
         sync
      endwhile
   endif
   ink rgb(255,255,255),0
   text (bp(d,a,1)+32)-text width(num$),bp(1,a,2)-5-18,num$
return

handlebuttons:
   if mouseclick()=1
      if mouseclicked=0
         mouseclicked=1
         for i=1 to 8
            for j=1 to 4
               if mousewithin(bp(i,j,1),bp(i,j,2),bp(i,j,1)+32,bp(i,j,2)+13)
                  num$=getavalue(num$,b$(i,j),addx,addy)
               endif
            next j
         next i
      endif
   else
      mouseclicked=0
   endif
return

rem *********
rem functions
rem *********

function linebox(x1,y1,x2,y2)

   line x1,y1,x1,y2
   line x1,y2,x2,y2
   line x2,y2,x2,y1
   line x2,y1,x1,y1

endfunction


function mousewithin(x1,y1,x2,y2)
  if mousex()>x1 and mousex()<x2 and mousey()>y1 and mousey()<y2 then exitfunction 1
endfunction 0

function getavalue(num$,t$,addx,addy)

   mode=0
   value$=num$

   `if a=0
      if t$="0" or t$="1" or t$="2" or t$="3" or t$="4" or t$="5" or t$="6" or t$="7" or t$="8" or t$="9"
         value$=str$(val(num$+t$))
   `      a=1
      endif
   `else
   `   num$="0" : a=0
   `endif
   if t$="CE" then value$="0"
   if t$="sqrt" then value$=str$((sqrt(val(num$))))
   if t$="cos" then value$=str$((cos(val(num$))))
   if t$="sin" then value$=str$((sin(val(num$))))
   if t$="tan" then value$=str$((tan(val(num$))))
   if t$="acos" then value$=str$((acos(val(num$))))
   if t$="asin" then value$=str$((asin(val(num$))))
   if t$="atan" then value$=str$((atan(val(num$))))
   if t$="hcos" then value$=str$((hcos(val(num$))))
   if t$="hsin" then value$=str$((hsin(val(num$))))
   if t$="htan" then value$=str$((htan(val(num$))))
   if t$="pstv" then value$=str$((abs(val(num$))))
   if t$="bin" then value$=bin$(val(num$))
   if t$="hex" then value$=str$(val(hex$(val(num$))))
   if t$="pwr" then mode=1
   if t$="/" then mode=2
   if t$="*" then mode=3
   if t$="-" then mode=4
   if t$="+" then mode=5

   if mode>0 then value$=getavalueloop(num$,mode,addx,addy)

endfunction value$


function getavalueloop(num$,mode,addx,addy)

   done=0
   d=8
   a=4
   temp$="0"

   while done=0
      if mouseclick()=1
         if mouseclicked=0
            mouseclicked=1
            for i=1 to 8
               for j=1 to 4
                  if mousewithin(bp(i,j,1),bp(i,j,2),bp(i,j,1)+32,bp(i,j,2)+13)
                     if b$(i,j)="CE" then value$=num$ : done=2
                     if b$(i,j)="0" or b$(i,j)="1" or b$(i,j)="2" or b$(i,j)="3" or b$(i,j)="4" or b$(i,j)="5" or b$(i,j)="6" or b$(i,j)="7" or b$(i,j)="8" or b$(i,j)="9"
                        temp$=b$(i,j)
                     endif
                     if b$(i,j)="=" then done=1
                  endif
               next j
            next i
         endif
      else
         mouseclicked=0
      endif
      ink rgb(50,50,50),0
      box bp(1,1,1),bp(1,1,2)-5-18,bp(d,a,1)+32,bp(1,a,2)-8
      if text width(temp$)>100
         while text width(temp$)>100
            temp$=right$(temp$,len(temp$)-1)
            sync
         endwhile
      endif
      ink rgb(255,255,255),0
      text (bp(d,a,1)+32)-text width(temp$),bp(1,a,2)-5-18,temp$
      sync
   endwhile
   if done=1
      temp2#=val(num$)
      if mode=1 then temp2#=exp(val(temp$)) : value$=str$(temp2#)
      if mode=2 then value$=str$(temp2#/val(temp$))
      if mode=3 then value$=str$(temp2#*val(temp$))
      if mode=4 then value$=str$(temp2#-val(temp$))
      if mode=5 then value$=str$(temp2#+val(temp$))
      `value$=str$(int(val(value$)))
   endif
endfunction value$

Missing decimal point key made the difference between 1st and 2nd place for... NanoGamez guy

Although problematic, the decimal point edged it for... Sven B

Rem Text In 3D Simple Version by TDK_Man Feb 2007

Gosub ScreenSetup

Do
  YRotate Object 1,WrapValue(Object Angle Y(1)+1)
  Sync
Loop
End

ScreenSetup:
  Set Display Mode 800,600,16
  Sync On: Sync Rate 0: CLS 0
  AutoCam Off
  BackDrop On: Color Backdrop 0
  Set Text Font "Verdana"
  Set Text Size 24
  Create Bitmap 1,320,200
  Msg$="This Is Text In 3D!"
  TW=Text Width(Msg$)
  TH=Text Height(Msg$)
  Text 0,0,Msg$
  Blur Bitmap 1,1
  Get Image 1,0,0,TW,TH
  Set Current Bitmap 0
  Delete Bitmap 1
  Gosub CreateObject
  Position Camera 0,5,-10
  Point Camera 0,0,0
Return

CreateObject:
  Make Object Plain 1,10,2
  Texture Object 1,1
  Set Object 1,1,0,0
Return

Sync On : Sync Rate 60 : Hide Mouse : autocam off


input "enter text: ", string$

For x = 1 To len( string$ )
   m$ = Lower$( mid$( string$, x ) )
   tt = x
   If m$ = "a" Then Restore a : makeLetter( tt )
   If m$ = "b" Then Restore b : makeLetter( tt )
   If m$ = "c" Then Restore c : makeLetter( tt )
   If m$ = "d" Then Restore d : makeLetter( tt )
   If m$ = "e" Then Restore e : makeLetter( tt )
   If m$ = "f" Then Restore f : makeLetter( tt )
   If m$ = "g" Then Restore g : makeLetter( tt )
   If m$ = "h" Then Restore h : makeLetter( tt )
   If m$ = "i" Then Restore i : makeLetter( tt )
   If m$ = "j" Then Restore j : makeLetter( tt )
   If m$ = "k" Then Restore k : makeLetter( tt )
   If m$ = "l" Then Restore l : makeLetter( tt )
   If m$ = "m" Then Restore m : makeLetter( tt )
   If m$ = "n" Then Restore n : makeLetter( tt )
   If m$ = "o" Then Restore o : makeLetter( tt )
   If m$ = "p" Then Restore p : makeLetter( tt )
   If m$ = "q" Then Restore q : makeLetter( tt )
   If m$ = "r" Then Restore r : makeLetter( tt )
   If m$ = "s" Then Restore s : makeLetter( tt )
   If m$ = "t" Then Restore t : makeLetter( tt )
   If m$ = "u" Then Restore u : makeLetter( tt )
   If m$ = "v" Then Restore v : makeLetter( tt )
   If m$ = "w" Then Restore w : makeLetter( tt )
   If m$ = "x" Then Restore x : makeLetter( tt )
   If m$ = "y" Then Restore y : makeLetter( tt )
   If m$ = "z" Then Restore z : makeLetter( tt )
Next x


cx# = 0
cy# = 50
cz# = -200
path# = len( string$ )*80

Do

   Inc myVar, 1
   cx# = cos( myVar )*path#


   Position Camera ((len( string$ )*80)/2)+(cx#/2), cy#, cz#
   Point camera ((len( string$ )*80)/2), 0, 0

Sync : Loop

Function makeLetter( pos )
   For w = 1 To 5
      For q = 1 To 6
         Read bool
         If bool =1
            obj = Free()
            Make Object Cube obj, 10
            Position Object obj, ((pos*100)-100)+(q*10), w*10, 0.0
         EndIf
      Next w
   Next q
EndFunction

Function Free()
   j =0 : Repeat : Inc j, 1 : Until Object Exist(j) =0
EndFunction j

a:
Data 0, 0, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0

b:
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0

c:
Data 0, 0, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 0, 1, 1, 1, 0

d:
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0

e:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0

f:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0

g:
Data 0, 0, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0

h:
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0

i:
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0

j:
Data 0, 0, 0, 0, 1, 0
Data 0, 0, 0, 0, 1, 0
Data 0, 0, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 0, 1, 1, 0, 0

k:
Data 0, 1, 0, 1, 1, 0
Data 0, 1, 1, 0, 0, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0

l:
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0

m:
Data 0, 1, 1, 1, 1, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1

n:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 1, 0, 0, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 0, 0, 1, 1
Data 0, 1, 0, 0, 0, 1

o:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0

p:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0

q:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 1, 1, 0
Data 0, 1, 1, 1, 1, 1

r:
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 1, 0, 0
Data 0, 1, 0, 0, 1, 0

s:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 0, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0

t:
Data 0, 1, 1, 1, 1, 1
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0

u:
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0

v:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 0, 1, 0, 1, 0
Data 0, 0, 0, 1, 0, 0

w:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 1, 0, 1, 1
Data 0, 1, 0, 0, 0, 1

x:
Data 0, 1, 0, 0, 0, 1
Data 0, 0, 1, 0, 1, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 1, 0, 1, 0
Data 0, 1, 0, 0, 0, 1

y:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 1, 1, 1, 1
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0

z:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 1, 1, 1, 1, 0

Sync On : Sync Rate 60 : Hide Mouse : autocam off


input "enter text: ", string$

For x = 1 To len( string$ )
   m$ = Lower$( mid$( string$, x ) )
   tt = x
   If m$ = "a" Then Restore a : makeLetter( tt )
   If m$ = "b" Then Restore b : makeLetter( tt )
   If m$ = "c" Then Restore c : makeLetter( tt )
   If m$ = "d" Then Restore d : makeLetter( tt )
   If m$ = "e" Then Restore e : makeLetter( tt )
   If m$ = "f" Then Restore f : makeLetter( tt )
   If m$ = "g" Then Restore g : makeLetter( tt )
   If m$ = "h" Then Restore h : makeLetter( tt )
   If m$ = "i" Then Restore i : makeLetter( tt )
   If m$ = "j" Then Restore j : makeLetter( tt )
   If m$ = "k" Then Restore k : makeLetter( tt )
   If m$ = "l" Then Restore l : makeLetter( tt )
   If m$ = "m" Then Restore m : makeLetter( tt )
   If m$ = "n" Then Restore n : makeLetter( tt )
   If m$ = "o" Then Restore o : makeLetter( tt )
   If m$ = "p" Then Restore p : makeLetter( tt )
   If m$ = "q" Then Restore q : makeLetter( tt )
   If m$ = "r" Then Restore r : makeLetter( tt )
   If m$ = "s" Then Restore s : makeLetter( tt )
   If m$ = "t" Then Restore t : makeLetter( tt )
   If m$ = "u" Then Restore u : makeLetter( tt )
   If m$ = "v" Then Restore v : makeLetter( tt )
   If m$ = "w" Then Restore w : makeLetter( tt )
   If m$ = "x" Then Restore x : makeLetter( tt )
   If m$ = "y" Then Restore y : makeLetter( tt )
   If m$ = "z" Then Restore z : makeLetter( tt )
Next x


cx# = 0
cy# = 50
cz# = -200
path# = len( string$ )*80

Do

   Inc myVar, 1
   cx# = cos( myVar )*path#


   Position Camera ((len( string$ )*80)/2)+(cx#/2), cy#, cz#
   Point camera ((len( string$ )*80)/2), 0, 0

Sync : Loop

Function makeLetter( pos )
   For w = 1 To 5
      For q = 1 To 6
         Read bool
         If bool =1
            obj = Free()
            Make Object Cube obj, 10
            Position Object obj, ((pos*100)-100)+(q*10), (5*10)-(w*10), 0.0
         EndIf
      Next w
   Next q
EndFunction

Function Free()
   j =0 : Repeat : Inc j, 1 : Until Object Exist(j) =0
EndFunction j

a:
Data 0, 0, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0

b:
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0

c:
Data 0, 0, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 0, 1, 1, 1, 0

d:
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0

e:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0

f:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0

g:
Data 0, 0, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0

h:
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0

i:
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 0, 1, 0, 0, 0

j:
Data 0, 0, 0, 0, 1, 0
Data 0, 0, 0, 0, 1, 0
Data 0, 0, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 0, 1, 1, 0, 0

k:
Data 0, 1, 0, 1, 1, 0
Data 0, 1, 1, 0, 0, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0

l:
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0

m:
Data 0, 1, 1, 1, 1, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1

n:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 1, 0, 0, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 0, 0, 1, 1
Data 0, 1, 0, 0, 0, 1

o:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0

p:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 0, 0, 0, 0

q:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 1, 1, 0
Data 0, 1, 1, 1, 1, 1

r:
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 0, 0
Data 0, 1, 0, 1, 0, 0
Data 0, 1, 0, 0, 1, 0

s:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 0, 0
Data 0, 1, 1, 1, 1, 0
Data 0, 0, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0

t:
Data 0, 1, 1, 1, 1, 1
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0

u:
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 1, 1, 1, 1, 0

v:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 0, 1, 0, 1, 0
Data 0, 0, 0, 1, 0, 0

w:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 1, 0, 1
Data 0, 1, 1, 0, 1, 1
Data 0, 1, 0, 0, 0, 1

x:
Data 0, 1, 0, 0, 0, 1
Data 0, 0, 1, 0, 1, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 1, 0, 1, 0
Data 0, 1, 0, 0, 0, 1

y:
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 0, 0, 0, 1
Data 0, 1, 1, 1, 1, 1
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 0, 1, 0, 0

z:
Data 0, 1, 1, 1, 1, 0
Data 0, 1, 0, 0, 1, 0
Data 0, 0, 0, 1, 0, 0
Data 0, 0, 1, 0, 0, 0
Data 0, 1, 1, 1, 1, 0

Rem Text In 3D Simple Version by TDK_Man Feb 2007

Gosub ScreenSetup

Do
  Gosub Rotate3DText
  If UpKey()=1 Then Position Camera 0,Camera Position Y()+.1,-10: Point Camera 0,0,0
  If DownKey()=1 Then Position Camera 0,Camera Position Y()-.1,-10: Point Camera 0,0,0
  Sync
Loop
End

ScreenSetup:
  Set Display Mode 800,600,16
  Sync On: Sync Rate 0: CLS 0
  AutoCam Off
  BackDrop On: Color Backdrop 0
  Set Text Font "Verdana"
  Set Text Size 24
  Create Bitmap 1,320,200
  Msg$="This Is Text In 3D!"
  TW=Text Width(Msg$)
  TH=Text Height(Msg$)
  Ink RGB(255,255,0),0
  Text 0,0,Msg$
  Blur Bitmap 1,1
  Get Image 1,0,0,TW,TH
  Set Current Bitmap 0
  Delete Bitmap 1
  Gosub Create3DText
  Position Camera 0,5,-10
  Point Camera 0,0,0
Return

Create3DText:
  For N=1 To 10
    Make Object Plain N,10,2
    Texture Object N,1
    Set Object N,1,0,0
    Position Object N,0,0,N*.1
  Next N
Return

Rotate3DText:
  For N=1 To 10
    YRotate Object N,WrapValue(Object Angle Y(N)+1)
  Next N
Return