� ><Imagery$Dir>.Loader
,� IMG% 32*1024,SCALE% 16,COLS% 16,TAS% 8
@$TAS%="TASK":ș "Wimp_Initialise",200,!TAS%,"Iload" � ,HAND%
(!IMG%=32*1024
2(ș&2E,266,IMG%,"<Imagery$Dir>.Title"
<,ș "OS_ReadModeVariable",-1,4  � ,,XEIG%
F,ș "OS_ReadModeVariable",-1,5  � ,,YEIG%
P.ș "OS_ReadModeVariable",-1,11  � ,,XSIZE%
Z.ș "OS_ReadModeVariable",-1,12  � ,,YSIZE%
d
nXEIG%=1<<XEIG%
xYEIG%=1<<YEIG%
�XSIZE% = XSIZE%*XEIG%
�YSIZE% = YSIZE%*YEIG%
�
�XCEN%=XSIZE%�2
�YCEN%=(YSIZE%�2)+80
�
�X%=XCEN%-416:Y%=YCEN%-316
� W%=832:H%=632:�L%=7 � 0 � -1
�ș "Wimp_SetColour",L%
�ȓ Ȑ X%,Y%,W%,H%
�W%-=4:H%-=4:X%+=2:Y%+=2:�
�
�<ș "Wimp_ReadPixTrans",&100,IMG%,"TITLE",,,,SCALE%,COLS%



Kș "OS_SpriteOp",256+52,IMG%,"Title",XCEN%-394,YCEN%-300,0,SCALE%,COLS%

Kș "OS_SpriteOp",256+52,IMG%,"Horse",XCEN%-124,YCEN%-300,0,SCALE%,COLS%

"

,ș "Wimp_SetColour",7

6#ȓ Ȑ XCEN%-124,YCEN%-304,4,608

@

J#ș "Wimp_CloseDown",HAND%,!TAS%

T� REPEAT UNTIL INKEY(-99)

^�

h

r"��ps(XB%,XL%,YP%, A$, C1%,C2%)

|ș "Wimp_SetColour",C1%

�YO%=0:� XO%=-4 � 4 � 8

�$XP%=XB%+((XL%-(�(A$)*16))�2)+XO%

��L%=1 � �(A$)

�9ș "OS_SpriteOp",51,�(�A$,L%,1)),,XP%,YP%+YO%,,SCALE%

�
XP%+=16:�

��

�

�XO%=0:� YO%=-4 � 4 � 8

�$XP%=XB%+((XL%-(�(A$)*16))�2)+XO%

��L%=1 � �(A$)

�9ș "OS_SpriteOp",51,�(�A$,L%,1)),,XP%,YP%+YO%,,SCALE%

�
XP%+=16:�

��

ș "Wimp_SetColour",C2%
 XP%=XB%+((XL%-(�(A$)*16))�2)
&�L%=1 � �(A$)
05ș "OS_SpriteOp",51,�(�A$,L%,1)),,XP%,YP%,,SCALE%
:
XP%+=16:�
D�
�

00000000  0d 00 0a 1b f4 20 3e 3c  49 6d 61 67 65 72 79 24  |..... ><Imagery$|
00000010  44 69 72 3e 2e 4c 6f 61  64 65 72 0d 00 14 2c de  |Dir>.Loader...,.|
00000020  20 49 4d 47 25 20 33 32  2a 31 30 32 34 2c 53 43  | IMG% 32*1024,SC|
00000030  41 4c 45 25 20 31 36 2c  43 4f 4c 53 25 20 31 36  |ALE% 16,COLS% 16|
00000040  2c 54 41 53 25 20 38 0d  00 1e 40 24 54 41 53 25  |,TAS% 8...@$TAS%|
00000050  3d 22 54 41 53 4b 22 3a  c8 99 20 22 57 69 6d 70  |="TASK":.. "Wimp|
00000060  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
00000070  2c 21 54 41 53 25 2c 22  49 6c 6f 61 64 22 20 b8  |,!TAS%,"Iload" .|
00000080  20 2c 48 41 4e 44 25 0d  00 28 11 21 49 4d 47 25  | ,HAND%..(.!IMG%|
00000090  3d 33 32 2a 31 30 32 34  0d 00 32 28 c8 99 26 32  |=32*1024..2(..&2|
000000a0  45 2c 32 36 36 2c 49 4d  47 25 2c 22 3c 49 6d 61  |E,266,IMG%,"<Ima|
000000b0  67 65 72 79 24 44 69 72  3e 2e 54 69 74 6c 65 22  |gery$Dir>.Title"|
000000c0  0d 00 3c 2c c8 99 20 22  4f 53 5f 52 65 61 64 4d  |..<,.. "OS_ReadM|
000000d0  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
000000e0  34 20 20 b8 20 2c 2c 58  45 49 47 25 0d 00 46 2c  |4  . ,,XEIG%..F,|
000000f0  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
00000100  61 72 69 61 62 6c 65 22  2c 2d 31 2c 35 20 20 b8  |ariable",-1,5  .|
00000110  20 2c 2c 59 45 49 47 25  0d 00 50 2e c8 99 20 22  | ,,YEIG%..P... "|
00000120  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00000130  62 6c 65 22 2c 2d 31 2c  31 31 20 20 b8 20 2c 2c  |ble",-1,11  . ,,|
00000140  58 53 49 5a 45 25 0d 00  5a 2e c8 99 20 22 4f 53  |XSIZE%..Z... "OS|
00000150  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000160  65 22 2c 2d 31 2c 31 32  20 20 b8 20 2c 2c 59 53  |e",-1,12  . ,,YS|
00000170  49 5a 45 25 0d 00 64 04  0d 00 6e 12 58 45 49 47  |IZE%..d...n.XEIG|
00000180  25 3d 31 3c 3c 58 45 49  47 25 0d 00 78 12 59 45  |%=1<<XEIG%..x.YE|
00000190  49 47 25 3d 31 3c 3c 59  45 49 47 25 0d 00 82 19  |IG%=1<<YEIG%....|
000001a0  58 53 49 5a 45 25 20 3d  20 58 53 49 5a 45 25 2a  |XSIZE% = XSIZE%*|
000001b0  58 45 49 47 25 0d 00 8c  19 59 53 49 5a 45 25 20  |XEIG%....YSIZE% |
000001c0  3d 20 59 53 49 5a 45 25  2a 59 45 49 47 25 0d 00  |= YSIZE%*YEIG%..|
000001d0  96 04 0d 00 a0 12 58 43  45 4e 25 3d 58 53 49 5a  |......XCEN%=XSIZ|
000001e0  45 25 81 32 0d 00 aa 17  59 43 45 4e 25 3d 28 59  |E%.2....YCEN%=(Y|
000001f0  53 49 5a 45 25 81 32 29  2b 38 30 0d 00 b4 04 0d  |SIZE%.2)+80.....|
00000200  00 be 1d 58 25 3d 58 43  45 4e 25 2d 34 31 36 3a  |...X%=XCEN%-416:|
00000210  59 25 3d 59 43 45 4e 25  2d 33 31 36 0d 00 c8 20  |Y%=YCEN%-316... |
00000220  57 25 3d 38 33 32 3a 48  25 3d 36 33 32 3a e3 4c  |W%=832:H%=632:.L|
00000230  25 3d 37 20 b8 20 30 20  88 20 2d 31 0d 00 d2 1a  |%=7 . 0 . -1....|
00000240  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  |.. "Wimp_SetColo|
00000250  75 72 22 2c 4c 25 0d 00  dc 15 c8 93 20 c8 90 20  |ur",L%...... .. |
00000260  58 25 2c 59 25 2c 57 25  2c 48 25 0d 00 e6 1d 57  |X%,Y%,W%,H%....W|
00000270  25 2d 3d 34 3a 48 25 2d  3d 34 3a 58 25 2b 3d 32  |%-=4:H%-=4:X%+=2|
00000280  3a 59 25 2b 3d 32 3a ed  0d 00 f0 04 0d 00 fa 3c  |:Y%+=2:........<|
00000290  c8 99 20 22 57 69 6d 70  5f 52 65 61 64 50 69 78  |.. "Wimp_ReadPix|
000002a0  54 72 61 6e 73 22 2c 26  31 30 30 2c 49 4d 47 25  |Trans",&100,IMG%|
000002b0  2c 22 54 49 54 4c 45 22  2c 2c 2c 2c 53 43 41 4c  |,"TITLE",,,,SCAL|
000002c0  45 25 2c 43 4f 4c 53 25  0d 01 04 04 0d 01 0e 4b  |E%,COLS%.......K|
000002d0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000002e0  2c 32 35 36 2b 35 32 2c  49 4d 47 25 2c 22 54 69  |,256+52,IMG%,"Ti|
000002f0  74 6c 65 22 2c 58 43 45  4e 25 2d 33 39 34 2c 59  |tle",XCEN%-394,Y|
00000300  43 45 4e 25 2d 33 30 30  2c 30 2c 53 43 41 4c 45  |CEN%-300,0,SCALE|
00000310  25 2c 43 4f 4c 53 25 0d  01 18 4b c8 99 20 22 4f  |%,COLS%...K.. "O|
00000320  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
00000330  35 32 2c 49 4d 47 25 2c  22 48 6f 72 73 65 22 2c  |52,IMG%,"Horse",|
00000340  58 43 45 4e 25 2d 31 32  34 2c 59 43 45 4e 25 2d  |XCEN%-124,YCEN%-|
00000350  33 30 30 2c 30 2c 53 43  41 4c 45 25 2c 43 4f 4c  |300,0,SCALE%,COL|
00000360  53 25 0d 01 22 04 0d 01  2c 19 c8 99 20 22 57 69  |S%.."...,... "Wi|
00000370  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 37 0d  |mp_SetColour",7.|
00000380  01 36 23 c8 93 20 c8 90  20 58 43 45 4e 25 2d 31  |.6#.. .. XCEN%-1|
00000390  32 34 2c 59 43 45 4e 25  2d 33 30 34 2c 34 2c 36  |24,YCEN%-304,4,6|
000003a0  30 38 0d 01 40 04 0d 01  4a 23 c8 99 20 22 57 69  |08..@...J#.. "Wi|
000003b0  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 2c 48 41  |mp_CloseDown",HA|
000003c0  4e 44 25 2c 21 54 41 53  25 0d 01 54 1d f4 20 52  |ND%,!TAS%..T.. R|
000003d0  45 50 45 41 54 20 55 4e  54 49 4c 20 49 4e 4b 45  |EPEAT UNTIL INKE|
000003e0  59 28 2d 39 39 29 0d 01  5e 05 e0 0d 01 68 04 0d  |Y(-99)..^....h..|
000003f0  01 72 22 dd f2 70 73 28  58 42 25 2c 58 4c 25 2c  |.r"..ps(XB%,XL%,|
00000400  59 50 25 2c 20 41 24 2c  20 43 31 25 2c 43 32 25  |YP%, A$, C1%,C2%|
00000410  29 0d 01 7c 1b c8 99 20  22 57 69 6d 70 5f 53 65  |)..|... "Wimp_Se|
00000420  74 43 6f 6c 6f 75 72 22  2c 43 31 25 0d 01 86 1a  |tColour",C1%....|
00000430  59 4f 25 3d 30 3a e3 20  58 4f 25 3d 2d 34 20 b8  |YO%=0:. XO%=-4 .|
00000440  20 34 20 88 20 38 0d 01  90 24 58 50 25 3d 58 42  | 4 . 8...$XP%=XB|
00000450  25 2b 28 28 58 4c 25 2d  28 a9 28 41 24 29 2a 31  |%+((XL%-(.(A$)*1|
00000460  36 29 29 81 32 29 2b 58  4f 25 0d 01 9a 11 e3 4c  |6)).2)+XO%.....L|
00000470  25 3d 31 20 b8 20 a9 28  41 24 29 0d 01 a4 39 c8  |%=1 . .(A$)...9.|
00000480  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000490  35 31 2c 97 28 c1 41 24  2c 4c 25 2c 31 29 29 2c  |51,.(.A$,L%,1)),|
000004a0  2c 58 50 25 2c 59 50 25  2b 59 4f 25 2c 2c 53 43  |,XP%,YP%+YO%,,SC|
000004b0  41 4c 45 25 0d 01 ae 0d  58 50 25 2b 3d 31 36 3a  |ALE%....XP%+=16:|
000004c0  ed 0d 01 b8 05 ed 0d 01  c2 04 0d 01 cc 1a 58 4f  |..............XO|
000004d0  25 3d 30 3a e3 20 59 4f  25 3d 2d 34 20 b8 20 34  |%=0:. YO%=-4 . 4|
000004e0  20 88 20 38 0d 01 d6 24  58 50 25 3d 58 42 25 2b  | . 8...$XP%=XB%+|
000004f0  28 28 58 4c 25 2d 28 a9  28 41 24 29 2a 31 36 29  |((XL%-(.(A$)*16)|
00000500  29 81 32 29 2b 58 4f 25  0d 01 e0 11 e3 4c 25 3d  |).2)+XO%.....L%=|
00000510  31 20 b8 20 a9 28 41 24  29 0d 01 ea 39 c8 99 20  |1 . .(A$)...9.. |
00000520  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 35 31  |"OS_SpriteOp",51|
00000530  2c 97 28 c1 41 24 2c 4c  25 2c 31 29 29 2c 2c 58  |,.(.A$,L%,1)),,X|
00000540  50 25 2c 59 50 25 2b 59  4f 25 2c 2c 53 43 41 4c  |P%,YP%+YO%,,SCAL|
00000550  45 25 0d 01 f4 0d 58 50  25 2b 3d 31 36 3a ed 0d  |E%....XP%+=16:..|
00000560  01 fe 05 ed 0d 02 08 04  0d 02 12 1b c8 99 20 22  |.............. "|
00000570  57 69 6d 70 5f 53 65 74  43 6f 6c 6f 75 72 22 2c  |Wimp_SetColour",|
00000580  43 32 25 0d 02 1c 20 58  50 25 3d 58 42 25 2b 28  |C2%... XP%=XB%+(|
00000590  28 58 4c 25 2d 28 a9 28  41 24 29 2a 31 36 29 29  |(XL%-(.(A$)*16))|
000005a0  81 32 29 0d 02 26 11 e3  4c 25 3d 31 20 b8 20 a9  |.2)..&..L%=1 . .|
000005b0  28 41 24 29 0d 02 30 35  c8 99 20 22 4f 53 5f 53  |(A$)..05.. "OS_S|
000005c0  70 72 69 74 65 4f 70 22  2c 35 31 2c 97 28 c1 41  |priteOp",51,.(.A|
000005d0  24 2c 4c 25 2c 31 29 29  2c 2c 58 50 25 2c 59 50  |$,L%,1)),,XP%,YP|
000005e0  25 2c 2c 53 43 41 4c 45  25 0d 02 3a 0d 58 50 25  |%,,SCALE%..:.XP%|
000005f0  2b 3d 31 36 3a ed 0d 02  44 05 e1 0d ff           |+=16:...D....|
000005fd