'
' *** new palette (Medium resolution)
' *** please,please,please, restore original palette before exiting program
Restore Med.new.col.data
For N=0 To 3
  Read Col$
  R=Val(Left$(Col$))
  G=Val(Mid$(Col$,2,1))
  B=Val(Right$(Col$))
  Setcolor N,R,G,B
Next N
'
' *** rgb-values of new palette (switch to Overwrite-mode of editor)
Med.new.col.data:
Data 003,700,006,777
' **********
'