StarInfo/Adcock/FastFade

Home » Archimedes archive » Acorn User » AU 1998-08.adf » Regulars » StarInfo/Adcock/FastFade

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 1998-08.adf » Regulars
Filename:	StarInfo/Adcock/FastFade
Read OK:	✔
File size:	0C81 bytes
Load address:	0000
Exec address:	0000

File contents

    1REM By Mark Adcock (23/8/97)
    2RPC=1
    3IF RPC=1 THEN PROCmode("X320 Y256 G256") ELSE MODE 13
    4OFF
    5VDU 24,20*(2-RPC);20*(2-RPC);629*(2-RPC);500*(2-RPC);
    6ON ERROR REPORT:PRINT ERL:END
    7reseed=RND(-TIME)
    8DIM p 256*4
    9DIM DULR 512
   10Loop=1
   11Load1=2
   12Load2=3
   13Load3=4
   14Load4=5
   15Junk=6
   16Size=7
   17Load5=8
   18P%=DULR
   19[ OPT 2
   20;passed:
   21;r0 = base_address
   22.SSize     EQUD      320*244
   23.R10       EQUD      960
   24           LDR       Size,SSize
   25           ADD       Loop,Size,R0
   26           MOV       R9,#320
   27           LDR       R10,R10
   28           MOV       Junk,#255
   29.Loop1     LDRB      Load1,[Loop,#320*4]
   30           LDRB      Load2,[Loop,#-320*4]
   31           LDRB      Load4,[Loop,#4]
   32           LDRB      Load3,[Loop,#-4]!
   33           :
   34           ADD       Junk,Load1,Load2
   35           ADD       Junk,Junk,Load3
   36           ADD       Junk,Junk,Load4
   37           MOV       Junk,Junk,LSR#2
   38           ORR       Junk,Junk,Junk,LSL #8
   39           ORR       Junk,Junk,Junk,LSL #16
   40           STR       Junk,[Loop,#4]
   41           STR       Junk,[Loop,#324]
   42           STR       Junk,[Loop,#644]
   43           STR       Junk,[Loop,#964]
   44
   45           :
   46           SUBS      R9,R9,#4
   47           SUBEQ     Loop,Loop,R10
   48           MOVEQ     R9,#320
   49           CMP       Loop,R0
   50           BGT       Loop1
   51           MOV       R15,R14
   52]
   53BASE_ADDRESS=FNFindBaseAddress
   54TIM=0
   55A%=BASE_ADDRESS+640
   56RP%=RND(155)+100:RS%=RND(8)*SGN(RND)
   57GP%=RND(155)+100:GS%=RND(8)*SGN(RND)
   58BP%=RND(155)+100:BS%=RND(8)*SGN(RND)
   59REPEAT
   60MOUSE MX,MY,MB:IF MB THEN CIRCLE FILL MX,MY,25
   61IF TIM<=0 AND MB=0 THEN
   62GCOL 63
   63X=RND(640)*(2-RPC)
   64Y=RND(512)*(2-RPC)
   65CASE RND(2) OF
   66WHEN 1:S=(RND(100)+50)*(2-RPC):FOR L = S*0.95 TO S*1.05:CIRCLE X,Y,L:NEXT L
   67WHEN 2:S=(RND(40)+10)*(2-RPC):CIRCLE FILL X,Y,S
   68ENDCASE
   69TIM=4
   70ENDIF
   71
   72TIM-=1
   73
   74CALL DULR
   75IF RPC=1 THEN
   76RP%+=RS%
   77GP%+=GS%
   78BP%+=BS%
   79IF RP%>255 THEN RP%=255:RS%=-RND(8)
   80IF GP%>255 THEN GP%=255:GS%=-RND(8)
   81IF BP%>255 THEN BP%=255:BS%=-RND(8)
   82IF RP%<100 THEN RP%=100:RS%=RND(8)
   83IF GP%<100 THEN GP%=100:GS%=RND(8)
   84IF BP%<100 THEN BP%=100:BS%=RND(8)
   85FOR C=0TO255
   86R%=(C*RP%/255)
   87G%=(C*GP%/255)
   88B%=(C*BP%/255)
   89!(p+C*4)=(R%<<8)+(G%<<16)+(B%<<24)
   90NEXT C
   91SYS "ColourTrans_WritePalette",-1,,p
   92ENDIF
   93SYS 6,19
   94UNTIL FALSE
   95END
   96DEF FNFindBaseAddress
   97DIM input_list  8
   98DIM output_list 4
   99input_list!0 = 149
  100input_list!4 =  -1
  101SYS "OS_ReadVduVariables",input_list,output_list
  102=output_list!0
  103
  104DEF PROCmode(mode$)
  105LOCAL c$,ex,ey,mode,end
  106DIM mode 64
  107end=mode+20
  108!mode=1
  109mode!4=VAL FN_m(mode$,"X","")
  110mode!8=VAL FN_m(mode$,"Y","")
  111c$=FN_m(mode$,"C","*")
  112IF c$="*" THEN
  113 c$=FN_m(mode$,"G","")
  114 IF c$="256" !end=3:end!4=255:end+=8
  115ENDIF
  116mode!12=FN_bpp(c$)
  117mode!16=VAL FN_m(mode$,"F","-1")
  118ex=VAL FN_m(mode$,"EX","-1")
  119IF ex<>-1 !end=4:end!4=ex:end+=8
  120ey=VAL FN_m(mode$,"EY","-1")
  121IF ey<>-1 !end=5:end!4=ey:end+=8
  122!end=-1
  123MODE mode
  124ENDPROC
  125
  126DEF FN_m(s$,p$,d$)
  127LOCAL i,j
  128i=INSTR(s$,p$)
  129IF i<1 AND d$="" ERROR 490,"Missing "+p$
  130IF i<1 THEN =d$
  131j=INSTR(s$+" "," ",i+1)
  132=MID$(s$,i+1,j-i-1)
  133
  134DEF FN_bpp(n$)
  135CASE n$ OF
  136 WHEN "2":=0
  137 WHEN "4":=1
  138 WHEN "16":=2
  139 WHEN "256":=3
  140 WHEN "32T","32t","32K","32k":=4
  141 WHEN "16M","16m":=5
  142 OTHERWISE: ERROR 490,"Bad parameter "+n$
  143ENDCASE

� By Mark Adcock (23/8/97)
	RPC=1
,� RPC=1 � �mode("X320 Y256 G256") � � 13
�
7� 24,20*(2-RPC);20*(2-RPC);629*(2-RPC);500*(2-RPC);
� � �:� �:�
reseed=�(-�)

� p 256*4
	� DULR 512


Loop=1
Load1=2
Load2=3

Load3=4
Load4=5

Junk=6

Size=7
Load5=8
P%=DULR
[ OPT 2
;passed:
;r0 = base_address
 .SSize     EQUD      320*244
.R10       EQUD      960
#           LDR       Size,SSize
%           ADD       Loop,Size,R0
            MOV       R9,#320
            LDR       R10,R10
"           MOV       Junk,#255
,.Loop1     LDRB      Load1,[Loop,#320*4]
-           LDRB      Load2,[Loop,#-320*4]
(           LDRB      Load4,[Loop,#4]
 *           LDRB      Load3,[Loop,#-4]!
!           :
")           ADD       Junk,Load1,Load2
#(           ADD       Junk,Junk,Load3
$(           ADD       Junk,Junk,Load4
%(           MOV       Junk,Junk,LSR#2
&-           �R       Junk,Junk,Junk,LSL #8
'.           �R       Junk,Junk,Junk,LSL #16
('           STR       Junk,[Loop,#4]
))           STR       Junk,[Loop,#324]
*)           STR       Junk,[Loop,#644]
+)           STR       Junk,[Loop,#964]
,
-           :
.!           SUBS      R9,R9,#4
/&           SUBEQ     Loop,Loop,R10
0           �Q     R9,#320
1            CMP       Loop,R0
2           BGT       Loop1
3            MOV       R15,R14
4]
5!BASE_ADDRESS=�FindBaseAddress
6	TIM=0
7A%=BASE_ADDRESS+640
8 RP%=�(155)+100:RS%=�(8)*�(�)
9 GP%=�(155)+100:GS%=�(8)*�(�)
: BP%=�(155)+100:BS%=�(8)*�(�)
;�
<%ȗ MX,MY,MB:� MB � ȏ Ȑ MX,MY,25
=� TIM<=0 � MB=0 �
>� 63
?X=�(640)*(2-RPC)
@Y=�(512)*(2-RPC)
A
Ȏ �(2) �
B@� 1:S=(�(100)+50)*(2-RPC):� L = S*0.95 � S*1.05:ȏ X,Y,L:� L
C(� 2:S=(�(40)+10)*(2-RPC):ȏ Ȑ X,Y,S
D�
E	TIM=4
F�
G
H
TIM-=1
I
J
� DULR
K
� RPC=1 �
LRP%+=RS%
MGP%+=GS%
NBP%+=BS%
O!� RP%>255 � RP%=255:RS%=-�(8)
P!� GP%>255 � GP%=255:GS%=-�(8)
Q!� BP%>255 � BP%=255:BS%=-�(8)
R � RP%<100 � RP%=100:RS%=�(8)
S � GP%<100 � GP%=100:GS%=�(8)
T � BP%<100 � BP%=100:BS%=�(8)
U
� C=0�255
VR%=(C*RP%/255)
WG%=(C*GP%/255)
XB%=(C*BP%/255)
Y&!(p+C*4)=(R%<<8)+(G%<<16)+(B%<<24)
Z� C
['ș "ColourTrans_WritePalette",-1,,p
\�
]ș 6,19
^� �
_�
`� �FindBaseAddress
a� input_list  8
b� output_list 4
cinput_list!0 = 149
dinput_list!4 =  -1
e3ș "OS_ReadVduVariables",input_list,output_list
f=output_list!0
g
h� �mode(mode$)
i� c$,ex,ey,mode,end
j
� mode 64
kend=mode+20
l!mode=1
mmode!4=� �_m(mode$,"X","")
nmode!8=� �_m(mode$,"Y","")
oc$=�_m(mode$,"C","*")
p� c$="*" �
q c$=�_m(mode$,"G","")
r' � c$="256" !end=3:end!4=255:end+=8
s�
tmode!12=�_bpp(c$)
u!mode!16=� �_m(mode$,"F","-1")
vex=� �_m(mode$,"EX","-1")
w#� ex<>-1 !end=4:end!4=ex:end+=8
xey=� �_m(mode$,"EY","-1")
y#� ey<>-1 !end=5:end!4=ey:end+=8
z!end=-1
{
� mode
|�
}
~� �_m(s$,p$,d$)
	� i,j
�
i=�s$,p$)
�%� i<1 � d$="" � 490,"Missing "+p$
�� i<1 � =d$
�j=�s$+" "," ",i+1)
�=�s$,i+1,j-i-1)
�
�� �_bpp(n$)
�Ȏ n$ �
�
 � "2":=0
�
 � "4":=1
� � "16":=2
� � "256":=3
�! � "32T","32t","32K","32k":=4
� � "16M","16m":=5
�! : � 490,"Bad parameter "+n$
��
�

00000000  0d 00 01 1e f4 20 42 79  20 4d 61 72 6b 20 41 64  |..... By Mark Ad|
00000010  63 6f 63 6b 20 28 32 33  2f 38 2f 39 37 29 0d 00  |cock (23/8/97)..|
00000020  02 09 52 50 43 3d 31 0d  00 03 2c e7 20 52 50 43  |..RPC=1...,. RPC|
00000030  3d 31 20 8c 20 f2 6d 6f  64 65 28 22 58 33 32 30  |=1 . .mode("X320|
00000040  20 59 32 35 36 20 47 32  35 36 22 29 20 8b 20 eb  | Y256 G256") . .|
00000050  20 31 33 0d 00 04 05 87  0d 00 05 37 ef 20 32 34  | 13........7. 24|
00000060  2c 32 30 2a 28 32 2d 52  50 43 29 3b 32 30 2a 28  |,20*(2-RPC);20*(|
00000070  32 2d 52 50 43 29 3b 36  32 39 2a 28 32 2d 52 50  |2-RPC);629*(2-RP|
00000080  43 29 3b 35 30 30 2a 28  32 2d 52 50 43 29 3b 0d  |C);500*(2-RPC);.|
00000090  00 06 0f ee 20 85 20 f6  3a f1 20 9e 3a e0 0d 00  |.... . .:. .:...|
000000a0  07 10 72 65 73 65 65 64  3d b3 28 2d 91 29 0d 00  |..reseed=.(-.)..|
000000b0  08 0d de 20 70 20 32 35  36 2a 34 0d 00 09 0e de  |... p 256*4.....|
000000c0  20 44 55 4c 52 20 35 31  32 0d 00 0a 0a 4c 6f 6f  | DULR 512....Loo|
000000d0  70 3d 31 0d 00 0b 0b 4c  6f 61 64 31 3d 32 0d 00  |p=1....Load1=2..|
000000e0  0c 0b 4c 6f 61 64 32 3d  33 0d 00 0d 0b 4c 6f 61  |..Load2=3....Loa|
000000f0  64 33 3d 34 0d 00 0e 0b  4c 6f 61 64 34 3d 35 0d  |d3=4....Load4=5.|
00000100  00 0f 0a 4a 75 6e 6b 3d  36 0d 00 10 0a 53 69 7a  |...Junk=6....Siz|
00000110  65 3d 37 0d 00 11 0b 4c  6f 61 64 35 3d 38 0d 00  |e=7....Load5=8..|
00000120  12 0b 50 25 3d 44 55 4c  52 0d 00 13 0b 5b 20 4f  |..P%=DULR....[ O|
00000130  50 54 20 32 0d 00 14 0c  3b 70 61 73 73 65 64 3a  |PT 2....;passed:|
00000140  0d 00 15 16 3b 72 30 20  3d 20 62 61 73 65 5f 61  |....;r0 = base_a|
00000150  64 64 72 65 73 73 0d 00  16 20 2e 53 53 69 7a 65  |ddress... .SSize|
00000160  20 20 20 20 20 45 51 55  44 20 20 20 20 20 20 33  |     EQUD      3|
00000170  32 30 2a 32 34 34 0d 00  17 1c 2e 52 31 30 20 20  |20*244.....R10  |
00000180  20 20 20 20 20 45 51 55  44 20 20 20 20 20 20 39  |     EQUD      9|
00000190  36 30 0d 00 18 23 20 20  20 20 20 20 20 20 20 20  |60...#          |
000001a0  20 4c 44 52 20 20 20 20  20 20 20 53 69 7a 65 2c  | LDR       Size,|
000001b0  53 53 69 7a 65 0d 00 19  25 20 20 20 20 20 20 20  |SSize...%       |
000001c0  20 20 20 20 41 44 44 20  20 20 20 20 20 20 4c 6f  |    ADD       Lo|
000001d0  6f 70 2c 53 69 7a 65 2c  52 30 0d 00 1a 20 20 20  |op,Size,R0...   |
000001e0  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
000001f0  20 20 20 52 39 2c 23 33  32 30 0d 00 1b 20 20 20  |   R9,#320...   |
00000200  20 20 20 20 20 20 20 20  20 4c 44 52 20 20 20 20  |         LDR    |
00000210  20 20 20 52 31 30 2c 52  31 30 0d 00 1c 22 20 20  |   R10,R10..."  |
00000220  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00000230  20 20 20 4a 75 6e 6b 2c  23 32 35 35 0d 00 1d 2c  |   Junk,#255...,|
00000240  2e 4c 6f 6f 70 31 20 20  20 20 20 4c 44 52 42 20  |.Loop1     LDRB |
00000250  20 20 20 20 20 4c 6f 61  64 31 2c 5b 4c 6f 6f 70  |     Load1,[Loop|
00000260  2c 23 33 32 30 2a 34 5d  0d 00 1e 2d 20 20 20 20  |,#320*4]...-    |
00000270  20 20 20 20 20 20 20 4c  44 52 42 20 20 20 20 20  |       LDRB     |
00000280  20 4c 6f 61 64 32 2c 5b  4c 6f 6f 70 2c 23 2d 33  | Load2,[Loop,#-3|
00000290  32 30 2a 34 5d 0d 00 1f  28 20 20 20 20 20 20 20  |20*4]...(       |
000002a0  20 20 20 20 4c 44 52 42  20 20 20 20 20 20 4c 6f  |    LDRB      Lo|
000002b0  61 64 34 2c 5b 4c 6f 6f  70 2c 23 34 5d 0d 00 20  |ad4,[Loop,#4].. |
000002c0  2a 20 20 20 20 20 20 20  20 20 20 20 4c 44 52 42  |*           LDRB|
000002d0  20 20 20 20 20 20 4c 6f  61 64 33 2c 5b 4c 6f 6f  |      Load3,[Loo|
000002e0  70 2c 23 2d 34 5d 21 0d  00 21 10 20 20 20 20 20  |p,#-4]!..!.     |
000002f0  20 20 20 20 20 20 3a 0d  00 22 29 20 20 20 20 20  |      :..")     |
00000300  20 20 20 20 20 20 41 44  44 20 20 20 20 20 20 20  |      ADD       |
00000310  4a 75 6e 6b 2c 4c 6f 61  64 31 2c 4c 6f 61 64 32  |Junk,Load1,Load2|
00000320  0d 00 23 28 20 20 20 20  20 20 20 20 20 20 20 41  |..#(           A|
00000330  44 44 20 20 20 20 20 20  20 4a 75 6e 6b 2c 4a 75  |DD       Junk,Ju|
00000340  6e 6b 2c 4c 6f 61 64 33  0d 00 24 28 20 20 20 20  |nk,Load3..$(    |
00000350  20 20 20 20 20 20 20 41  44 44 20 20 20 20 20 20  |       ADD      |
00000360  20 4a 75 6e 6b 2c 4a 75  6e 6b 2c 4c 6f 61 64 34  | Junk,Junk,Load4|
00000370  0d 00 25 28 20 20 20 20  20 20 20 20 20 20 20 4d  |..%(           M|
00000380  4f 56 20 20 20 20 20 20  20 4a 75 6e 6b 2c 4a 75  |OV       Junk,Ju|
00000390  6e 6b 2c 4c 53 52 23 32  0d 00 26 2d 20 20 20 20  |nk,LSR#2..&-    |
000003a0  20 20 20 20 20 20 20 84  52 20 20 20 20 20 20 20  |       .R       |
000003b0  4a 75 6e 6b 2c 4a 75 6e  6b 2c 4a 75 6e 6b 2c 4c  |Junk,Junk,Junk,L|
000003c0  53 4c 20 23 38 0d 00 27  2e 20 20 20 20 20 20 20  |SL #8..'.       |
000003d0  20 20 20 20 84 52 20 20  20 20 20 20 20 4a 75 6e  |    .R       Jun|
000003e0  6b 2c 4a 75 6e 6b 2c 4a  75 6e 6b 2c 4c 53 4c 20  |k,Junk,Junk,LSL |
000003f0  23 31 36 0d 00 28 27 20  20 20 20 20 20 20 20 20  |#16..('         |
00000400  20 20 53 54 52 20 20 20  20 20 20 20 4a 75 6e 6b  |  STR       Junk|
00000410  2c 5b 4c 6f 6f 70 2c 23  34 5d 0d 00 29 29 20 20  |,[Loop,#4]..))  |
00000420  20 20 20 20 20 20 20 20  20 53 54 52 20 20 20 20  |         STR    |
00000430  20 20 20 4a 75 6e 6b 2c  5b 4c 6f 6f 70 2c 23 33  |   Junk,[Loop,#3|
00000440  32 34 5d 0d 00 2a 29 20  20 20 20 20 20 20 20 20  |24]..*)         |
00000450  20 20 53 54 52 20 20 20  20 20 20 20 4a 75 6e 6b  |  STR       Junk|
00000460  2c 5b 4c 6f 6f 70 2c 23  36 34 34 5d 0d 00 2b 29  |,[Loop,#644]..+)|
00000470  20 20 20 20 20 20 20 20  20 20 20 53 54 52 20 20  |           STR  |
00000480  20 20 20 20 20 4a 75 6e  6b 2c 5b 4c 6f 6f 70 2c  |     Junk,[Loop,|
00000490  23 39 36 34 5d 0d 00 2c  04 0d 00 2d 10 20 20 20  |#964]..,...-.   |
000004a0  20 20 20 20 20 20 20 20  3a 0d 00 2e 21 20 20 20  |        :...!   |
000004b0  20 20 20 20 20 20 20 20  53 55 42 53 20 20 20 20  |        SUBS    |
000004c0  20 20 52 39 2c 52 39 2c  23 34 0d 00 2f 26 20 20  |  R9,R9,#4../&  |
000004d0  20 20 20 20 20 20 20 20  20 53 55 42 45 51 20 20  |         SUBEQ  |
000004e0  20 20 20 4c 6f 6f 70 2c  4c 6f 6f 70 2c 52 31 30  |   Loop,Loop,R10|
000004f0  0d 00 30 1d 20 20 20 20  20 20 20 20 20 20 20 ec  |..0.           .|
00000500  51 20 20 20 20 20 52 39  2c 23 33 32 30 0d 00 31  |Q     R9,#320..1|
00000510  20 20 20 20 20 20 20 20  20 20 20 20 43 4d 50 20  |            CMP |
00000520  20 20 20 20 20 20 4c 6f  6f 70 2c 52 30 0d 00 32  |      Loop,R0..2|
00000530  1e 20 20 20 20 20 20 20  20 20 20 20 42 47 54 20  |.           BGT |
00000540  20 20 20 20 20 20 4c 6f  6f 70 31 0d 00 33 20 20  |      Loop1..3  |
00000550  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00000560  20 20 20 20 52 31 35 2c  52 31 34 0d 00 34 05 5d  |    R15,R14..4.]|
00000570  0d 00 35 21 42 41 53 45  5f 41 44 44 52 45 53 53  |..5!BASE_ADDRESS|
00000580  3d a4 46 69 6e 64 42 61  73 65 41 64 64 72 65 73  |=.FindBaseAddres|
00000590  73 0d 00 36 09 54 49 4d  3d 30 0d 00 37 17 41 25  |s..6.TIM=0..7.A%|
000005a0  3d 42 41 53 45 5f 41 44  44 52 45 53 53 2b 36 34  |=BASE_ADDRESS+64|
000005b0  30 0d 00 38 20 52 50 25  3d b3 28 31 35 35 29 2b  |0..8 RP%=.(155)+|
000005c0  31 30 30 3a 52 53 25 3d  b3 28 38 29 2a b4 28 b3  |100:RS%=.(8)*.(.|
000005d0  29 0d 00 39 20 47 50 25  3d b3 28 31 35 35 29 2b  |)..9 GP%=.(155)+|
000005e0  31 30 30 3a 47 53 25 3d  b3 28 38 29 2a b4 28 b3  |100:GS%=.(8)*.(.|
000005f0  29 0d 00 3a 20 42 50 25  3d b3 28 31 35 35 29 2b  |)..: BP%=.(155)+|
00000600  31 30 30 3a 42 53 25 3d  b3 28 38 29 2a b4 28 b3  |100:BS%=.(8)*.(.|
00000610  29 0d 00 3b 05 f5 0d 00  3c 25 c8 97 20 4d 58 2c  |)..;....<%.. MX,|
00000620  4d 59 2c 4d 42 3a e7 20  4d 42 20 8c 20 c8 8f 20  |MY,MB:. MB . .. |
00000630  c8 90 20 4d 58 2c 4d 59  2c 32 35 0d 00 3d 15 e7  |.. MX,MY,25..=..|
00000640  20 54 49 4d 3c 3d 30 20  80 20 4d 42 3d 30 20 8c  | TIM<=0 . MB=0 .|
00000650  0d 00 3e 08 e6 20 36 33  0d 00 3f 14 58 3d b3 28  |..>.. 63..?.X=.(|
00000660  36 34 30 29 2a 28 32 2d  52 50 43 29 0d 00 40 14  |640)*(2-RPC)..@.|
00000670  59 3d b3 28 35 31 32 29  2a 28 32 2d 52 50 43 29  |Y=.(512)*(2-RPC)|
00000680  0d 00 41 0d c8 8e 20 b3  28 32 29 20 ca 0d 00 42  |..A... .(2) ...B|
00000690  40 c9 20 31 3a 53 3d 28  b3 28 31 30 30 29 2b 35  |@. 1:S=(.(100)+5|
000006a0  30 29 2a 28 32 2d 52 50  43 29 3a e3 20 4c 20 3d  |0)*(2-RPC):. L =|
000006b0  20 53 2a 30 2e 39 35 20  b8 20 53 2a 31 2e 30 35  | S*0.95 . S*1.05|
000006c0  3a c8 8f 20 58 2c 59 2c  4c 3a ed 20 4c 0d 00 43  |:.. X,Y,L:. L..C|
000006d0  28 c9 20 32 3a 53 3d 28  b3 28 34 30 29 2b 31 30  |(. 2:S=(.(40)+10|
000006e0  29 2a 28 32 2d 52 50 43  29 3a c8 8f 20 c8 90 20  |)*(2-RPC):.. .. |
000006f0  58 2c 59 2c 53 0d 00 44  05 cb 0d 00 45 09 54 49  |X,Y,S..D....E.TI|
00000700  4d 3d 34 0d 00 46 05 cd  0d 00 47 04 0d 00 48 0a  |M=4..F....G...H.|
00000710  54 49 4d 2d 3d 31 0d 00  49 04 0d 00 4a 0a d6 20  |TIM-=1..I...J.. |
00000720  44 55 4c 52 0d 00 4b 0d  e7 20 52 50 43 3d 31 20  |DULR..K.. RPC=1 |
00000730  8c 0d 00 4c 0c 52 50 25  2b 3d 52 53 25 0d 00 4d  |...L.RP%+=RS%..M|
00000740  0c 47 50 25 2b 3d 47 53  25 0d 00 4e 0c 42 50 25  |.GP%+=GS%..N.BP%|
00000750  2b 3d 42 53 25 0d 00 4f  21 e7 20 52 50 25 3e 32  |+=BS%..O!. RP%>2|
00000760  35 35 20 8c 20 52 50 25  3d 32 35 35 3a 52 53 25  |55 . RP%=255:RS%|
00000770  3d 2d b3 28 38 29 0d 00  50 21 e7 20 47 50 25 3e  |=-.(8)..P!. GP%>|
00000780  32 35 35 20 8c 20 47 50  25 3d 32 35 35 3a 47 53  |255 . GP%=255:GS|
00000790  25 3d 2d b3 28 38 29 0d  00 51 21 e7 20 42 50 25  |%=-.(8)..Q!. BP%|
000007a0  3e 32 35 35 20 8c 20 42  50 25 3d 32 35 35 3a 42  |>255 . BP%=255:B|
000007b0  53 25 3d 2d b3 28 38 29  0d 00 52 20 e7 20 52 50  |S%=-.(8)..R . RP|
000007c0  25 3c 31 30 30 20 8c 20  52 50 25 3d 31 30 30 3a  |%<100 . RP%=100:|
000007d0  52 53 25 3d b3 28 38 29  0d 00 53 20 e7 20 47 50  |RS%=.(8)..S . GP|
000007e0  25 3c 31 30 30 20 8c 20  47 50 25 3d 31 30 30 3a  |%<100 . GP%=100:|
000007f0  47 53 25 3d b3 28 38 29  0d 00 54 20 e7 20 42 50  |GS%=.(8)..T . BP|
00000800  25 3c 31 30 30 20 8c 20  42 50 25 3d 31 30 30 3a  |%<100 . BP%=100:|
00000810  42 53 25 3d b3 28 38 29  0d 00 55 0d e3 20 43 3d  |BS%=.(8)..U.. C=|
00000820  30 b8 32 35 35 0d 00 56  12 52 25 3d 28 43 2a 52  |0.255..V.R%=(C*R|
00000830  50 25 2f 32 35 35 29 0d  00 57 12 47 25 3d 28 43  |P%/255)..W.G%=(C|
00000840  2a 47 50 25 2f 32 35 35  29 0d 00 58 12 42 25 3d  |*GP%/255)..X.B%=|
00000850  28 43 2a 42 50 25 2f 32  35 35 29 0d 00 59 26 21  |(C*BP%/255)..Y&!|
00000860  28 70 2b 43 2a 34 29 3d  28 52 25 3c 3c 38 29 2b  |(p+C*4)=(R%<<8)+|
00000870  28 47 25 3c 3c 31 36 29  2b 28 42 25 3c 3c 32 34  |(G%<<16)+(B%<<24|
00000880  29 0d 00 5a 07 ed 20 43  0d 00 5b 27 c8 99 20 22  |)..Z.. C..['.. "|
00000890  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 57 72 69 74  |ColourTrans_Writ|
000008a0  65 50 61 6c 65 74 74 65  22 2c 2d 31 2c 2c 70 0d  |ePalette",-1,,p.|
000008b0  00 5c 05 cd 0d 00 5d 0b  c8 99 20 36 2c 31 39 0d  |.\....]... 6,19.|
000008c0  00 5e 07 fd 20 a3 0d 00  5f 05 e0 0d 00 60 16 dd  |.^.. ..._....`..|
000008d0  20 a4 46 69 6e 64 42 61  73 65 41 64 64 72 65 73  | .FindBaseAddres|
000008e0  73 0d 00 61 13 de 20 69  6e 70 75 74 5f 6c 69 73  |s..a.. input_lis|
000008f0  74 20 20 38 0d 00 62 13  de 20 6f 75 74 70 75 74  |t  8..b.. output|
00000900  5f 6c 69 73 74 20 34 0d  00 63 16 69 6e 70 75 74  |_list 4..c.input|
00000910  5f 6c 69 73 74 21 30 20  3d 20 31 34 39 0d 00 64  |_list!0 = 149..d|
00000920  16 69 6e 70 75 74 5f 6c  69 73 74 21 34 20 3d 20  |.input_list!4 = |
00000930  20 2d 31 0d 00 65 33 c8  99 20 22 4f 53 5f 52 65  | -1..e3.. "OS_Re|
00000940  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 2c  |adVduVariables",|
00000950  69 6e 70 75 74 5f 6c 69  73 74 2c 6f 75 74 70 75  |input_list,outpu|
00000960  74 5f 6c 69 73 74 0d 00  66 12 3d 6f 75 74 70 75  |t_list..f.=outpu|
00000970  74 5f 6c 69 73 74 21 30  0d 00 67 04 0d 00 68 12  |t_list!0..g...h.|
00000980  dd 20 f2 6d 6f 64 65 28  6d 6f 64 65 24 29 0d 00  |. .mode(mode$)..|
00000990  69 17 ea 20 63 24 2c 65  78 2c 65 79 2c 6d 6f 64  |i.. c$,ex,ey,mod|
000009a0  65 2c 65 6e 64 0d 00 6a  0d de 20 6d 6f 64 65 20  |e,end..j.. mode |
000009b0  36 34 0d 00 6b 0f 65 6e  64 3d 6d 6f 64 65 2b 32  |64..k.end=mode+2|
000009c0  30 0d 00 6c 0b 21 6d 6f  64 65 3d 31 0d 00 6d 1e  |0..l.!mode=1..m.|
000009d0  6d 6f 64 65 21 34 3d bb  20 a4 5f 6d 28 6d 6f 64  |mode!4=. ._m(mod|
000009e0  65 24 2c 22 58 22 2c 22  22 29 0d 00 6e 1e 6d 6f  |e$,"X","")..n.mo|
000009f0  64 65 21 38 3d bb 20 a4  5f 6d 28 6d 6f 64 65 24  |de!8=. ._m(mode$|
00000a00  2c 22 59 22 2c 22 22 29  0d 00 6f 19 63 24 3d a4  |,"Y","")..o.c$=.|
00000a10  5f 6d 28 6d 6f 64 65 24  2c 22 43 22 2c 22 2a 22  |_m(mode$,"C","*"|
00000a20  29 0d 00 70 0e e7 20 63  24 3d 22 2a 22 20 8c 0d  |)..p.. c$="*" ..|
00000a30  00 71 19 20 63 24 3d a4  5f 6d 28 6d 6f 64 65 24  |.q. c$=._m(mode$|
00000a40  2c 22 47 22 2c 22 22 29  0d 00 72 27 20 e7 20 63  |,"G","")..r' . c|
00000a50  24 3d 22 32 35 36 22 20  21 65 6e 64 3d 33 3a 65  |$="256" !end=3:e|
00000a60  6e 64 21 34 3d 32 35 35  3a 65 6e 64 2b 3d 38 0d  |nd!4=255:end+=8.|
00000a70  00 73 05 cd 0d 00 74 15  6d 6f 64 65 21 31 32 3d  |.s....t.mode!12=|
00000a80  a4 5f 62 70 70 28 63 24  29 0d 00 75 21 6d 6f 64  |._bpp(c$)..u!mod|
00000a90  65 21 31 36 3d bb 20 a4  5f 6d 28 6d 6f 64 65 24  |e!16=. ._m(mode$|
00000aa0  2c 22 46 22 2c 22 2d 31  22 29 0d 00 76 1d 65 78  |,"F","-1")..v.ex|
00000ab0  3d bb 20 a4 5f 6d 28 6d  6f 64 65 24 2c 22 45 58  |=. ._m(mode$,"EX|
00000ac0  22 2c 22 2d 31 22 29 0d  00 77 23 e7 20 65 78 3c  |","-1")..w#. ex<|
00000ad0  3e 2d 31 20 21 65 6e 64  3d 34 3a 65 6e 64 21 34  |>-1 !end=4:end!4|
00000ae0  3d 65 78 3a 65 6e 64 2b  3d 38 0d 00 78 1d 65 79  |=ex:end+=8..x.ey|
00000af0  3d bb 20 a4 5f 6d 28 6d  6f 64 65 24 2c 22 45 59  |=. ._m(mode$,"EY|
00000b00  22 2c 22 2d 31 22 29 0d  00 79 23 e7 20 65 79 3c  |","-1")..y#. ey<|
00000b10  3e 2d 31 20 21 65 6e 64  3d 35 3a 65 6e 64 21 34  |>-1 !end=5:end!4|
00000b20  3d 65 79 3a 65 6e 64 2b  3d 38 0d 00 7a 0b 21 65  |=ey:end+=8..z.!e|
00000b30  6e 64 3d 2d 31 0d 00 7b  0a eb 20 6d 6f 64 65 0d  |nd=-1..{.. mode.|
00000b40  00 7c 05 e1 0d 00 7d 04  0d 00 7e 13 dd 20 a4 5f  |.|....}...~.. ._|
00000b50  6d 28 73 24 2c 70 24 2c  64 24 29 0d 00 7f 09 ea  |m(s$,p$,d$).....|
00000b60  20 69 2c 6a 0d 00 80 0d  69 3d a7 73 24 2c 70 24  | i,j....i=.s$,p$|
00000b70  29 0d 00 81 25 e7 20 69  3c 31 20 80 20 64 24 3d  |)...%. i<1 . d$=|
00000b80  22 22 20 85 20 34 39 30  2c 22 4d 69 73 73 69 6e  |"" . 490,"Missin|
00000b90  67 20 22 2b 70 24 0d 00  82 0f e7 20 69 3c 31 20  |g "+p$..... i<1 |
00000ba0  8c 20 3d 64 24 0d 00 83  16 6a 3d a7 73 24 2b 22  |. =d$....j=.s$+"|
00000bb0  20 22 2c 22 20 22 2c 69  2b 31 29 0d 00 84 13 3d  | "," ",i+1)....=|
00000bc0  c1 73 24 2c 69 2b 31 2c  6a 2d 69 2d 31 29 0d 00  |.s$,i+1,j-i-1)..|
00000bd0  85 04 0d 00 86 0f dd 20  a4 5f 62 70 70 28 6e 24  |....... ._bpp(n$|
00000be0  29 0d 00 87 0b c8 8e 20  6e 24 20 ca 0d 00 88 0d  |)...... n$ .....|
00000bf0  20 c9 20 22 32 22 3a 3d  30 0d 00 89 0d 20 c9 20  | . "2":=0.... . |
00000c00  22 34 22 3a 3d 31 0d 00  8a 0e 20 c9 20 22 31 36  |"4":=1.... . "16|
00000c10  22 3a 3d 32 0d 00 8b 0f  20 c9 20 22 32 35 36 22  |":=2.... . "256"|
00000c20  3a 3d 33 0d 00 8c 21 20  c9 20 22 33 32 54 22 2c  |:=3...! . "32T",|
00000c30  22 33 32 74 22 2c 22 33  32 4b 22 2c 22 33 32 6b  |"32t","32K","32k|
00000c40  22 3a 3d 34 0d 00 8d 15  20 c9 20 22 31 36 4d 22  |":=4.... . "16M"|
00000c50  2c 22 31 36 6d 22 3a 3d  35 0d 00 8e 21 20 7f 3a  |,"16m":=5...! .:|
00000c60  20 85 20 34 39 30 2c 22  42 61 64 20 70 61 72 61  | . 490,"Bad para|
00000c70  6d 65 74 65 72 20 22 2b  6e 24 0d 00 8f 05 cb 0d  |meter "+n$......|
00000c80  ff                                                |.|
00000c81

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