&� > <Process$Dir>.Resources.!Intro
:� b% 256,ST% 16,CT% 16,Spr% 70000,Work% 40000,In% 8000
C$b%="TASK":ș"Wimp_Initialise",200,!b%,"Process Intro" � ,Task%
(-ș"OS_ReadModeVariable",-1,3 � ,,Colours%
2,ș"OS_ReadModeVariable",-1,4 � ,,ShiftX%
<,ș"OS_ReadModeVariable",-1,5 � ,,ShiftY%
F.ș"OS_ReadModeVariable",-1,11 � ,,PixelsX%
P.ș"OS_ReadModeVariable",-1,12 � ,,PixelsY%
ZOSX%=PixelsX%<<ShiftX%
dOSY%=PixelsY%<<ShiftY%
nSpr%!0=70000
x� ShiftY%<2 �
�) f$="<Process$Dir>.Resources.Intro22"
� ImageShiftY%=1
��
�' f$="<Process$Dir>.Resources.Intro"
� ImageShiftY%=2
��
�ok%=�LoadSquash(f$)
�� ok% �
�7 � ShiftX%=1 � ShiftY%=ImageShiftY% � Colours%=15 �
�3  � SpriteOp 34 is much faster than SpriteOp 52
�@  ș"OS_SpriteOp",290,Spr%,"PROCESS",OSX%/2-430,OSY%/2-320,0
� �
�9  ș"Wimp_ReadPixTrans",296,Spr%,"PROCESS",,,,ST%,CT%

H  ș"OS_SpriteOp",308,Spr%,"PROCESS",OSX%/2-430,OSY%/2-320,0,ST%,CT%

 �

�

"ș"Wimp_CloseDown"

,Ș

6

@ݤLoadSquash(f$)

J � ok%,len%

T= ș"OS_File",5,f$ � ok%,,,,len%:� ok%<>1 � len%>8000 � =�

^ ș"OS_File",255,f$,In%

hA ș"Squash_Decompress",%100,Work%,In%+20,len%-20,Spr%+4,In%!4

r=�
�

00000000  0d 00 0a 26 f4 20 3e 20  3c 50 72 6f 63 65 73 73  |...&. > <Process|
00000010  24 44 69 72 3e 2e 52 65  73 6f 75 72 63 65 73 2e  |$Dir>.Resources.|
00000020  21 49 6e 74 72 6f 0d 00  14 3a de 20 62 25 20 32  |!Intro...:. b% 2|
00000030  35 36 2c 53 54 25 20 31  36 2c 43 54 25 20 31 36  |56,ST% 16,CT% 16|
00000040  2c 53 70 72 25 20 37 30  30 30 30 2c 57 6f 72 6b  |,Spr% 70000,Work|
00000050  25 20 34 30 30 30 30 2c  49 6e 25 20 38 30 30 30  |% 40000,In% 8000|
00000060  0d 00 1e 43 24 62 25 3d  22 54 41 53 4b 22 3a c8  |...C$b%="TASK":.|
00000070  99 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  |."Wimp_Initialis|
00000080  65 22 2c 32 30 30 2c 21  62 25 2c 22 50 72 6f 63  |e",200,!b%,"Proc|
00000090  65 73 73 20 49 6e 74 72  6f 22 20 b8 20 2c 54 61  |ess Intro" . ,Ta|
000000a0  73 6b 25 0d 00 28 2d c8  99 22 4f 53 5f 52 65 61  |sk%..(-.."OS_Rea|
000000b0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
000000c0  31 2c 33 20 b8 20 2c 2c  43 6f 6c 6f 75 72 73 25  |1,3 . ,,Colours%|
000000d0  0d 00 32 2c c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |..2,.."OS_ReadMo|
000000e0  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 34  |deVariable",-1,4|
000000f0  20 b8 20 2c 2c 53 68 69  66 74 58 25 0d 00 3c 2c  | . ,,ShiftX%..<,|
00000100  c8 99 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |.."OS_ReadModeVa|
00000110  72 69 61 62 6c 65 22 2c  2d 31 2c 35 20 b8 20 2c  |riable",-1,5 . ,|
00000120  2c 53 68 69 66 74 59 25  0d 00 46 2e c8 99 22 4f  |,ShiftY%..F..."O|
00000130  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00000140  6c 65 22 2c 2d 31 2c 31  31 20 b8 20 2c 2c 50 69  |le",-1,11 . ,,Pi|
00000150  78 65 6c 73 58 25 0d 00  50 2e c8 99 22 4f 53 5f  |xelsX%..P..."OS_|
00000160  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00000170  22 2c 2d 31 2c 31 32 20  b8 20 2c 2c 50 69 78 65  |",-1,12 . ,,Pixe|
00000180  6c 73 59 25 0d 00 5a 1a  4f 53 58 25 3d 50 69 78  |lsY%..Z.OSX%=Pix|
00000190  65 6c 73 58 25 3c 3c 53  68 69 66 74 58 25 0d 00  |elsX%<<ShiftX%..|
000001a0  64 1a 4f 53 59 25 3d 50  69 78 65 6c 73 59 25 3c  |d.OSY%=PixelsY%<|
000001b0  3c 53 68 69 66 74 59 25  0d 00 6e 10 53 70 72 25  |<ShiftY%..n.Spr%|
000001c0  21 30 3d 37 30 30 30 30  0d 00 78 11 e7 20 53 68  |!0=70000..x.. Sh|
000001d0  69 66 74 59 25 3c 32 20  8c 0d 00 82 29 20 66 24  |iftY%<2 ....) f$|
000001e0  3d 22 3c 50 72 6f 63 65  73 73 24 44 69 72 3e 2e  |="<Process$Dir>.|
000001f0  52 65 73 6f 75 72 63 65  73 2e 49 6e 74 72 6f 32  |Resources.Intro2|
00000200  32 22 0d 00 8c 13 20 49  6d 61 67 65 53 68 69 66  |2".... ImageShif|
00000210  74 59 25 3d 31 0d 00 96  05 cc 0d 00 a0 27 20 66  |tY%=1........' f|
00000220  24 3d 22 3c 50 72 6f 63  65 73 73 24 44 69 72 3e  |$="<Process$Dir>|
00000230  2e 52 65 73 6f 75 72 63  65 73 2e 49 6e 74 72 6f  |.Resources.Intro|
00000240  22 0d 00 aa 13 20 49 6d  61 67 65 53 68 69 66 74  |".... ImageShift|
00000250  59 25 3d 32 0d 00 b4 05  cd 0d 00 be 17 6f 6b 25  |Y%=2.........ok%|
00000260  3d a4 4c 6f 61 64 53 71  75 61 73 68 28 66 24 29  |=.LoadSquash(f$)|
00000270  0d 00 c8 0b e7 20 6f 6b  25 20 8c 0d 00 d2 37 20  |..... ok% ....7 |
00000280  e7 20 53 68 69 66 74 58  25 3d 31 20 80 20 53 68  |. ShiftX%=1 . Sh|
00000290  69 66 74 59 25 3d 49 6d  61 67 65 53 68 69 66 74  |iftY%=ImageShift|
000002a0  59 25 20 80 20 43 6f 6c  6f 75 72 73 25 3d 31 35  |Y% . Colours%=15|
000002b0  20 8c 0d 00 dc 33 20 20  f4 20 53 70 72 69 74 65  | ....3  . Sprite|
000002c0  4f 70 20 33 34 20 69 73  20 6d 75 63 68 20 66 61  |Op 34 is much fa|
000002d0  73 74 65 72 20 74 68 61  6e 20 53 70 72 69 74 65  |ster than Sprite|
000002e0  4f 70 20 35 32 0d 00 e6  40 20 20 c8 99 22 4f 53  |Op 52...@  .."OS|
000002f0  5f 53 70 72 69 74 65 4f  70 22 2c 32 39 30 2c 53  |_SpriteOp",290,S|
00000300  70 72 25 2c 22 50 52 4f  43 45 53 53 22 2c 4f 53  |pr%,"PROCESS",OS|
00000310  58 25 2f 32 2d 34 33 30  2c 4f 53 59 25 2f 32 2d  |X%/2-430,OSY%/2-|
00000320  33 32 30 2c 30 0d 00 f0  06 20 cc 0d 00 fa 39 20  |320,0.... ....9 |
00000330  20 c8 99 22 57 69 6d 70  5f 52 65 61 64 50 69 78  | .."Wimp_ReadPix|
00000340  54 72 61 6e 73 22 2c 32  39 36 2c 53 70 72 25 2c  |Trans",296,Spr%,|
00000350  22 50 52 4f 43 45 53 53  22 2c 2c 2c 2c 53 54 25  |"PROCESS",,,,ST%|
00000360  2c 43 54 25 0d 01 04 48  20 20 c8 99 22 4f 53 5f  |,CT%...H  .."OS_|
00000370  53 70 72 69 74 65 4f 70  22 2c 33 30 38 2c 53 70  |SpriteOp",308,Sp|
00000380  72 25 2c 22 50 52 4f 43  45 53 53 22 2c 4f 53 58  |r%,"PROCESS",OSX|
00000390  25 2f 32 2d 34 33 30 2c  4f 53 59 25 2f 32 2d 33  |%/2-430,OSY%/2-3|
000003a0  32 30 2c 30 2c 53 54 25  2c 43 54 25 0d 01 0e 06  |20,0,ST%,CT%....|
000003b0  20 cd 0d 01 18 05 cd 0d  01 22 16 c8 99 22 57 69  | ........"..."Wi|
000003c0  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 0d 01 2c  |mp_CloseDown"..,|
000003d0  06 c8 98 0d 01 36 04 0d  01 40 14 dd a4 4c 6f 61  |.....6...@...Loa|
000003e0  64 53 71 75 61 73 68 28  66 24 29 0d 01 4a 0f 20  |dSquash(f$)..J. |
000003f0  ea 20 6f 6b 25 2c 6c 65  6e 25 0d 01 54 3d 20 c8  |. ok%,len%..T= .|
00000400  99 22 4f 53 5f 46 69 6c  65 22 2c 35 2c 66 24 20  |."OS_File",5,f$ |
00000410  b8 20 6f 6b 25 2c 2c 2c  2c 6c 65 6e 25 3a e7 20  |. ok%,,,,len%:. |
00000420  6f 6b 25 3c 3e 31 20 84  20 6c 65 6e 25 3e 38 30  |ok%<>1 . len%>80|
00000430  30 30 20 8c 20 3d a3 0d  01 5e 1b 20 c8 99 22 4f  |00 . =...^. .."O|
00000440  53 5f 46 69 6c 65 22 2c  32 35 35 2c 66 24 2c 49  |S_File",255,f$,I|
00000450  6e 25 0d 01 68 41 20 c8  99 22 53 71 75 61 73 68  |n%..hA .."Squash|
00000460  5f 44 65 63 6f 6d 70 72  65 73 73 22 2c 25 31 30  |_Decompress",%10|
00000470  30 2c 57 6f 72 6b 25 2c  49 6e 25 2b 32 30 2c 6c  |0,Work%,In%+20,l|
00000480  65 6e 25 2d 32 30 2c 53  70 72 25 2b 34 2c 49 6e  |en%-20,Spr%+4,In|
00000490  25 21 34 0d 01 72 06 3d  b9 0d ff                 |%!4..r.=...|
0000049b