� Unusual drawing program
� Version 2.64
+� Requires RISC OS version 3.5 or later
(� 480x352x16m version
2� (c) Alex Holloway, 1997
<:
F"� � � �<>17 � �error � �finish
P2ș "OS_File",13,"<Shade$Dir>.Brushes" � ,,,,l%
ZQ� code% 1000, vdut% 20, cols% 16, sprite% &A7020, modeblk% 60, brushes% l%+16
d ș "OS_ScreenMode",1 � ,ptr%
n� i%=0 � 56 � 4
xmodeblk%!i%=ptr%!i%
��
�� "X480 Y352 C16M EX1 EY1"
�rb%=0:gb%=0:bb%=0
��setcols
��:�
� !sprite%=&A7000:sprite%!8=16
�"ș "OS_SpriteOp",256+9,sprite%
�!!brushes%=l%+16:brushes%!8=16
�#ș "OS_SpriteOp",256+9,brushes%
�:ș "OS_SpriteOp",256+10,brushes%,"<Shade$Dir>.Brushes"
�
pos%=0
�7ș "OS_SpriteOp",256+8,brushes% � ,,,numspr%,sprst%
�?� pixtable% 1600*numspr%,names% numspr%*12,snames$(numspr%)

� c%=0 � numspr%-1


c2%=c%*12

+�setup_pixtable(brushes%+sprst%+124*c%)

"7ș "OS_SpriteOp",256+13,brushes%,names%+c2%,12,c%+1

,pofzero%=�$(names%+c2%),�0)

60snames$(c%+1)=�$(names%+c2%),pofzero%-1)+�13

@�

J !cols%=0:size%=20:D%=40:H%=1

T�change_colourshift

^�change_brushtype

h�change_bg

r�

|�assm_setup

�"filename$="<Shade$Dir>.Screen"

�*Pointer

�x2%=640:y2%=480

�ȗ ȓ 20,22,918,662

��

�ȗ x%,y%,b%

�x%-=x% � 2

�(� b%>0 � (x%<>x2% � y%<>y2%) � �draw

�x2%=x%:y2%=y%

�� �(-90) �

�� �(-62) �menu

�� �(-33) �save

�� �
�finish
:
� �draw
&� x%=x2% � x%+=1
03� �(x%-x2%)>�(y%-y2%) � �draw_across � �draw_up
:�
D:
N� �draw_across
Xm=(y%-y2%)/(x%-x2%)
b
c=y%-m*x%
l.� x%>x2% � v%=x2%:w%=x%-2 � v%=x%:w%=x2%-2
v� i%=v% � w% � 2
�%B%=i%-size%:C%=m*i%+c+size%:E%=D%
�
� plot
��
��
�:
�� �draw_up
�m=(y%-y2%)/(x%-x2%)
�
c=y%-m*x%
�.� y%>y2% � v%=y2%:w%=y%-2 � v%=y%:w%=y2%-2
�� i%=v% � w% � 2
�'B%=(i%-c)/m-size%:C%=i%+size%:E%=D%
�B%-=B% � 2
�
� plot
�
�
:
 � �assm_setup
*!vdut%=149:vdut%!4=-1
4*ș "OS_ReadVduVariables",vdut%,vdut%+8
>A%=vdut%!8
HF%=pixtable%
RG%=cols%
\� pass%=0 � 2 � 2
fP%=code%
p[OPT pass%
z	.plot
�STR R5,pxts
�RSB R2,R2,#704
�MOV R2,R2,LSR #1
�MOV R4,R4,LSR #1
�MOV R5,#960
�MOV R8,#1920
�MLA R9,R2,R8,R0
�ADD R9,R9,R1,LSL #1
�ADD R12,R9,R3,LSL #1
�MLA R10,R4,R8,R9
�ADD R10,R10,R3,LSL #1
�LDR R5,pxts
�SUB R7,R7,#1
MOV R1,#1600
MLA R5,R7,R1,R5
MOV R0,#255
$	.loop
.LDR R8,[R5],#4
8
TEQ R8,#0
BBEQ skip
LLDR R11,[R9]
V
MOV R7,#0
`
.split
jLDR R1,[R6],#4
t� R2,R0,R11,ASR R7
~ADDS R2,R2,R1
�MOVMI R2,#0
�
CMP R2,R0
�MOVGT R2,R0
�BIC R11,R11,R0,ASL R7
��R R11,R11,R2,ASL R7
�ADD R7,R7,#8
�TEQ R7,#24
�
BNE split
�STR R11,[R9]
�SUB R6,R6,#12
�	.skip
�ADD R9,R9,#4
CMP R9,R10

MOVHS PC,R14
CMP R9,R12
ADDHS R9,R9,#1920
(SUBHS R9,R9,R3,LSL #1
2ADDHS R12,R12,#1920
<
B loop
F	.pxts
P
EQUD 0
Z]
d�
n�
x:
�� �setup_pixtable(sprite%)
�� yc%=19 � 0 � -1
�� xc%=0 � 19
�Jș "OS_SpriteOp",512+41,brushes%,sprite%,xc%,yc% � ,,,,,pixtable%!pos%
�pos%+=4
��,
��
�:
�� �menu
�ș "OS_Byte",21,0
�>ș "OS_SpriteOp",256+16,sprite%,"screendump",0,0,0,960,704
��
�&�11,0);"SketchPlus Menu Options:"
&�11,1);"========================"
$�11,3);"1: Change colour shift"
"�11,4);"2: Change brush type"
")�11,5);"3: Change background colour"
,0�11,6);"4: Change filename for screen save"
6O$=�
@Ȏ O$ �
J� "1":�change_colourshift
T� "2":�change_brushtype
^� "3":�change_bg
h� "4":�change_filename
r�
|�
�6ș "OS_SpriteOp",256+34,sprite%,"screendump",0,0,0
�� O$="3" � �
��
�:
�� �change_colourshift
��
�'�11,0);"Specify new colour shift:"
�$�11,1);"Red element:   ";!cols%
�%�11,2);"Green element: ";cols%!4
�%�11,3);"Blue element:  ";cols%!8
��
�:
�� �change_brushtype
�
old%=H%
,�11,0);"Old brush type: ";snames$(old%)
&&�11,2);"Choose a new brush type:"
0line%=3
:� i%=1 � numspr%
D#�11,line%);i%;": ";snames$(i%)
Nline%+=1
X�
b�11,line%+1);H%
l3� H%<0 � H%>numspr% � H%=old%:�change_brushtype
v� H%=0 � H%=old%
�size%=20:D%=40
��
�:
�� �change_bg
��
�$�11,0);"New background colour:"
� �11,2);"Red element   ";rb%
� �11,3);"Green element ";gb%
� �11,4);"Blue element  ";bb%
�F� rb%<0 � rb%>255 � gb%<0 � gb%>255 � bb%<0 � bb%>255 � �change_bg
��setcols
��
�:
� �setcols
� 128,rb%,gb%,bb%
� (rb%+gb%+bb%)<384 �
 � 0
*	� 191
4�
>� 63
H	� 128
R�
\�
f:
p� �change_filename
z�
�old$=filename$
��11,0);"Old filename:"
��11,1);filename$
��11,3);"New filename:"
��11,4);filename$
�#� filename$="" � filename$=old$
��
�:
�� �save
�ș "OS_Byte",21,0
�#ș "OS_SpriteOp",2,,filename$,0
��
�:
	� �error
	� �$;" at line ";�
		key=�
	$�finish
	.:
	8
� �finish
	Bș "Wimp_SetMode",modeblk%
	L�
	V�
�

00000000  0d 00 0a 1d f4 20 55 6e  75 73 75 61 6c 20 64 72  |..... Unusual dr|
00000010  61 77 69 6e 67 20 70 72  6f 67 72 61 6d 0d 00 14  |awing program...|
00000020  12 f4 20 56 65 72 73 69  6f 6e 20 32 2e 36 34 0d  |.. Version 2.64.|
00000030  00 1e 2b f4 20 52 65 71  75 69 72 65 73 20 52 49  |..+. Requires RI|
00000040  53 43 20 4f 53 20 76 65  72 73 69 6f 6e 20 33 2e  |SC OS version 3.|
00000050  35 20 6f 72 20 6c 61 74  65 72 0d 00 28 19 f4 20  |5 or later..(.. |
00000060  34 38 30 78 33 35 32 78  31 36 6d 20 76 65 72 73  |480x352x16m vers|
00000070  69 6f 6e 0d 00 32 1d f4  20 28 63 29 20 41 6c 65  |ion..2.. (c) Ale|
00000080  78 20 48 6f 6c 6c 6f 77  61 79 2c 20 31 39 39 37  |x Holloway, 1997|
00000090  0d 00 3c 05 3a 0d 00 46  22 ee 20 85 20 e7 20 9f  |..<.:..F". . . .|
000000a0  3c 3e 31 37 20 8c 20 f2  65 72 72 6f 72 20 8b 20  |<>17 . .error . |
000000b0  f2 66 69 6e 69 73 68 0d  00 50 32 c8 99 20 22 4f  |.finish..P2.. "O|
000000c0  53 5f 46 69 6c 65 22 2c  31 33 2c 22 3c 53 68 61  |S_File",13,"<Sha|
000000d0  64 65 24 44 69 72 3e 2e  42 72 75 73 68 65 73 22  |de$Dir>.Brushes"|
000000e0  20 b8 20 2c 2c 2c 2c 6c  25 0d 00 5a 51 de 20 63  | . ,,,,l%..ZQ. c|
000000f0  6f 64 65 25 20 31 30 30  30 2c 20 76 64 75 74 25  |ode% 1000, vdut%|
00000100  20 32 30 2c 20 63 6f 6c  73 25 20 31 36 2c 20 73  | 20, cols% 16, s|
00000110  70 72 69 74 65 25 20 26  41 37 30 32 30 2c 20 6d  |prite% &A7020, m|
00000120  6f 64 65 62 6c 6b 25 20  36 30 2c 20 62 72 75 73  |odeblk% 60, brus|
00000130  68 65 73 25 20 6c 25 2b  31 36 0d 00 64 20 c8 99  |hes% l%+16..d ..|
00000140  20 22 4f 53 5f 53 63 72  65 65 6e 4d 6f 64 65 22  | "OS_ScreenMode"|
00000150  2c 31 20 b8 20 2c 70 74  72 25 0d 00 6e 13 e3 20  |,1 . ,ptr%..n.. |
00000160  69 25 3d 30 20 b8 20 35  36 20 88 20 34 0d 00 78  |i%=0 . 56 . 4..x|
00000170  17 6d 6f 64 65 62 6c 6b  25 21 69 25 3d 70 74 72  |.modeblk%!i%=ptr|
00000180  25 21 69 25 0d 00 82 05  ed 0d 00 8c 1e eb 20 22  |%!i%.......... "|
00000190  58 34 38 30 20 59 33 35  32 20 43 31 36 4d 20 45  |X480 Y352 C16M E|
000001a0  58 31 20 45 59 31 22 0d  00 96 15 72 62 25 3d 30  |X1 EY1"....rb%=0|
000001b0  3a 67 62 25 3d 30 3a 62  62 25 3d 30 0d 00 a0 0c  |:gb%=0:bb%=0....|
000001c0  f2 73 65 74 63 6f 6c 73  0d 00 aa 07 da 3a 87 0d  |.setcols.....:..|
000001d0  00 b4 20 21 73 70 72 69  74 65 25 3d 26 41 37 30  |.. !sprite%=&A70|
000001e0  30 30 3a 73 70 72 69 74  65 25 21 38 3d 31 36 0d  |00:sprite%!8=16.|
000001f0  00 be 22 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..".. "OS_Sprite|
00000200  4f 70 22 2c 32 35 36 2b  39 2c 73 70 72 69 74 65  |Op",256+9,sprite|
00000210  25 0d 00 c8 21 21 62 72  75 73 68 65 73 25 3d 6c  |%...!!brushes%=l|
00000220  25 2b 31 36 3a 62 72 75  73 68 65 73 25 21 38 3d  |%+16:brushes%!8=|
00000230  31 36 0d 00 d2 23 c8 99  20 22 4f 53 5f 53 70 72  |16...#.. "OS_Spr|
00000240  69 74 65 4f 70 22 2c 32  35 36 2b 39 2c 62 72 75  |iteOp",256+9,bru|
00000250  73 68 65 73 25 0d 00 dc  3a c8 99 20 22 4f 53 5f  |shes%...:.. "OS_|
00000260  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 31 30  |SpriteOp",256+10|
00000270  2c 62 72 75 73 68 65 73  25 2c 22 3c 53 68 61 64  |,brushes%,"<Shad|
00000280  65 24 44 69 72 3e 2e 42  72 75 73 68 65 73 22 0d  |e$Dir>.Brushes".|
00000290  00 e6 0a 70 6f 73 25 3d  30 0d 00 f0 37 c8 99 20  |...pos%=0...7.. |
000002a0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
000002b0  36 2b 38 2c 62 72 75 73  68 65 73 25 20 b8 20 2c  |6+8,brushes% . ,|
000002c0  2c 2c 6e 75 6d 73 70 72  25 2c 73 70 72 73 74 25  |,,numspr%,sprst%|
000002d0  0d 00 fa 3f de 20 70 69  78 74 61 62 6c 65 25 20  |...?. pixtable% |
000002e0  31 36 30 30 2a 6e 75 6d  73 70 72 25 2c 6e 61 6d  |1600*numspr%,nam|
000002f0  65 73 25 20 6e 75 6d 73  70 72 25 2a 31 32 2c 73  |es% numspr%*12,s|
00000300  6e 61 6d 65 73 24 28 6e  75 6d 73 70 72 25 29 0d  |names$(numspr%).|
00000310  01 04 16 e3 20 63 25 3d  30 20 b8 20 6e 75 6d 73  |.... c%=0 . nums|
00000320  70 72 25 2d 31 0d 01 0e  0d 63 32 25 3d 63 25 2a  |pr%-1....c2%=c%*|
00000330  31 32 0d 01 18 2b f2 73  65 74 75 70 5f 70 69 78  |12...+.setup_pix|
00000340  74 61 62 6c 65 28 62 72  75 73 68 65 73 25 2b 73  |table(brushes%+s|
00000350  70 72 73 74 25 2b 31 32  34 2a 63 25 29 0d 01 22  |prst%+124*c%).."|
00000360  37 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |7.. "OS_SpriteOp|
00000370  22 2c 32 35 36 2b 31 33  2c 62 72 75 73 68 65 73  |",256+13,brushes|
00000380  25 2c 6e 61 6d 65 73 25  2b 63 32 25 2c 31 32 2c  |%,names%+c2%,12,|
00000390  63 25 2b 31 0d 01 2c 1f  70 6f 66 7a 65 72 6f 25  |c%+1..,.pofzero%|
000003a0  3d a7 24 28 6e 61 6d 65  73 25 2b 63 32 25 29 2c  |=.$(names%+c2%),|
000003b0  bd 30 29 0d 01 36 30 73  6e 61 6d 65 73 24 28 63  |.0)..60snames$(c|
000003c0  25 2b 31 29 3d c0 24 28  6e 61 6d 65 73 25 2b 63  |%+1)=.$(names%+c|
000003d0  32 25 29 2c 70 6f 66 7a  65 72 6f 25 2d 31 29 2b  |2%),pofzero%-1)+|
000003e0  bd 31 33 0d 01 40 05 ed  0d 01 4a 20 21 63 6f 6c  |.13..@....J !col|
000003f0  73 25 3d 30 3a 73 69 7a  65 25 3d 32 30 3a 44 25  |s%=0:size%=20:D%|
00000400  3d 34 30 3a 48 25 3d 31  0d 01 54 17 f2 63 68 61  |=40:H%=1..T..cha|
00000410  6e 67 65 5f 63 6f 6c 6f  75 72 73 68 69 66 74 0d  |nge_colourshift.|
00000420  01 5e 15 f2 63 68 61 6e  67 65 5f 62 72 75 73 68  |.^..change_brush|
00000430  74 79 70 65 0d 01 68 0e  f2 63 68 61 6e 67 65 5f  |type..h..change_|
00000440  62 67 0d 01 72 05 da 0d  01 7c 0f f2 61 73 73 6d  |bg..r....|..assm|
00000450  5f 73 65 74 75 70 0d 01  86 22 66 69 6c 65 6e 61  |_setup..."filena|
00000460  6d 65 24 3d 22 3c 53 68  61 64 65 24 44 69 72 3e  |me$="<Shade$Dir>|
00000470  2e 53 63 72 65 65 6e 22  0d 01 90 0c 2a 50 6f 69  |.Screen"....*Poi|
00000480  6e 74 65 72 0d 01 9a 13  78 32 25 3d 36 34 30 3a  |nter....x2%=640:|
00000490  79 32 25 3d 34 38 30 0d  01 a4 17 c8 97 20 c8 93  |y2%=480...... ..|
000004a0  20 32 30 2c 32 32 2c 39  31 38 2c 36 36 32 0d 01  | 20,22,918,662..|
000004b0  ae 05 f5 0d 01 b8 0f c8  97 20 78 25 2c 79 25 2c  |......... x%,y%,|
000004c0  62 25 0d 01 c2 0e 78 25  2d 3d 78 25 20 83 20 32  |b%....x%-=x% . 2|
000004d0  0d 01 cc 28 e7 20 62 25  3e 30 20 80 20 28 78 25  |...(. b%>0 . (x%|
000004e0  3c 3e 78 32 25 20 84 20  79 25 3c 3e 79 32 25 29  |<>x2% . y%<>y2%)|
000004f0  20 8c 20 f2 64 72 61 77  0d 01 d6 11 78 32 25 3d  | . .draw....x2%=|
00000500  78 25 3a 79 32 25 3d 79  25 0d 01 e0 0e e7 20 a6  |x%:y2%=y%..... .|
00000510  28 2d 39 30 29 20 da 0d  01 ea 12 e7 20 a6 28 2d  |(-90) ...... .(-|
00000520  36 32 29 20 f2 6d 65 6e  75 0d 01 f4 12 e7 20 a6  |62) .menu..... .|
00000530  28 2d 33 33 29 20 f2 73  61 76 65 0d 01 fe 07 fd  |(-33) .save.....|
00000540  20 a3 0d 02 08 0b f2 66  69 6e 69 73 68 0d 02 12  | ......finish...|
00000550  05 3a 0d 02 1c 0b dd 20  f2 64 72 61 77 0d 02 26  |.:..... .draw..&|
00000560  14 e7 20 78 25 3d 78 32  25 20 8c 20 78 25 2b 3d  |.. x%=x2% . x%+=|
00000570  31 0d 02 30 33 e7 20 94  28 78 25 2d 78 32 25 29  |1..03. .(x%-x2%)|
00000580  3e 94 28 79 25 2d 79 32  25 29 20 8c 20 f2 64 72  |>.(y%-y2%) . .dr|
00000590  61 77 5f 61 63 72 6f 73  73 20 8b 20 f2 64 72 61  |aw_across . .dra|
000005a0  77 5f 75 70 0d 02 3a 05  e1 0d 02 44 05 3a 0d 02  |w_up..:....D.:..|
000005b0  4e 12 dd 20 f2 64 72 61  77 5f 61 63 72 6f 73 73  |N.. .draw_across|
000005c0  0d 02 58 17 6d 3d 28 79  25 2d 79 32 25 29 2f 28  |..X.m=(y%-y2%)/(|
000005d0  78 25 2d 78 32 25 29 0d  02 62 0d 63 3d 79 25 2d  |x%-x2%)..b.c=y%-|
000005e0  6d 2a 78 25 0d 02 6c 2e  e7 20 78 25 3e 78 32 25  |m*x%..l.. x%>x2%|
000005f0  20 8c 20 76 25 3d 78 32  25 3a 77 25 3d 78 25 2d  | . v%=x2%:w%=x%-|
00000600  32 20 8b 20 76 25 3d 78  25 3a 77 25 3d 78 32 25  |2 . v%=x%:w%=x2%|
00000610  2d 32 0d 02 76 14 e3 20  69 25 3d 76 25 20 b8 20  |-2..v.. i%=v% . |
00000620  77 25 20 88 20 32 0d 02  80 25 42 25 3d 69 25 2d  |w% . 2...%B%=i%-|
00000630  73 69 7a 65 25 3a 43 25  3d 6d 2a 69 25 2b 63 2b  |size%:C%=m*i%+c+|
00000640  73 69 7a 65 25 3a 45 25  3d 44 25 0d 02 8a 0a d6  |size%:E%=D%.....|
00000650  20 70 6c 6f 74 0d 02 94  05 ed 0d 02 9e 05 e1 0d  | plot...........|
00000660  02 a8 05 3a 0d 02 b2 0e  dd 20 f2 64 72 61 77 5f  |...:..... .draw_|
00000670  75 70 0d 02 bc 17 6d 3d  28 79 25 2d 79 32 25 29  |up....m=(y%-y2%)|
00000680  2f 28 78 25 2d 78 32 25  29 0d 02 c6 0d 63 3d 79  |/(x%-x2%)....c=y|
00000690  25 2d 6d 2a 78 25 0d 02  d0 2e e7 20 79 25 3e 79  |%-m*x%..... y%>y|
000006a0  32 25 20 8c 20 76 25 3d  79 32 25 3a 77 25 3d 79  |2% . v%=y2%:w%=y|
000006b0  25 2d 32 20 8b 20 76 25  3d 79 25 3a 77 25 3d 79  |%-2 . v%=y%:w%=y|
000006c0  32 25 2d 32 0d 02 da 14  e3 20 69 25 3d 76 25 20  |2%-2..... i%=v% |
000006d0  b8 20 77 25 20 88 20 32  0d 02 e4 27 42 25 3d 28  |. w% . 2...'B%=(|
000006e0  69 25 2d 63 29 2f 6d 2d  73 69 7a 65 25 3a 43 25  |i%-c)/m-size%:C%|
000006f0  3d 69 25 2b 73 69 7a 65  25 3a 45 25 3d 44 25 0d  |=i%+size%:E%=D%.|
00000700  02 ee 0e 42 25 2d 3d 42  25 20 83 20 32 0d 02 f8  |...B%-=B% . 2...|
00000710  0a d6 20 70 6c 6f 74 0d  03 02 05 ed 0d 03 0c 05  |.. plot.........|
00000720  e1 0d 03 16 05 3a 0d 03  20 11 dd 20 f2 61 73 73  |.....:.. .. .ass|
00000730  6d 5f 73 65 74 75 70 0d  03 2a 19 21 76 64 75 74  |m_setup..*.!vdut|
00000740  25 3d 31 34 39 3a 76 64  75 74 25 21 34 3d 2d 31  |%=149:vdut%!4=-1|
00000750  0d 03 34 2a c8 99 20 22  4f 53 5f 52 65 61 64 56  |..4*.. "OS_ReadV|
00000760  64 75 56 61 72 69 61 62  6c 65 73 22 2c 76 64 75  |duVariables",vdu|
00000770  74 25 2c 76 64 75 74 25  2b 38 0d 03 3e 0e 41 25  |t%,vdut%+8..>.A%|
00000780  3d 76 64 75 74 25 21 38  0d 03 48 10 46 25 3d 70  |=vdut%!8..H.F%=p|
00000790  69 78 74 61 62 6c 65 25  0d 03 52 0c 47 25 3d 63  |ixtable%..R.G%=c|
000007a0  6f 6c 73 25 0d 03 5c 15  e3 20 70 61 73 73 25 3d  |ols%..\.. pass%=|
000007b0  30 20 b8 20 32 20 88 20  32 0d 03 66 0c 50 25 3d  |0 . 2 . 2..f.P%=|
000007c0  63 6f 64 65 25 0d 03 70  0e 5b 4f 50 54 20 70 61  |code%..p.[OPT pa|
000007d0  73 73 25 0d 03 7a 09 2e  70 6c 6f 74 0d 03 84 0f  |ss%..z..plot....|
000007e0  53 54 52 20 52 35 2c 70  78 74 73 0d 03 8e 12 52  |STR R5,pxts....R|
000007f0  53 42 20 52 32 2c 52 32  2c 23 37 30 34 0d 03 98  |SB R2,R2,#704...|
00000800  14 4d 4f 56 20 52 32 2c  52 32 2c 4c 53 52 20 23  |.MOV R2,R2,LSR #|
00000810  31 0d 03 a2 14 4d 4f 56  20 52 34 2c 52 34 2c 4c  |1....MOV R4,R4,L|
00000820  53 52 20 23 31 0d 03 ac  0f 4d 4f 56 20 52 35 2c  |SR #1....MOV R5,|
00000830  23 39 36 30 0d 03 b6 10  4d 4f 56 20 52 38 2c 23  |#960....MOV R8,#|
00000840  31 39 32 30 0d 03 c0 13  4d 4c 41 20 52 39 2c 52  |1920....MLA R9,R|
00000850  32 2c 52 38 2c 52 30 0d  03 ca 17 41 44 44 20 52  |2,R8,R0....ADD R|
00000860  39 2c 52 39 2c 52 31 2c  4c 53 4c 20 23 31 0d 03  |9,R9,R1,LSL #1..|
00000870  d4 18 41 44 44 20 52 31  32 2c 52 39 2c 52 33 2c  |..ADD R12,R9,R3,|
00000880  4c 53 4c 20 23 31 0d 03  de 14 4d 4c 41 20 52 31  |LSL #1....MLA R1|
00000890  30 2c 52 34 2c 52 38 2c  52 39 0d 03 e8 19 41 44  |0,R4,R8,R9....AD|
000008a0  44 20 52 31 30 2c 52 31  30 2c 52 33 2c 4c 53 4c  |D R10,R10,R3,LSL|
000008b0  20 23 31 0d 03 f2 0f 4c  44 52 20 52 35 2c 70 78  | #1....LDR R5,px|
000008c0  74 73 0d 03 fc 10 53 55  42 20 52 37 2c 52 37 2c  |ts....SUB R7,R7,|
000008d0  23 31 0d 04 06 10 4d 4f  56 20 52 31 2c 23 31 36  |#1....MOV R1,#16|
000008e0  30 30 0d 04 10 13 4d 4c  41 20 52 35 2c 52 37 2c  |00....MLA R5,R7,|
000008f0  52 31 2c 52 35 0d 04 1a  0f 4d 4f 56 20 52 30 2c  |R1,R5....MOV R0,|
00000900  23 32 35 35 0d 04 24 09  2e 6c 6f 6f 70 0d 04 2e  |#255..$..loop...|
00000910  12 4c 44 52 20 52 38 2c  5b 52 35 5d 2c 23 34 0d  |.LDR R8,[R5],#4.|
00000920  04 38 0d 54 45 51 20 52  38 2c 23 30 0d 04 42 0c  |.8.TEQ R8,#0..B.|
00000930  42 45 51 20 73 6b 69 70  0d 04 4c 10 4c 44 52 20  |BEQ skip..L.LDR |
00000940  52 31 31 2c 5b 52 39 5d  0d 04 56 0d 4d 4f 56 20  |R11,[R9]..V.MOV |
00000950  52 37 2c 23 30 0d 04 60  0a 2e 73 70 6c 69 74 0d  |R7,#0..`..split.|
00000960  04 6a 12 4c 44 52 20 52  31 2c 5b 52 36 5d 2c 23  |.j.LDR R1,[R6],#|
00000970  34 0d 04 74 16 80 20 52  32 2c 52 30 2c 52 31 31  |4..t.. R2,R0,R11|
00000980  2c 41 53 52 20 52 37 0d  04 7e 11 41 44 44 53 20  |,ASR R7..~.ADDS |
00000990  52 32 2c 52 32 2c 52 31  0d 04 88 0f 4d 4f 56 4d  |R2,R2,R1....MOVM|
000009a0  49 20 52 32 2c 23 30 0d  04 92 0d 43 4d 50 20 52  |I R2,#0....CMP R|
000009b0  32 2c 52 30 0d 04 9c 0f  4d 4f 56 47 54 20 52 32  |2,R0....MOVGT R2|
000009c0  2c 52 30 0d 04 a6 19 42  49 43 20 52 31 31 2c 52  |,R0....BIC R11,R|
000009d0  31 31 2c 52 30 2c 41 53  4c 20 52 37 0d 04 b0 18  |11,R0,ASL R7....|
000009e0  84 52 20 52 31 31 2c 52  31 31 2c 52 32 2c 41 53  |.R R11,R11,R2,AS|
000009f0  4c 20 52 37 0d 04 ba 10  41 44 44 20 52 37 2c 52  |L R7....ADD R7,R|
00000a00  37 2c 23 38 0d 04 c4 0e  54 45 51 20 52 37 2c 23  |7,#8....TEQ R7,#|
00000a10  32 34 0d 04 ce 0d 42 4e  45 20 73 70 6c 69 74 0d  |24....BNE split.|
00000a20  04 d8 10 53 54 52 20 52  31 31 2c 5b 52 39 5d 0d  |...STR R11,[R9].|
00000a30  04 e2 11 53 55 42 20 52  36 2c 52 36 2c 23 31 32  |...SUB R6,R6,#12|
00000a40  0d 04 ec 09 2e 73 6b 69  70 0d 04 f6 10 41 44 44  |.....skip....ADD|
00000a50  20 52 39 2c 52 39 2c 23  34 0d 05 00 0e 43 4d 50  | R9,R9,#4....CMP|
00000a60  20 52 39 2c 52 31 30 0d  05 0a 10 4d 4f 56 48 53  | R9,R10....MOVHS|
00000a70  20 50 43 2c 52 31 34 0d  05 14 0e 43 4d 50 20 52  | PC,R14....CMP R|
00000a80  39 2c 52 31 32 0d 05 1e  15 41 44 44 48 53 20 52  |9,R12....ADDHS R|
00000a90  39 2c 52 39 2c 23 31 39  32 30 0d 05 28 19 53 55  |9,R9,#1920..(.SU|
00000aa0  42 48 53 20 52 39 2c 52  39 2c 52 33 2c 4c 53 4c  |BHS R9,R9,R3,LSL|
00000ab0  20 23 31 0d 05 32 17 41  44 44 48 53 20 52 31 32  | #1..2.ADDHS R12|
00000ac0  2c 52 31 32 2c 23 31 39  32 30 0d 05 3c 0a 42 20  |,R12,#1920..<.B |
00000ad0  6c 6f 6f 70 0d 05 46 09  2e 70 78 74 73 0d 05 50  |loop..F..pxts..P|
00000ae0  0a 45 51 55 44 20 30 0d  05 5a 05 5d 0d 05 64 05  |.EQUD 0..Z.]..d.|
00000af0  ed 0d 05 6e 05 e1 0d 05  78 05 3a 0d 05 82 1e dd  |...n....x.:.....|
00000b00  20 f2 73 65 74 75 70 5f  70 69 78 74 61 62 6c 65  | .setup_pixtable|
00000b10  28 73 70 72 69 74 65 25  29 0d 05 8c 15 e3 20 79  |(sprite%)..... y|
00000b20  63 25 3d 31 39 20 b8 20  30 20 88 20 2d 31 0d 05  |c%=19 . 0 . -1..|
00000b30  96 10 e3 20 78 63 25 3d  30 20 b8 20 31 39 0d 05  |... xc%=0 . 19..|
00000b40  a0 4a c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.J.. "OS_SpriteO|
00000b50  70 22 2c 35 31 32 2b 34  31 2c 62 72 75 73 68 65  |p",512+41,brushe|
00000b60  73 25 2c 73 70 72 69 74  65 25 2c 78 63 25 2c 79  |s%,sprite%,xc%,y|
00000b70  63 25 20 b8 20 2c 2c 2c  2c 2c 70 69 78 74 61 62  |c% . ,,,,,pixtab|
00000b80  6c 65 25 21 70 6f 73 25  0d 05 aa 0b 70 6f 73 25  |le%!pos%....pos%|
00000b90  2b 3d 34 0d 05 b4 06 ed  2c 0d 05 be 05 e1 0d 05  |+=4.....,.......|
00000ba0  c8 05 3a 0d 05 d2 0b dd  20 f2 6d 65 6e 75 0d 05  |..:..... .menu..|
00000bb0  dc 15 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 32  |.... "OS_Byte",2|
00000bc0  31 2c 30 0d 05 e6 3e c8  99 20 22 4f 53 5f 53 70  |1,0...>.. "OS_Sp|
00000bd0  72 69 74 65 4f 70 22 2c  32 35 36 2b 31 36 2c 73  |riteOp",256+16,s|
00000be0  70 72 69 74 65 25 2c 22  73 63 72 65 65 6e 64 75  |prite%,"screendu|
00000bf0  6d 70 22 2c 30 2c 30 2c  30 2c 39 36 30 2c 37 30  |mp",0,0,0,960,70|
00000c00  34 0d 05 f0 05 da 0d 05  fa 26 f1 8a 31 31 2c 30  |4........&..11,0|
00000c10  29 3b 22 53 6b 65 74 63  68 50 6c 75 73 20 4d 65  |);"SketchPlus Me|
00000c20  6e 75 20 4f 70 74 69 6f  6e 73 3a 22 0d 06 04 26  |nu Options:"...&|
00000c30  f1 8a 31 31 2c 31 29 3b  22 3d 3d 3d 3d 3d 3d 3d  |..11,1);"=======|
00000c40  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000c50  3d 22 0d 06 0e 24 f1 8a  31 31 2c 33 29 3b 22 31  |="...$..11,3);"1|
00000c60  3a 20 43 68 61 6e 67 65  20 63 6f 6c 6f 75 72 20  |: Change colour |
00000c70  73 68 69 66 74 22 0d 06  18 22 f1 8a 31 31 2c 34  |shift"..."..11,4|
00000c80  29 3b 22 32 3a 20 43 68  61 6e 67 65 20 62 72 75  |);"2: Change bru|
00000c90  73 68 20 74 79 70 65 22  0d 06 22 29 f1 8a 31 31  |sh type"..")..11|
00000ca0  2c 35 29 3b 22 33 3a 20  43 68 61 6e 67 65 20 62  |,5);"3: Change b|
00000cb0  61 63 6b 67 72 6f 75 6e  64 20 63 6f 6c 6f 75 72  |ackground colour|
00000cc0  22 0d 06 2c 30 f1 8a 31  31 2c 36 29 3b 22 34 3a  |"..,0..11,6);"4:|
00000cd0  20 43 68 61 6e 67 65 20  66 69 6c 65 6e 61 6d 65  | Change filename|
00000ce0  20 66 6f 72 20 73 63 72  65 65 6e 20 73 61 76 65  | for screen save|
00000cf0  22 0d 06 36 08 4f 24 3d  be 0d 06 40 0b c8 8e 20  |"..6.O$=...@... |
00000d00  4f 24 20 ca 0d 06 4a 1d  c9 20 22 31 22 3a f2 63  |O$ ...J.. "1":.c|
00000d10  68 61 6e 67 65 5f 63 6f  6c 6f 75 72 73 68 69 66  |hange_colourshif|
00000d20  74 0d 06 54 1b c9 20 22  32 22 3a f2 63 68 61 6e  |t..T.. "2":.chan|
00000d30  67 65 5f 62 72 75 73 68  74 79 70 65 0d 06 5e 14  |ge_brushtype..^.|
00000d40  c9 20 22 33 22 3a f2 63  68 61 6e 67 65 5f 62 67  |. "3":.change_bg|
00000d50  0d 06 68 1a c9 20 22 34  22 3a f2 63 68 61 6e 67  |..h.. "4":.chang|
00000d60  65 5f 66 69 6c 65 6e 61  6d 65 0d 06 72 05 cb 0d  |e_filename..r...|
00000d70  06 7c 05 da 0d 06 86 36  c8 99 20 22 4f 53 5f 53  |.|.....6.. "OS_S|
00000d80  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 33 34 2c  |priteOp",256+34,|
00000d90  73 70 72 69 74 65 25 2c  22 73 63 72 65 65 6e 64  |sprite%,"screend|
00000da0  75 6d 70 22 2c 30 2c 30  2c 30 0d 06 90 10 e7 20  |ump",0,0,0..... |
00000db0  4f 24 3d 22 33 22 20 8c  20 da 0d 06 9a 05 e1 0d  |O$="3" . .......|
00000dc0  06 a4 05 3a 0d 06 ae 19  dd 20 f2 63 68 61 6e 67  |...:..... .chang|
00000dd0  65 5f 63 6f 6c 6f 75 72  73 68 69 66 74 0d 06 b8  |e_colourshift...|
00000de0  05 da 0d 06 c2 27 f1 8a  31 31 2c 30 29 3b 22 53  |.....'..11,0);"S|
00000df0  70 65 63 69 66 79 20 6e  65 77 20 63 6f 6c 6f 75  |pecify new colou|
00000e00  72 20 73 68 69 66 74 3a  22 0d 06 cc 24 e8 8a 31  |r shift:"...$..1|
00000e10  31 2c 31 29 3b 22 52 65  64 20 65 6c 65 6d 65 6e  |1,1);"Red elemen|
00000e20  74 3a 20 20 20 22 3b 21  63 6f 6c 73 25 0d 06 d6  |t:   ";!cols%...|
00000e30  25 e8 8a 31 31 2c 32 29  3b 22 47 72 65 65 6e 20  |%..11,2);"Green |
00000e40  65 6c 65 6d 65 6e 74 3a  20 22 3b 63 6f 6c 73 25  |element: ";cols%|
00000e50  21 34 0d 06 e0 25 e8 8a  31 31 2c 33 29 3b 22 42  |!4...%..11,3);"B|
00000e60  6c 75 65 20 65 6c 65 6d  65 6e 74 3a 20 20 22 3b  |lue element:  ";|
00000e70  63 6f 6c 73 25 21 38 0d  06 ea 05 e1 0d 06 f4 05  |cols%!8.........|
00000e80  3a 0d 06 fe 17 dd 20 f2  63 68 61 6e 67 65 5f 62  |:..... .change_b|
00000e90  72 75 73 68 74 79 70 65  0d 07 08 05 da 0d 07 12  |rushtype........|
00000ea0  0b 6f 6c 64 25 3d 48 25  0d 07 1c 2c f1 8a 31 31  |.old%=H%...,..11|
00000eb0  2c 30 29 3b 22 4f 6c 64  20 62 72 75 73 68 20 74  |,0);"Old brush t|
00000ec0  79 70 65 3a 20 22 3b 73  6e 61 6d 65 73 24 28 6f  |ype: ";snames$(o|
00000ed0  6c 64 25 29 0d 07 26 26  f1 8a 31 31 2c 32 29 3b  |ld%)..&&..11,2);|
00000ee0  22 43 68 6f 6f 73 65 20  61 20 6e 65 77 20 62 72  |"Choose a new br|
00000ef0  75 73 68 20 74 79 70 65  3a 22 0d 07 30 0b 6c 69  |ush type:"..0.li|
00000f00  6e 65 25 3d 33 0d 07 3a  14 e3 20 69 25 3d 31 20  |ne%=3..:.. i%=1 |
00000f10  b8 20 6e 75 6d 73 70 72  25 0d 07 44 23 f1 8a 31  |. numspr%..D#..1|
00000f20  31 2c 6c 69 6e 65 25 29  3b 69 25 3b 22 3a 20 22  |1,line%);i%;": "|
00000f30  3b 73 6e 61 6d 65 73 24  28 69 25 29 0d 07 4e 0c  |;snames$(i%)..N.|
00000f40  6c 69 6e 65 25 2b 3d 31  0d 07 58 05 ed 0d 07 62  |line%+=1..X....b|
00000f50  14 e8 8a 31 31 2c 6c 69  6e 65 25 2b 31 29 3b 48  |...11,line%+1);H|
00000f60  25 0d 07 6c 33 e7 20 48  25 3c 30 20 84 20 48 25  |%..l3. H%<0 . H%|
00000f70  3e 6e 75 6d 73 70 72 25  20 8c 20 48 25 3d 6f 6c  |>numspr% . H%=ol|
00000f80  64 25 3a f2 63 68 61 6e  67 65 5f 62 72 75 73 68  |d%:.change_brush|
00000f90  74 79 70 65 0d 07 76 14  e7 20 48 25 3d 30 20 8c  |type..v.. H%=0 .|
00000fa0  20 48 25 3d 6f 6c 64 25  0d 07 80 12 73 69 7a 65  | H%=old%....size|
00000fb0  25 3d 32 30 3a 44 25 3d  34 30 0d 07 8a 05 e1 0d  |%=20:D%=40......|
00000fc0  07 94 05 3a 0d 07 9e 10  dd 20 f2 63 68 61 6e 67  |...:..... .chang|
00000fd0  65 5f 62 67 0d 07 a8 05  da 0d 07 b2 24 f1 8a 31  |e_bg........$..1|
00000fe0  31 2c 30 29 3b 22 4e 65  77 20 62 61 63 6b 67 72  |1,0);"New backgr|
00000ff0  6f 75 6e 64 20 63 6f 6c  6f 75 72 3a 22 0d 07 bc  |ound colour:"...|
00001000  20 e8 8a 31 31 2c 32 29  3b 22 52 65 64 20 65 6c  | ..11,2);"Red el|
00001010  65 6d 65 6e 74 20 20 20  22 3b 72 62 25 0d 07 c6  |ement   ";rb%...|
00001020  20 e8 8a 31 31 2c 33 29  3b 22 47 72 65 65 6e 20  | ..11,3);"Green |
00001030  65 6c 65 6d 65 6e 74 20  22 3b 67 62 25 0d 07 d0  |element ";gb%...|
00001040  20 e8 8a 31 31 2c 34 29  3b 22 42 6c 75 65 20 65  | ..11,4);"Blue e|
00001050  6c 65 6d 65 6e 74 20 20  22 3b 62 62 25 0d 07 da  |lement  ";bb%...|
00001060  46 e7 20 72 62 25 3c 30  20 84 20 72 62 25 3e 32  |F. rb%<0 . rb%>2|
00001070  35 35 20 84 20 67 62 25  3c 30 20 84 20 67 62 25  |55 . gb%<0 . gb%|
00001080  3e 32 35 35 20 84 20 62  62 25 3c 30 20 84 20 62  |>255 . bb%<0 . b|
00001090  62 25 3e 32 35 35 20 8c  20 f2 63 68 61 6e 67 65  |b%>255 . .change|
000010a0  5f 62 67 0d 07 e4 0c f2  73 65 74 63 6f 6c 73 0d  |_bg.....setcols.|
000010b0  07 ee 05 e1 0d 07 f8 05  3a 0d 08 02 0e dd 20 f2  |........:..... .|
000010c0  73 65 74 63 6f 6c 73 0d  08 0c 15 e6 20 31 32 38  |setcols..... 128|
000010d0  2c 72 62 25 2c 67 62 25  2c 62 62 25 0d 08 16 19  |,rb%,gb%,bb%....|
000010e0  e7 20 28 72 62 25 2b 67  62 25 2b 62 62 25 29 3c  |. (rb%+gb%+bb%)<|
000010f0  33 38 34 20 8c 0d 08 20  07 fb 20 30 0d 08 2a 09  |384 ... .. 0..*.|
00001100  fb 20 31 39 31 0d 08 34  05 cc 0d 08 3e 08 fb 20  |. 191..4....>.. |
00001110  36 33 0d 08 48 09 fb 20  31 32 38 0d 08 52 05 cd  |63..H.. 128..R..|
00001120  0d 08 5c 05 e1 0d 08 66  05 3a 0d 08 70 16 dd 20  |..\....f.:..p.. |
00001130  f2 63 68 61 6e 67 65 5f  66 69 6c 65 6e 61 6d 65  |.change_filename|
00001140  0d 08 7a 05 da 0d 08 84  12 6f 6c 64 24 3d 66 69  |..z......old$=fi|
00001150  6c 65 6e 61 6d 65 24 0d  08 8e 1b f1 8a 31 31 2c  |lename$......11,|
00001160  30 29 3b 22 4f 6c 64 20  66 69 6c 65 6e 61 6d 65  |0);"Old filename|
00001170  3a 22 0d 08 98 15 f1 8a  31 31 2c 31 29 3b 66 69  |:"......11,1);fi|
00001180  6c 65 6e 61 6d 65 24 0d  08 a2 1b f1 8a 31 31 2c  |lename$......11,|
00001190  33 29 3b 22 4e 65 77 20  66 69 6c 65 6e 61 6d 65  |3);"New filename|
000011a0  3a 22 0d 08 ac 15 e8 8a  31 31 2c 34 29 3b 66 69  |:"......11,4);fi|
000011b0  6c 65 6e 61 6d 65 24 0d  08 b6 23 e7 20 66 69 6c  |lename$...#. fil|
000011c0  65 6e 61 6d 65 24 3d 22  22 20 8c 20 66 69 6c 65  |ename$="" . file|
000011d0  6e 61 6d 65 24 3d 6f 6c  64 24 0d 08 c0 05 e1 0d  |name$=old$......|
000011e0  08 ca 05 3a 0d 08 d4 0b  dd 20 f2 73 61 76 65 0d  |...:..... .save.|
000011f0  08 de 15 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |..... "OS_Byte",|
00001200  32 31 2c 30 0d 08 e8 23  c8 99 20 22 4f 53 5f 53  |21,0...#.. "OS_S|
00001210  70 72 69 74 65 4f 70 22  2c 32 2c 2c 66 69 6c 65  |priteOp",2,,file|
00001220  6e 61 6d 65 24 2c 30 0d  08 f2 05 e1 0d 08 fc 05  |name$,0.........|
00001230  3a 0d 09 06 0c dd 20 f2  65 72 72 6f 72 0d 09 10  |:..... .error...|
00001240  16 f1 20 f6 24 3b 22 20  61 74 20 6c 69 6e 65 20  |.. .$;" at line |
00001250  22 3b 9e 0d 09 1a 09 6b  65 79 3d a5 0d 09 24 0b  |";.....key=...$.|
00001260  f2 66 69 6e 69 73 68 0d  09 2e 05 3a 0d 09 38 0d  |.finish....:..8.|
00001270  dd 20 f2 66 69 6e 69 73  68 0d 09 42 1e c8 99 20  |. .finish..B... |
00001280  22 57 69 6d 70 5f 53 65  74 4d 6f 64 65 22 2c 6d  |"Wimp_SetMode",m|
00001290  6f 64 65 62 6c 6b 25 0d  09 4c 05 ee 0d 09 56 05  |odeblk%..L....V.|
000012a0  e0 0d ff                                          |...|
000012a3