                             P_CHANGE.TXT  

P_CHANGE.EXE. Here's one you can use on any 8 bit per pixel bitmaps
you have. They can be anywhere on your drive structure.
When the program is initiated, it will ask for a BMP file name to copy
the palette from. Then it will ask for another BMP file name and over-write
its palette with the palette of the first file. Within the files 1.BMP
through 11.BMP are 11 different color palettes. Try using these as a
source of palettes for the bitmaps created with some of the other programs
included in this zip.

********************************* Warning! *********************************
This program does not make any attempt to save the original palette before
over-writing it. I strongly suggest you save your file under a different
name, as a backup precaution, before changing its palette with this
application.
****************************************************************************

Also, included here, is the source code (in CA-Realizer v. 2.0)
for this application. This is to give you an idea of how easy it is to
construct a graphics oriented program, using my procedures and functions.

ReSet _All
Run "BMP_8"
ViewReport
DIM One As BMPfileInfo
DIM Two As BMPfileInfo
ReportTime

FileName = StdOpen("*.bmp","Source Of Palette File Name")
PathName(One,FileName)

RecordFromDisk_8(One)
If One.Mode <> 8 Then
Okay = MessageBox("Is Not A Palette Bitmap",One.FileName,_MB_OK,_MB_Stop,1)  
Stop
End If

FileName = StdOpen("*.bmp","File Name Of Palette To Overwrite")
PathName(Two,FileName)

RecordFromDisk_8(Two)
If Two.Mode <> 8 Then
Okay = MessageBox("Is Not A Palette Bitmap",Two.FileName,_MB_OK,_MB_Stop,1)  
Stop
End If

PaletteFromDisk_8(One)
PaletteToDisk_8(Two)
ReportTime
Print #1; "All Done !"

ReSet _Var
ReSet _Type
ReSet _Proc
