�>$.!Projector.!RunImage
8� (C) Tony Cheal/Ace Computing Nov 1988 Version 0.99
<� Should be with version 1.00 Euclid or EuclidX or above
(@� Plays back a film in Ace Film format using either the full
26� blown Euclid Module or the Public Domain EuclidX
<D� Watch out for a version 1 which will spot Mode changes better!
F
P�B%4000
Z<ș"Wimp_Initialise",200,&4B534154,"Ace Film Player" � V%
d;B%!0=-1:B%!4=0:B%!8=0:B%!12=68:B%!16=90:B%!20=%10�3<<12
n4$(B%+24)="!projector":ș"Wimp_CreateIcon",,B%�Z%
x1ș"Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
�
�Q%180
�5ș"Wimp_LoadTemplate",,B%,Q%,Q%+180,-1,"progInfo"
� ș"Wimp_CreateWindow",,B%�G%
�ș"Wimp_CloseTemplate"
�&ș"OS_GetEnv" � E$:I%=�E$,"-quit")
�4I%=�E$,"""",I%+1):I%=�E$,"""",I%+1):E$=�E$,I%+1)
�ȕ�E$,1)=" ":E$=�E$,2):�
�
��MENU%1000:V%=MENU%
�5�23,&90,&10,&38,&7C,&FE,&7C,&10,&38,&00:ACE$=�&90
��MenuT("Projector")
�&INF%=V%:�MenuE("Info",0):INF%!4=G%
��MenuE("Quit",&80)

�CT%256


�=�+&4000

�E$=""�

"�

,ș"Wimp_Poll",,B% � A%

6	ȎA%�

@�2:�Open

J?�6:�B%!12=-2�B%!16=Z%ș"Wimp_CreateMenu",,MENU%,B%!0-80,186

T"�9:�!B%=1:ș"Wimp_CloseDown":�

^
�17,18

h   ȎB%!16�

r   �0:ș"Wimp_CloseDown":�

|   �3,5

�         �B%!40=&D6A�

�            E$=�ZS(B%+44)

�H         �B%!16=5:B%!12=B%!8:B%!16=4:ș"Wimp_SendMessage",17,B%,B%!4

�         �

�   �

��

��E$<>""

��

��=�+1E6

�5�LoadFilm(E$):�M%!32�1,"Unknown Expansion method"

�!DPTR%=M%+M%!16:SCR%=0:CM%=FM%

�B�Window($(M%+4),%1111,0,512,FW%,512+FH%,-FW2%,-FH2%,FW2%,FH2%)

�$�MakeSprite:�=�+&1000:�NewSprite
�
#�!DPTR%=0:DPTR%=M%+M%!16:SCR%=0
ș"Wimp_Poll",,B% � A%
&	ȎA%�
0�0:�NewSprite
:�1:�Redraw
D�2:�Open
N
�3:�Close
X?�6:�B%!12=-2�B%!16=Z%ș"Wimp_CreateMenu",,MENU%,B%!0-80,186
b"�9:�!B%=1:ș"Wimp_CloseDown":�
l
�17,18
v   ȎB%!16�
�   �0:ș"Wimp_CloseDown":Ș
�   �
��
��0
�
�$��Close:ș"Wimp_CloseWindow",,B%
��:�=Q%+180:E$="":�dR@
�
�$��Open:ș"Wimp_OpenWindow",,B%:�
�
���Redraw
�"ș"Wimp_RedrawWindow",,B% � F%
�3ȕF%:X%=B%!4-B%!20:Y%=B%!16-B%!24:�RedrawSprite
$ș"Wimp_GetRectangle",,B% � F%:�
�

 B��Window(T$,B%!28,!B%,B%!4,B%!8,B%!12,B%!40,B%!44,B%!48,B%!52)
*T$=ACE$+" "+T$+" "+ACE$
4-�T%255:B%!72=T%:B%!76=-1:B%!80=256:$T%=T$
>4B%!16=(!B%-B%!8)�2:B%!20=(B%!12-B%!4)�2:B%!24=-1
H#B%!32=&01070207:B%!36=&000C0103
R>B%!56=%100001001:B%!60=10<<12:B%!64=0:B%!68=&10001:B%!84=0
\"ș"Wimp_CreateWindow",,B% � W%
f>!B%=W%:ș"Wimp_GetWindowState",,B%:ș"Wimp_OpenWindow",,B%
p�
z
���NewSprite
�!șSO,&13C,S%,"X"� R0,R1,R2,R3
�:ș"Euclid_Expand",M%!32,DPTR%,SCR%,M%!40 � ,DPTR%,SCR%
��(M%!36�3)=0SCR%=0
�șSO,R0,R1,R2,R3
�2B%!4=-3E4:B%!8=-3E4:B%!12=3E4:B%!16=3E4:!B%=W%
�"ș"Wimp_UpdateWindow",,B% � F%
�3ȕF%:X%=B%!4-B%!20:Y%=B%!16-B%!24:�RedrawSprite
�$ș"Wimp_GetRectangle",,B% � F%:�
��
�
���MakeSprite
�2ș"OS_SWINumberFromString",,"OS_SpriteOp" � SO
)ș"OS_ReadModeVariable",FM%,4 � ,,XR%
)ș"OS_ReadModeVariable",FM%,5 � ,,YR%
*ș"OS_ReadModeVariable",FM%,10 � ,,LB%
$0SS%=(((FW%>>XR%)*(FH%>>YR%)>>3-LB%)+1000)��3
.7�S%SS%:!S%=SS%:S%!4=0:S%!8=16:S%!12=16:șSO,&109,S%
8,șSO,&10F,S%,"X",0,FW%>>XR%,FH%>>YR%,FM%
B�
L
V$��RedrawSprite:X%-=FW2%:Y%-=FH2%
`<��<>CM%ș"ColourTrans_SelectTable",FM%,0,-1,-1,CT%:CM%=�
j
�CM%=FM%�
t   șSO,&122,S%,"X",X%,Y%
~�
�%   șSO,&134,S%,"X",X%,Y%,0,0,CT%
��
��
�
�+��LoadFilm(F$):ȕ�F$,1)=" ":F$=�F$,2):�
�1�F$=""�1,"Double Click on a Film to watch it"
�-�:�:�� 1,"Unable to load film '"+F$+"'"
�!ș"OS_File",5,F$ � O%,,T%,,L%
�+�(T%>>8)<>-662�1,"Not an Ace Film file"
��M%L%:ș"OS_File",&FF,F$,M%
�7FW%=M%!20:FH%=M%!24:FM%=M%!28:FW2%=FW%�2:FH2%=FH%�2
��


��MenuT(T$)
!$V%=�T$,11):V%!16=16*(�$V%+1)
+V%!20=44:V%!12=&00070207:V%!24=0:V%+=28
(�
2
<��MenuE(T$,F%)
F:$(V%+12)=�T$,11):!V%=F%:V%!4=-1:V%!8=1�%111<<24:V%+=24
P�
Z
d*ݤZS(I%)�A$:�A$+=�?I%:I%+=1:�?I%=0:=A$
�

00000000  0d 00 0a 1c f4 3e 24 2e  21 50 72 6f 6a 65 63 74  |.....>$.!Project|
00000010  6f 72 2e 21 52 75 6e 49  6d 61 67 65 0d 00 14 38  |or.!RunImage...8|
00000020  f4 20 28 43 29 20 54 6f  6e 79 20 43 68 65 61 6c  |. (C) Tony Cheal|
00000030  2f 41 63 65 20 43 6f 6d  70 75 74 69 6e 67 20 4e  |/Ace Computing N|
00000040  6f 76 20 31 39 38 38 20  56 65 72 73 69 6f 6e 20  |ov 1988 Version |
00000050  30 2e 39 39 0d 00 1e 3c  f4 20 53 68 6f 75 6c 64  |0.99...<. Should|
00000060  20 62 65 20 77 69 74 68  20 76 65 72 73 69 6f 6e  | be with version|
00000070  20 31 2e 30 30 20 45 75  63 6c 69 64 20 6f 72 20  | 1.00 Euclid or |
00000080  45 75 63 6c 69 64 58 20  6f 72 20 61 62 6f 76 65  |EuclidX or above|
00000090  0d 00 28 40 f4 20 50 6c  61 79 73 20 62 61 63 6b  |..(@. Plays back|
000000a0  20 61 20 66 69 6c 6d 20  69 6e 20 41 63 65 20 46  | a film in Ace F|
000000b0  69 6c 6d 20 66 6f 72 6d  61 74 20 75 73 69 6e 67  |ilm format using|
000000c0  20 65 69 74 68 65 72 20  74 68 65 20 66 75 6c 6c  | either the full|
000000d0  0d 00 32 36 f4 20 62 6c  6f 77 6e 20 45 75 63 6c  |..26. blown Eucl|
000000e0  69 64 20 4d 6f 64 75 6c  65 20 6f 72 20 74 68 65  |id Module or the|
000000f0  20 50 75 62 6c 69 63 20  44 6f 6d 61 69 6e 20 45  | Public Domain E|
00000100  75 63 6c 69 64 58 0d 00  3c 44 f4 20 57 61 74 63  |uclidX..<D. Watc|
00000110  68 20 6f 75 74 20 66 6f  72 20 61 20 76 65 72 73  |h out for a vers|
00000120  69 6f 6e 20 31 20 77 68  69 63 68 20 77 69 6c 6c  |ion 1 which will|
00000130  20 73 70 6f 74 20 4d 6f  64 65 20 63 68 61 6e 67  | spot Mode chang|
00000140  65 73 20 62 65 74 74 65  72 21 0d 00 46 04 0d 00  |es better!..F...|
00000150  50 0b de 42 25 34 30 30  30 0d 00 5a 3c c8 99 22  |P..B%4000..Z<.."|
00000160  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000170  2c 32 30 30 2c 26 34 42  35 33 34 31 35 34 2c 22  |,200,&4B534154,"|
00000180  41 63 65 20 46 69 6c 6d  20 50 6c 61 79 65 72 22  |Ace Film Player"|
00000190  20 b8 20 56 25 0d 00 64  3b 42 25 21 30 3d 2d 31  | . V%..d;B%!0=-1|
000001a0  3a 42 25 21 34 3d 30 3a  42 25 21 38 3d 30 3a 42  |:B%!4=0:B%!8=0:B|
000001b0  25 21 31 32 3d 36 38 3a  42 25 21 31 36 3d 39 30  |%!12=68:B%!16=90|
000001c0  3a 42 25 21 32 30 3d 25  31 30 84 33 3c 3c 31 32  |:B%!20=%10.3<<12|
000001d0  0d 00 6e 34 24 28 42 25  2b 32 34 29 3d 22 21 70  |..n4$(B%+24)="!p|
000001e0  72 6f 6a 65 63 74 6f 72  22 3a c8 99 22 57 69 6d  |rojector":.."Wim|
000001f0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 42  |p_CreateIcon",,B|
00000200  25 b8 5a 25 0d 00 78 31  c8 99 22 57 69 6d 70 5f  |%.Z%..x1.."Wimp_|
00000210  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 22  |OpenTemplate",,"|
00000220  3c 4f 62 65 79 24 44 69  72 3e 2e 54 65 6d 70 6c  |<Obey$Dir>.Templ|
00000230  61 74 65 73 22 0d 00 82  0a de 51 25 31 38 30 0d  |ates".....Q%180.|
00000240  00 8c 35 c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |..5.."Wimp_LoadT|
00000250  65 6d 70 6c 61 74 65 22  2c 2c 42 25 2c 51 25 2c  |emplate",,B%,Q%,|
00000260  51 25 2b 31 38 30 2c 2d  31 2c 22 70 72 6f 67 49  |Q%+180,-1,"progI|
00000270  6e 66 6f 22 0d 00 96 20  c8 99 22 57 69 6d 70 5f  |nfo"... .."Wimp_|
00000280  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 42  |CreateWindow",,B|
00000290  25 b8 47 25 0d 00 a0 1a  c8 99 22 57 69 6d 70 5f  |%.G%......"Wimp_|
000002a0  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 00  |CloseTemplate"..|
000002b0  aa 26 c8 99 22 4f 53 5f  47 65 74 45 6e 76 22 20  |.&.."OS_GetEnv" |
000002c0  b8 20 45 24 3a 49 25 3d  a7 45 24 2c 22 2d 71 75  |. E$:I%=.E$,"-qu|
000002d0  69 74 22 29 0d 00 b4 34  49 25 3d a7 45 24 2c 22  |it")...4I%=.E$,"|
000002e0  22 22 22 2c 49 25 2b 31  29 3a 49 25 3d a7 45 24  |""",I%+1):I%=.E$|
000002f0  2c 22 22 22 22 2c 49 25  2b 31 29 3a 45 24 3d c1  |,"""",I%+1):E$=.|
00000300  45 24 2c 49 25 2b 31 29  0d 00 be 1c c8 95 c0 45  |E$,I%+1).......E|
00000310  24 2c 31 29 3d 22 20 22  3a 45 24 3d c1 45 24 2c  |$,1)=" ":E$=.E$,|
00000320  32 29 3a ce 0d 00 c8 04  0d 00 d2 17 de 4d 45 4e  |2):..........MEN|
00000330  55 25 31 30 30 30 3a 56  25 3d 4d 45 4e 55 25 0d  |U%1000:V%=MENU%.|
00000340  00 dc 35 ef 32 33 2c 26  39 30 2c 26 31 30 2c 26  |..5.23,&90,&10,&|
00000350  33 38 2c 26 37 43 2c 26  46 45 2c 26 37 43 2c 26  |38,&7C,&FE,&7C,&|
00000360  31 30 2c 26 33 38 2c 26  30 30 3a 41 43 45 24 3d  |10,&38,&00:ACE$=|
00000370  bd 26 39 30 0d 00 e6 17  f2 4d 65 6e 75 54 28 22  |.&90.....MenuT("|
00000380  50 72 6f 6a 65 63 74 6f  72 22 29 0d 00 f0 26 49  |Projector")...&I|
00000390  4e 46 25 3d 56 25 3a f2  4d 65 6e 75 45 28 22 49  |NF%=V%:.MenuE("I|
000003a0  6e 66 6f 22 2c 30 29 3a  49 4e 46 25 21 34 3d 47  |nfo",0):INF%!4=G|
000003b0  25 0d 00 fa 16 f2 4d 65  6e 75 45 28 22 51 75 69  |%.....MenuE("Qui|
000003c0  74 22 2c 26 38 30 29 0d  01 04 0b de 43 54 25 32  |t",&80).....CT%2|
000003d0  35 36 0d 01 0e 0d e0 3d  e0 2b 26 34 30 30 30 0d  |56.....=.+&4000.|
000003e0  01 18 0b e7 45 24 3d 22  22 8c 0d 01 22 05 f5 0d  |....E$=""..."...|
000003f0  01 2c 1a c8 99 22 57 69  6d 70 5f 50 6f 6c 6c 22  |.,..."Wimp_Poll"|
00000400  2c 2c 42 25 20 b8 20 41  25 0d 01 36 09 c8 8e 41  |,,B% . A%..6...A|
00000410  25 ca 0d 01 40 0c c9 32  3a f2 4f 70 65 6e 0d 01  |%...@..2:.Open..|
00000420  4a 3f c9 36 3a e7 42 25  21 31 32 3d 2d 32 80 42  |J?.6:.B%!12=-2.B|
00000430  25 21 31 36 3d 5a 25 c8  99 22 57 69 6d 70 5f 43  |%!16=Z%.."Wimp_C|
00000440  72 65 61 74 65 4d 65 6e  75 22 2c 2c 4d 45 4e 55  |reateMenu",,MENU|
00000450  25 2c 42 25 21 30 2d 38  30 2c 31 38 36 0d 01 54  |%,B%!0-80,186..T|
00000460  22 c9 39 3a e7 21 42 25  3d 31 3a c8 99 22 57 69  |".9:.!B%=1:.."Wi|
00000470  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 3a e0 0d  |mp_CloseDown":..|
00000480  01 5e 0a c9 31 37 2c 31  38 0d 01 68 0f 20 20 20  |.^..17,18..h.   |
00000490  c8 8e 42 25 21 31 36 ca  0d 01 72 1e 20 20 20 c9  |..B%!16...r.   .|
000004a0  30 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |0:.."Wimp_CloseD|
000004b0  6f 77 6e 22 3a e0 0d 01  7c 0b 20 20 20 c9 33 2c  |own":...|.   .3,|
000004c0  35 0d 01 86 19 20 20 20  20 20 20 20 20 20 e7 42  |5....         .B|
000004d0  25 21 34 30 3d 26 44 36  41 8c 0d 01 90 1d 20 20  |%!40=&D6A.....  |
000004e0  20 20 20 20 20 20 20 20  20 20 45 24 3d a4 5a 53  |          E$=.ZS|
000004f0  28 42 25 2b 34 34 29 0d  01 9a 48 20 20 20 20 20  |(B%+44)...H     |
00000500  20 20 20 20 e7 42 25 21  31 36 3d 35 3a 42 25 21  |    .B%!16=5:B%!|
00000510  31 32 3d 42 25 21 38 3a  42 25 21 31 36 3d 34 3a  |12=B%!8:B%!16=4:|
00000520  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
00000530  61 67 65 22 2c 31 37 2c  42 25 2c 42 25 21 34 0d  |age",17,B%,B%!4.|
00000540  01 a4 0e 20 20 20 20 20  20 20 20 20 cd 0d 01 ae  |...         ....|
00000550  08 20 20 20 cb 0d 01 b8  05 cb 0d 01 c2 0b fd 45  |.   ...........E|
00000560  24 3c 3e 22 22 0d 01 cc  05 cd 0d 01 d6 0b e0 3d  |$<>""..........=|
00000570  e0 2b 31 45 36 0d 01 e0  35 f2 4c 6f 61 64 46 69  |.+1E6...5.LoadFi|
00000580  6c 6d 28 45 24 29 3a e7  4d 25 21 33 32 85 31 2c  |lm(E$):.M%!32.1,|
00000590  22 55 6e 6b 6e 6f 77 6e  20 45 78 70 61 6e 73 69  |"Unknown Expansi|
000005a0  6f 6e 20 6d 65 74 68 6f  64 22 0d 01 ea 21 44 50  |on method"...!DP|
000005b0  54 52 25 3d 4d 25 2b 4d  25 21 31 36 3a 53 43 52  |TR%=M%+M%!16:SCR|
000005c0  25 3d 30 3a 43 4d 25 3d  46 4d 25 0d 01 f4 42 f2  |%=0:CM%=FM%...B.|
000005d0  57 69 6e 64 6f 77 28 24  28 4d 25 2b 34 29 2c 25  |Window($(M%+4),%|
000005e0  31 31 31 31 2c 30 2c 35  31 32 2c 46 57 25 2c 35  |1111,0,512,FW%,5|
000005f0  31 32 2b 46 48 25 2c 2d  46 57 32 25 2c 2d 46 48  |12+FH%,-FW2%,-FH|
00000600  32 25 2c 46 57 32 25 2c  46 48 32 25 29 0d 01 fe  |2%,FW2%,FH2%)...|
00000610  24 f2 4d 61 6b 65 53 70  72 69 74 65 3a e0 3d e0  |$.MakeSprite:.=.|
00000620  2b 26 31 30 30 30 3a f2  4e 65 77 53 70 72 69 74  |+&1000:.NewSprit|
00000630  65 0d 02 08 05 f5 0d 02  12 23 e7 21 44 50 54 52  |e........#.!DPTR|
00000640  25 3d 30 3a 44 50 54 52  25 3d 4d 25 2b 4d 25 21  |%=0:DPTR%=M%+M%!|
00000650  31 36 3a 53 43 52 25 3d  30 0d 02 1c 1a c8 99 22  |16:SCR%=0......"|
00000660  57 69 6d 70 5f 50 6f 6c  6c 22 2c 2c 42 25 20 b8  |Wimp_Poll",,B% .|
00000670  20 41 25 0d 02 26 09 c8  8e 41 25 ca 0d 02 30 11  | A%..&...A%...0.|
00000680  c9 30 3a f2 4e 65 77 53  70 72 69 74 65 0d 02 3a  |.0:.NewSprite..:|
00000690  0e c9 31 3a f2 52 65 64  72 61 77 0d 02 44 0c c9  |..1:.Redraw..D..|
000006a0  32 3a f2 4f 70 65 6e 0d  02 4e 0d c9 33 3a f2 43  |2:.Open..N..3:.C|
000006b0  6c 6f 73 65 0d 02 58 3f  c9 36 3a e7 42 25 21 31  |lose..X?.6:.B%!1|
000006c0  32 3d 2d 32 80 42 25 21  31 36 3d 5a 25 c8 99 22  |2=-2.B%!16=Z%.."|
000006d0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
000006e0  2c 2c 4d 45 4e 55 25 2c  42 25 21 30 2d 38 30 2c  |,,MENU%,B%!0-80,|
000006f0  31 38 36 0d 02 62 22 c9  39 3a e7 21 42 25 3d 31  |186..b".9:.!B%=1|
00000700  3a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |:.."Wimp_CloseDo|
00000710  77 6e 22 3a e0 0d 02 6c  0a c9 31 37 2c 31 38 0d  |wn":...l..17,18.|
00000720  02 76 0f 20 20 20 c8 8e  42 25 21 31 36 ca 0d 02  |.v.   ..B%!16...|
00000730  80 1f 20 20 20 c9 30 3a  c8 99 22 57 69 6d 70 5f  |..   .0:.."Wimp_|
00000740  43 6c 6f 73 65 44 6f 77  6e 22 3a c8 98 0d 02 8a  |CloseDown":.....|
00000750  08 20 20 20 cb 0d 02 94  05 cb 0d 02 9e 06 fd 30  |.   ...........0|
00000760  0d 02 a8 04 0d 02 b2 24  dd f2 43 6c 6f 73 65 3a  |.......$..Close:|
00000770  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
00000780  64 6f 77 22 2c 2c 42 25  0d 02 bc 1a d8 3a d2 3d  |dow",,B%.....:.=|
00000790  51 25 2b 31 38 30 3a 45  24 3d 22 22 3a e5 8d 64  |Q%+180:E$="":..d|
000007a0  52 40 0d 02 c6 04 0d 02  d0 24 dd f2 4f 70 65 6e  |R@.......$..Open|
000007b0  3a c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |:.."Wimp_OpenWin|
000007c0  64 6f 77 22 2c 2c 42 25  3a e1 0d 02 da 04 0d 02  |dow",,B%:.......|
000007d0  e4 0c dd f2 52 65 64 72  61 77 0d 02 ee 22 c8 99  |....Redraw..."..|
000007e0  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
000007f0  6f 77 22 2c 2c 42 25 20  b8 20 46 25 0d 02 f8 33  |ow",,B% . F%...3|
00000800  c8 95 46 25 3a 58 25 3d  42 25 21 34 2d 42 25 21  |..F%:X%=B%!4-B%!|
00000810  32 30 3a 59 25 3d 42 25  21 31 36 2d 42 25 21 32  |20:Y%=B%!16-B%!2|
00000820  34 3a f2 52 65 64 72 61  77 53 70 72 69 74 65 0d  |4:.RedrawSprite.|
00000830  03 02 24 c8 99 22 57 69  6d 70 5f 47 65 74 52 65  |..$.."Wimp_GetRe|
00000840  63 74 61 6e 67 6c 65 22  2c 2c 42 25 20 b8 20 46  |ctangle",,B% . F|
00000850  25 3a ce 0d 03 0c 05 e1  0d 03 16 04 0d 03 20 42  |%:............ B|
00000860  dd f2 57 69 6e 64 6f 77  28 54 24 2c 42 25 21 32  |..Window(T$,B%!2|
00000870  38 2c 21 42 25 2c 42 25  21 34 2c 42 25 21 38 2c  |8,!B%,B%!4,B%!8,|
00000880  42 25 21 31 32 2c 42 25  21 34 30 2c 42 25 21 34  |B%!12,B%!40,B%!4|
00000890  34 2c 42 25 21 34 38 2c  42 25 21 35 32 29 0d 03  |4,B%!48,B%!52)..|
000008a0  2a 1b 54 24 3d 41 43 45  24 2b 22 20 22 2b 54 24  |*.T$=ACE$+" "+T$|
000008b0  2b 22 20 22 2b 41 43 45  24 0d 03 34 2d de 54 25  |+" "+ACE$..4-.T%|
000008c0  32 35 35 3a 42 25 21 37  32 3d 54 25 3a 42 25 21  |255:B%!72=T%:B%!|
000008d0  37 36 3d 2d 31 3a 42 25  21 38 30 3d 32 35 36 3a  |76=-1:B%!80=256:|
000008e0  24 54 25 3d 54 24 0d 03  3e 34 42 25 21 31 36 3d  |$T%=T$..>4B%!16=|
000008f0  28 21 42 25 2d 42 25 21  38 29 81 32 3a 42 25 21  |(!B%-B%!8).2:B%!|
00000900  32 30 3d 28 42 25 21 31  32 2d 42 25 21 34 29 81  |20=(B%!12-B%!4).|
00000910  32 3a 42 25 21 32 34 3d  2d 31 0d 03 48 23 42 25  |2:B%!24=-1..H#B%|
00000920  21 33 32 3d 26 30 31 30  37 30 32 30 37 3a 42 25  |!32=&01070207:B%|
00000930  21 33 36 3d 26 30 30 30  43 30 31 30 33 0d 03 52  |!36=&000C0103..R|
00000940  3e 42 25 21 35 36 3d 25  31 30 30 30 30 31 30 30  |>B%!56=%10000100|
00000950  31 3a 42 25 21 36 30 3d  31 30 3c 3c 31 32 3a 42  |1:B%!60=10<<12:B|
00000960  25 21 36 34 3d 30 3a 42  25 21 36 38 3d 26 31 30  |%!64=0:B%!68=&10|
00000970  30 30 31 3a 42 25 21 38  34 3d 30 0d 03 5c 22 c8  |001:B%!84=0..\".|
00000980  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00000990  64 6f 77 22 2c 2c 42 25  20 b8 20 57 25 0d 03 66  |dow",,B% . W%..f|
000009a0  3e 21 42 25 3d 57 25 3a  c8 99 22 57 69 6d 70 5f  |>!B%=W%:.."Wimp_|
000009b0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000009c0  2c 42 25 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |,B%:.."Wimp_Open|
000009d0  57 69 6e 64 6f 77 22 2c  2c 42 25 0d 03 70 05 e1  |Window",,B%..p..|
000009e0  0d 03 7a 04 0d 03 84 0f  dd f2 4e 65 77 53 70 72  |..z.......NewSpr|
000009f0  69 74 65 0d 03 8e 21 c8  99 53 4f 2c 26 31 33 43  |ite...!..SO,&13C|
00000a00  2c 53 25 2c 22 58 22 b8  20 52 30 2c 52 31 2c 52  |,S%,"X". R0,R1,R|
00000a10  32 2c 52 33 0d 03 98 3a  c8 99 22 45 75 63 6c 69  |2,R3...:.."Eucli|
00000a20  64 5f 45 78 70 61 6e 64  22 2c 4d 25 21 33 32 2c  |d_Expand",M%!32,|
00000a30  44 50 54 52 25 2c 53 43  52 25 2c 4d 25 21 34 30  |DPTR%,SCR%,M%!40|
00000a40  20 b8 20 2c 44 50 54 52  25 2c 53 43 52 25 0d 03  | . ,DPTR%,SCR%..|
00000a50  a2 16 e7 28 4d 25 21 33  36 80 33 29 3d 30 53 43  |...(M%!36.3)=0SC|
00000a60  52 25 3d 30 0d 03 ac 14  c8 99 53 4f 2c 52 30 2c  |R%=0......SO,R0,|
00000a70  52 31 2c 52 32 2c 52 33  0d 03 b6 32 42 25 21 34  |R1,R2,R3...2B%!4|
00000a80  3d 2d 33 45 34 3a 42 25  21 38 3d 2d 33 45 34 3a  |=-3E4:B%!8=-3E4:|
00000a90  42 25 21 31 32 3d 33 45  34 3a 42 25 21 31 36 3d  |B%!12=3E4:B%!16=|
00000aa0  33 45 34 3a 21 42 25 3d  57 25 0d 03 c0 22 c8 99  |3E4:!B%=W%..."..|
00000ab0  22 57 69 6d 70 5f 55 70  64 61 74 65 57 69 6e 64  |"Wimp_UpdateWind|
00000ac0  6f 77 22 2c 2c 42 25 20  b8 20 46 25 0d 03 ca 33  |ow",,B% . F%...3|
00000ad0  c8 95 46 25 3a 58 25 3d  42 25 21 34 2d 42 25 21  |..F%:X%=B%!4-B%!|
00000ae0  32 30 3a 59 25 3d 42 25  21 31 36 2d 42 25 21 32  |20:Y%=B%!16-B%!2|
00000af0  34 3a f2 52 65 64 72 61  77 53 70 72 69 74 65 0d  |4:.RedrawSprite.|
00000b00  03 d4 24 c8 99 22 57 69  6d 70 5f 47 65 74 52 65  |..$.."Wimp_GetRe|
00000b10  63 74 61 6e 67 6c 65 22  2c 2c 42 25 20 b8 20 46  |ctangle",,B% . F|
00000b20  25 3a ce 0d 03 de 05 e1  0d 03 e8 04 0d 03 f2 10  |%:..............|
00000b30  dd f2 4d 61 6b 65 53 70  72 69 74 65 0d 03 fc 32  |..MakeSprite...2|
00000b40  c8 99 22 4f 53 5f 53 57  49 4e 75 6d 62 65 72 46  |.."OS_SWINumberF|
00000b50  72 6f 6d 53 74 72 69 6e  67 22 2c 2c 22 4f 53 5f  |romString",,"OS_|
00000b60  53 70 72 69 74 65 4f 70  22 20 b8 20 53 4f 0d 04  |SpriteOp" . SO..|
00000b70  06 29 c8 99 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |.).."OS_ReadMode|
00000b80  56 61 72 69 61 62 6c 65  22 2c 46 4d 25 2c 34 20  |Variable",FM%,4 |
00000b90  b8 20 2c 2c 58 52 25 0d  04 10 29 c8 99 22 4f 53  |. ,,XR%...).."OS|
00000ba0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000bb0  65 22 2c 46 4d 25 2c 35  20 b8 20 2c 2c 59 52 25  |e",FM%,5 . ,,YR%|
00000bc0  0d 04 1a 2a c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...*.."OS_ReadMo|
00000bd0  64 65 56 61 72 69 61 62  6c 65 22 2c 46 4d 25 2c  |deVariable",FM%,|
00000be0  31 30 20 b8 20 2c 2c 4c  42 25 0d 04 24 30 53 53  |10 . ,,LB%..$0SS|
00000bf0  25 3d 28 28 28 46 57 25  3e 3e 58 52 25 29 2a 28  |%=(((FW%>>XR%)*(|
00000c00  46 48 25 3e 3e 59 52 25  29 3e 3e 33 2d 4c 42 25  |FH%>>YR%)>>3-LB%|
00000c10  29 2b 31 30 30 30 29 80  ac 33 0d 04 2e 37 de 53  |)+1000)..3...7.S|
00000c20  25 53 53 25 3a 21 53 25  3d 53 53 25 3a 53 25 21  |%SS%:!S%=SS%:S%!|
00000c30  34 3d 30 3a 53 25 21 38  3d 31 36 3a 53 25 21 31  |4=0:S%!8=16:S%!1|
00000c40  32 3d 31 36 3a c8 99 53  4f 2c 26 31 30 39 2c 53  |2=16:..SO,&109,S|
00000c50  25 0d 04 38 2c c8 99 53  4f 2c 26 31 30 46 2c 53  |%..8,..SO,&10F,S|
00000c60  25 2c 22 58 22 2c 30 2c  46 57 25 3e 3e 58 52 25  |%,"X",0,FW%>>XR%|
00000c70  2c 46 48 25 3e 3e 59 52  25 2c 46 4d 25 0d 04 42  |,FH%>>YR%,FM%..B|
00000c80  05 e1 0d 04 4c 04 0d 04  56 24 dd f2 52 65 64 72  |....L...V$..Redr|
00000c90  61 77 53 70 72 69 74 65  3a 58 25 2d 3d 46 57 32  |awSprite:X%-=FW2|
00000ca0  25 3a 59 25 2d 3d 46 48  32 25 0d 04 60 3c e7 eb  |%:Y%-=FH2%..`<..|
00000cb0  3c 3e 43 4d 25 c8 99 22  43 6f 6c 6f 75 72 54 72  |<>CM%.."ColourTr|
00000cc0  61 6e 73 5f 53 65 6c 65  63 74 54 61 62 6c 65 22  |ans_SelectTable"|
00000cd0  2c 46 4d 25 2c 30 2c 2d  31 2c 2d 31 2c 43 54 25  |,FM%,0,-1,-1,CT%|
00000ce0  3a 43 4d 25 3d eb 0d 04  6a 0d e7 43 4d 25 3d 46  |:CM%=...j..CM%=F|
00000cf0  4d 25 8c 0d 04 74 1d 20  20 20 c8 99 53 4f 2c 26  |M%...t.   ..SO,&|
00000d00  31 32 32 2c 53 25 2c 22  58 22 2c 58 25 2c 59 25  |122,S%,"X",X%,Y%|
00000d10  0d 04 7e 05 cc 0d 04 88  25 20 20 20 c8 99 53 4f  |..~.....%   ..SO|
00000d20  2c 26 31 33 34 2c 53 25  2c 22 58 22 2c 58 25 2c  |,&134,S%,"X",X%,|
00000d30  59 25 2c 30 2c 30 2c 43  54 25 0d 04 92 05 cd 0d  |Y%,0,0,CT%......|
00000d40  04 9c 05 e1 0d 04 a6 04  0d 04 b0 2b dd f2 4c 6f  |...........+..Lo|
00000d50  61 64 46 69 6c 6d 28 46  24 29 3a c8 95 c0 46 24  |adFilm(F$):...F$|
00000d60  2c 31 29 3d 22 20 22 3a  46 24 3d c1 46 24 2c 32  |,1)=" ":F$=.F$,2|
00000d70  29 3a ce 0d 04 ba 31 e7  46 24 3d 22 22 85 31 2c  |):....1.F$="".1,|
00000d80  22 44 6f 75 62 6c 65 20  43 6c 69 63 6b 20 6f 6e  |"Double Click on|
00000d90  20 61 20 46 69 6c 6d 20  74 6f 20 77 61 74 63 68  | a Film to watch|
00000da0  20 69 74 22 0d 04 c4 2d  ea 85 3a ee 85 3a 85 a2  | it"...-..:..:..|
00000db0  20 31 2c 22 55 6e 61 62  6c 65 20 74 6f 20 6c 6f  | 1,"Unable to lo|
00000dc0  61 64 20 66 69 6c 6d 20  27 22 2b 46 24 2b 22 27  |ad film '"+F$+"'|
00000dd0  22 0d 04 ce 21 c8 99 22  4f 53 5f 46 69 6c 65 22  |"...!.."OS_File"|
00000de0  2c 35 2c 46 24 20 b8 20  4f 25 2c 2c 54 25 2c 2c  |,5,F$ . O%,,T%,,|
00000df0  4c 25 0d 04 d8 2b e7 28  54 25 3e 3e 38 29 3c 3e  |L%...+.(T%>>8)<>|
00000e00  2d 36 36 32 85 31 2c 22  4e 6f 74 20 61 6e 20 41  |-662.1,"Not an A|
00000e10  63 65 20 46 69 6c 6d 20  66 69 6c 65 22 0d 04 e2  |ce Film file"...|
00000e20  1f de 4d 25 4c 25 3a c8  99 22 4f 53 5f 46 69 6c  |..M%L%:.."OS_Fil|
00000e30  65 22 2c 26 46 46 2c 46  24 2c 4d 25 0d 04 ec 37  |e",&FF,F$,M%...7|
00000e40  46 57 25 3d 4d 25 21 32  30 3a 46 48 25 3d 4d 25  |FW%=M%!20:FH%=M%|
00000e50  21 32 34 3a 46 4d 25 3d  4d 25 21 32 38 3a 46 57  |!24:FM%=M%!28:FW|
00000e60  32 25 3d 46 57 25 81 32  3a 46 48 32 25 3d 46 48  |2%=FW%.2:FH2%=FH|
00000e70  25 81 32 0d 04 f6 05 e1  0d 05 00 04 0d 05 0a 0f  |%.2.............|
00000e80  dd f2 4d 65 6e 75 54 28  54 24 29 0d 05 14 21 24  |..MenuT(T$)...!$|
00000e90  56 25 3d c0 54 24 2c 31  31 29 3a 56 25 21 31 36  |V%=.T$,11):V%!16|
00000ea0  3d 31 36 2a 28 a9 24 56  25 2b 31 29 0d 05 1e 2b  |=16*(.$V%+1)...+|
00000eb0  56 25 21 32 30 3d 34 34  3a 56 25 21 31 32 3d 26  |V%!20=44:V%!12=&|
00000ec0  30 30 30 37 30 32 30 37  3a 56 25 21 32 34 3d 30  |00070207:V%!24=0|
00000ed0  3a 56 25 2b 3d 32 38 0d  05 28 05 e1 0d 05 32 04  |:V%+=28..(....2.|
00000ee0  0d 05 3c 12 dd f2 4d 65  6e 75 45 28 54 24 2c 46  |..<...MenuE(T$,F|
00000ef0  25 29 0d 05 46 3a 24 28  56 25 2b 31 32 29 3d c0  |%)..F:$(V%+12)=.|
00000f00  54 24 2c 31 31 29 3a 21  56 25 3d 46 25 3a 56 25  |T$,11):!V%=F%:V%|
00000f10  21 34 3d 2d 31 3a 56 25  21 38 3d 31 84 25 31 31  |!4=-1:V%!8=1.%11|
00000f20  31 3c 3c 32 34 3a 56 25  2b 3d 32 34 0d 05 50 05  |1<<24:V%+=24..P.|
00000f30  e1 0d 05 5a 04 0d 05 64  2a dd a4 5a 53 28 49 25  |...Z...d*..ZS(I%|
00000f40  29 ea 41 24 3a f5 41 24  2b 3d bd 3f 49 25 3a 49  |).A$:.A$+=.?I%:I|
00000f50  25 2b 3d 31 3a fd 3f 49  25 3d 30 3a 3d 41 24 0d  |%+=1:.?I%=0:=A$.|
00000f60  ff                                                |.|
00000f61