Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape16a_acorn_eu_1990_november.wav » ExtPal

ExtPal

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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape16a_acorn_eu_1990_november.wav
Filename: ExtPal
Read OK:
File size: 09E7 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Extended palette
   20REM By Andrew Nibbs
   30REM (c) The Micro User
   40:
   50ON ERROR PROCerror
   60Y%=0:*FX225 200
   70DIM c(15,1),c$(15)
   80FORB%=0TO15:FORC%=0TO1
   90c(B%,C%)=B%EOR7:NEXT:NEXT
  100FORB%=0TO15:READc$(B%)
  110c$(B%)=c$(B%)+STRING$(10," ")
  120c$(B%)=LEFT$(c$(B%),13):NEXT
  130DATA white,cyan,magenta,blue
  140DATA yellow,green,red,black
  150DATA white/black,cyan/red
  160DATA magenta/green,yellow/blue
  170DATA blue/yellow,green/magenta
  180DATA red/cyan,black/white
  190REPEAT MODE7
  200FORB%=0TO1:VDU141,132,157,130
  210PRINTSPC6"Extended Palette editor":NEXT
  220VDU23,1,0;0;0;0;0;
  230PRINTSPC6"P)review S)ave data L)oad data"'SPC6"C)ompile code to file"'SPC6"Cursor up/down to move up/down"'SPC6"f0 alter first f1 alter second"
  240PROCupdate:*FX4,1
  250REPEAT
  260PROChighlight
  270A$=CHR$(GETAND&DF)
  280PROCnormal
  290IF A$=CHR$139 IF Y%>0 Y%=Y%-1
  300IF A$=CHR$138 IF Y%<15 Y%=Y%+1
  310IF A$=CHR$200 PROCy_update(Y%,0)
  320IF A$=CHR$201 PROCy_update(Y%,1)
  330UNTIL INSTR("PSLC",A$)
  340IFA$="P":MODE2:PROCpreview
  350IFA$="S":PROCsave
  360IFA$="L":PROCload
  370IFA$="C":PROCcompile
  380UNTIL FALSE
  390:
  400DEFPROCupdate
  410LOCAL B%,Y%:VDU31,0,6
  420FORB%=0TO1:VDU141,132,157,130
  430PRINT"Colour First"SPC9"Second"
  440NEXT
  450FOR B%=0 TO 15:Y%=B%+8
  460PRINTTAB(6,Y%);B%;
  470PRINTTAB(11,Y%)c$(c(B%,0));
  480PRINTTAB(25,Y%)c$(c(B%,1));
  490NEXT:ENDPROC
  500:
  510DEFPROCnormal:PRINTTAB(0,8+Y%)SPC5:ENDPROC
  520:
  530DEFPROChighlight:VDU31,1,8+Y%,133,157,130:ENDPROC
  540:
  550DEFPROCsave:CLS
  560PRINT"SAVE DATA FILE -"
  570INPUT"Filename: "A$
  580IF A$="" ENDPROC
  590X=OPENOUT(A$):FORB%=0TO15:PRINT#X,c(B%,0),c(B%,1):NEXT:CLOSE#X:ENDPROC
  600:
  610DEFPROCload:CLS
  620PRINT"LOAD DATA FILE -"
  630INPUT"Filename:"A$
  640IF A$="" ENDPROC
  650X=OPENIN(A$):FORB%=0TO15:INPUT#X,c(B%,0),c(B%,1):NEXT:CLOSE#X:ENDPROC
  660:
  670DEFPROCpreview:CLS
  680PROCass(&900):CALL&900
  690FOR B%=0 TO 15:COLOUR B%+128
  700PRINTSPC20;:NEXT:A=GET:*FX13 4
  710ENDPROC
  720:
  730DEFPROCass(code%):flag=&70
  740FOR L%=0 TO 2 STEP 2
  750P%=code%:[OPT L%
  760.setup
  770 LDA #event MOD256:STA &220
  780 LDA #event DIV256:STA &221
  790 LDA #0:STA flag
  800 LDA #14:LDX #4:JMP &FFF4
  810\
  820\ Interrupt routine
  830\
  840.event
  850 PHP:PHA:TXA:PHA:TYA:PHA
  860 LDA flag:BEQ set2
  870\
  880\ Load colour set 1
  890\
  900.set1 LDX #0:JMP prog
  910\
  920\ Load colour set 2
  930\
  940.set2 LDX #16
  950\
  960\ Program palette
  970\
  980.prog STX flag:LDY #16
  990.loop2 LDA cols,X:STA &FE21
 1000 INX:DEY:BNE loop2
 1010\
 1020\ Exit tidily
 1030\
 1040.end
 1050 PLA:TAY:PLA:TAX:PLA:PLP:RTS
 1060.cols:]
 1070dols=cols+16
 1080FOR B%=0 TO 15
 1090cols?B%=B%*16+c(B%,0)
 1100dols?B%=B%*16+c(B%,1)
 1110NEXT:NEXT:ENDPROC
 1120:
 1130DEFPROCcompile:CLS
 1140PRINT"COMPILE TO A FILE -"
 1150INPUT"Filename: "A$
 1160IF A$="" ENDPROC
 1170PROCass(&900)
 1180PROCoscli("SAVE "+A$+" 900 "+STR$~(P%+33)+" 900"):ENDPROC
 1190:
 1200DEFPROCerror:CLS:*FX13 4
 1210REPORT:PRINT" at line ";ERL:END
 1220:
 1230DEFPROCy_update(Y%,V%)
 1240c(Y%,V%)=(c(Y%,V%)+1)MOD16
 1250PRINTTAB(0,8+Y%)SPC6;Y%;
 1260PRINTTAB(11)c$(c(Y%,0))TAB(25)c$(c(Y%,1))
 1270PROChighlight:ENDPROC
 1280:
 1290DEFPROCoscli($&700):LOCALX%,Y%
 1300Y%=7:CALL&FFF7:ENDPROC

� Extended palette
� By Andrew Nibbs
� (c) The Micro User
(:
2� � �error
<Y%=0:*FX225 200
F� c(15,1),c$(15)
P�B%=0�15:�C%=0�1
Zc(B%,C%)=B%�7:�:�
d�B%=0�15:�c$(B%)
nc$(B%)=c$(B%)+�10," ")
xc$(B%)=�c$(B%),13):�
�� white,cyan,magenta,blue
�� yellow,green,red,black
�� white/black,cyan/red
�� magenta/green,yellow/blue
�� blue/yellow,green/magenta
�� red/cyan,black/white
�� �7
��B%=0�1:�141,132,157,130
�"�6"Extended Palette editor":�
��23,1,0;0;0;0;0;
��6"P)review S)ave data L)oad data"'�6"C)ompile code to file"'�6"Cursor up/down to move up/down"'�6"f0 alter first f1 alter second"
��update:*FX4,1
��
�highlight
A$=�(��&DF)
�normal
"� A$=�139 � Y%>0 Y%=Y%-1
,� A$=�138 � Y%<15 Y%=Y%+1
6� A$=�200 �y_update(Y%,0)
@� A$=�201 �y_update(Y%,1)
J� �"PSLC",A$)
T�A$="P":�2:�preview
^�A$="S":�save
h�A$="L":�load
r�A$="C":�compile
|� �
�:
���update
�� B%,Y%:�31,0,6
��B%=0�1:�141,132,157,130
��"Colour First"�9"Second"
��
�� B%=0 � 15:Y%=B%+8
��6,Y%);B%;
��11,Y%)c$(c(B%,0));
��25,Y%)c$(c(B%,1));
��:�
�:
���normal:�0,8+Y%)�5:�
:
(��highlight:�31,1,8+Y%,133,157,130:�
:
&��save:�
0�"SAVE DATA FILE -"
:�"Filename: "A$
D
� A$="" �
N0X=�(A$):�B%=0�15:�#X,c(B%,0),c(B%,1):�:�#X:�
X:
b��load:�
l�"LOAD DATA FILE -"
v�"Filename:"A$
�
� A$="" �
�0X=�(A$):�B%=0�15:�#X,c(B%,0),c(B%,1):�:�#X:�
�:
���preview:�
��ass(&900):�&900
�� B%=0 � 15:� B%+128
��20;:�:A=�:*FX13 4
��
�:
���ass(code%):flag=&70
�� L%=0 � 2 � 2
�P%=code%:[OPT L%
�
.setup
 LDA #event �256:STA &220
 LDA #event �256:STA &221
 LDA #0:STA flag
  LDA #14:LDX #4:JMP &FFF4
*\
4\ Interrupt routine
>\
H
.event
R PHP:PHA:TXA:PHA:TYA:PHA
\ LDA flag:BEQ set2
f\
p\ Load colour set 1
z\
�.set1 LDX #0:JMP prog
�\
�\ Load colour set 2
�\
�.set2 LDX #16
�\
�\ Program palette
�\
�.prog STX flag:LDY #16
�.loop2 LDA cols,X:STA &FE21
� INX:DEY:BNE loop2
�\
�\ Exit tidily
\
.end
  PLA:TAY:PLA:TAX:PLA:PLP:RTS
$.cols:]
.dols=cols+16
8� B%=0 � 15
Bcols?B%=B%*16+c(B%,0)
Ldols?B%=B%*16+c(B%,1)
V	�:�:�
`:
j��compile:�
t�"COMPILE TO A FILE -"
~�"Filename: "A$
�
� A$="" �
��ass(&900)
�1�oscli("SAVE "+A$+" 900 "+�~(P%+33)+" 900"):�
�:
���error:�:*FX13 4
��:�" at line ";�:�
�:
���y_update(Y%,V%)
�c(Y%,V%)=(c(Y%,V%)+1)�16
��0,8+Y%)�6;Y%;
�#�11)c$(c(Y%,0))�25)c$(c(Y%,1))
��highlight:�
:

��oscli($&700):�X%,Y%
Y%=7:�&FFF7:�
�
00000000  0d 00 0a 16 f4 20 45 78  74 65 6e 64 65 64 20 70  |..... Extended p|
00000010  61 6c 65 74 74 65 0d 00  14 15 f4 20 42 79 20 41  |alette..... By A|
00000020  6e 64 72 65 77 20 4e 69  62 62 73 0d 00 1e 18 f4  |ndrew Nibbs.....|
00000030  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000040  73 65 72 0d 00 28 05 3a  0d 00 32 0e ee 20 85 20  |ser..(.:..2.. . |
00000050  f2 65 72 72 6f 72 0d 00  3c 13 59 25 3d 30 3a 2a  |.error..<.Y%=0:*|
00000060  46 58 32 32 35 20 32 30  30 0d 00 46 14 de 20 63  |FX225 200..F.. c|
00000070  28 31 35 2c 31 29 2c 63  24 28 31 35 29 0d 00 50  |(15,1),c$(15)..P|
00000080  14 e3 42 25 3d 30 b8 31  35 3a e3 43 25 3d 30 b8  |..B%=0.15:.C%=0.|
00000090  31 0d 00 5a 15 63 28 42  25 2c 43 25 29 3d 42 25  |1..Z.c(B%,C%)=B%|
000000a0  82 37 3a ed 3a ed 0d 00  64 14 e3 42 25 3d 30 b8  |.7:.:...d..B%=0.|
000000b0  31 35 3a f3 63 24 28 42  25 29 0d 00 6e 1a 63 24  |15:.c$(B%)..n.c$|
000000c0  28 42 25 29 3d 63 24 28  42 25 29 2b c4 31 30 2c  |(B%)=c$(B%)+.10,|
000000d0  22 20 22 29 0d 00 78 18  63 24 28 42 25 29 3d c0  |" ")..x.c$(B%)=.|
000000e0  63 24 28 42 25 29 2c 31  33 29 3a ed 0d 00 82 1d  |c$(B%),13):.....|
000000f0  dc 20 77 68 69 74 65 2c  63 79 61 6e 2c 6d 61 67  |. white,cyan,mag|
00000100  65 6e 74 61 2c 62 6c 75  65 0d 00 8c 1c dc 20 79  |enta,blue..... y|
00000110  65 6c 6c 6f 77 2c 67 72  65 65 6e 2c 72 65 64 2c  |ellow,green,red,|
00000120  62 6c 61 63 6b 0d 00 96  1a dc 20 77 68 69 74 65  |black..... white|
00000130  2f 62 6c 61 63 6b 2c 63  79 61 6e 2f 72 65 64 0d  |/black,cyan/red.|
00000140  00 a0 1f dc 20 6d 61 67  65 6e 74 61 2f 67 72 65  |.... magenta/gre|
00000150  65 6e 2c 79 65 6c 6c 6f  77 2f 62 6c 75 65 0d 00  |en,yellow/blue..|
00000160  aa 1f dc 20 62 6c 75 65  2f 79 65 6c 6c 6f 77 2c  |... blue/yellow,|
00000170  67 72 65 65 6e 2f 6d 61  67 65 6e 74 61 0d 00 b4  |green/magenta...|
00000180  1a dc 20 72 65 64 2f 63  79 61 6e 2c 62 6c 61 63  |.. red/cyan,blac|
00000190  6b 2f 77 68 69 74 65 0d  00 be 08 f5 20 eb 37 0d  |k/white..... .7.|
000001a0  00 c8 1c e3 42 25 3d 30  b8 31 3a ef 31 34 31 2c  |....B%=0.1:.141,|
000001b0  31 33 32 2c 31 35 37 2c  31 33 30 0d 00 d2 22 f1  |132,157,130...".|
000001c0  89 36 22 45 78 74 65 6e  64 65 64 20 50 61 6c 65  |.6"Extended Pale|
000001d0  74 74 65 20 65 64 69 74  6f 72 22 3a ed 0d 00 dc  |tte editor":....|
000001e0  14 ef 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 30  |..23,1,0;0;0;0;0|
000001f0  3b 0d 00 e6 87 f1 89 36  22 50 29 72 65 76 69 65  |;......6"P)revie|
00000200  77 20 53 29 61 76 65 20  64 61 74 61 20 4c 29 6f  |w S)ave data L)o|
00000210  61 64 20 64 61 74 61 22  27 89 36 22 43 29 6f 6d  |ad data"'.6"C)om|
00000220  70 69 6c 65 20 63 6f 64  65 20 74 6f 20 66 69 6c  |pile code to fil|
00000230  65 22 27 89 36 22 43 75  72 73 6f 72 20 75 70 2f  |e"'.6"Cursor up/|
00000240  64 6f 77 6e 20 74 6f 20  6d 6f 76 65 20 75 70 2f  |down to move up/|
00000250  64 6f 77 6e 22 27 89 36  22 66 30 20 61 6c 74 65  |down"'.6"f0 alte|
00000260  72 20 66 69 72 73 74 20  66 31 20 61 6c 74 65 72  |r first f1 alter|
00000270  20 73 65 63 6f 6e 64 22  0d 00 f0 12 f2 75 70 64  | second".....upd|
00000280  61 74 65 3a 2a 46 58 34  2c 31 0d 00 fa 05 f5 0d  |ate:*FX4,1......|
00000290  01 04 0e f2 68 69 67 68  6c 69 67 68 74 0d 01 0e  |....highlight...|
000002a0  0f 41 24 3d bd 28 a5 80  26 44 46 29 0d 01 18 0b  |.A$=.(..&DF)....|
000002b0  f2 6e 6f 72 6d 61 6c 0d  01 22 1c e7 20 41 24 3d  |.normal..".. A$=|
000002c0  bd 31 33 39 20 e7 20 59  25 3e 30 20 59 25 3d 59  |.139 . Y%>0 Y%=Y|
000002d0  25 2d 31 0d 01 2c 1d e7  20 41 24 3d bd 31 33 38  |%-1..,.. A$=.138|
000002e0  20 e7 20 59 25 3c 31 35  20 59 25 3d 59 25 2b 31  | . Y%<15 Y%=Y%+1|
000002f0  0d 01 36 1d e7 20 41 24  3d bd 32 30 30 20 f2 79  |..6.. A$=.200 .y|
00000300  5f 75 70 64 61 74 65 28  59 25 2c 30 29 0d 01 40  |_update(Y%,0)..@|
00000310  1d e7 20 41 24 3d bd 32  30 31 20 f2 79 5f 75 70  |.. A$=.201 .y_up|
00000320  64 61 74 65 28 59 25 2c  31 29 0d 01 4a 11 fd 20  |date(Y%,1)..J.. |
00000330  a7 22 50 53 4c 43 22 2c  41 24 29 0d 01 54 17 e7  |."PSLC",A$)..T..|
00000340  41 24 3d 22 50 22 3a eb  32 3a f2 70 72 65 76 69  |A$="P":.2:.previ|
00000350  65 77 0d 01 5e 11 e7 41  24 3d 22 53 22 3a f2 73  |ew..^..A$="S":.s|
00000360  61 76 65 0d 01 68 11 e7  41 24 3d 22 4c 22 3a f2  |ave..h..A$="L":.|
00000370  6c 6f 61 64 0d 01 72 14  e7 41 24 3d 22 43 22 3a  |load..r..A$="C":|
00000380  f2 63 6f 6d 70 69 6c 65  0d 01 7c 07 fd 20 a3 0d  |.compile..|.. ..|
00000390  01 86 05 3a 0d 01 90 0c  dd f2 75 70 64 61 74 65  |...:......update|
000003a0  0d 01 9a 13 ea 20 42 25  2c 59 25 3a ef 33 31 2c  |..... B%,Y%:.31,|
000003b0  30 2c 36 0d 01 a4 1c e3  42 25 3d 30 b8 31 3a ef  |0,6.....B%=0.1:.|
000003c0  31 34 31 2c 31 33 32 2c  31 35 37 2c 31 33 30 0d  |141,132,157,130.|
000003d0  01 ae 1d f1 22 43 6f 6c  6f 75 72 20 46 69 72 73  |...."Colour Firs|
000003e0  74 22 89 39 22 53 65 63  6f 6e 64 22 0d 01 b8 05  |t".9"Second"....|
000003f0  ed 0d 01 c2 17 e3 20 42  25 3d 30 20 b8 20 31 35  |...... B%=0 . 15|
00000400  3a 59 25 3d 42 25 2b 38  0d 01 cc 0f f1 8a 36 2c  |:Y%=B%+8......6,|
00000410  59 25 29 3b 42 25 3b 0d  01 d6 18 f1 8a 31 31 2c  |Y%);B%;......11,|
00000420  59 25 29 63 24 28 63 28  42 25 2c 30 29 29 3b 0d  |Y%)c$(c(B%,0));.|
00000430  01 e0 18 f1 8a 32 35 2c  59 25 29 63 24 28 63 28  |.....25,Y%)c$(c(|
00000440  42 25 2c 31 29 29 3b 0d  01 ea 07 ed 3a e1 0d 01  |B%,1));.....:...|
00000450  f4 05 3a 0d 01 fe 1a dd  f2 6e 6f 72 6d 61 6c 3a  |..:......normal:|
00000460  f1 8a 30 2c 38 2b 59 25  29 89 35 3a e1 0d 02 08  |..0,8+Y%).5:....|
00000470  05 3a 0d 02 12 28 dd f2  68 69 67 68 6c 69 67 68  |.:...(..highligh|
00000480  74 3a ef 33 31 2c 31 2c  38 2b 59 25 2c 31 33 33  |t:.31,1,8+Y%,133|
00000490  2c 31 35 37 2c 31 33 30  3a e1 0d 02 1c 05 3a 0d  |,157,130:.....:.|
000004a0  02 26 0c dd f2 73 61 76  65 3a db 0d 02 30 17 f1  |.&...save:...0..|
000004b0  22 53 41 56 45 20 44 41  54 41 20 46 49 4c 45 20  |"SAVE DATA FILE |
000004c0  2d 22 0d 02 3a 13 e8 22  46 69 6c 65 6e 61 6d 65  |-"..:.."Filename|
000004d0  3a 20 22 41 24 0d 02 44  0d e7 20 41 24 3d 22 22  |: "A$..D.. A$=""|
000004e0  20 e1 0d 02 4e 30 58 3d  ae 28 41 24 29 3a e3 42  | ...N0X=.(A$):.B|
000004f0  25 3d 30 b8 31 35 3a f1  23 58 2c 63 28 42 25 2c  |%=0.15:.#X,c(B%,|
00000500  30 29 2c 63 28 42 25 2c  31 29 3a ed 3a d9 23 58  |0),c(B%,1):.:.#X|
00000510  3a e1 0d 02 58 05 3a 0d  02 62 0c dd f2 6c 6f 61  |:...X.:..b...loa|
00000520  64 3a db 0d 02 6c 17 f1  22 4c 4f 41 44 20 44 41  |d:...l.."LOAD DA|
00000530  54 41 20 46 49 4c 45 20  2d 22 0d 02 76 12 e8 22  |TA FILE -"..v.."|
00000540  46 69 6c 65 6e 61 6d 65  3a 22 41 24 0d 02 80 0d  |Filename:"A$....|
00000550  e7 20 41 24 3d 22 22 20  e1 0d 02 8a 30 58 3d 8e  |. A$="" ....0X=.|
00000560  28 41 24 29 3a e3 42 25  3d 30 b8 31 35 3a e8 23  |(A$):.B%=0.15:.#|
00000570  58 2c 63 28 42 25 2c 30  29 2c 63 28 42 25 2c 31  |X,c(B%,0),c(B%,1|
00000580  29 3a ed 3a d9 23 58 3a  e1 0d 02 94 05 3a 0d 02  |):.:.#X:.....:..|
00000590  9e 0f dd f2 70 72 65 76  69 65 77 3a db 0d 02 a8  |....preview:....|
000005a0  14 f2 61 73 73 28 26 39  30 30 29 3a d6 26 39 30  |..ass(&900):.&90|
000005b0  30 0d 02 b2 18 e3 20 42  25 3d 30 20 b8 20 31 35  |0..... B%=0 . 15|
000005c0  3a fb 20 42 25 2b 31 32  38 0d 02 bc 17 f1 89 32  |:. B%+128......2|
000005d0  30 3b 3a ed 3a 41 3d a5  3a 2a 46 58 31 33 20 34  |0;:.:A=.:*FX13 4|
000005e0  0d 02 c6 05 e1 0d 02 d0  05 3a 0d 02 da 19 dd f2  |.........:......|
000005f0  61 73 73 28 63 6f 64 65  25 29 3a 66 6c 61 67 3d  |ass(code%):flag=|
00000600  26 37 30 0d 02 e4 12 e3  20 4c 25 3d 30 20 b8 20  |&70..... L%=0 . |
00000610  32 20 88 20 32 0d 02 ee  14 50 25 3d 63 6f 64 65  |2 . 2....P%=code|
00000620  25 3a 5b 4f 50 54 20 4c  25 0d 02 f8 0a 2e 73 65  |%:[OPT L%.....se|
00000630  74 75 70 0d 03 02 1d 20  4c 44 41 20 23 65 76 65  |tup.... LDA #eve|
00000640  6e 74 20 83 32 35 36 3a  53 54 41 20 26 32 32 30  |nt .256:STA &220|
00000650  0d 03 0c 1d 20 4c 44 41  20 23 65 76 65 6e 74 20  |.... LDA #event |
00000660  81 32 35 36 3a 53 54 41  20 26 32 32 31 0d 03 16  |.256:STA &221...|
00000670  14 20 4c 44 41 20 23 30  3a 53 54 41 20 66 6c 61  |. LDA #0:STA fla|
00000680  67 0d 03 20 1d 20 4c 44  41 20 23 31 34 3a 4c 44  |g.. . LDA #14:LD|
00000690  58 20 23 34 3a 4a 4d 50  20 26 46 46 46 34 0d 03  |X #4:JMP &FFF4..|
000006a0  2a 05 5c 0d 03 34 17 5c  20 49 6e 74 65 72 72 75  |*.\..4.\ Interru|
000006b0  70 74 20 72 6f 75 74 69  6e 65 0d 03 3e 05 5c 0d  |pt routine..>.\.|
000006c0  03 48 0a 2e 65 76 65 6e  74 0d 03 52 1c 20 50 48  |.H..event..R. PH|
000006d0  50 3a 50 48 41 3a 54 58  41 3a 50 48 41 3a 54 59  |P:PHA:TXA:PHA:TY|
000006e0  41 3a 50 48 41 0d 03 5c  16 20 4c 44 41 20 66 6c  |A:PHA..\. LDA fl|
000006f0  61 67 3a 42 45 51 20 73  65 74 32 0d 03 66 05 5c  |ag:BEQ set2..f.\|
00000700  0d 03 70 17 5c 20 4c 6f  61 64 20 63 6f 6c 6f 75  |..p.\ Load colou|
00000710  72 20 73 65 74 20 31 0d  03 7a 05 5c 0d 03 84 19  |r set 1..z.\....|
00000720  2e 73 65 74 31 20 4c 44  58 20 23 30 3a 4a 4d 50  |.set1 LDX #0:JMP|
00000730  20 70 72 6f 67 0d 03 8e  05 5c 0d 03 98 17 5c 20  | prog....\....\ |
00000740  4c 6f 61 64 20 63 6f 6c  6f 75 72 20 73 65 74 20  |Load colour set |
00000750  32 0d 03 a2 05 5c 0d 03  ac 11 2e 73 65 74 32 20  |2....\.....set2 |
00000760  4c 44 58 20 23 31 36 0d  03 b6 05 5c 0d 03 c0 15  |LDX #16....\....|
00000770  5c 20 50 72 6f 67 72 61  6d 20 70 61 6c 65 74 74  |\ Program palett|
00000780  65 0d 03 ca 05 5c 0d 03  d4 1a 2e 70 72 6f 67 20  |e....\.....prog |
00000790  53 54 58 20 66 6c 61 67  3a 4c 44 59 20 23 31 36  |STX flag:LDY #16|
000007a0  0d 03 de 1f 2e 6c 6f 6f  70 32 20 4c 44 41 20 63  |.....loop2 LDA c|
000007b0  6f 6c 73 2c 58 3a 53 54  41 20 26 46 45 32 31 0d  |ols,X:STA &FE21.|
000007c0  03 e8 16 20 49 4e 58 3a  44 45 59 3a 42 4e 45 20  |... INX:DEY:BNE |
000007d0  6c 6f 6f 70 32 0d 03 f2  05 5c 0d 03 fc 11 5c 20  |loop2....\....\ |
000007e0  45 78 69 74 20 74 69 64  69 6c 79 0d 04 06 05 5c  |Exit tidily....\|
000007f0  0d 04 10 08 2e 65 6e 64  0d 04 1a 20 20 50 4c 41  |.....end...  PLA|
00000800  3a 54 41 59 3a 50 4c 41  3a 54 41 58 3a 50 4c 41  |:TAY:PLA:TAX:PLA|
00000810  3a 50 4c 50 3a 52 54 53  0d 04 24 0b 2e 63 6f 6c  |:PLP:RTS..$..col|
00000820  73 3a 5d 0d 04 2e 10 64  6f 6c 73 3d 63 6f 6c 73  |s:]....dols=cols|
00000830  2b 31 36 0d 04 38 0f e3  20 42 25 3d 30 20 b8 20  |+16..8.. B%=0 . |
00000840  31 35 0d 04 42 19 63 6f  6c 73 3f 42 25 3d 42 25  |15..B.cols?B%=B%|
00000850  2a 31 36 2b 63 28 42 25  2c 30 29 0d 04 4c 19 64  |*16+c(B%,0)..L.d|
00000860  6f 6c 73 3f 42 25 3d 42  25 2a 31 36 2b 63 28 42  |ols?B%=B%*16+c(B|
00000870  25 2c 31 29 0d 04 56 09  ed 3a ed 3a e1 0d 04 60  |%,1)..V..:.:...`|
00000880  05 3a 0d 04 6a 0f dd f2  63 6f 6d 70 69 6c 65 3a  |.:..j...compile:|
00000890  db 0d 04 74 1a f1 22 43  4f 4d 50 49 4c 45 20 54  |...t.."COMPILE T|
000008a0  4f 20 41 20 46 49 4c 45  20 2d 22 0d 04 7e 13 e8  |O A FILE -"..~..|
000008b0  22 46 69 6c 65 6e 61 6d  65 3a 20 22 41 24 0d 04  |"Filename: "A$..|
000008c0  88 0d e7 20 41 24 3d 22  22 20 e1 0d 04 92 0e f2  |... A$="" ......|
000008d0  61 73 73 28 26 39 30 30  29 0d 04 9c 31 f2 6f 73  |ass(&900)...1.os|
000008e0  63 6c 69 28 22 53 41 56  45 20 22 2b 41 24 2b 22  |cli("SAVE "+A$+"|
000008f0  20 39 30 30 20 22 2b c3  7e 28 50 25 2b 33 33 29  | 900 "+.~(P%+33)|
00000900  2b 22 20 39 30 30 22 29  3a e1 0d 04 a6 05 3a 0d  |+" 900"):.....:.|
00000910  04 b0 15 dd f2 65 72 72  6f 72 3a db 3a 2a 46 58  |.....error:.:*FX|
00000920  31 33 20 34 0d 04 ba 16  f6 3a f1 22 20 61 74 20  |13 4.....:." at |
00000930  6c 69 6e 65 20 22 3b 9e  3a e0 0d 04 c4 05 3a 0d  |line ";.:.....:.|
00000940  04 ce 15 dd f2 79 5f 75  70 64 61 74 65 28 59 25  |.....y_update(Y%|
00000950  2c 56 25 29 0d 04 d8 1c  63 28 59 25 2c 56 25 29  |,V%)....c(Y%,V%)|
00000960  3d 28 63 28 59 25 2c 56  25 29 2b 31 29 83 31 36  |=(c(Y%,V%)+1).16|
00000970  0d 04 e2 13 f1 8a 30 2c  38 2b 59 25 29 89 36 3b  |......0,8+Y%).6;|
00000980  59 25 3b 0d 04 ec 23 f1  8a 31 31 29 63 24 28 63  |Y%;...#..11)c$(c|
00000990  28 59 25 2c 30 29 29 8a  32 35 29 63 24 28 63 28  |(Y%,0)).25)c$(c(|
000009a0  59 25 2c 31 29 29 0d 04  f6 10 f2 68 69 67 68 6c  |Y%,1)).....highl|
000009b0  69 67 68 74 3a e1 0d 05  00 05 3a 0d 05 0a 19 dd  |ight:.....:.....|
000009c0  f2 6f 73 63 6c 69 28 24  26 37 30 30 29 3a ea 58  |.oscli($&700):.X|
000009d0  25 2c 59 25 0d 05 14 11  59 25 3d 37 3a d6 26 46  |%,Y%....Y%=7:.&F|
000009e0  46 46 37 3a e1 0d ff                              |FF7:...|
000009e7
ExtPal.m0
ExtPal.m1
ExtPal.m2
ExtPal.m4
ExtPal.m5