>� Andrew Clover apologises for his programming style here.
 � I do better stuff now! ;-)

(K� I had to change the intro sprites from the original, and I only had a
2N� unpacker (in the BSUtilMod). No packer. So the sprites are uncompressed.
<	� ;-(
FN� Ah well, it's only run-length type stuff. Hardly a wonderful compression
P)� algorithm - but then it was 1992...
Z� � Archimedes World 1994
d
n'ș "OS_Byte",129,0,255 � ,kludge_os
x� IF kludge_os>&A4 THEN
�& kludge_mode=15:kludge_modeofs=512
�
� ELSE
�%� kludge_mode=67:kludge_modeofs=0
�� ENDIF
�
�O� � � �=17 � �esc:� � �"Error 0 Sorry. I'm unable to start up because: "+�$
� � bspri% 107950, bcode% 1000
�ș "BS_Initialise" � handl%
�
�ș "Coco_Start"
�
�+hfile%=� "<Obey$Dir>.Resources.Options"
�3�#hfile%,klist$:�#hfile%,vmusx%:�#hfile%,veffx%

=�#hfile%:� "Load <Obey$Dir>.Resources.IntroSpr "+�~bspri%

0� SYS "BS_Unpack",handl%,bspro%,bspri%,30789

1� kludge_mode:�assemble:ș "OS_RemoveCursors"

"Kș "OS_SpriteOp",34+256,bspri%,"intro1",640-344,256-90*2+kludge_modeofs

, �wait(212):� efade:�wait(40)

6Lș "OS_SpriteOp",34+256,bspri%,"intro2",640-367,256-111*2+kludge_modeofs

@ �wait(212):� efade:�wait(40)

JIș "OS_SpriteOp",34+256,bspri%,"logo",640-576,512-42*4+kludge_modeofs

TV�wait(62):ș "OS_SpriteOp",34+256,bspri%,"copyreg",640-433,512-64*4+kludge_modeofs

^R�wait(62):ș "OS_SpriteOp",34+256,bspri%,"loading",1280-2*183,0+kludge_modeofs

h�

r:

|	��esc

�K�:ș "OS_SpriteOp",34+256,bspri%,"logo",640-576,512-42*4+kludge_modeofs

�Lș "OS_SpriteOp",34+256,bspri%,"copyreg",640-433,512-64*4+kludge_modeofs

�Hș "OS_SpriteOp",34+256,bspri%,"loading",1280-2*183,0+kludge_modeofs

��

�:

���wait(vwait%)

�� lwait%=1�vwait%:Ȗ:�:�

�:

���assemble

�� fpass%=0�2�2

�P%=bcode%:[OPT fpass%

�:

�-.efade ADR R12,bdata:MOV R0,#19:MOV R3,#0
4.lfadb LDR R1,[R12,#0]:MOV R2,#4096:ADD R1,R1,R0
3.lfads STRB R3,[R1],#20:SUBS R2,R2,#1:BNE lfads
&SUBS R0,R0,#1:BPL lfadb:MOV PC,R14
&:
0
.bdata
:EQUD &1FEC000
D]:�
N<� Following line is kludge to make it work on 4Mb, 1994!
X  � kludge 8
b  !kludge=149
l  kludge!4=-1
v+  ș "OS_ReadVduVariables",kludge,bdata
��
�

00000000  0d 00 0a 3e f4 20 41 6e  64 72 65 77 20 43 6c 6f  |...>. Andrew Clo|
00000010  76 65 72 20 61 70 6f 6c  6f 67 69 73 65 73 20 66  |ver apologises f|
00000020  6f 72 20 68 69 73 20 70  72 6f 67 72 61 6d 6d 69  |or his programmi|
00000030  6e 67 20 73 74 79 6c 65  20 68 65 72 65 2e 0d 00  |ng style here...|
00000040  14 20 f4 20 49 20 64 6f  20 62 65 74 74 65 72 20  |. . I do better |
00000050  73 74 75 66 66 20 6e 6f  77 21 20 3b 2d 29 0d 00  |stuff now! ;-)..|
00000060  1e 04 0d 00 28 4b f4 20  49 20 68 61 64 20 74 6f  |....(K. I had to|
00000070  20 63 68 61 6e 67 65 20  74 68 65 20 69 6e 74 72  | change the intr|
00000080  6f 20 73 70 72 69 74 65  73 20 66 72 6f 6d 20 74  |o sprites from t|
00000090  68 65 20 6f 72 69 67 69  6e 61 6c 2c 20 61 6e 64  |he original, and|
000000a0  20 49 20 6f 6e 6c 79 20  68 61 64 20 61 0d 00 32  | I only had a..2|
000000b0  4e f4 20 75 6e 70 61 63  6b 65 72 20 28 69 6e 20  |N. unpacker (in |
000000c0  74 68 65 20 42 53 55 74  69 6c 4d 6f 64 29 2e 20  |the BSUtilMod). |
000000d0  4e 6f 20 70 61 63 6b 65  72 2e 20 53 6f 20 74 68  |No packer. So th|
000000e0  65 20 73 70 72 69 74 65  73 20 61 72 65 20 75 6e  |e sprites are un|
000000f0  63 6f 6d 70 72 65 73 73  65 64 2e 0d 00 3c 09 f4  |compressed...<..|
00000100  20 3b 2d 28 0d 00 46 4e  f4 20 41 68 20 77 65 6c  | ;-(..FN. Ah wel|
00000110  6c 2c 20 69 74 27 73 20  6f 6e 6c 79 20 72 75 6e  |l, it's only run|
00000120  2d 6c 65 6e 67 74 68 20  74 79 70 65 20 73 74 75  |-length type stu|
00000130  66 66 2e 20 48 61 72 64  6c 79 20 61 20 77 6f 6e  |ff. Hardly a won|
00000140  64 65 72 66 75 6c 20 63  6f 6d 70 72 65 73 73 69  |derful compressi|
00000150  6f 6e 0d 00 50 29 f4 20  61 6c 67 6f 72 69 74 68  |on..P). algorith|
00000160  6d 20 2d 20 62 75 74 20  74 68 65 6e 20 69 74 20  |m - but then it |
00000170  77 61 73 20 31 39 39 32  2e 2e 2e 0d 00 5a 1d f4  |was 1992.....Z..|
00000180  20 a9 20 41 72 63 68 69  6d 65 64 65 73 20 57 6f  | . Archimedes Wo|
00000190  72 6c 64 20 31 39 39 34  0d 00 64 04 0d 00 6e 27  |rld 1994..d...n'|
000001a0  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 32 39  |.. "OS_Byte",129|
000001b0  2c 30 2c 32 35 35 20 b8  20 2c 6b 6c 75 64 67 65  |,0,255 . ,kludge|
000001c0  5f 6f 73 0d 00 78 1b f4  20 49 46 20 6b 6c 75 64  |_os..x.. IF klud|
000001d0  67 65 5f 6f 73 3e 26 41  34 20 54 48 45 4e 0d 00  |ge_os>&A4 THEN..|
000001e0  82 26 20 6b 6c 75 64 67  65 5f 6d 6f 64 65 3d 31  |.& kludge_mode=1|
000001f0  35 3a 6b 6c 75 64 67 65  5f 6d 6f 64 65 6f 66 73  |5:kludge_modeofs|
00000200  3d 35 31 32 0d 00 8c 0a  f4 20 45 4c 53 45 0d 00  |=512..... ELSE..|
00000210  96 25 f4 20 6b 6c 75 64  67 65 5f 6d 6f 64 65 3d  |.%. kludge_mode=|
00000220  36 37 3a 6b 6c 75 64 67  65 5f 6d 6f 64 65 6f 66  |67:kludge_modeof|
00000230  73 3d 30 0d 00 a0 0b f4  20 45 4e 44 49 46 0d 00  |s=0..... ENDIF..|
00000240  aa 04 0d 00 b4 4f ee 20  85 20 e7 20 9f 3d 31 37  |.....O. . . .=17|
00000250  20 8c 20 f2 65 73 63 3a  e0 20 8b 20 ff 22 45 72  | . .esc:. . ."Er|
00000260  72 6f 72 20 30 20 53 6f  72 72 79 2e 20 49 27 6d  |ror 0 Sorry. I'm|
00000270  20 75 6e 61 62 6c 65 20  74 6f 20 73 74 61 72 74  | unable to start|
00000280  20 75 70 20 62 65 63 61  75 73 65 3a 20 22 2b f6  | up because: "+.|
00000290  24 0d 00 be 20 de 20 62  73 70 72 69 25 20 31 30  |$... . bspri% 10|
000002a0  37 39 35 30 2c 20 62 63  6f 64 65 25 20 31 30 30  |7950, bcode% 100|
000002b0  30 0d 00 c8 1f c8 99 20  22 42 53 5f 49 6e 69 74  |0...... "BS_Init|
000002c0  69 61 6c 69 73 65 22 20  b8 20 68 61 6e 64 6c 25  |ialise" . handl%|
000002d0  0d 00 d2 04 0d 00 dc 13  c8 99 20 22 43 6f 63 6f  |.......... "Coco|
000002e0  5f 53 74 61 72 74 22 0d  00 e6 04 0d 00 f0 2b 68  |_Start".......+h|
000002f0  66 69 6c 65 25 3d ad 20  22 3c 4f 62 65 79 24 44  |file%=. "<Obey$D|
00000300  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 4f 70  |ir>.Resources.Op|
00000310  74 69 6f 6e 73 22 0d 00  fa 33 e8 23 68 66 69 6c  |tions"...3.#hfil|
00000320  65 25 2c 6b 6c 69 73 74  24 3a e8 23 68 66 69 6c  |e%,klist$:.#hfil|
00000330  65 25 2c 76 6d 75 73 78  25 3a e8 23 68 66 69 6c  |e%,vmusx%:.#hfil|
00000340  65 25 2c 76 65 66 66 78  25 0d 01 04 3d d9 23 68  |e%,veffx%...=.#h|
00000350  66 69 6c 65 25 3a ff 20  22 4c 6f 61 64 20 3c 4f  |file%:. "Load <O|
00000360  62 65 79 24 44 69 72 3e  2e 52 65 73 6f 75 72 63  |bey$Dir>.Resourc|
00000370  65 73 2e 49 6e 74 72 6f  53 70 72 20 22 2b c3 7e  |es.IntroSpr "+.~|
00000380  62 73 70 72 69 25 0d 01  0e 30 f4 20 53 59 53 20  |bspri%...0. SYS |
00000390  22 42 53 5f 55 6e 70 61  63 6b 22 2c 68 61 6e 64  |"BS_Unpack",hand|
000003a0  6c 25 2c 62 73 70 72 6f  25 2c 62 73 70 72 69 25  |l%,bspro%,bspri%|
000003b0  2c 33 30 37 38 39 0d 01  18 31 eb 20 6b 6c 75 64  |,30789...1. klud|
000003c0  67 65 5f 6d 6f 64 65 3a  f2 61 73 73 65 6d 62 6c  |ge_mode:.assembl|
000003d0  65 3a c8 99 20 22 4f 53  5f 52 65 6d 6f 76 65 43  |e:.. "OS_RemoveC|
000003e0  75 72 73 6f 72 73 22 0d  01 22 4b c8 99 20 22 4f  |ursors".."K.. "O|
000003f0  53 5f 53 70 72 69 74 65  4f 70 22 2c 33 34 2b 32  |S_SpriteOp",34+2|
00000400  35 36 2c 62 73 70 72 69  25 2c 22 69 6e 74 72 6f  |56,bspri%,"intro|
00000410  31 22 2c 36 34 30 2d 33  34 34 2c 32 35 36 2d 39  |1",640-344,256-9|
00000420  30 2a 32 2b 6b 6c 75 64  67 65 5f 6d 6f 64 65 6f  |0*2+kludge_modeo|
00000430  66 73 0d 01 2c 20 f2 77  61 69 74 28 32 31 32 29  |fs.., .wait(212)|
00000440  3a d6 20 65 66 61 64 65  3a f2 77 61 69 74 28 34  |:. efade:.wait(4|
00000450  30 29 0d 01 36 4c c8 99  20 22 4f 53 5f 53 70 72  |0)..6L.. "OS_Spr|
00000460  69 74 65 4f 70 22 2c 33  34 2b 32 35 36 2c 62 73  |iteOp",34+256,bs|
00000470  70 72 69 25 2c 22 69 6e  74 72 6f 32 22 2c 36 34  |pri%,"intro2",64|
00000480  30 2d 33 36 37 2c 32 35  36 2d 31 31 31 2a 32 2b  |0-367,256-111*2+|
00000490  6b 6c 75 64 67 65 5f 6d  6f 64 65 6f 66 73 0d 01  |kludge_modeofs..|
000004a0  40 20 f2 77 61 69 74 28  32 31 32 29 3a d6 20 65  |@ .wait(212):. e|
000004b0  66 61 64 65 3a f2 77 61  69 74 28 34 30 29 0d 01  |fade:.wait(40)..|
000004c0  4a 49 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |JI.. "OS_SpriteO|
000004d0  70 22 2c 33 34 2b 32 35  36 2c 62 73 70 72 69 25  |p",34+256,bspri%|
000004e0  2c 22 6c 6f 67 6f 22 2c  36 34 30 2d 35 37 36 2c  |,"logo",640-576,|
000004f0  35 31 32 2d 34 32 2a 34  2b 6b 6c 75 64 67 65 5f  |512-42*4+kludge_|
00000500  6d 6f 64 65 6f 66 73 0d  01 54 56 f2 77 61 69 74  |modeofs..TV.wait|
00000510  28 36 32 29 3a c8 99 20  22 4f 53 5f 53 70 72 69  |(62):.. "OS_Spri|
00000520  74 65 4f 70 22 2c 33 34  2b 32 35 36 2c 62 73 70  |teOp",34+256,bsp|
00000530  72 69 25 2c 22 63 6f 70  79 72 65 67 22 2c 36 34  |ri%,"copyreg",64|
00000540  30 2d 34 33 33 2c 35 31  32 2d 36 34 2a 34 2b 6b  |0-433,512-64*4+k|
00000550  6c 75 64 67 65 5f 6d 6f  64 65 6f 66 73 0d 01 5e  |ludge_modeofs..^|
00000560  52 f2 77 61 69 74 28 36  32 29 3a c8 99 20 22 4f  |R.wait(62):.. "O|
00000570  53 5f 53 70 72 69 74 65  4f 70 22 2c 33 34 2b 32  |S_SpriteOp",34+2|
00000580  35 36 2c 62 73 70 72 69  25 2c 22 6c 6f 61 64 69  |56,bspri%,"loadi|
00000590  6e 67 22 2c 31 32 38 30  2d 32 2a 31 38 33 2c 30  |ng",1280-2*183,0|
000005a0  2b 6b 6c 75 64 67 65 5f  6d 6f 64 65 6f 66 73 0d  |+kludge_modeofs.|
000005b0  01 68 05 e0 0d 01 72 05  3a 0d 01 7c 09 dd f2 65  |.h....r.:..|...e|
000005c0  73 63 0d 01 86 4b db 3a  c8 99 20 22 4f 53 5f 53  |sc...K.:.. "OS_S|
000005d0  70 72 69 74 65 4f 70 22  2c 33 34 2b 32 35 36 2c  |priteOp",34+256,|
000005e0  62 73 70 72 69 25 2c 22  6c 6f 67 6f 22 2c 36 34  |bspri%,"logo",64|
000005f0  30 2d 35 37 36 2c 35 31  32 2d 34 32 2a 34 2b 6b  |0-576,512-42*4+k|
00000600  6c 75 64 67 65 5f 6d 6f  64 65 6f 66 73 0d 01 90  |ludge_modeofs...|
00000610  4c c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |L.. "OS_SpriteOp|
00000620  22 2c 33 34 2b 32 35 36  2c 62 73 70 72 69 25 2c  |",34+256,bspri%,|
00000630  22 63 6f 70 79 72 65 67  22 2c 36 34 30 2d 34 33  |"copyreg",640-43|
00000640  33 2c 35 31 32 2d 36 34  2a 34 2b 6b 6c 75 64 67  |3,512-64*4+kludg|
00000650  65 5f 6d 6f 64 65 6f 66  73 0d 01 9a 48 c8 99 20  |e_modeofs...H.. |
00000660  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 33 34  |"OS_SpriteOp",34|
00000670  2b 32 35 36 2c 62 73 70  72 69 25 2c 22 6c 6f 61  |+256,bspri%,"loa|
00000680  64 69 6e 67 22 2c 31 32  38 30 2d 32 2a 31 38 33  |ding",1280-2*183|
00000690  2c 30 2b 6b 6c 75 64 67  65 5f 6d 6f 64 65 6f 66  |,0+kludge_modeof|
000006a0  73 0d 01 a4 05 e1 0d 01  ae 05 3a 0d 01 b8 12 dd  |s.........:.....|
000006b0  f2 77 61 69 74 28 76 77  61 69 74 25 29 0d 01 c2  |.wait(vwait%)...|
000006c0  1c e3 20 6c 77 61 69 74  25 3d 31 b8 76 77 61 69  |.. lwait%=1.vwai|
000006d0  74 25 3a c8 96 3a ed 3a  e1 0d 01 cc 05 3a 0d 01  |t%:..:.:.....:..|
000006e0  d6 0e dd f2 61 73 73 65  6d 62 6c 65 0d 01 e0 12  |....assemble....|
000006f0  e3 20 66 70 61 73 73 25  3d 30 b8 32 88 32 0d 01  |. fpass%=0.2.2..|
00000700  ea 19 50 25 3d 62 63 6f  64 65 25 3a 5b 4f 50 54  |..P%=bcode%:[OPT|
00000710  20 66 70 61 73 73 25 0d  01 f4 05 3a 0d 01 fe 2d  | fpass%....:...-|
00000720  2e 65 66 61 64 65 20 41  44 52 20 52 31 32 2c 62  |.efade ADR R12,b|
00000730  64 61 74 61 3a 4d 4f 56  20 52 30 2c 23 31 39 3a  |data:MOV R0,#19:|
00000740  4d 4f 56 20 52 33 2c 23  30 0d 02 08 34 2e 6c 66  |MOV R3,#0...4.lf|
00000750  61 64 62 20 4c 44 52 20  52 31 2c 5b 52 31 32 2c  |adb LDR R1,[R12,|
00000760  23 30 5d 3a 4d 4f 56 20  52 32 2c 23 34 30 39 36  |#0]:MOV R2,#4096|
00000770  3a 41 44 44 20 52 31 2c  52 31 2c 52 30 0d 02 12  |:ADD R1,R1,R0...|
00000780  33 2e 6c 66 61 64 73 20  53 54 52 42 20 52 33 2c  |3.lfads STRB R3,|
00000790  5b 52 31 5d 2c 23 32 30  3a 53 55 42 53 20 52 32  |[R1],#20:SUBS R2|
000007a0  2c 52 32 2c 23 31 3a 42  4e 45 20 6c 66 61 64 73  |,R2,#1:BNE lfads|
000007b0  0d 02 1c 26 53 55 42 53  20 52 30 2c 52 30 2c 23  |...&SUBS R0,R0,#|
000007c0  31 3a 42 50 4c 20 6c 66  61 64 62 3a 4d 4f 56 20  |1:BPL lfadb:MOV |
000007d0  50 43 2c 52 31 34 0d 02  26 05 3a 0d 02 30 0a 2e  |PC,R14..&.:..0..|
000007e0  62 64 61 74 61 0d 02 3a  11 45 51 55 44 20 26 31  |bdata..:.EQUD &1|
000007f0  46 45 43 30 30 30 0d 02  44 07 5d 3a ed 0d 02 4e  |FEC000..D.]:...N|
00000800  3c f4 20 46 6f 6c 6c 6f  77 69 6e 67 20 6c 69 6e  |<. Following lin|
00000810  65 20 69 73 20 6b 6c 75  64 67 65 20 74 6f 20 6d  |e is kludge to m|
00000820  61 6b 65 20 69 74 20 77  6f 72 6b 20 6f 6e 20 34  |ake it work on 4|
00000830  4d 62 2c 20 31 39 39 34  21 0d 02 58 10 20 20 de  |Mb, 1994!..X.  .|
00000840  20 6b 6c 75 64 67 65 20  38 0d 02 62 11 20 20 21  | kludge 8..b.  !|
00000850  6b 6c 75 64 67 65 3d 31  34 39 0d 02 6c 11 20 20  |kludge=149..l.  |
00000860  6b 6c 75 64 67 65 21 34  3d 2d 31 0d 02 76 2b 20  |kludge!4=-1..v+ |
00000870  20 c8 99 20 22 4f 53 5f  52 65 61 64 56 64 75 56  | .. "OS_ReadVduV|
00000880  61 72 69 61 62 6c 65 73  22 2c 6b 6c 75 64 67 65  |ariables",kludge|
00000890  2c 62 64 61 74 61 0d 02  80 05 e1 0d ff           |,bdata.......|
0000089d