StarInfo/Adcock/SlowFade

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

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

� By Mark Adcock (23/8/97)

rpc%=1
-� rpc%=1 � �mode("X320 Y256 G256") � � 13
�
;� 24,10*(2-rpc%);10*(2-rpc%);629*(2-rpc%);500*(2-rpc%);
� � �:� �:�
reseed=�(-�)
RP=�(155)+100
	GP=�(155)+100

BP=�(155)+100

� 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*245
.R10       EQUD      960
#           LDR       Size,SSize
%           ADD       Loop,Size,R0
            MOV       R9,#320
            LDR       R10,R10
+.Loop1     LDRB      Load1,[Loop,#1280]
 B           LDRB      Load2,[Loop,#-1280]                      
!3           LDRB      Load4,[Loop,#1]           
"*           LDRB      Load3,[Loop,#-1]!
#           :
$)           ADD       Junk,Load1,Load2
%(           ADD       Junk,Junk,Load3
&(           ADD       Junk,Junk,Load4
'3           MOV       Junk,Junk,LSR#2           
('           STRB      Junk,[Loop,#1]
))           STRB      Junk,[Loop,#321]
*)           STRB      Junk,[Loop,#641]
+4           STRB      Junk,[Loop,#961]           
,           :
-,           SUBS      R9,R9,#1           
.&           SUBEQ     Loop,Loop,R10
/9           �Q     R9,#320                            
0            CMP       Loop,R0
1           BGT       Loop1
2            MOV       R15,R14
3]
4!BASE_ADDRESS=�FindBaseAddress
5A%=BASE_ADDRESS+1279
6	TIM=0
7RP%=�(255):RS%=�(8)*�(�)
8GP%=�(255):GS%=�(8)*�(�)
9BP%=�(255):BS%=�(8)*�(�)
:�
;%ȗ MX,MY,MB:� MB � ȏ Ȑ MX,MY,25
<� TIM<=0 � MB=0 �
=� 63
>X=�(640)*(2-rpc%)
?Y=�(512)*(2-rpc%)
@
Ȏ �(2) �
AA� 1:S=(�(100)+50)*(2-rpc%):� L = S*0.95 � S*1.05:ȏ X,Y,L:� L
B)� 2:S=(�(40)+10)*(2-rpc%):ȏ Ȑ X,Y,S
C�
D	TIM=4
E�
F
G
TIM-=1
H
� DULR
I:
J� rpc%=1 �
KRP%+=RS%
LGP%+=GS%
MBP%+=BS%
N!� RP%>255 � RP%=255:RS%=-�(8)
O!� GP%>255 � GP%=255:GS%=-�(8)
P!� BP%>255 � BP%=255:BS%=-�(8)
Q� RP%<0 � RP%=0:RS%=�(8)
R� GP%<0 � GP%=0:GS%=�(8)
S� BP%<0 � BP%=0:BS%=�(8)
T
� C=0�255
UR%=(C*RP%/255)
VG%=(C*GP%/255)
WB%=(C*BP%/255)
X&!(p+C*4)=(R%<<8)+(G%<<16)+(B%<<24)
Y� C
Z'ș "ColourTrans_WritePalette",-1,,p
[�
\ș 6,19
]� �
^�
_� �FindBaseAddress
`� input_list  8
a� output_list 4
binput_list!0 = 149
cinput_list!4 =  -1
d3ș "OS_ReadVduVariables",input_list,output_list
e=output_list!0
f
g� �mode(mode$)
h� c$,ex,ey,mode,end
i
� mode 64
jend=mode+20
k!mode=1
lmode!4=� �_m(mode$,"X","")
mmode!8=� �_m(mode$,"Y","")
nc$=�_m(mode$,"C","*")
o� c$="*" �
p c$=�_m(mode$,"G","")
q' � c$="256" !end=3:end!4=255:end+=8
r�
smode!12=�_bpp(c$)
t!mode!16=� �_m(mode$,"F","-1")
uex=� �_m(mode$,"EX","-1")
v#� ex<>-1 !end=4:end!4=ex:end+=8
wey=� �_m(mode$,"EY","-1")
x#� ey<>-1 !end=5:end!4=ey:end+=8
y!end=-1
z
� 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 0a 72 70 63 25 3d 31  0d 00 03 2d e7 20 72 70  |..rpc%=1...-. rp|
00000030  63 25 3d 31 20 8c 20 f2  6d 6f 64 65 28 22 58 33  |c%=1 . .mode("X3|
00000040  32 30 20 59 32 35 36 20  47 32 35 36 22 29 20 8b  |20 Y256 G256") .|
00000050  20 eb 20 31 33 0d 00 04  05 87 0d 00 05 3b ef 20  | . 13........;. |
00000060  32 34 2c 31 30 2a 28 32  2d 72 70 63 25 29 3b 31  |24,10*(2-rpc%);1|
00000070  30 2a 28 32 2d 72 70 63  25 29 3b 36 32 39 2a 28  |0*(2-rpc%);629*(|
00000080  32 2d 72 70 63 25 29 3b  35 30 30 2a 28 32 2d 72  |2-rpc%);500*(2-r|
00000090  70 63 25 29 3b 0d 00 06  0f ee 20 85 20 f6 3a f1  |pc%);..... . .:.|
000000a0  20 9e 3a e0 0d 00 07 10  72 65 73 65 65 64 3d b3  | .:.....reseed=.|
000000b0  28 2d 91 29 0d 00 08 11  52 50 3d b3 28 31 35 35  |(-.)....RP=.(155|
000000c0  29 2b 31 30 30 0d 00 09  11 47 50 3d b3 28 31 35  |)+100....GP=.(15|
000000d0  35 29 2b 31 30 30 0d 00  0a 11 42 50 3d b3 28 31  |5)+100....BP=.(1|
000000e0  35 35 29 2b 31 30 30 0d  00 0b 0d de 20 70 20 32  |55)+100..... p 2|
000000f0  35 36 2a 34 0d 00 0c 0e  de 20 44 55 4c 52 20 35  |56*4..... DULR 5|
00000100  31 32 0d 00 0d 0a 4c 6f  6f 70 3d 31 0d 00 0e 0b  |12....Loop=1....|
00000110  4c 6f 61 64 31 3d 32 0d  00 0f 0b 4c 6f 61 64 32  |Load1=2....Load2|
00000120  3d 33 0d 00 10 0b 4c 6f  61 64 33 3d 34 0d 00 11  |=3....Load3=4...|
00000130  0b 4c 6f 61 64 34 3d 35  0d 00 12 0a 4a 75 6e 6b  |.Load4=5....Junk|
00000140  3d 36 0d 00 13 0a 53 69  7a 65 3d 37 0d 00 14 0b  |=6....Size=7....|
00000150  4c 6f 61 64 35 3d 38 0d  00 15 0b 50 25 3d 44 55  |Load5=8....P%=DU|
00000160  4c 52 0d 00 16 0b 5b 20  4f 50 54 20 32 0d 00 17  |LR....[ OPT 2...|
00000170  0c 3b 70 61 73 73 65 64  3a 0d 00 18 16 3b 72 30  |.;passed:....;r0|
00000180  20 3d 20 62 61 73 65 5f  61 64 64 72 65 73 73 0d  | = base_address.|
00000190  00 19 20 2e 53 53 69 7a  65 20 20 20 20 20 45 51  |.. .SSize     EQ|
000001a0  55 44 20 20 20 20 20 20  33 32 30 2a 32 34 35 0d  |UD      320*245.|
000001b0  00 1a 1c 2e 52 31 30 20  20 20 20 20 20 20 45 51  |....R10       EQ|
000001c0  55 44 20 20 20 20 20 20  39 36 30 0d 00 1b 23 20  |UD      960...# |
000001d0  20 20 20 20 20 20 20 20  20 20 4c 44 52 20 20 20  |          LDR   |
000001e0  20 20 20 20 53 69 7a 65  2c 53 53 69 7a 65 0d 00  |    Size,SSize..|
000001f0  1c 25 20 20 20 20 20 20  20 20 20 20 20 41 44 44  |.%           ADD|
00000200  20 20 20 20 20 20 20 4c  6f 6f 70 2c 53 69 7a 65  |       Loop,Size|
00000210  2c 52 30 0d 00 1d 20 20  20 20 20 20 20 20 20 20  |,R0...          |
00000220  20 20 4d 4f 56 20 20 20  20 20 20 20 52 39 2c 23  |  MOV       R9,#|
00000230  33 32 30 0d 00 1e 20 20  20 20 20 20 20 20 20 20  |320...          |
00000240  20 20 4c 44 52 20 20 20  20 20 20 20 52 31 30 2c  |  LDR       R10,|
00000250  52 31 30 0d 00 1f 2b 2e  4c 6f 6f 70 31 20 20 20  |R10...+.Loop1   |
00000260  20 20 4c 44 52 42 20 20  20 20 20 20 4c 6f 61 64  |  LDRB      Load|
00000270  31 2c 5b 4c 6f 6f 70 2c  23 31 32 38 30 5d 0d 00  |1,[Loop,#1280]..|
00000280  20 42 20 20 20 20 20 20  20 20 20 20 20 4c 44 52  | B           LDR|
00000290  42 20 20 20 20 20 20 4c  6f 61 64 32 2c 5b 4c 6f  |B      Load2,[Lo|
000002a0  6f 70 2c 23 2d 31 32 38  30 5d 20 20 20 20 20 20  |op,#-1280]      |
000002b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002c0  0d 00 21 33 20 20 20 20  20 20 20 20 20 20 20 4c  |..!3           L|
000002d0  44 52 42 20 20 20 20 20  20 4c 6f 61 64 34 2c 5b  |DRB      Load4,[|
000002e0  4c 6f 6f 70 2c 23 31 5d  20 20 20 20 20 20 20 20  |Loop,#1]        |
000002f0  20 20 20 0d 00 22 2a 20  20 20 20 20 20 20 20 20  |   .."*         |
00000300  20 20 4c 44 52 42 20 20  20 20 20 20 4c 6f 61 64  |  LDRB      Load|
00000310  33 2c 5b 4c 6f 6f 70 2c  23 2d 31 5d 21 0d 00 23  |3,[Loop,#-1]!..#|
00000320  10 20 20 20 20 20 20 20  20 20 20 20 3a 0d 00 24  |.           :..$|
00000330  29 20 20 20 20 20 20 20  20 20 20 20 41 44 44 20  |)           ADD |
00000340  20 20 20 20 20 20 4a 75  6e 6b 2c 4c 6f 61 64 31  |      Junk,Load1|
00000350  2c 4c 6f 61 64 32 0d 00  25 28 20 20 20 20 20 20  |,Load2..%(      |
00000360  20 20 20 20 20 41 44 44  20 20 20 20 20 20 20 4a  |     ADD       J|
00000370  75 6e 6b 2c 4a 75 6e 6b  2c 4c 6f 61 64 33 0d 00  |unk,Junk,Load3..|
00000380  26 28 20 20 20 20 20 20  20 20 20 20 20 41 44 44  |&(           ADD|
00000390  20 20 20 20 20 20 20 4a  75 6e 6b 2c 4a 75 6e 6b  |       Junk,Junk|
000003a0  2c 4c 6f 61 64 34 0d 00  27 33 20 20 20 20 20 20  |,Load4..'3      |
000003b0  20 20 20 20 20 4d 4f 56  20 20 20 20 20 20 20 4a  |     MOV       J|
000003c0  75 6e 6b 2c 4a 75 6e 6b  2c 4c 53 52 23 32 20 20  |unk,Junk,LSR#2  |
000003d0  20 20 20 20 20 20 20 20  20 0d 00 28 27 20 20 20  |         ..('   |
000003e0  20 20 20 20 20 20 20 20  53 54 52 42 20 20 20 20  |        STRB    |
000003f0  20 20 4a 75 6e 6b 2c 5b  4c 6f 6f 70 2c 23 31 5d  |  Junk,[Loop,#1]|
00000400  0d 00 29 29 20 20 20 20  20 20 20 20 20 20 20 53  |..))           S|
00000410  54 52 42 20 20 20 20 20  20 4a 75 6e 6b 2c 5b 4c  |TRB      Junk,[L|
00000420  6f 6f 70 2c 23 33 32 31  5d 0d 00 2a 29 20 20 20  |oop,#321]..*)   |
00000430  20 20 20 20 20 20 20 20  53 54 52 42 20 20 20 20  |        STRB    |
00000440  20 20 4a 75 6e 6b 2c 5b  4c 6f 6f 70 2c 23 36 34  |  Junk,[Loop,#64|
00000450  31 5d 0d 00 2b 34 20 20  20 20 20 20 20 20 20 20  |1]..+4          |
00000460  20 53 54 52 42 20 20 20  20 20 20 4a 75 6e 6b 2c  | STRB      Junk,|
00000470  5b 4c 6f 6f 70 2c 23 39  36 31 5d 20 20 20 20 20  |[Loop,#961]     |
00000480  20 20 20 20 20 20 0d 00  2c 10 20 20 20 20 20 20  |      ..,.      |
00000490  20 20 20 20 20 3a 0d 00  2d 2c 20 20 20 20 20 20  |     :..-,      |
000004a0  20 20 20 20 20 53 55 42  53 20 20 20 20 20 20 52  |     SUBS      R|
000004b0  39 2c 52 39 2c 23 31 20  20 20 20 20 20 20 20 20  |9,R9,#1         |
000004c0  20 20 0d 00 2e 26 20 20  20 20 20 20 20 20 20 20  |  ...&          |
000004d0  20 53 55 42 45 51 20 20  20 20 20 4c 6f 6f 70 2c  | SUBEQ     Loop,|
000004e0  4c 6f 6f 70 2c 52 31 30  0d 00 2f 39 20 20 20 20  |Loop,R10../9    |
000004f0  20 20 20 20 20 20 20 ec  51 20 20 20 20 20 52 39  |       .Q     R9|
00000500  2c 23 33 32 30 20 20 20  20 20 20 20 20 20 20 20  |,#320           |
00000510  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000520  20 0d 00 30 20 20 20 20  20 20 20 20 20 20 20 20  | ..0            |
00000530  43 4d 50 20 20 20 20 20  20 20 4c 6f 6f 70 2c 52  |CMP       Loop,R|
00000540  30 0d 00 31 1e 20 20 20  20 20 20 20 20 20 20 20  |0..1.           |
00000550  42 47 54 20 20 20 20 20  20 20 4c 6f 6f 70 31 0d  |BGT       Loop1.|
00000560  00 32 20 20 20 20 20 20  20 20 20 20 20 20 4d 4f  |.2            MO|
00000570  56 20 20 20 20 20 20 20  52 31 35 2c 52 31 34 0d  |V       R15,R14.|
00000580  00 33 05 5d 0d 00 34 21  42 41 53 45 5f 41 44 44  |.3.]..4!BASE_ADD|
00000590  52 45 53 53 3d a4 46 69  6e 64 42 61 73 65 41 64  |RESS=.FindBaseAd|
000005a0  64 72 65 73 73 0d 00 35  18 41 25 3d 42 41 53 45  |dress..5.A%=BASE|
000005b0  5f 41 44 44 52 45 53 53  2b 31 32 37 39 0d 00 36  |_ADDRESS+1279..6|
000005c0  09 54 49 4d 3d 30 0d 00  37 1c 52 50 25 3d b3 28  |.TIM=0..7.RP%=.(|
000005d0  32 35 35 29 3a 52 53 25  3d b3 28 38 29 2a b4 28  |255):RS%=.(8)*.(|
000005e0  b3 29 0d 00 38 1c 47 50  25 3d b3 28 32 35 35 29  |.)..8.GP%=.(255)|
000005f0  3a 47 53 25 3d b3 28 38  29 2a b4 28 b3 29 0d 00  |:GS%=.(8)*.(.)..|
00000600  39 1c 42 50 25 3d b3 28  32 35 35 29 3a 42 53 25  |9.BP%=.(255):BS%|
00000610  3d b3 28 38 29 2a b4 28  b3 29 0d 00 3a 05 f5 0d  |=.(8)*.(.)..:...|
00000620  00 3b 25 c8 97 20 4d 58  2c 4d 59 2c 4d 42 3a e7  |.;%.. MX,MY,MB:.|
00000630  20 4d 42 20 8c 20 c8 8f  20 c8 90 20 4d 58 2c 4d  | MB . .. .. MX,M|
00000640  59 2c 32 35 0d 00 3c 15  e7 20 54 49 4d 3c 3d 30  |Y,25..<.. TIM<=0|
00000650  20 80 20 4d 42 3d 30 20  8c 0d 00 3d 08 e6 20 36  | . MB=0 ...=.. 6|
00000660  33 0d 00 3e 15 58 3d b3  28 36 34 30 29 2a 28 32  |3..>.X=.(640)*(2|
00000670  2d 72 70 63 25 29 0d 00  3f 15 59 3d b3 28 35 31  |-rpc%)..?.Y=.(51|
00000680  32 29 2a 28 32 2d 72 70  63 25 29 0d 00 40 0d c8  |2)*(2-rpc%)..@..|
00000690  8e 20 b3 28 32 29 20 ca  0d 00 41 41 c9 20 31 3a  |. .(2) ...AA. 1:|
000006a0  53 3d 28 b3 28 31 30 30  29 2b 35 30 29 2a 28 32  |S=(.(100)+50)*(2|
000006b0  2d 72 70 63 25 29 3a e3  20 4c 20 3d 20 53 2a 30  |-rpc%):. L = S*0|
000006c0  2e 39 35 20 b8 20 53 2a  31 2e 30 35 3a c8 8f 20  |.95 . S*1.05:.. |
000006d0  58 2c 59 2c 4c 3a ed 20  4c 0d 00 42 29 c9 20 32  |X,Y,L:. L..B). 2|
000006e0  3a 53 3d 28 b3 28 34 30  29 2b 31 30 29 2a 28 32  |:S=(.(40)+10)*(2|
000006f0  2d 72 70 63 25 29 3a c8  8f 20 c8 90 20 58 2c 59  |-rpc%):.. .. X,Y|
00000700  2c 53 0d 00 43 05 cb 0d  00 44 09 54 49 4d 3d 34  |,S..C....D.TIM=4|
00000710  0d 00 45 05 cd 0d 00 46  04 0d 00 47 0a 54 49 4d  |..E....F...G.TIM|
00000720  2d 3d 31 0d 00 48 0a d6  20 44 55 4c 52 0d 00 49  |-=1..H.. DULR..I|
00000730  05 3a 0d 00 4a 0e e7 20  72 70 63 25 3d 31 20 8c  |.:..J.. rpc%=1 .|
00000740  0d 00 4b 0c 52 50 25 2b  3d 52 53 25 0d 00 4c 0c  |..K.RP%+=RS%..L.|
00000750  47 50 25 2b 3d 47 53 25  0d 00 4d 0c 42 50 25 2b  |GP%+=GS%..M.BP%+|
00000760  3d 42 53 25 0d 00 4e 21  e7 20 52 50 25 3e 32 35  |=BS%..N!. RP%>25|
00000770  35 20 8c 20 52 50 25 3d  32 35 35 3a 52 53 25 3d  |5 . RP%=255:RS%=|
00000780  2d b3 28 38 29 0d 00 4f  21 e7 20 47 50 25 3e 32  |-.(8)..O!. GP%>2|
00000790  35 35 20 8c 20 47 50 25  3d 32 35 35 3a 47 53 25  |55 . GP%=255:GS%|
000007a0  3d 2d b3 28 38 29 0d 00  50 21 e7 20 42 50 25 3e  |=-.(8)..P!. BP%>|
000007b0  32 35 35 20 8c 20 42 50  25 3d 32 35 35 3a 42 53  |255 . BP%=255:BS|
000007c0  25 3d 2d b3 28 38 29 0d  00 51 1c e7 20 52 50 25  |%=-.(8)..Q.. RP%|
000007d0  3c 30 20 8c 20 52 50 25  3d 30 3a 52 53 25 3d b3  |<0 . RP%=0:RS%=.|
000007e0  28 38 29 0d 00 52 1c e7  20 47 50 25 3c 30 20 8c  |(8)..R.. GP%<0 .|
000007f0  20 47 50 25 3d 30 3a 47  53 25 3d b3 28 38 29 0d  | GP%=0:GS%=.(8).|
00000800  00 53 1c e7 20 42 50 25  3c 30 20 8c 20 42 50 25  |.S.. BP%<0 . BP%|
00000810  3d 30 3a 42 53 25 3d b3  28 38 29 0d 00 54 0d e3  |=0:BS%=.(8)..T..|
00000820  20 43 3d 30 b8 32 35 35  0d 00 55 12 52 25 3d 28  | C=0.255..U.R%=(|
00000830  43 2a 52 50 25 2f 32 35  35 29 0d 00 56 12 47 25  |C*RP%/255)..V.G%|
00000840  3d 28 43 2a 47 50 25 2f  32 35 35 29 0d 00 57 12  |=(C*GP%/255)..W.|
00000850  42 25 3d 28 43 2a 42 50  25 2f 32 35 35 29 0d 00  |B%=(C*BP%/255)..|
00000860  58 26 21 28 70 2b 43 2a  34 29 3d 28 52 25 3c 3c  |X&!(p+C*4)=(R%<<|
00000870  38 29 2b 28 47 25 3c 3c  31 36 29 2b 28 42 25 3c  |8)+(G%<<16)+(B%<|
00000880  3c 32 34 29 0d 00 59 07  ed 20 43 0d 00 5a 27 c8  |<24)..Y.. C..Z'.|
00000890  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 57  |. "ColourTrans_W|
000008a0  72 69 74 65 50 61 6c 65  74 74 65 22 2c 2d 31 2c  |ritePalette",-1,|
000008b0  2c 70 0d 00 5b 05 cd 0d  00 5c 0b c8 99 20 36 2c  |,p..[....\... 6,|
000008c0  31 39 0d 00 5d 07 fd 20  a3 0d 00 5e 05 e0 0d 00  |19..].. ...^....|
000008d0  5f 16 dd 20 a4 46 69 6e  64 42 61 73 65 41 64 64  |_.. .FindBaseAdd|
000008e0  72 65 73 73 0d 00 60 13  de 20 69 6e 70 75 74 5f  |ress..`.. input_|
000008f0  6c 69 73 74 20 20 38 0d  00 61 13 de 20 6f 75 74  |list  8..a.. out|
00000900  70 75 74 5f 6c 69 73 74  20 34 0d 00 62 16 69 6e  |put_list 4..b.in|
00000910  70 75 74 5f 6c 69 73 74  21 30 20 3d 20 31 34 39  |put_list!0 = 149|
00000920  0d 00 63 16 69 6e 70 75  74 5f 6c 69 73 74 21 34  |..c.input_list!4|
00000930  20 3d 20 20 2d 31 0d 00  64 33 c8 99 20 22 4f 53  | =  -1..d3.. "OS|
00000940  5f 52 65 61 64 56 64 75  56 61 72 69 61 62 6c 65  |_ReadVduVariable|
00000950  73 22 2c 69 6e 70 75 74  5f 6c 69 73 74 2c 6f 75  |s",input_list,ou|
00000960  74 70 75 74 5f 6c 69 73  74 0d 00 65 12 3d 6f 75  |tput_list..e.=ou|
00000970  74 70 75 74 5f 6c 69 73  74 21 30 0d 00 66 04 0d  |tput_list!0..f..|
00000980  00 67 12 dd 20 f2 6d 6f  64 65 28 6d 6f 64 65 24  |.g.. .mode(mode$|
00000990  29 0d 00 68 17 ea 20 63  24 2c 65 78 2c 65 79 2c  |)..h.. c$,ex,ey,|
000009a0  6d 6f 64 65 2c 65 6e 64  0d 00 69 0d de 20 6d 6f  |mode,end..i.. mo|
000009b0  64 65 20 36 34 0d 00 6a  0f 65 6e 64 3d 6d 6f 64  |de 64..j.end=mod|
000009c0  65 2b 32 30 0d 00 6b 0b  21 6d 6f 64 65 3d 31 0d  |e+20..k.!mode=1.|
000009d0  00 6c 1e 6d 6f 64 65 21  34 3d bb 20 a4 5f 6d 28  |.l.mode!4=. ._m(|
000009e0  6d 6f 64 65 24 2c 22 58  22 2c 22 22 29 0d 00 6d  |mode$,"X","")..m|
000009f0  1e 6d 6f 64 65 21 38 3d  bb 20 a4 5f 6d 28 6d 6f  |.mode!8=. ._m(mo|
00000a00  64 65 24 2c 22 59 22 2c  22 22 29 0d 00 6e 19 63  |de$,"Y","")..n.c|
00000a10  24 3d a4 5f 6d 28 6d 6f  64 65 24 2c 22 43 22 2c  |$=._m(mode$,"C",|
00000a20  22 2a 22 29 0d 00 6f 0e  e7 20 63 24 3d 22 2a 22  |"*")..o.. c$="*"|
00000a30  20 8c 0d 00 70 19 20 63  24 3d a4 5f 6d 28 6d 6f  | ...p. c$=._m(mo|
00000a40  64 65 24 2c 22 47 22 2c  22 22 29 0d 00 71 27 20  |de$,"G","")..q' |
00000a50  e7 20 63 24 3d 22 32 35  36 22 20 21 65 6e 64 3d  |. c$="256" !end=|
00000a60  33 3a 65 6e 64 21 34 3d  32 35 35 3a 65 6e 64 2b  |3:end!4=255:end+|
00000a70  3d 38 0d 00 72 05 cd 0d  00 73 15 6d 6f 64 65 21  |=8..r....s.mode!|
00000a80  31 32 3d a4 5f 62 70 70  28 63 24 29 0d 00 74 21  |12=._bpp(c$)..t!|
00000a90  6d 6f 64 65 21 31 36 3d  bb 20 a4 5f 6d 28 6d 6f  |mode!16=. ._m(mo|
00000aa0  64 65 24 2c 22 46 22 2c  22 2d 31 22 29 0d 00 75  |de$,"F","-1")..u|
00000ab0  1d 65 78 3d bb 20 a4 5f  6d 28 6d 6f 64 65 24 2c  |.ex=. ._m(mode$,|
00000ac0  22 45 58 22 2c 22 2d 31  22 29 0d 00 76 23 e7 20  |"EX","-1")..v#. |
00000ad0  65 78 3c 3e 2d 31 20 21  65 6e 64 3d 34 3a 65 6e  |ex<>-1 !end=4:en|
00000ae0  64 21 34 3d 65 78 3a 65  6e 64 2b 3d 38 0d 00 77  |d!4=ex:end+=8..w|
00000af0  1d 65 79 3d bb 20 a4 5f  6d 28 6d 6f 64 65 24 2c  |.ey=. ._m(mode$,|
00000b00  22 45 59 22 2c 22 2d 31  22 29 0d 00 78 23 e7 20  |"EY","-1")..x#. |
00000b10  65 79 3c 3e 2d 31 20 21  65 6e 64 3d 35 3a 65 6e  |ey<>-1 !end=5:en|
00000b20  64 21 34 3d 65 79 3a 65  6e 64 2b 3d 38 0d 00 79  |d!4=ey:end+=8..y|
00000b30  0b 21 65 6e 64 3d 2d 31  0d 00 7a 0a eb 20 6d 6f  |.!end=-1..z.. mo|
00000b40  64 65 0d 00 7b 05 e1 0d  00 7c 04 0d 00 7d 13 dd  |de..{....|...}..|
00000b50  20 a4 5f 6d 28 73 24 2c  70 24 2c 64 24 29 0d 00  | ._m(s$,p$,d$)..|
00000b60  7e 09 ea 20 69 2c 6a 0d  00 7f 0d 69 3d a7 73 24  |~.. i,j....i=.s$|
00000b70  2c 70 24 29 0d 00 80 25  e7 20 69 3c 31 20 80 20  |,p$)...%. i<1 . |
00000b80  64 24 3d 22 22 20 85 20  34 39 30 2c 22 4d 69 73  |d$="" . 490,"Mis|
00000b90  73 69 6e 67 20 22 2b 70  24 0d 00 81 0f e7 20 69  |sing "+p$..... i|
00000ba0  3c 31 20 8c 20 3d 64 24  0d 00 82 16 6a 3d a7 73  |<1 . =d$....j=.s|
00000bb0  24 2b 22 20 22 2c 22 20  22 2c 69 2b 31 29 0d 00  |$+" "," ",i+1)..|
00000bc0  83 13 3d c1 73 24 2c 69  2b 31 2c 6a 2d 69 2d 31  |..=.s$,i+1,j-i-1|
00000bd0  29 0d 00 84 04 0d 00 85  0f dd 20 a4 5f 62 70 70  |)......... ._bpp|
00000be0  28 6e 24 29 0d 00 86 0b  c8 8e 20 6e 24 20 ca 0d  |(n$)...... n$ ..|
00000bf0  00 87 0d 20 c9 20 22 32  22 3a 3d 30 0d 00 88 0d  |... . "2":=0....|
00000c00  20 c9 20 22 34 22 3a 3d  31 0d 00 89 0e 20 c9 20  | . "4":=1.... . |
00000c10  22 31 36 22 3a 3d 32 0d  00 8a 0f 20 c9 20 22 32  |"16":=2.... . "2|
00000c20  35 36 22 3a 3d 33 0d 00  8b 21 20 c9 20 22 33 32  |56":=3...! . "32|
00000c30  54 22 2c 22 33 32 74 22  2c 22 33 32 4b 22 2c 22  |T","32t","32K","|
00000c40  33 32 6b 22 3a 3d 34 0d  00 8c 15 20 c9 20 22 31  |32k":=4.... . "1|
00000c50  36 4d 22 2c 22 31 36 6d  22 3a 3d 35 0d 00 8d 21  |6M","16m":=5...!|
00000c60  20 7f 3a 20 85 20 34 39  30 2c 22 42 61 64 20 70  | .: . 490,"Bad p|
00000c70  61 72 61 6d 65 74 65 72  20 22 2b 6e 24 0d 00 8e  |arameter "+n$...|
00000c80  05 cb 0d ff                                       |....|
00000c84

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