'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Pal Antiq
'
A$=Fsel$("")
Load Iff A$,0
'
Wait 50
'
For T=0 To Screen Colour-1
   Colour T,Pal Antiq(Colour(T))
   Wait 5
Next T
Wait Key