Regulars/StarInfo/Ord/!OrdFSI/MakePal

Home » Archimedes archive » Acorn User » AU 1995-11.adf » !Regulars » Regulars/StarInfo/Ord/!OrdFSI/MakePal

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1995-11.adf » !Regulars
Filename:	Regulars/StarInfo/Ord/!OrdFSI/MakePal
Read OK:	✔
File size:	0209 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM Make Palette
   20REM by Andrew Ord
   30
   40REM takes a palette definition file created using CreateTables and a palette file
   50REM to create a palette file for that palette definition.
   60
   70INPUT "Source Palette Defintion : "sourceA$
   80INPUT "Destination Palette File : "dest$
   90
  100DIM ip% 1024+32768
  110DIM op% 1536
  120OSCLI"Load "+sourceA$+" "+STR$~ip%
  130FOR I%=0 TO 255
  140p%=ip%+(I%*4)
  150pp%=op%+(I%*6)
  160pp%?0=19
  170pp%?1=I%
  180pp%?2=16
  190pp%?3=p%?1
  200pp%?4=p%?2
  210pp%?5=p%?3
  220NEXT I%
  230SYS"OS_File",10,dest$,&FED,,op%,op%+1536


� Make Palette
� by Andrew Ord

(S� takes a palette definition file created using CreateTables and a palette file
2;� to create a palette file for that palette definition.
<
F+� "Source Palette Defintion : "sourceA$
P(� "Destination Palette File : "dest$
Z
d� ip% 1024+32768
n� op% 1536
x�"Load "+sourceA$+" "+�~ip%
�� I%=0 � 255
�p%=ip%+(I%*4)
�pp%=op%+(I%*6)
�pp%?0=19
�pp%?1=I%
�pp%?2=16
�pp%?3=p%?1
�pp%?4=p%?2
�pp%?5=p%?3
�� I%
�+ș"OS_File",10,dest$,&FED,,op%,op%+1536
�

00000000  0d 00 0a 12 f4 20 4d 61  6b 65 20 50 61 6c 65 74  |..... Make Palet|
00000010  74 65 0d 00 14 13 f4 20  62 79 20 41 6e 64 72 65  |te..... by Andre|
00000020  77 20 4f 72 64 0d 00 1e  04 0d 00 28 53 f4 20 74  |w Ord......(S. t|
00000030  61 6b 65 73 20 61 20 70  61 6c 65 74 74 65 20 64  |akes a palette d|
00000040  65 66 69 6e 69 74 69 6f  6e 20 66 69 6c 65 20 63  |efinition file c|
00000050  72 65 61 74 65 64 20 75  73 69 6e 67 20 43 72 65  |reated using Cre|
00000060  61 74 65 54 61 62 6c 65  73 20 61 6e 64 20 61 20  |ateTables and a |
00000070  70 61 6c 65 74 74 65 20  66 69 6c 65 0d 00 32 3b  |palette file..2;|
00000080  f4 20 74 6f 20 63 72 65  61 74 65 20 61 20 70 61  |. to create a pa|
00000090  6c 65 74 74 65 20 66 69  6c 65 20 66 6f 72 20 74  |lette file for t|
000000a0  68 61 74 20 70 61 6c 65  74 74 65 20 64 65 66 69  |hat palette defi|
000000b0  6e 69 74 69 6f 6e 2e 0d  00 3c 04 0d 00 46 2b e8  |nition...<...F+.|
000000c0  20 22 53 6f 75 72 63 65  20 50 61 6c 65 74 74 65  | "Source Palette|
000000d0  20 44 65 66 69 6e 74 69  6f 6e 20 3a 20 22 73 6f  | Defintion : "so|
000000e0  75 72 63 65 41 24 0d 00  50 28 e8 20 22 44 65 73  |urceA$..P(. "Des|
000000f0  74 69 6e 61 74 69 6f 6e  20 50 61 6c 65 74 74 65  |tination Palette|
00000100  20 46 69 6c 65 20 3a 20  22 64 65 73 74 24 0d 00  | File : "dest$..|
00000110  5a 04 0d 00 64 14 de 20  69 70 25 20 31 30 32 34  |Z...d.. ip% 1024|
00000120  2b 33 32 37 36 38 0d 00  6e 0e de 20 6f 70 25 20  |+32768..n.. op% |
00000130  31 35 33 36 0d 00 78 1f  ff 22 4c 6f 61 64 20 22  |1536..x.."Load "|
00000140  2b 73 6f 75 72 63 65 41  24 2b 22 20 22 2b c3 7e  |+sourceA$+" "+.~|
00000150  69 70 25 0d 00 82 10 e3  20 49 25 3d 30 20 b8 20  |ip%..... I%=0 . |
00000160  32 35 35 0d 00 8c 11 70  25 3d 69 70 25 2b 28 49  |255....p%=ip%+(I|
00000170  25 2a 34 29 0d 00 96 12  70 70 25 3d 6f 70 25 2b  |%*4)....pp%=op%+|
00000180  28 49 25 2a 36 29 0d 00  a0 0c 70 70 25 3f 30 3d  |(I%*6)....pp%?0=|
00000190  31 39 0d 00 aa 0c 70 70  25 3f 31 3d 49 25 0d 00  |19....pp%?1=I%..|
000001a0  b4 0c 70 70 25 3f 32 3d  31 36 0d 00 be 0e 70 70  |..pp%?2=16....pp|
000001b0  25 3f 33 3d 70 25 3f 31  0d 00 c8 0e 70 70 25 3f  |%?3=p%?1....pp%?|
000001c0  34 3d 70 25 3f 32 0d 00  d2 0e 70 70 25 3f 35 3d  |4=p%?2....pp%?5=|
000001d0  70 25 3f 33 0d 00 dc 08  ed 20 49 25 0d 00 e6 2b  |p%?3..... I%...+|
000001e0  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 31 30 2c 64  |.."OS_File",10,d|
000001f0  65 73 74 24 2c 26 46 45  44 2c 2c 6f 70 25 2c 6f  |est$,&FED,,op%,o|
00000200  70 25 2b 31 35 33 36 0d  ff                       |p%+1536..|
00000209

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .