'*********************************************************** 
'*                        Shade.AMOS                       * 
'*                ©1992 by Volker Stepprath                * 
'*  Change all colours of an IFF picture in black & White  * 
'*********************************************************** 
'
'**** Select IFF picture ****
'
FILE$=Fsel$("","","Please choose an IFF picture !")
'
If FILE$<>""
  '
  '**** Load IFF picture ****
  '
  Load Iff FILE$,0
  Wait Key 
  '
  '**** Change colours ****
  '
  For I=0 To 31
    C$=Hex$(Colour(I),3)-"$"
    C=Val("$"+Left$(C$,1))+Val("$"+Mid$(C$,2,1))+Val("$"+Right$(C$,1))
    C$=Hex$(C/3)-"$"
    C=Val("$"+(C$+C$+C$))
    Colour I,C
  Next I
  Wait Key 
  '
End If 
'
Edit