'
' I didnt write this one - you'll have to thank gary fearn for this
' one. 
' basically call the procedure RGBWINDOW[120,20,12]  
' and set the ink of pen to the variable _COL
'
' example :  
'
' RGBWINDOW[120,20,12] 
' Ink _col 
' This will show the window and set the ink colour to the one you selected 
'
'
'
RGBWINDOW[120,20,12]
_COL=Param
Print " You have selected colour ";
Pen _COL
Print _COL
Procedure RGBWINDOW[X,Y,SIZE]
   NCOLS=Screen Colour
   Get Cblock 1,X-10,Y-10,X+(SIZE*2)+10,Y+(SIZE*NCOLS/2)+10
   Bar X-8,Y-8 To X+(SIZE*2)+8,Y+(SIZE*NCOLS/2)+8
   Reserve Zone NCOLS+1
   For B=0 To NCOLS/2 Step NCOLS/2
      For A=0 To(NCOLS/2)-1
         Ink A+B : Bar X,Y To X+SIZE,Y+SIZE
         Set Zone A+B+1,X,Y To X+SIZE,Y+SIZE
         Add Y,SIZE
      Next A
      Add X,SIZE
      Add Y,-(SIZE*(NCOLS/2))
   Next B
AGAIN:
   While M=0
      X=Mouse Zone
      M=Mouse Key
   Wend 
   If X=0 Then Goto AGAIN
   Put Cblock 1
   Reset Zone 
   RGB=X-1 : Rem RGB = selected colour  
End Proc[RGB]