StarInfo/Adcock/SlowerFade

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

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/SlowerFade
Read OK:	✔
File size:	0B45 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,#320]
   32           LDRB      Load2,[Loop,#-320]
   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]
   44           :
   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,#320]
 +           LDRB      Load2,[Loop,#-320]
!(           LDRB      Load4,[Loop,#1]
"*           LDRB      Load3,[Loop,#-1]!
#           :
$)           ADD       Junk,Load1,Load2
%(           ADD       Junk,Junk,Load3
&(           ADD       Junk,Junk,Load4
'(           MOV       Junk,Junk,LSR#2
('           STRB      Junk,[Loop,#1]
,           :
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 2a 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 33 32 30 5d 0d 00 20  |1,[Loop,#320].. |
00000280  2b 20 20 20 20 20 20 20  20 20 20 20 4c 44 52 42  |+           LDRB|
00000290  20 20 20 20 20 20 4c 6f  61 64 32 2c 5b 4c 6f 6f  |      Load2,[Loo|
000002a0  70 2c 23 2d 33 32 30 5d  0d 00 21 28 20 20 20 20  |p,#-320]..!(    |
000002b0  20 20 20 20 20 20 20 4c  44 52 42 20 20 20 20 20  |       LDRB     |
000002c0  20 4c 6f 61 64 34 2c 5b  4c 6f 6f 70 2c 23 31 5d  | Load4,[Loop,#1]|
000002d0  0d 00 22 2a 20 20 20 20  20 20 20 20 20 20 20 4c  |.."*           L|
000002e0  44 52 42 20 20 20 20 20  20 4c 6f 61 64 33 2c 5b  |DRB      Load3,[|
000002f0  4c 6f 6f 70 2c 23 2d 31  5d 21 0d 00 23 10 20 20  |Loop,#-1]!..#.  |
00000300  20 20 20 20 20 20 20 20  20 3a 0d 00 24 29 20 20  |         :..$)  |
00000310  20 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |         ADD    |
00000320  20 20 20 4a 75 6e 6b 2c  4c 6f 61 64 31 2c 4c 6f  |   Junk,Load1,Lo|
00000330  61 64 32 0d 00 25 28 20  20 20 20 20 20 20 20 20  |ad2..%(         |
00000340  20 20 41 44 44 20 20 20  20 20 20 20 4a 75 6e 6b  |  ADD       Junk|
00000350  2c 4a 75 6e 6b 2c 4c 6f  61 64 33 0d 00 26 28 20  |,Junk,Load3..&( |
00000360  20 20 20 20 20 20 20 20  20 20 41 44 44 20 20 20  |          ADD   |
00000370  20 20 20 20 4a 75 6e 6b  2c 4a 75 6e 6b 2c 4c 6f  |    Junk,Junk,Lo|
00000380  61 64 34 0d 00 27 28 20  20 20 20 20 20 20 20 20  |ad4..'(         |
00000390  20 20 4d 4f 56 20 20 20  20 20 20 20 4a 75 6e 6b  |  MOV       Junk|
000003a0  2c 4a 75 6e 6b 2c 4c 53  52 23 32 0d 00 28 27 20  |,Junk,LSR#2..(' |
000003b0  20 20 20 20 20 20 20 20  20 20 53 54 52 42 20 20  |          STRB  |
000003c0  20 20 20 20 4a 75 6e 6b  2c 5b 4c 6f 6f 70 2c 23  |    Junk,[Loop,#|
000003d0  31 5d 0d 00 2c 10 20 20  20 20 20 20 20 20 20 20  |1]..,.          |
000003e0  20 3a 0d 00 30 20 20 20  20 20 20 20 20 20 20 20  | :..0           |
000003f0  20 43 4d 50 20 20 20 20  20 20 20 4c 6f 6f 70 2c  | CMP       Loop,|
00000400  52 30 0d 00 31 1e 20 20  20 20 20 20 20 20 20 20  |R0..1.          |
00000410  20 42 47 54 20 20 20 20  20 20 20 4c 6f 6f 70 31  | BGT       Loop1|
00000420  0d 00 32 20 20 20 20 20  20 20 20 20 20 20 20 4d  |..2            M|
00000430  4f 56 20 20 20 20 20 20  20 52 31 35 2c 52 31 34  |OV       R15,R14|
00000440  0d 00 33 05 5d 0d 00 34  21 42 41 53 45 5f 41 44  |..3.]..4!BASE_AD|
00000450  44 52 45 53 53 3d a4 46  69 6e 64 42 61 73 65 41  |DRESS=.FindBaseA|
00000460  64 64 72 65 73 73 0d 00  35 18 41 25 3d 42 41 53  |ddress..5.A%=BAS|
00000470  45 5f 41 44 44 52 45 53  53 2b 31 32 37 39 0d 00  |E_ADDRESS+1279..|
00000480  36 09 54 49 4d 3d 30 0d  00 37 1c 52 50 25 3d b3  |6.TIM=0..7.RP%=.|
00000490  28 32 35 35 29 3a 52 53  25 3d b3 28 38 29 2a b4  |(255):RS%=.(8)*.|
000004a0  28 b3 29 0d 00 38 1c 47  50 25 3d b3 28 32 35 35  |(.)..8.GP%=.(255|
000004b0  29 3a 47 53 25 3d b3 28  38 29 2a b4 28 b3 29 0d  |):GS%=.(8)*.(.).|
000004c0  00 39 1c 42 50 25 3d b3  28 32 35 35 29 3a 42 53  |.9.BP%=.(255):BS|
000004d0  25 3d b3 28 38 29 2a b4  28 b3 29 0d 00 3a 05 f5  |%=.(8)*.(.)..:..|
000004e0  0d 00 3b 25 c8 97 20 4d  58 2c 4d 59 2c 4d 42 3a  |..;%.. MX,MY,MB:|
000004f0  e7 20 4d 42 20 8c 20 c8  8f 20 c8 90 20 4d 58 2c  |. MB . .. .. MX,|
00000500  4d 59 2c 32 35 0d 00 3c  15 e7 20 54 49 4d 3c 3d  |MY,25..<.. TIM<=|
00000510  30 20 80 20 4d 42 3d 30  20 8c 0d 00 3d 08 e6 20  |0 . MB=0 ...=.. |
00000520  36 33 0d 00 3e 15 58 3d  b3 28 36 34 30 29 2a 28  |63..>.X=.(640)*(|
00000530  32 2d 72 70 63 25 29 0d  00 3f 15 59 3d b3 28 35  |2-rpc%)..?.Y=.(5|
00000540  31 32 29 2a 28 32 2d 72  70 63 25 29 0d 00 40 0d  |12)*(2-rpc%)..@.|
00000550  c8 8e 20 b3 28 32 29 20  ca 0d 00 41 41 c9 20 31  |.. .(2) ...AA. 1|
00000560  3a 53 3d 28 b3 28 31 30  30 29 2b 35 30 29 2a 28  |:S=(.(100)+50)*(|
00000570  32 2d 72 70 63 25 29 3a  e3 20 4c 20 3d 20 53 2a  |2-rpc%):. L = S*|
00000580  30 2e 39 35 20 b8 20 53  2a 31 2e 30 35 3a c8 8f  |0.95 . S*1.05:..|
00000590  20 58 2c 59 2c 4c 3a ed  20 4c 0d 00 42 29 c9 20  | X,Y,L:. L..B). |
000005a0  32 3a 53 3d 28 b3 28 34  30 29 2b 31 30 29 2a 28  |2:S=(.(40)+10)*(|
000005b0  32 2d 72 70 63 25 29 3a  c8 8f 20 c8 90 20 58 2c  |2-rpc%):.. .. X,|
000005c0  59 2c 53 0d 00 43 05 cb  0d 00 44 09 54 49 4d 3d  |Y,S..C....D.TIM=|
000005d0  34 0d 00 45 05 cd 0d 00  46 04 0d 00 47 0a 54 49  |4..E....F...G.TI|
000005e0  4d 2d 3d 31 0d 00 48 0a  d6 20 44 55 4c 52 0d 00  |M-=1..H.. DULR..|
000005f0  49 05 3a 0d 00 4a 0e e7  20 72 70 63 25 3d 31 20  |I.:..J.. rpc%=1 |
00000600  8c 0d 00 4b 0c 52 50 25  2b 3d 52 53 25 0d 00 4c  |...K.RP%+=RS%..L|
00000610  0c 47 50 25 2b 3d 47 53  25 0d 00 4d 0c 42 50 25  |.GP%+=GS%..M.BP%|
00000620  2b 3d 42 53 25 0d 00 4e  21 e7 20 52 50 25 3e 32  |+=BS%..N!. RP%>2|
00000630  35 35 20 8c 20 52 50 25  3d 32 35 35 3a 52 53 25  |55 . RP%=255:RS%|
00000640  3d 2d b3 28 38 29 0d 00  4f 21 e7 20 47 50 25 3e  |=-.(8)..O!. GP%>|
00000650  32 35 35 20 8c 20 47 50  25 3d 32 35 35 3a 47 53  |255 . GP%=255:GS|
00000660  25 3d 2d b3 28 38 29 0d  00 50 21 e7 20 42 50 25  |%=-.(8)..P!. BP%|
00000670  3e 32 35 35 20 8c 20 42  50 25 3d 32 35 35 3a 42  |>255 . BP%=255:B|
00000680  53 25 3d 2d b3 28 38 29  0d 00 51 1c e7 20 52 50  |S%=-.(8)..Q.. RP|
00000690  25 3c 30 20 8c 20 52 50  25 3d 30 3a 52 53 25 3d  |%<0 . RP%=0:RS%=|
000006a0  b3 28 38 29 0d 00 52 1c  e7 20 47 50 25 3c 30 20  |.(8)..R.. GP%<0 |
000006b0  8c 20 47 50 25 3d 30 3a  47 53 25 3d b3 28 38 29  |. GP%=0:GS%=.(8)|
000006c0  0d 00 53 1c e7 20 42 50  25 3c 30 20 8c 20 42 50  |..S.. BP%<0 . BP|
000006d0  25 3d 30 3a 42 53 25 3d  b3 28 38 29 0d 00 54 0d  |%=0:BS%=.(8)..T.|
000006e0  e3 20 43 3d 30 b8 32 35  35 0d 00 55 12 52 25 3d  |. C=0.255..U.R%=|
000006f0  28 43 2a 52 50 25 2f 32  35 35 29 0d 00 56 12 47  |(C*RP%/255)..V.G|
00000700  25 3d 28 43 2a 47 50 25  2f 32 35 35 29 0d 00 57  |%=(C*GP%/255)..W|
00000710  12 42 25 3d 28 43 2a 42  50 25 2f 32 35 35 29 0d  |.B%=(C*BP%/255).|
00000720  00 58 26 21 28 70 2b 43  2a 34 29 3d 28 52 25 3c  |.X&!(p+C*4)=(R%<|
00000730  3c 38 29 2b 28 47 25 3c  3c 31 36 29 2b 28 42 25  |<8)+(G%<<16)+(B%|
00000740  3c 3c 32 34 29 0d 00 59  07 ed 20 43 0d 00 5a 27  |<<24)..Y.. C..Z'|
00000750  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
00000760  57 72 69 74 65 50 61 6c  65 74 74 65 22 2c 2d 31  |WritePalette",-1|
00000770  2c 2c 70 0d 00 5b 05 cd  0d 00 5c 0b c8 99 20 36  |,,p..[....\... 6|
00000780  2c 31 39 0d 00 5d 07 fd  20 a3 0d 00 5e 05 e0 0d  |,19..].. ...^...|
00000790  00 5f 16 dd 20 a4 46 69  6e 64 42 61 73 65 41 64  |._.. .FindBaseAd|
000007a0  64 72 65 73 73 0d 00 60  13 de 20 69 6e 70 75 74  |dress..`.. input|
000007b0  5f 6c 69 73 74 20 20 38  0d 00 61 13 de 20 6f 75  |_list  8..a.. ou|
000007c0  74 70 75 74 5f 6c 69 73  74 20 34 0d 00 62 16 69  |tput_list 4..b.i|
000007d0  6e 70 75 74 5f 6c 69 73  74 21 30 20 3d 20 31 34  |nput_list!0 = 14|
000007e0  39 0d 00 63 16 69 6e 70  75 74 5f 6c 69 73 74 21  |9..c.input_list!|
000007f0  34 20 3d 20 20 2d 31 0d  00 64 33 c8 99 20 22 4f  |4 =  -1..d3.. "O|
00000800  53 5f 52 65 61 64 56 64  75 56 61 72 69 61 62 6c  |S_ReadVduVariabl|
00000810  65 73 22 2c 69 6e 70 75  74 5f 6c 69 73 74 2c 6f  |es",input_list,o|
00000820  75 74 70 75 74 5f 6c 69  73 74 0d 00 65 12 3d 6f  |utput_list..e.=o|
00000830  75 74 70 75 74 5f 6c 69  73 74 21 30 0d 00 66 04  |utput_list!0..f.|
00000840  0d 00 67 12 dd 20 f2 6d  6f 64 65 28 6d 6f 64 65  |..g.. .mode(mode|
00000850  24 29 0d 00 68 17 ea 20  63 24 2c 65 78 2c 65 79  |$)..h.. c$,ex,ey|
00000860  2c 6d 6f 64 65 2c 65 6e  64 0d 00 69 0d de 20 6d  |,mode,end..i.. m|
00000870  6f 64 65 20 36 34 0d 00  6a 0f 65 6e 64 3d 6d 6f  |ode 64..j.end=mo|
00000880  64 65 2b 32 30 0d 00 6b  0b 21 6d 6f 64 65 3d 31  |de+20..k.!mode=1|
00000890  0d 00 6c 1e 6d 6f 64 65  21 34 3d bb 20 a4 5f 6d  |..l.mode!4=. ._m|
000008a0  28 6d 6f 64 65 24 2c 22  58 22 2c 22 22 29 0d 00  |(mode$,"X","")..|
000008b0  6d 1e 6d 6f 64 65 21 38  3d bb 20 a4 5f 6d 28 6d  |m.mode!8=. ._m(m|
000008c0  6f 64 65 24 2c 22 59 22  2c 22 22 29 0d 00 6e 19  |ode$,"Y","")..n.|
000008d0  63 24 3d a4 5f 6d 28 6d  6f 64 65 24 2c 22 43 22  |c$=._m(mode$,"C"|
000008e0  2c 22 2a 22 29 0d 00 6f  0e e7 20 63 24 3d 22 2a  |,"*")..o.. c$="*|
000008f0  22 20 8c 0d 00 70 19 20  63 24 3d a4 5f 6d 28 6d  |" ...p. c$=._m(m|
00000900  6f 64 65 24 2c 22 47 22  2c 22 22 29 0d 00 71 27  |ode$,"G","")..q'|
00000910  20 e7 20 63 24 3d 22 32  35 36 22 20 21 65 6e 64  | . c$="256" !end|
00000920  3d 33 3a 65 6e 64 21 34  3d 32 35 35 3a 65 6e 64  |=3:end!4=255:end|
00000930  2b 3d 38 0d 00 72 05 cd  0d 00 73 15 6d 6f 64 65  |+=8..r....s.mode|
00000940  21 31 32 3d a4 5f 62 70  70 28 63 24 29 0d 00 74  |!12=._bpp(c$)..t|
00000950  21 6d 6f 64 65 21 31 36  3d bb 20 a4 5f 6d 28 6d  |!mode!16=. ._m(m|
00000960  6f 64 65 24 2c 22 46 22  2c 22 2d 31 22 29 0d 00  |ode$,"F","-1")..|
00000970  75 1d 65 78 3d bb 20 a4  5f 6d 28 6d 6f 64 65 24  |u.ex=. ._m(mode$|
00000980  2c 22 45 58 22 2c 22 2d  31 22 29 0d 00 76 23 e7  |,"EX","-1")..v#.|
00000990  20 65 78 3c 3e 2d 31 20  21 65 6e 64 3d 34 3a 65  | ex<>-1 !end=4:e|
000009a0  6e 64 21 34 3d 65 78 3a  65 6e 64 2b 3d 38 0d 00  |nd!4=ex:end+=8..|
000009b0  77 1d 65 79 3d bb 20 a4  5f 6d 28 6d 6f 64 65 24  |w.ey=. ._m(mode$|
000009c0  2c 22 45 59 22 2c 22 2d  31 22 29 0d 00 78 23 e7  |,"EY","-1")..x#.|
000009d0  20 65 79 3c 3e 2d 31 20  21 65 6e 64 3d 35 3a 65  | ey<>-1 !end=5:e|
000009e0  6e 64 21 34 3d 65 79 3a  65 6e 64 2b 3d 38 0d 00  |nd!4=ey:end+=8..|
000009f0  79 0b 21 65 6e 64 3d 2d  31 0d 00 7a 0a eb 20 6d  |y.!end=-1..z.. m|
00000a00  6f 64 65 0d 00 7b 05 e1  0d 00 7c 04 0d 00 7d 13  |ode..{....|...}.|
00000a10  dd 20 a4 5f 6d 28 73 24  2c 70 24 2c 64 24 29 0d  |. ._m(s$,p$,d$).|
00000a20  00 7e 09 ea 20 69 2c 6a  0d 00 7f 0d 69 3d a7 73  |.~.. i,j....i=.s|
00000a30  24 2c 70 24 29 0d 00 80  25 e7 20 69 3c 31 20 80  |$,p$)...%. i<1 .|
00000a40  20 64 24 3d 22 22 20 85  20 34 39 30 2c 22 4d 69  | d$="" . 490,"Mi|
00000a50  73 73 69 6e 67 20 22 2b  70 24 0d 00 81 0f e7 20  |ssing "+p$..... |
00000a60  69 3c 31 20 8c 20 3d 64  24 0d 00 82 16 6a 3d a7  |i<1 . =d$....j=.|
00000a70  73 24 2b 22 20 22 2c 22  20 22 2c 69 2b 31 29 0d  |s$+" "," ",i+1).|
00000a80  00 83 13 3d c1 73 24 2c  69 2b 31 2c 6a 2d 69 2d  |...=.s$,i+1,j-i-|
00000a90  31 29 0d 00 84 04 0d 00  85 0f dd 20 a4 5f 62 70  |1)......... ._bp|
00000aa0  70 28 6e 24 29 0d 00 86  0b c8 8e 20 6e 24 20 ca  |p(n$)...... n$ .|
00000ab0  0d 00 87 0d 20 c9 20 22  32 22 3a 3d 30 0d 00 88  |.... . "2":=0...|
00000ac0  0d 20 c9 20 22 34 22 3a  3d 31 0d 00 89 0e 20 c9  |. . "4":=1.... .|
00000ad0  20 22 31 36 22 3a 3d 32  0d 00 8a 0f 20 c9 20 22  | "16":=2.... . "|
00000ae0  32 35 36 22 3a 3d 33 0d  00 8b 21 20 c9 20 22 33  |256":=3...! . "3|
00000af0  32 54 22 2c 22 33 32 74  22 2c 22 33 32 4b 22 2c  |2T","32t","32K",|
00000b00  22 33 32 6b 22 3a 3d 34  0d 00 8c 15 20 c9 20 22  |"32k":=4.... . "|
00000b10  31 36 4d 22 2c 22 31 36  6d 22 3a 3d 35 0d 00 8d  |16M","16m":=5...|
00000b20  21 20 7f 3a 20 85 20 34  39 30 2c 22 42 61 64 20  |! .: . 490,"Bad |
00000b30  70 61 72 61 6d 65 74 65  72 20 22 2b 6e 24 0d 00  |parameter "+n$..|
00000b40  8e 05 cb 0d ff                                    |.....|
00000b45

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