' always wondered why your SETCOLOR palette uses different color registers then 
' COLOR?
' This weird internal conversion of the VDI can get annoying.
' Use this little conversion table and your problems are gone.
' Use COLOR gemcol%(colornr%)
' colornr% will be the same as you would use for SETCOLOR
' so if you say SETCOLOR 3,7,5,0 and you want to draw a line with color 3,
' you just say:
' COLOR gemcol%(3)
' LINE 0,0,100,100
' to draw the orange line
'
PROCEDURE gemcol
  RESTORE gemcol_data
  DIM gemcol%(15)
  FOR i%=0 TO 15
    READ gemcol%(i%)
  NEXT i%
gemcol_data:
  DATA 0,2,3,6,4,7,5,8,9,10,11,14,12,15,13,1
RETURN