�>$.!Projector.!RunImage
8� (C) Tony Cheal/Ace Computing Nov 1991 Version 1.28
L� This program may be freely distributed, BUT its contents are Copyright
(<� Should be with version 1.00 Euclid or EuclidX or above
2@� Plays back a film in Ace Film format using either the full
<6� blown Euclid Module or the Public Domain EuclidX
F�!!!!!REM out next line
P� �,�$+" "+Þ
Z3ș"OS_SWINumberFromString",,"OS_SpriteOp" � SO%
d5ș"OS_SWINumberFromString",,"Euclid_Expand" � EX%
nIS%=&81EC0�1<<17
x=�MV%20,TK%4:P%=MV%:SCRAP%=�:BBC%=�:RY%=�:�SUP%100,DM%1000
�$ș"OS_Module",6,,,256�,,NewMode%
�(�SYS"OS_Module",6,,,256TO,,WimpMode%
�D[OPT2:LDR 3,[0],#4:STR 3,[1],#4:SUBS 2,2,#4:BNE MV%:MOVS PC,14:]
�-�TIT%1000:TT%=TIT%:�B%1000:KS%=80:WT%=950
�%�VarVal("Projector$Country")=""�
�ș6,70,127�,C%
�Dș"OS_ServiceCall",,&43,2,C%,B%,255�,,,,,L%:B%?L%=&D:C$=�$B%,10)
� �"Set Projector$Country "+C$
��
�+C%=�("<Projector$Resources>.Templates")
��C%�
�   �#C%
��

c   !B%=1:$(B%+4)="Can't find resources for "+�VarVal("Projector$Country")+" - defaulting to UK"

I   ș"Wimp_ReportError",B%,%1,"Projector":�"Set Projector$Country UK"

�

"+�Mess("<Projector$Resources>.Messages")

,Iș"Wimp_Initialise",200,&4B534154,"Ace Film Player" � V%:MED%=V%>=330

6șIS%+1

@;B%!0=-1:B%!4=0:B%!8=0:B%!12=68:B%!16=90:B%!20=%10�3<<12

J4$(B%+24)="!projector":ș"Wimp_CreateIcon",,B%�Z%

T<ș"Wimp_OpenTemplate",,"<Projector$Resources>.Templates"

^�Q%1000,R%4:!R%=0:C%=Q%

hCG%=�Temp("ProgInfo"):H%=�Temp("FilmInfo"):FS%=�Temp("FullMode")

rș"Wimp_CloseTemplate"

|4�SPR%256:!SPR%=256:SPR%!4=0:SPR%!8=16:SPR%!12=16

�,șSO%,&10F,SPR%,"C",,40,16,8:MO%=�:XO%=�

�/MI%=�MVar(�,9)��MVar(�,4)<<8��MVar(�,5)<<16

�

��DEL%200:V%=DEL%

��MenuT("DEL")

�,DL%=V%+12:T%=�ESVL("!2","a0-9",&84,5,-1)

�

��ROL%200:V%=ROL%

��MenuT("ROL")

�-RLL%=V%+12:T%=�ESVL("!1","a0-9",&84,5,-1)

�

��MENU%1000:V%=MENU%

�;�VDU23,&90,&10,&38,&7C,&FE,&7C,&10,&38,&00:ACE$=CHR$&90
�MenuT("PRJ")
%INF%=V%:�MenuE("INF",0):INF%!4=G%
%RO%=V%:�MenuE("ROL",0):RO%!4=ROL%
&#T%=V%:�MenuE("DEL",0):T%!4=DEL%
0FRFM%=V%:�MenuE("FRF",0)
:�MenuE("QUT",&80)
D�EndMenu
N
X�FMENU%1000:V%=FMENU%
b�MenuT("PRJ")
lMISC%=V%:�MenuE("MSC",0)
vFR%=V%:�MenuE("FRZ",0)
�REV%=V%:�MenuE("REV",0)
�YOYO%=V%:�MenuE("YOY",0)
��MenuE("FFR",0)
��MenuE("LFR",0)
�&INF%=V%:�MenuE("FSC",0):INF%!4=FS%
�MD%=V%:�MenuE("STM",&80)
��EndMenu
�
�MISC%!4=V%:�MenuT("MSC")
�%INF%=V%:�MenuE("INF",0):INF%!4=G%
�%INF%=V%:�MenuE("FIL",0):INF%!4=H%
��MenuE("NVW",0)
�FRF%=V%:�MenuE("FRF",&80)
�EndMenu

8EN%=�:FC%=2:WM%=�GetWimpMode:LO%=�:�=�+&1000:MT%=�:�
 8RC%=1:RY%=�:DS%=�:ș"OS_GetEnv" � E$:I%=�E$,"-quit")
*4I%=�E$,"""",I%+1):I%=�E$,"""",I%+1):E$=�E$,I%+1)
4ȕ�E$,1)=" ":E$=�E$,2):�
>ȕE$<>ĩE$," ")
H I%=�E$+" "," "):F$=�E$,I%-1)
R)E$=�E$,I%+1):ȕ�E$,1)=" ":E$=�E$,2):�
\:�LO%�K%=!R%:ȕK%:!B%=K%!20:�Which(!B%):�Close:K%=!R%:�
f�F$,1)="-"�
p   Ȏ�F$,2,1)�
z#   �"r","R":�Roll(RC%,FC%):�END
�   �"f","F":FC%=��F$,3)
�   �"l","L":K%=!R%
�@ �K%:�Which(K%!20):�Full(RC%,FC%):�I%=27:�BackToDesktop:�END
�/   �LO%LO%=�:ș"Wimp_SlotSize",EN%-&8000,-1
�   �"c","C":RC%=��F$,3)
�   �"w","W":RC%=-RC%
�.   �"e","E":�LO%�ș"Wimp_SetMode",WM%:�END
�   �"y","Y":RY%=�RY%
�   �"d","D":DS%=�DS%
�   �"o","O":!FRFM%=!FRFM%�1
�   �
��
�   �LoadAFilm(F$)
N   �LO%�K%=!R%:�K%:�Which(K%!20):�Full(RC%,FC%):�I%=27:�BackToDesktop:�END
�
�
$:�LO%�K%=!R%:ȕK%:!B%=K%!20:�Which(!B%):�Close:K%=!R%:�
.�LO%
8
�:�Error
B ș"OS_ReadMonotonicTime"�IT%
L�
V'ș"Wimp_PollIdle",,B%,IT%+�$!DL%�A%
`	ȎA%�
j*�0:ș"OS_ReadMonotonicTime"�IT%:K%=!R%
tLȕK%:M%=K%!4:S%=K%!8:DPTR%=K%!12:SCR%=K%!16:W%=K%!20:CT%=K%!44:iD%=K%!76
~�K%!24�
�,�K%!32�F%=M%+M%!16:�DPTR%=F%+!F%:K%!28=�
� �K%!28�NextFrame ��LastFrame
��K%!32��!DPTR%=0:K%!28=�
��:K%=!K%:�
��1:�Which(!B%):�Redraw
��2:�Which(!B%):�Open
��3:�Which(!B%):�Close
��6
�   ȎB%!12�
�   �FS%:�B%!8�7�
�.   ș"Wimp_CloseWindow",,B%+12:�Which(MW%)
�B   WM%=�GetWimpMode:J%=2:RY%=�K%!32:�Full(0,J%):�BackToDesktop
%   �B%!8�1�Popup(MEN%)��Popup(-1)

   �
'   �-2:�B%!16=Z%MX%=B%!0-80:MY%=314
1      �B%!8=2�Select(RO%,!R%=0):�Popup(MENU%)
(
   �G%,H%
2   :�Which(B%!12):�Button
<   �
F
�9:�Menus
P
�17,18
Z   ȎB%!16�
d!   �0:ș"Wimp_CloseDown":�END
n!   �1:�B%!40=&D6A�B%!40=&C2A�
xG      !B%=60:B%!12=B%!8:B%!16=2:B%!36=-1:$(B%+44)="<Wimp$Scrap>"+�0
�5      ș"Wimp_SendMessage",17,B%,B%!4:SCRAP%=B%!8
�      �
�#   �3,5:�B%!40=&D6A�B%!40=&C2A�
�6         F$=�ZS(B%+44):�SCRAP%:SCRAP%=SCRAP%=B%!12
�?         B%!12=B%!8:B%!16=4:ș"Wimp_SendMessage",17,B%,B%!4
�!         RY%=�:�LoadAFilm(F$)
�.         �SCRAP%:SCRAP%=�:ș"OS_File",6,F$
�      �
�C   �9,&400C1:K%=!R%:ȕK%:!(K%!44)=!(K%!4+28):�K%!52:!(K%!44)=-1
�      K%=!K%:�
�5      MI%=�MVar(�,9)��MVar(�,4)<<8��MVar(�,5)<<16
�   �
��
�0

��Close
"+L%=K%!36:N%=L%:ȕN%!40:L%=N%:N%=N%!40:�
,�K%!40�
6-�I%=12�32�4:ȔK%!I%,N%!I%:�:ȔK%!76,N%!76
@�K%!16>0K%!16-=N%!8-K%!8
J�N%!16>0N%!16-=K%!8-N%!8
T:șSO%,&13C,S%,"X"� R0,R1,R2,R3:șSO%,&122,N%!8,"X",,,3
^-șSO%,&13C,N%!8,"X":șSO%,&122,S%,"X",,,3
h?șSO%,&13C,S%,"X":șSO%,&122,N%!8,"X",,,3:șSO%,R0,R1,R2,R3
r�Which(!B%)
|�
�>L%!40=0:ș"Wimp_CloseWindow",,B%:ș"Wimp_DeleteWindow",,B%
�*M%=K%!56:�K%!36<>K%M%=S%��K%!60�#K%!60
�!�K%!36=K%�K%!72:șIS%+4,K%!72
�!I%=!K%:E%=K%+KS%:L%=E%-M%
��E%<MT%�
�J%=R%:I%=!J%:ȕI%
��Adjust(!J%)
�=�Adjust(I%!4):�Adjust(I%!8):�Adjust(I%!12):�Adjust(I%!16)
�7�Adjust(I%!36):�Adjust(I%!40):�Adjust(!((I%!44)+4))
�0�Adjust(I%!44):�Adjust(I%!52):�Adjust(I%!56)
�7�I%!72:�Adjust(I%!72):�Adjust(I%!76):�Adjust(I%!68)
�J%=I%:I%=!J%
��
�Move(M%+L%,M%,MT%-(M%+L%))
�
.MT%-=L%:�LO%ș"Wimp_SlotSize",MT%-&8000,-1
&�
0
: ��Adjust(� P%):�P%>M%:P%-=L%
D�
N
X$��Open:ș"Wimp_OpenWindow",,B%:�
b
l��Redraw
v"ș"Wimp_RedrawWindow",,B% � F%
�3ȕF%:X%=B%!4-B%!20:Y%=B%!16-B%!24:�RedrawSprite
�$ș"Wimp_GetRectangle",,B% � F%:�
��
�
���Button
�ȎB%!8�
��1:�LastFrame
�k�2:�Select(FR%,!(M%+M%!16)=0):�Tick(FR%,K%!24):�Tick(REV%,K%!28):�Tick(YOYO%,K%!32):�Tick(FRF%,K%!60=0)
�:�Select(MD%,�ModesEqual(�,M%!28)):MX%=B%!0-80:MY%=B%!4
�>�SetI(H%,0,�M%!28):�SetI(H%,1,�!M%):�SetI(H%,2,�MSG("NO"))
�:�M%!32=1�SetI(H%,2,�MSG("YES"))��SetI(H%,2,�MSG("NO"))
�>�(M%!36�3)=0�SetI(H%,3,�MSG("NO"))��SetI(H%,3,�MSG("YES"))
�)�SetI(H%,4,�M%!20):�SetI(H%,5,�M%!24)
�Popup(FMENU%):MW%=W%
�4:�NextFrame
�
 �
*
4��Menus
>ȎMEN%�
H�MENU%:Ȏ!B%�
R   �0:�Popup(G%):�
\   �1:�Roll(�$!RLL%,2)
f   �3:!FRFM%=!FRFM%�1
p!   �4:ș"Wimp_CloseDown":�END
z   �
��FMENU%:�Which(MW%):Ȏ!B%�
�   �0:ȎB%!4�
�%      �2:Q%=K%:ȕQ%!40:Q%=Q%!40:�
�0      CP%=Q%!52:FH%=Q%!60:BB%=Q%!64:�SetFilm
�      K%!36=Q%!36:Q%!40=K%
�      �
�   �1:K%!24=�K%!24
�   �2:K%!28=�K%!28
�   �3:K%!32=�K%!32
�<   �4:DPTR%=M%+M%!16:iD%=K%!68:SCR%=0:�NextFrame:K%!28=�
�F   �5:DPTR%=M%+M%!16:iD%=K%!68:SCR%=0:�NewFrame:�LastFrame:K%!28=�
�E   �6:WM%=�GetWimpMode:J%=2:RY%=�K%!32:�Full(0,J%):�BackToDesktop
�"   �7:�SYS"Wimp_SetMode",M%!28
	         �WimpMode(M%!28)
	   �
	<   �Tick(FR%,K%!24):�Tick(REV%,K%!28):�Tick(YOYO%,K%!32)
	$(   �Select(MD%,�ModesEqual(�,M%!28))
	.�
	8?ș"Wimp_GetPointerInfo",,B%:�B%!8�1:�Popup(MEN%)��Popup(-1)
	B�
	L
	VB��Window(T$,B%!28,!B%,B%!4,B%!8,B%!12,B%!40,B%!44,B%!48,B%!52)
	`�T$=ACE$+" "+T$+" "+ACE$
	jT%=TT%:TT%+=�T$+1
	t"�TT%>TIT%+1000:TT%=TIT%:T%=TT%
	~&B%!72=T%:B%!76=-1:B%!80=�T$:$T%=T$
	�4B%!16=(!B%-B%!8)�2:B%!20=(B%!12-B%!4)�2:B%!24=-1
	�#B%!32=&01070207:B%!36=&000C0103
	�=B%!56=%100001001:B%!60=2<<12:B%!64=0:B%!68=&10001:B%!84=0
	�"ș"Wimp_CreateWindow",,B% � W%
	�>!B%=W%:ș"Wimp_GetWindowState",,B%:ș"Wimp_OpenWindow",,B%
	��
	�
	���NextFrame:�NewFrame
	�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
	�3ș"Wimp_GetRectangle",,B% � F%:�:�K%!72:�ISound
�


$��LastFrame:�K%!72:�ILastFrame:�
�DPTR%<>M%+M%!16�
(DPTR%-=DPTR%!-4
2�(M%!36�3)=0�
<.  �DPTR%=M%+M%!16:ȕ!DPTR%:DPTR%+=!DPTR%:�
F   DPTR%-=DPTR%!-4:�NextFrame
P�
Z  �DPTR%=M%+M%!16�
d6  DPTR%+=!DPTR%:ș"Hourglass_On":ȕ!(DPTR%+!DPTR%)
n.  �NewFrame:�:ș"Hourglass_Off":�NextFrame
x  �
�=  �NextFrame:K%!12=DPTR%-DPTR%!-4:�K%!12=M%+M%!16:K%!16=0
�  �
��
��
��
�
���NewFrame
�8�!DPTR%=0:DPTR%=M%+M%!16:SCR%=0:iD%=K%!68:�!DPTR%=0�
�"șSO%,&13C,S%,"X"� R0,R1,R2,R3
�J�:��:��:șSO%,R0,R1,R2,R3:!B%=K%!20:�Which(!B%):�Close:K%=!R%:� �,�$
�F�K%!60=0șEX%,M%!32,DPTR%,SCR%,M%!40 � ,DPTR%,SCR%��EX(DPTR%,SCR%)
��(M%!36�3)=0SCR%=0
���:șSO%,R0,R1,R2,R3
5K%!12=DPTR%:K%!16=SCR%:�K%!72:iD%+=!iD%:K%!76=iD%
�

"��MakeSprite
,=XR%=�MVar(M%!28,4):YR%=�MVar(M%!28,5):LB%=�MVar(M%!28,10)
6SS%=((1<<XR%)<<5-LB%)-1
@7SS%=(((M%!20+SS%>>XR%)>>5-LB%)<<2)*(M%!24>>YR%)+100
J@S%=�Alloc(SS%):!S%=SS%:S%!4=0:S%!8=16:S%!12=16:șSO%,&109,S%
T3șSO%,&10F,S%,"X",0,M%!20>>XR%,M%!24>>YR%,M%!28
^�
h
r��RedrawSprite
| 笤ModesEqual(!CT%,�):�Table
��MI%=K%!48�K%!52=0�
�   șSO%,&122,S%,"X",X%,Y%
��
�&   șSO%,&134,S%,"X",X%,Y%,,,CT%!4
��
��
�
���LoadFilm(F$)
�iS%=0:iW%=0:iD%=0
�Eș"OS_File",5,F$ � O%,,T%,,L%:�O%<>1�1,"Can't find film '"+F$+"'"
�-�(T%>>8)<>-982:�!FRFM%�1�PseudoLoad(F$):�
�(FH%=0:BB%=0:�:��:�PseudoLoad(F$):�
�MM%=�Alloc(L%):��
 M%=MM%:ș"OS_File",&FF,F$,M%
%CT%=�Alloc(264):CP%=0:!CT%=M%!28:
�(T%>>8)=-982�
&4�Chunk(&31524944):iS%=M%+O%+8:șIS%+3,M%,L%�iW%
0+�Chunk(&454C4150):CP%=M%+O%+36:!CT%=-1
:9�Chunk(&46454341):M%+=O%+8��1,"Film chunk not found"
D�
N�
X
bݤChunk(C%)�T%:O%=0
l/ȕO%<L%��T%:�M%!O%=C%:T%=� �O%+=M%!(O%+4):�
v=T%
�
���LoadAFilm(E$)
��LoadFilm(E$):�SetFilm
��
�
���SetFilm:�MakeSprite
��WT%-M%!24<180:WT%=950
�F�Window($(M%+4),%1111,300,WT%-M%!24,M%!20+300,WT%,0,0,M%!20,M%!24)
�:WT%-=48:DPTR%=M%+M%!16:SCR%=0:CM%=M%!28:K%=�Alloc(KS%)
�D!K%=!R%:!R%=K%:K%!4=M%:K%!8=S%:K%!20=W%:K%!24=!(DPTR%+!DPTR%)<>0
�!�K%!24�K%!24=(M%!36�(1<<4))=0
�<K%!28=�:K%!32=(M%!36�4)=0�RY%:K%!36=K%:K%!40=0:K%!44=CT%
�=K%!48=�MVar(M%!28,9)��MVar(M%!28,4)<<8��MVar(M%!28,5)<<16

QK%!52=CP%:K%!56=MM%:K%!60=FH%:K%!64=BB%:K%!68=iS%:K%!72=iW%:K%!76=iS%:iD%=iS%

�NextFrame

�

 

*>ݤTemp(T$):ș"Wimp_LoadTemplate",,B%,C%,Q%+1000,-1,T$�,,C%

4$ș"Wimp_CreateWindow",,B%�T%:=T%

>

H*��Tick(T%,F%):�F%:!T%=!T%��1�!T%=!T%�1

R�

\:��Select(T%,F%):�F%:T%!8=T%!8�1<<22�T%!8=T%!8��(1<<22)

f�

p*ݤZS(I%)�A$:�A$+=�?I%:I%+=1:�?I%=0:=A$

z

�1ݤAlloc(L%):�E%,T%:�LO%E%=MT%+L%-&8000 �E%=-1

�(ș"Wimp_SlotSize",E%,-1�T%:T%+=&8000

��T%<MT%+L%�1,�MSG("INS")

�MT%+=L%:=MT%-L%

�

�"��Which(T%):W%=T%:J%=R%:K%=!J%

�gȕK%:�W%=K%!20:M%=K%!4:S%=K%!8:DPTR%=K%!12:SCR%=K%!16:CT%=K%!44:iS%=K%!68:iW%=K%!72:iD%=K%!76:I%=J%

�J%=K%:K%=!J%:�:K%=!I%

��

�

���Move(A%,B%,C%):�MV%:�

�

�9��Popup(N%):ș"Wimp_CreateMenu",,N%,MX%,MY%:MEN%=N%:�

:��SetI(W%,I%,S$):�F%:!B%=W%:ș"Wimp_GetWindowInfo",,B%
4�I%>=0:I%=B%+112+I%*32:F%=I%-4�I%=B%+76:F%=B%+60
$*�!F%�1<<8:$!I%=�S$,I%!8-1)�$I%=�S$,11)
.�
8
B ��Roll(RC%,U%):�RC%<=0:RC%=1
L3WM%=�GetWimpMode:�:I%=0:FK%=0:ȕFK%<>!R%�I%<>27
V%K%=!R%:ȕ!K%<>FK%:K%=!K%:�:FK%=K%
`RM%=K%!4:S%=K%!8:DPTR%=K%!12:SCR%=K%!16:W%=K%!20:CT%=K%!44:iD%=K%!76:RY%=�K%!32
j�Full(RC%,U%):K%=!K%:�
t!�I%=27:�SYS"Wimp_SetMode",WM%
~�BackToDesktop
��
�
���Full(RL%,� W%):�J%:�
�!FW%=M%!20:FH%=M%!24:FM%=M%!28
�T%=�:�:��:��:T%=�
�6�I%=0�15:SUP%?(I%*4)=I%:ș"OS_Word",&B,SUP%+I%*4:�
�
�FM%>255�
��NewMode(FM%)
��
��T%�FM%+128:�� ��FM%
��
�'��:��:�BackToDesktop:� �,�$+" "+Þ
<�ONERRORLOCAL:RESTOREERROR:ERROR ERR,REPORT$+" "+STR$ERL

9笤ModesEqual(�,FM%)��1,"Mode for film not available"
�IFMODE<256THEN
�MVar(-1,9)<4�
($ ș"ColourTrans_InvalidateCache"
2 �MVar(�,9)<=2�
<7 E%=B%+100:ș"Wimp_ReadPalette",,E%:�K%!52:E%=K%!52
F �MVar(�,9)=2�K%!52�
P �I%=0��MVar(�,3)
Z9 �19,I%,16�(SUP%?(I%*4+1)�&80),E%?1,E%?2,E%?3:E%+=4:�
d �
n �
x�
�
�#SW%=�MVar(-1,4):SH%=�MVar(-1,5)
��MVar(-1,9)<4�
�$FW2%=(FW%�2>>SW%)>>3-�MVar(-1,9)
�#FW2%=(FW2%<<SW%)<<3-�MVar(-1,9)
��
�FW2%=FW%�2
��
�FH2%=FH%�2>>SH%
�FH2%=FH2%<<SH%
�;SW%=(�MVar(-1,11)+1<<SW%)�2:SH%=(�MVar(-1,12)+1<<SH%)�2
�
�`�K%!52:E%=K%!52:E%+=E%?-24<<2:�5:ș"ColourTrans_SetGCOL",!E%,,,128:�:�19,0,24,E%?1,E%?2,E%?3

&�:E%=1:�F:�:�F:�:F%=RL%>0:�MO%ȗ�2
8�24,SW%-FW2%;SH%-FH2%;SW%-FW2%+FW%-1;SH%-FH2%+FH%-1;
"(D%=M%+M%!16:C%=0:c%=-1:CM%=FM%:�E:�F
,
6
@��I%=�0:ș6,&B0,255:�R
J/�I%=27�(RL%�!D%=0):RL%=�RL%-1:�RL%<=0�I%=27
T��
^�
h
r��R:�MO%�C
|�F%��I%<0�I%=�0:�C:�I%>=0
�2�I%<32��BBC%�E:�ș6,&B0,,255�,T%:�T%<256-W%:�F
��I%<0�F%:�
��DS%���-1:I%=0
�ș6,15:�BBC%�I%<>2I%=�"+"
�)�I%=2:BBC%=�BBC%:F%=�:I%=�"F":�BBC%�7
��I%=32:F%=�F%:�
��I%=13:F%=�:�
�
Ȏ�I%�
�%�"I","i":�23,0,8,&81+F%|:F%=�F%:�
�+�"F","f":D%=M%+M%!16:C%=0:c%=-1:�E:�F:�
��"L","l","s","S"
��(M%!36�3)=0�
�,   �!D%ȕ!(D%+!D%):D%+=!D%:c%+=1:�:�E:�F
�
   �!D%:ȕ!D%:�E:�:�F
�
&�I%="s"��I%="S":RL%=-1
0�
:�"C","c"
D)�MO%��XO%:ȗ�:MO%=� �ȗ�2:MO%=�:XO%=�
N�
X�"X","x"
b(�MO%�XO%:ȗ�:MO%=� �ȗ�2:MO%=�:XO%=�
l�
v�"Y","y":RY%=(RY%>>1)=0:�
�6�"0","1","2","3","4","5","6","7","8","9":W%=��I%:�
��"+":�!D%�E:�F
�
F%=�:�
��"-":�D%=M%+M%!16:�
��D%>M%+M%!16D%-=D%!-4:c%-=1
�/�(M%!36�3)<>0��D%>M%+M%!16D%-=D%!-4:c%-=1��
��D%=M%+M%!16:C%=0:c%=-1
��E:�F:F%=�
�8�(M%!36�3)=0�D%-=D%!-4:c%-=1:�D%=M%+M%!16:C%=0:c%=-1
��
�ɽ27:�23,0,8,&80|:�
��
��7:�

'��F:ș6,&71,E%:E%=3-E%:ș6,&70,E%:�
7��E:�RY%�Y:� ��!D%=0:D%=M%+M%!16:C%=0:c%=-1:�!D%=0�
 =c%+=1:�K%!60=0șEX%,M%!32,D%,C%,M%!40 � ,D%,C%��EX(D%,C%)
*�(M%!36�3)=0C%=0
4�
>��Y:�RY%�1�
HB�!D%<>0c%+=1:�K%!60=0șEX%,M%!32,D%,C%,M%!40�,D%,C%��EX(D%,C%)
R�(M%!36�3)=0C%=0
\�!D%=0:RY%=RY%�1
f�
p*�D%=M%+M%!16:RY%=RY%�1:C%=0:c%=-1:�E:�
zD%-=D%!-4:c%-=1
�/�(M%!36�3)<>0��D%>M%+M%!16D%-=D%!-4:c%-=1��
��D%=M%+M%!16:C%=0:c%=-1
�;c%+=1:�K%!60=0șEX%,M%!32,D%,C%,M%!40�,D%,C%��EX(D%,C%)
�<�(M%!36�3)=0C%=0�D%-=D%!-4:c%-=1:�D%=M%+M%!16:C%=0:c%=-1
�'�D%<=M%+M%!16+!(M%+M%!16):RY%=RY%�1
��
��
�
���C:�MO%�
�.șSO%,&13C,SPR%,"C"� R0,R1,R2,R3:�:�2:�129
�!�XO%ȗx%,y%,z%:�;x%'y%;��;c%;
�+șSO%,R0,R1,R2,R3:șSO%,&124,SPR%,"C",2
��

��Table
Q�K%!52:E%=K%!52��MVar(M%!28,9)=2:ș"Wimp_ReadPalette",,B%+100:E%=B%+100�E%=0
$Bș"ColourTrans_SelectTable",M%!28,E%,-1,-1,CT%+8:!CT%=�GetMode
.�MVar(M%!28,9)<4�
8PCT%!4=0:�I%=(1<<(1<<�MVar(M%!28,9)))-1�0�-1:�CT%?(I%+8)<>I%�I%=0:CT%!4=CT%+8
B�
L�
VCT%!4=CT%+8
`�
j�
t
~��Error
�L!B%=�:$(B%+4)=�$+" "+Þ:V%=2:ș"XWimp_ReportError",B%,%11,"Projector"�V%
��V%=2:�
��
�
�8ݤMVar(N%,V%):ș"OS_ReadModeVariable",N%,V%�,,V%:=V%
�
�*��MenuT(T$):T$=�MSG(T$):LV%=V%:ML%=�T$
�C$V%=T$:V%!16=16*(ML%+1):V%!20=44:V%!12=&00070207:V%!24=0:V%+=28
��
�!��EndMenu:LV%!16=16*(ML%+1):�
�
�7��ES(T$,F%,S%,Y%):T%=�ES(T$,F%,S%):�Select(T%,Y%):�
*��EL(T$,F%):T%=�E(T$,2):�Tick(T%,F%):�

,��EE(T$,F%):T%=�E(T$,&80):�Tick(T%,F%):�
*��ET(T$,F%):T%=�E(T$,0):�Tick(T%,F%):�
!��MenuE(T$,F%):T%=�E(T$,F%):�
(*ݤE(T$,F%)T$=�MSG(T$):�T$>ML%:ML%=�T$
2A�T$<12:$(V%+12)=T$:!V%=F%:V%!4=-1:V%!8=1�7<<24:V%+=24:=V%-24
<=�ES(T$,F%,-1)
F+ݤES(T$,F%,S%)�L%:L%=�T$:�L%>ML%:ML%=L%
P0$(V%+12)=�T$,11):!V%=F%:V%!4=S%:V%!8=1�7<<24
Z�(!V%�4)�L%>11�
d'   V%!20=L%+1:T%=DM%:DM%+=(L%+4)��3
n.   $T%=T$:V%!12=T%:V%!8=V%!8�1<<8:V%!16=-1
x�
�V%+=24:=V%-24
�&ݤESVL(T$,V$,F%,L%,S%):T$=�MSG(T$)
�0$(V%+12)=�T$,11):!V%=F%:V%!4=S%:V%!8=1�7<<24
��(!V%�4)�L%>11�
�'   V%!20=L%+1:T%=DM%:DM%+=(L%+4)��3
�%   $T%=T$:V%!12=T%:V%!8=V%!8�1<<8
�<   �V$=""V%!16=-1�T%=DM%:DM%+=(�V$+4)��3:$T%=V$:V%!16=T%
��
�V%+=24:=V%-24
�
�CݤVarVal(N$)�F%:ș"XOS_ReadVarVal",N$,B%,255�,,F%:B%?F%=&D:=$B%
�
���Mess(C$)
-C%=�C$:�C%��0,"Cannot find messages file"
�MS%�#C%:ME%=MS%
ȕ��#C%
", C$=�#C%:�C$,1)<>"#":$ME%=C$:ME%+=�C$+1
,
�:�#C%
6�
@
J!ݤMSG(T$):�T$,1)="!":=�T$,2)
T�P%,F%,I%,C$:P%=MS%
^ȕP%<ME%��F%
h! C$=$P%:P%+=�C$+1:I%=�C$,":")
r( �I%:�C$,I%-1)=T$:C$=�C$,I%+1):F%=�
|�
�;�F%�� 0,"Can't get message '"+T$+"' from messages file"
�=C$
�
���PseudoLoad(F$)
�Eș"OS_File",5,F$ � O%,,T%,,L%:�O%<>1�1,"Can't find film '"+F$+"'"
�FH%=�F$
�,�#FH%=16:S%=�ReadWord(FH%):�#FH%=S%:C%=0
�NF%=�ReadWord(FH%):MF%=NF%
�EȕNF%:C%+=1:�#FH%=�#FH%+NF%-4:NF%=�ReadWord(FH%):�MF%<NF%:MF%=NF%
��
�L%=S%+16*C%+4
�5MM%=�Alloc(L%+MF%):M%=MM%:�ReadBytes(FH%,0,S%,M%)
�$CT%=�Alloc(264):CP%=0:!CT%=M%!28
(�#FH%=S%:NF%=�ReadWord(FH%):I%=M%+S%
6ȕNF%:!I%=16:I%!4=�#FH%-4:I%!8=NF%:I%!12=16:I%+=16
*�#FH%=�#FH%+NF%-4:NF%=�ReadWord(FH%):�
&!I%=0:BB%=I%+4-M%
0�
:
D:��ReadBytes(FH%,O%,S%,A%):ș"OS_GBPB",3,FH%,A%,S%,O%:�
N
X6ݤReadWord(FH%)=�#FH%��#FH%<<8��#FH%<<16��#FH%<<24
b
l��EX(� D%,� C%)
v(�ReadBytes(K%!60,D%!4,D%!8,M%+K%!64)
�&șEX%,M%!32,M%+K%!64,C%,M%!40�,,C%
�D%+=!D%
��
�
�/��END:K%=!R%:ȕK%:�K%!60<>0�K%!36=K%�#K%!60
��K%!72:șIS%+4,K%!72
�K%=!K%:�
�ș"OS_Module",7,,NewMode%
�șIS%+2
��
�
���ILastFrame
��DPTR%<>M%+M%!16�
DPTR%-=DPTR%!-4:iD%-=iD%!-4
�(M%!36�3)=0�
8  �DPTR%=M%+M%!16:ȕ!DPTR%:DPTR%+=!DPTR%:iD%+=!iD%:�
 ,  DPTR%-=DPTR%!-4:iD%-=iD%!-4:�NextFrame
*�
4  �DPTR%=M%+M%!16�
>@  DPTR%+=!DPTR%:iD%+=!iD%:ș"Hourglass_On":ȕ!(DPTR%+!DPTR%)
H.  �NewFrame:�:ș"Hourglass_Off":�NextFrame
R  �
\N  �NextFrame:K%!12=DPTR%-DPTR%!-4:K%!76=iD%-iD%!-4:�K%!12=M%+M%!16:K%!16=0
f  �
p�
z�
��
�
���ISound
�"șIS%+5,K%!72,K%!76-!(K%!76-4)
��
�
�ݤGetModeStr(M%)
�^="X"+�SW(M%)+" Y"+�SH(M%)+" "+�Colours(M%)+" EX"+�EX(M%)+" EY"+�EY(M%)+" F"+�FrameRate(M%)
�
���NewMode(M%)
�� M$
�3�M%�1��1,"Mode value stored in film is illegal"
�M$=�GetModeStr(M%)
� M$
�

$ݤSW(M%)
.=�(1+�MVar(-1,11))
8
BݤSH(M%)
L=�(1+�MVar(-1,12))
V
`ݤColours(M%)
j�C$
tȎ�MVar(M%,9)�
~�0:C$="G2"
��1:C$="G4"
��2:C$="C16"
��3:C$="C256"
��4:C$="C32K"
��5:C$="C16M"
�
�-�1,"Too many colours in this screen mode"
��
�=C$
�
�ݤEX(M%)
�=�(�MVar(M%,4))


ݤEY(M%)
=�(�MVar(M%,5))

(ݤFrameRate(M%)
2M%=�
<
=�(M%!16)
F
P
Z
ݤGetMode
d
�I%,M%
nM%=�
x�M%<256�
�=M%
��
� =�GetM(NewMode%)
��
�
�ݤGetWimpMode
�
�I%,M%
�M%=�
�=M%
��M%<256�
�=M%
��
� =�GetM(WimpMode%)
�

ݤGetM(Blk%)
"
�I%,M%
,M%=�
6�I%=0�16�4
@ Blk%!I%=M%!I%
J�
T	I%=20
^ȕM%!I%<>-1
h Blk%!I%=M%!I%
r
 I%+=4
| Blk%!I%=M%!I%
�
 I%+=4
��
�	=Blk%
�
�ݤModesEqual(M%,N%)
��M%=-1�N%=-1�=�
��M%<256�N%<256�
�
=M%=N%
��
�L=�MVar(M%,4)=�MVar(N%,4)��MVar(M%,5)=�MVar(N%,5)��MVar(M%,9)=�MVar(N%,9)
��
�
���WimpMode(M%)
�M%<256�
 ș"Wimp_SetMode",M%
�
&! �"WimpMode "+�GetModeStr(M%)
0�
:�
D
N��BackToDesktop
X�SYS"Wimp_SetMode",WM%
bș"Wimp_ProcessKey",460
lș6,&99,0,13
v8� If you're reading this and thinking that this is a
�5� terrible bodge then you are thinking correctly.
�6� In my defence, I would say that it seems to work
�;� more reliably than any other method so far contrived!
��
�
�

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 39 31 20  56 65 72 73 69 6f 6e 20  |ov 1991 Version |
00000050  31 2e 32 38 0d 00 1e 4c  f4 20 54 68 69 73 20 70  |1.28...L. This p|
00000060  72 6f 67 72 61 6d 20 6d  61 79 20 62 65 20 66 72  |rogram may be fr|
00000070  65 65 6c 79 20 64 69 73  74 72 69 62 75 74 65 64  |eely distributed|
00000080  2c 20 42 55 54 20 69 74  73 20 63 6f 6e 74 65 6e  |, BUT its conten|
00000090  74 73 20 61 72 65 20 43  6f 70 79 72 69 67 68 74  |ts are Copyright|
000000a0  0d 00 28 3c f4 20 53 68  6f 75 6c 64 20 62 65 20  |..(<. Should be |
000000b0  77 69 74 68 20 76 65 72  73 69 6f 6e 20 31 2e 30  |with version 1.0|
000000c0  30 20 45 75 63 6c 69 64  20 6f 72 20 45 75 63 6c  |0 Euclid or Eucl|
000000d0  69 64 58 20 6f 72 20 61  62 6f 76 65 0d 00 32 40  |idX or above..2@|
000000e0  f4 20 50 6c 61 79 73 20  62 61 63 6b 20 61 20 66  |. Plays back a f|
000000f0  69 6c 6d 20 69 6e 20 41  63 65 20 46 69 6c 6d 20  |ilm in Ace Film |
00000100  66 6f 72 6d 61 74 20 75  73 69 6e 67 20 65 69 74  |format using eit|
00000110  68 65 72 20 74 68 65 20  66 75 6c 6c 0d 00 3c 36  |her the full..<6|
00000120  f4 20 62 6c 6f 77 6e 20  45 75 63 6c 69 64 20 4d  |. blown Euclid M|
00000130  6f 64 75 6c 65 20 6f 72  20 74 68 65 20 50 75 62  |odule or the Pub|
00000140  6c 69 63 20 44 6f 6d 61  69 6e 20 45 75 63 6c 69  |lic Domain Eucli|
00000150  64 58 0d 00 46 1b f4 21  21 21 21 21 52 45 4d 20  |dX..F..!!!!!REM |
00000160  6f 75 74 20 6e 65 78 74  20 6c 69 6e 65 0d 00 50  |out next line..P|
00000170  14 ee 85 85 a2 20 9f 2c  f6 24 2b 22 20 22 2b c3  |..... .,.$+" "+.|
00000180  9e 0d 00 5a 33 c8 99 22  4f 53 5f 53 57 49 4e 75  |...Z3.."OS_SWINu|
00000190  6d 62 65 72 46 72 6f 6d  53 74 72 69 6e 67 22 2c  |mberFromString",|
000001a0  2c 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 20 b8  |,"OS_SpriteOp" .|
000001b0  20 53 4f 25 0d 00 64 35  c8 99 22 4f 53 5f 53 57  | SO%..d5.."OS_SW|
000001c0  49 4e 75 6d 62 65 72 46  72 6f 6d 53 74 72 69 6e  |INumberFromStrin|
000001d0  67 22 2c 2c 22 45 75 63  6c 69 64 5f 45 78 70 61  |g",,"Euclid_Expa|
000001e0  6e 64 22 20 b8 20 45 58  25 0d 00 6e 14 49 53 25  |nd" . EX%..n.IS%|
000001f0  3d 26 38 31 45 43 30 84  31 3c 3c 31 37 0d 00 78  |=&81EC0.1<<17..x|
00000200  3d de 4d 56 25 32 30 2c  54 4b 25 34 3a 50 25 3d  |=.MV%20,TK%4:P%=|
00000210  4d 56 25 3a 53 43 52 41  50 25 3d a3 3a 42 42 43  |MV%:SCRAP%=.:BBC|
00000220  25 3d a3 3a 52 59 25 3d  a3 3a de 53 55 50 25 31  |%=.:RY%=.:.SUP%1|
00000230  30 30 2c 44 4d 25 31 30  30 30 0d 00 82 24 c8 99  |00,DM%1000...$..|
00000240  22 4f 53 5f 4d 6f 64 75  6c 65 22 2c 36 2c 2c 2c  |"OS_Module",6,,,|
00000250  32 35 36 b8 2c 2c 4e 65  77 4d 6f 64 65 25 0d 00  |256.,,NewMode%..|
00000260  8c 28 f4 53 59 53 22 4f  53 5f 4d 6f 64 75 6c 65  |.(.SYS"OS_Module|
00000270  22 2c 36 2c 2c 2c 32 35  36 54 4f 2c 2c 57 69 6d  |",6,,,256TO,,Wim|
00000280  70 4d 6f 64 65 25 0d 00  96 44 5b 4f 50 54 32 3a  |pMode%...D[OPT2:|
00000290  4c 44 52 20 33 2c 5b 30  5d 2c 23 34 3a 53 54 52  |LDR 3,[0],#4:STR|
000002a0  20 33 2c 5b 31 5d 2c 23  34 3a 53 55 42 53 20 32  | 3,[1],#4:SUBS 2|
000002b0  2c 32 2c 23 34 3a 42 4e  45 20 4d 56 25 3a 4d 4f  |,2,#4:BNE MV%:MO|
000002c0  56 53 20 50 43 2c 31 34  3a 5d 0d 00 a0 2d de 54  |VS PC,14:]...-.T|
000002d0  49 54 25 31 30 30 30 3a  54 54 25 3d 54 49 54 25  |IT%1000:TT%=TIT%|
000002e0  3a de 42 25 31 30 30 30  3a 4b 53 25 3d 38 30 3a  |:.B%1000:KS%=80:|
000002f0  57 54 25 3d 39 35 30 0d  00 aa 25 e7 a4 56 61 72  |WT%=950...%..Var|
00000300  56 61 6c 28 22 50 72 6f  6a 65 63 74 6f 72 24 43  |Val("Projector$C|
00000310  6f 75 6e 74 72 79 22 29  3d 22 22 8c 0d 00 b4 12  |ountry")="".....|
00000320  c8 99 36 2c 37 30 2c 31  32 37 b8 2c 43 25 0d 00  |..6,70,127.,C%..|
00000330  be 44 c8 99 22 4f 53 5f  53 65 72 76 69 63 65 43  |.D.."OS_ServiceC|
00000340  61 6c 6c 22 2c 2c 26 34  33 2c 32 2c 43 25 2c 42  |all",,&43,2,C%,B|
00000350  25 2c 32 35 35 b8 2c 2c  2c 2c 2c 4c 25 3a 42 25  |%,255.,,,,,L%:B%|
00000360  3f 4c 25 3d 26 44 3a 43  24 3d c0 24 42 25 2c 31  |?L%=&D:C$=.$B%,1|
00000370  30 29 0d 00 c8 20 ff 22  53 65 74 20 50 72 6f 6a  |0)... ."Set Proj|
00000380  65 63 74 6f 72 24 43 6f  75 6e 74 72 79 20 22 2b  |ector$Country "+|
00000390  43 24 0d 00 d2 05 cd 0d  00 dc 2b 43 25 3d 8e 28  |C$........+C%=.(|
000003a0  22 3c 50 72 6f 6a 65 63  74 6f 72 24 52 65 73 6f  |"<Projector$Reso|
000003b0  75 72 63 65 73 3e 2e 54  65 6d 70 6c 61 74 65 73  |urces>.Templates|
000003c0  22 29 0d 00 e6 08 e7 43  25 8c 0d 00 f0 0b 20 20  |").....C%.....  |
000003d0  20 d9 23 43 25 0d 00 fa  05 cc 0d 01 04 63 20 20  | .#C%........c  |
000003e0  20 21 42 25 3d 31 3a 24  28 42 25 2b 34 29 3d 22  | !B%=1:$(B%+4)="|
000003f0  43 61 6e 27 74 20 66 69  6e 64 20 72 65 73 6f 75  |Can't find resou|
00000400  72 63 65 73 20 66 6f 72  20 22 2b a4 56 61 72 56  |rces for "+.VarV|
00000410  61 6c 28 22 50 72 6f 6a  65 63 74 6f 72 24 43 6f  |al("Projector$Co|
00000420  75 6e 74 72 79 22 29 2b  22 20 2d 20 64 65 66 61  |untry")+" - defa|
00000430  75 6c 74 69 6e 67 20 74  6f 20 55 4b 22 0d 01 0e  |ulting to UK"...|
00000440  49 20 20 20 c8 99 22 57  69 6d 70 5f 52 65 70 6f  |I   .."Wimp_Repo|
00000450  72 74 45 72 72 6f 72 22  2c 42 25 2c 25 31 2c 22  |rtError",B%,%1,"|
00000460  50 72 6f 6a 65 63 74 6f  72 22 3a ff 22 53 65 74  |Projector":."Set|
00000470  20 50 72 6f 6a 65 63 74  6f 72 24 43 6f 75 6e 74  | Projector$Count|
00000480  72 79 20 55 4b 22 0d 01  18 05 cd 0d 01 22 2b f2  |ry UK"......."+.|
00000490  4d 65 73 73 28 22 3c 50  72 6f 6a 65 63 74 6f 72  |Mess("<Projector|
000004a0  24 52 65 73 6f 75 72 63  65 73 3e 2e 4d 65 73 73  |$Resources>.Mess|
000004b0  61 67 65 73 22 29 0d 01  2c 49 c8 99 22 57 69 6d  |ages")..,I.."Wim|
000004c0  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
000004d0  30 2c 26 34 42 35 33 34  31 35 34 2c 22 41 63 65  |0,&4B534154,"Ace|
000004e0  20 46 69 6c 6d 20 50 6c  61 79 65 72 22 20 b8 20  | Film Player" . |
000004f0  56 25 3a 4d 45 44 25 3d  56 25 3e 3d 33 33 30 0d  |V%:MED%=V%>=330.|
00000500  01 36 0b c8 99 49 53 25  2b 31 0d 01 40 3b 42 25  |.6...IS%+1..@;B%|
00000510  21 30 3d 2d 31 3a 42 25  21 34 3d 30 3a 42 25 21  |!0=-1:B%!4=0:B%!|
00000520  38 3d 30 3a 42 25 21 31  32 3d 36 38 3a 42 25 21  |8=0:B%!12=68:B%!|
00000530  31 36 3d 39 30 3a 42 25  21 32 30 3d 25 31 30 84  |16=90:B%!20=%10.|
00000540  33 3c 3c 31 32 0d 01 4a  34 24 28 42 25 2b 32 34  |3<<12..J4$(B%+24|
00000550  29 3d 22 21 70 72 6f 6a  65 63 74 6f 72 22 3a c8  |)="!projector":.|
00000560  99 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  |."Wimp_CreateIco|
00000570  6e 22 2c 2c 42 25 b8 5a  25 0d 01 54 3c c8 99 22  |n",,B%.Z%..T<.."|
00000580  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00000590  65 22 2c 2c 22 3c 50 72  6f 6a 65 63 74 6f 72 24  |e",,"<Projector$|
000005a0  52 65 73 6f 75 72 63 65  73 3e 2e 54 65 6d 70 6c  |Resources>.Templ|
000005b0  61 74 65 73 22 0d 01 5e  1b de 51 25 31 30 30 30  |ates"..^..Q%1000|
000005c0  2c 52 25 34 3a 21 52 25  3d 30 3a 43 25 3d 51 25  |,R%4:!R%=0:C%=Q%|
000005d0  0d 01 68 43 47 25 3d a4  54 65 6d 70 28 22 50 72  |..hCG%=.Temp("Pr|
000005e0  6f 67 49 6e 66 6f 22 29  3a 48 25 3d a4 54 65 6d  |ogInfo"):H%=.Tem|
000005f0  70 28 22 46 69 6c 6d 49  6e 66 6f 22 29 3a 46 53  |p("FilmInfo"):FS|
00000600  25 3d a4 54 65 6d 70 28  22 46 75 6c 6c 4d 6f 64  |%=.Temp("FullMod|
00000610  65 22 29 0d 01 72 1a c8  99 22 57 69 6d 70 5f 43  |e")..r..."Wimp_C|
00000620  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 01 7c  |loseTemplate"..||
00000630  34 de 53 50 52 25 32 35  36 3a 21 53 50 52 25 3d  |4.SPR%256:!SPR%=|
00000640  32 35 36 3a 53 50 52 25  21 34 3d 30 3a 53 50 52  |256:SPR%!4=0:SPR|
00000650  25 21 38 3d 31 36 3a 53  50 52 25 21 31 32 3d 31  |%!8=16:SPR%!12=1|
00000660  36 0d 01 86 2c c8 99 53  4f 25 2c 26 31 30 46 2c  |6...,..SO%,&10F,|
00000670  53 50 52 25 2c 22 43 22  2c 2c 34 30 2c 31 36 2c  |SPR%,"C",,40,16,|
00000680  38 3a 4d 4f 25 3d a3 3a  58 4f 25 3d a3 0d 01 90  |8:MO%=.:XO%=....|
00000690  2f 4d 49 25 3d a4 4d 56  61 72 28 eb 2c 39 29 84  |/MI%=.MVar(.,9).|
000006a0  a4 4d 56 61 72 28 eb 2c  34 29 3c 3c 38 84 a4 4d  |.MVar(.,4)<<8..M|
000006b0  56 61 72 28 eb 2c 35 29  3c 3c 31 36 0d 01 9a 04  |Var(.,5)<<16....|
000006c0  0d 01 a4 14 de 44 45 4c  25 32 30 30 3a 56 25 3d  |.....DEL%200:V%=|
000006d0  44 45 4c 25 0d 01 ae 11  f2 4d 65 6e 75 54 28 22  |DEL%.....MenuT("|
000006e0  44 45 4c 22 29 0d 01 b8  2c 44 4c 25 3d 56 25 2b  |DEL")...,DL%=V%+|
000006f0  31 32 3a 54 25 3d a4 45  53 56 4c 28 22 21 32 22  |12:T%=.ESVL("!2"|
00000700  2c 22 61 30 2d 39 22 2c  26 38 34 2c 35 2c 2d 31  |,"a0-9",&84,5,-1|
00000710  29 0d 01 c2 04 0d 01 cc  14 de 52 4f 4c 25 32 30  |).........ROL%20|
00000720  30 3a 56 25 3d 52 4f 4c  25 0d 01 d6 11 f2 4d 65  |0:V%=ROL%.....Me|
00000730  6e 75 54 28 22 52 4f 4c  22 29 0d 01 e0 2d 52 4c  |nuT("ROL")...-RL|
00000740  4c 25 3d 56 25 2b 31 32  3a 54 25 3d a4 45 53 56  |L%=V%+12:T%=.ESV|
00000750  4c 28 22 21 31 22 2c 22  61 30 2d 39 22 2c 26 38  |L("!1","a0-9",&8|
00000760  34 2c 35 2c 2d 31 29 0d  01 ea 04 0d 01 f4 17 de  |4,5,-1).........|
00000770  4d 45 4e 55 25 31 30 30  30 3a 56 25 3d 4d 45 4e  |MENU%1000:V%=MEN|
00000780  55 25 0d 01 fe 3b f4 56  44 55 32 33 2c 26 39 30  |U%...;.VDU23,&90|
00000790  2c 26 31 30 2c 26 33 38  2c 26 37 43 2c 26 46 45  |,&10,&38,&7C,&FE|
000007a0  2c 26 37 43 2c 26 31 30  2c 26 33 38 2c 26 30 30  |,&7C,&10,&38,&00|
000007b0  3a 41 43 45 24 3d 43 48  52 24 26 39 30 0d 02 08  |:ACE$=CHR$&90...|
000007c0  11 f2 4d 65 6e 75 54 28  22 50 52 4a 22 29 0d 02  |..MenuT("PRJ")..|
000007d0  12 25 49 4e 46 25 3d 56  25 3a f2 4d 65 6e 75 45  |.%INF%=V%:.MenuE|
000007e0  28 22 49 4e 46 22 2c 30  29 3a 49 4e 46 25 21 34  |("INF",0):INF%!4|
000007f0  3d 47 25 0d 02 1c 25 52  4f 25 3d 56 25 3a f2 4d  |=G%...%RO%=V%:.M|
00000800  65 6e 75 45 28 22 52 4f  4c 22 2c 30 29 3a 52 4f  |enuE("ROL",0):RO|
00000810  25 21 34 3d 52 4f 4c 25  0d 02 26 23 54 25 3d 56  |%!4=ROL%..&#T%=V|
00000820  25 3a f2 4d 65 6e 75 45  28 22 44 45 4c 22 2c 30  |%:.MenuE("DEL",0|
00000830  29 3a 54 25 21 34 3d 44  45 4c 25 0d 02 30 1c 46  |):T%!4=DEL%..0.F|
00000840  52 46 4d 25 3d 56 25 3a  f2 4d 65 6e 75 45 28 22  |RFM%=V%:.MenuE("|
00000850  46 52 46 22 2c 30 29 0d  02 3a 15 f2 4d 65 6e 75  |FRF",0)..:..Menu|
00000860  45 28 22 51 55 54 22 2c  26 38 30 29 0d 02 44 0c  |E("QUT",&80)..D.|
00000870  f2 45 6e 64 4d 65 6e 75  0d 02 4e 04 0d 02 58 19  |.EndMenu..N...X.|
00000880  de 46 4d 45 4e 55 25 31  30 30 30 3a 56 25 3d 46  |.FMENU%1000:V%=F|
00000890  4d 45 4e 55 25 0d 02 62  11 f2 4d 65 6e 75 54 28  |MENU%..b..MenuT(|
000008a0  22 50 52 4a 22 29 0d 02  6c 1c 4d 49 53 43 25 3d  |"PRJ")..l.MISC%=|
000008b0  56 25 3a f2 4d 65 6e 75  45 28 22 4d 53 43 22 2c  |V%:.MenuE("MSC",|
000008c0  30 29 0d 02 76 1a 46 52  25 3d 56 25 3a f2 4d 65  |0)..v.FR%=V%:.Me|
000008d0  6e 75 45 28 22 46 52 5a  22 2c 30 29 0d 02 80 1b  |nuE("FRZ",0)....|
000008e0  52 45 56 25 3d 56 25 3a  f2 4d 65 6e 75 45 28 22  |REV%=V%:.MenuE("|
000008f0  52 45 56 22 2c 30 29 0d  02 8a 1c 59 4f 59 4f 25  |REV",0)....YOYO%|
00000900  3d 56 25 3a f2 4d 65 6e  75 45 28 22 59 4f 59 22  |=V%:.MenuE("YOY"|
00000910  2c 30 29 0d 02 94 13 f2  4d 65 6e 75 45 28 22 46  |,0).....MenuE("F|
00000920  46 52 22 2c 30 29 0d 02  9e 13 f2 4d 65 6e 75 45  |FR",0).....MenuE|
00000930  28 22 4c 46 52 22 2c 30  29 0d 02 a8 26 49 4e 46  |("LFR",0)...&INF|
00000940  25 3d 56 25 3a f2 4d 65  6e 75 45 28 22 46 53 43  |%=V%:.MenuE("FSC|
00000950  22 2c 30 29 3a 49 4e 46  25 21 34 3d 46 53 25 0d  |",0):INF%!4=FS%.|
00000960  02 b2 1c 4d 44 25 3d 56  25 3a f2 4d 65 6e 75 45  |...MD%=V%:.MenuE|
00000970  28 22 53 54 4d 22 2c 26  38 30 29 0d 02 bc 0c f2  |("STM",&80).....|
00000980  45 6e 64 4d 65 6e 75 0d  02 c6 04 0d 02 d0 1c 4d  |EndMenu........M|
00000990  49 53 43 25 21 34 3d 56  25 3a f2 4d 65 6e 75 54  |ISC%!4=V%:.MenuT|
000009a0  28 22 4d 53 43 22 29 0d  02 da 25 49 4e 46 25 3d  |("MSC")...%INF%=|
000009b0  56 25 3a f2 4d 65 6e 75  45 28 22 49 4e 46 22 2c  |V%:.MenuE("INF",|
000009c0  30 29 3a 49 4e 46 25 21  34 3d 47 25 0d 02 e4 25  |0):INF%!4=G%...%|
000009d0  49 4e 46 25 3d 56 25 3a  f2 4d 65 6e 75 45 28 22  |INF%=V%:.MenuE("|
000009e0  46 49 4c 22 2c 30 29 3a  49 4e 46 25 21 34 3d 48  |FIL",0):INF%!4=H|
000009f0  25 0d 02 ee 13 f2 4d 65  6e 75 45 28 22 4e 56 57  |%.....MenuE("NVW|
00000a00  22 2c 30 29 0d 02 f8 1d  46 52 46 25 3d 56 25 3a  |",0)....FRF%=V%:|
00000a10  f2 4d 65 6e 75 45 28 22  46 52 46 22 2c 26 38 30  |.MenuE("FRF",&80|
00000a20  29 0d 03 02 0c f2 45 6e  64 4d 65 6e 75 0d 03 0c  |).....EndMenu...|
00000a30  04 0d 03 16 38 45 4e 25  3d 93 3a 46 43 25 3d 32  |....8EN%=.:FC%=2|
00000a40  3a 57 4d 25 3d a4 47 65  74 57 69 6d 70 4d 6f 64  |:WM%=.GetWimpMod|
00000a50  65 3a 4c 4f 25 3d b9 3a  e0 3d e0 2b 26 31 30 30  |e:LO%=.:.=.+&100|
00000a60  30 3a 4d 54 25 3d 93 3a  f5 0d 03 20 38 52 43 25  |0:MT%=.:... 8RC%|
00000a70  3d 31 3a 52 59 25 3d a3  3a 44 53 25 3d a3 3a c8  |=1:RY%=.:DS%=.:.|
00000a80  99 22 4f 53 5f 47 65 74  45 6e 76 22 20 b8 20 45  |."OS_GetEnv" . E|
00000a90  24 3a 49 25 3d a7 45 24  2c 22 2d 71 75 69 74 22  |$:I%=.E$,"-quit"|
00000aa0  29 0d 03 2a 34 49 25 3d  a7 45 24 2c 22 22 22 22  |)..*4I%=.E$,""""|
00000ab0  2c 49 25 2b 31 29 3a 49  25 3d a7 45 24 2c 22 22  |,I%+1):I%=.E$,""|
00000ac0  22 22 2c 49 25 2b 31 29  3a 45 24 3d c1 45 24 2c  |"",I%+1):E$=.E$,|
00000ad0  49 25 2b 31 29 0d 03 34  1c c8 95 c0 45 24 2c 31  |I%+1)..4....E$,1|
00000ae0  29 3d 22 20 22 3a 45 24  3d c1 45 24 2c 32 29 3a  |)=" ":E$=.E$,2):|
00000af0  ce 0d 03 3e 13 c8 95 45  24 3c 3e c4 a9 45 24 2c  |...>...E$<>..E$,|
00000b00  22 20 22 29 0d 03 48 20  49 25 3d a7 45 24 2b 22  |" ")..H I%=.E$+"|
00000b10  20 22 2c 22 20 22 29 3a  46 24 3d c0 45 24 2c 49  | "," "):F$=.E$,I|
00000b20  25 2d 31 29 0d 03 52 29  45 24 3d c1 45 24 2c 49  |%-1)..R)E$=.E$,I|
00000b30  25 2b 31 29 3a c8 95 c0  45 24 2c 31 29 3d 22 20  |%+1):...E$,1)=" |
00000b40  22 3a 45 24 3d c1 45 24  2c 32 29 3a ce 0d 03 5c  |":E$=.E$,2):...\|
00000b50  3a e7 4c 4f 25 8b 4b 25  3d 21 52 25 3a c8 95 4b  |:.LO%.K%=!R%:..K|
00000b60  25 3a 21 42 25 3d 4b 25  21 32 30 3a f2 57 68 69  |%:!B%=K%!20:.Whi|
00000b70  63 68 28 21 42 25 29 3a  f2 43 6c 6f 73 65 3a 4b  |ch(!B%):.Close:K|
00000b80  25 3d 21 52 25 3a ce 0d  03 66 10 e7 c0 46 24 2c  |%=!R%:...f...F$,|
00000b90  31 29 3d 22 2d 22 8c 0d  03 70 12 20 20 20 c8 8e  |1)="-"...p.   ..|
00000ba0  c1 46 24 2c 32 2c 31 29  ca 0d 03 7a 23 20 20 20  |.F$,2,1)...z#   |
00000bb0  c9 22 72 22 2c 22 52 22  3a f2 52 6f 6c 6c 28 52  |."r","R":.Roll(R|
00000bc0  43 25 2c 46 43 25 29 3a  f2 45 4e 44 0d 03 84 1b  |C%,FC%):.END....|
00000bd0  20 20 20 c9 22 66 22 2c  22 46 22 3a 46 43 25 3d  |   ."f","F":FC%=|
00000be0  bb c1 46 24 2c 33 29 0d  03 8e 16 20 20 20 c9 22  |..F$,3)....   ."|
00000bf0  6c 22 2c 22 4c 22 3a 4b  25 3d 21 52 25 0d 03 98  |l","L":K%=!R%...|
00000c00  40 20 e7 4b 25 3a f2 57  68 69 63 68 28 4b 25 21  |@ .K%:.Which(K%!|
00000c10  32 30 29 3a f2 46 75 6c  6c 28 52 43 25 2c 46 43  |20):.Full(RC%,FC|
00000c20  25 29 3a e7 49 25 3d 32  37 3a f2 42 61 63 6b 54  |%):.I%=27:.BackT|
00000c30  6f 44 65 73 6b 74 6f 70  3a f2 45 4e 44 0d 03 a2  |oDesktop:.END...|
00000c40  2f 20 20 20 e7 4c 4f 25  4c 4f 25 3d a3 3a c8 99  |/   .LO%LO%=.:..|
00000c50  22 57 69 6d 70 5f 53 6c  6f 74 53 69 7a 65 22 2c  |"Wimp_SlotSize",|
00000c60  45 4e 25 2d 26 38 30 30  30 2c 2d 31 0d 03 ac 1b  |EN%-&8000,-1....|
00000c70  20 20 20 c9 22 63 22 2c  22 43 22 3a 52 43 25 3d  |   ."c","C":RC%=|
00000c80  bb c1 46 24 2c 33 29 0d  03 b6 18 20 20 20 c9 22  |..F$,3)....   ."|
00000c90  77 22 2c 22 57 22 3a 52  43 25 3d 2d 52 43 25 0d  |w","W":RC%=-RC%.|
00000ca0  03 c0 2e 20 20 20 c9 22  65 22 2c 22 45 22 3a e7  |...   ."e","E":.|
00000cb0  4c 4f 25 8b c8 99 22 57  69 6d 70 5f 53 65 74 4d  |LO%..."Wimp_SetM|
00000cc0  6f 64 65 22 2c 57 4d 25  3a f2 45 4e 44 0d 03 ca  |ode",WM%:.END...|
00000cd0  18 20 20 20 c9 22 79 22  2c 22 59 22 3a 52 59 25  |.   ."y","Y":RY%|
00000ce0  3d ac 52 59 25 0d 03 d4  18 20 20 20 c9 22 64 22  |=.RY%....   ."d"|
00000cf0  2c 22 44 22 3a 44 53 25  3d ac 44 53 25 0d 03 de  |,"D":DS%=.DS%...|
00000d00  1f 20 20 20 c9 22 6f 22  2c 22 4f 22 3a 21 46 52  |.   ."o","O":!FR|
00000d10  46 4d 25 3d 21 46 52 46  4d 25 82 31 0d 03 e8 08  |FM%=!FRFM%.1....|
00000d20  20 20 20 cb 0d 03 f2 05  cc 0d 03 fc 15 20 20 20  |   ..........   |
00000d30  f2 4c 6f 61 64 41 46 69  6c 6d 28 46 24 29 0d 04  |.LoadAFilm(F$)..|
00000d40  06 4e 20 20 20 e7 4c 4f  25 8b 4b 25 3d 21 52 25  |.N   .LO%.K%=!R%|
00000d50  3a e7 4b 25 3a f2 57 68  69 63 68 28 4b 25 21 32  |:.K%:.Which(K%!2|
00000d60  30 29 3a f2 46 75 6c 6c  28 52 43 25 2c 46 43 25  |0):.Full(RC%,FC%|
00000d70  29 3a e7 49 25 3d 32 37  3a f2 42 61 63 6b 54 6f  |):.I%=27:.BackTo|
00000d80  44 65 73 6b 74 6f 70 3a  f2 45 4e 44 0d 04 10 05  |Desktop:.END....|
00000d90  cd 0d 04 1a 05 ce 0d 04  24 3a e7 4c 4f 25 8b 4b  |........$:.LO%.K|
00000da0  25 3d 21 52 25 3a c8 95  4b 25 3a 21 42 25 3d 4b  |%=!R%:..K%:!B%=K|
00000db0  25 21 32 30 3a f2 57 68  69 63 68 28 21 42 25 29  |%!20:.Which(!B%)|
00000dc0  3a f2 43 6c 6f 73 65 3a  4b 25 3d 21 52 25 3a ce  |:.Close:K%=!R%:.|
00000dd0  0d 04 2e 08 fd 4c 4f 25  0d 04 38 0d ee 85 3a f2  |.....LO%..8...:.|
00000de0  45 72 72 6f 72 0d 04 42  20 c8 99 22 4f 53 5f 52  |Error..B .."OS_R|
00000df0  65 61 64 4d 6f 6e 6f 74  6f 6e 69 63 54 69 6d 65  |eadMonotonicTime|
00000e00  22 b8 49 54 25 0d 04 4c  05 f5 0d 04 56 27 c8 99  |".IT%..L....V'..|
00000e10  22 57 69 6d 70 5f 50 6f  6c 6c 49 64 6c 65 22 2c  |"Wimp_PollIdle",|
00000e20  2c 42 25 2c 49 54 25 2b  bb 24 21 44 4c 25 b8 41  |,B%,IT%+.$!DL%.A|
00000e30  25 0d 04 60 09 c8 8e 41  25 ca 0d 04 6a 2a c9 30  |%..`...A%...j*.0|
00000e40  3a c8 99 22 4f 53 5f 52  65 61 64 4d 6f 6e 6f 74  |:.."OS_ReadMonot|
00000e50  6f 6e 69 63 54 69 6d 65  22 b8 49 54 25 3a 4b 25  |onicTime".IT%:K%|
00000e60  3d 21 52 25 0d 04 74 4c  c8 95 4b 25 3a 4d 25 3d  |=!R%..tL..K%:M%=|
00000e70  4b 25 21 34 3a 53 25 3d  4b 25 21 38 3a 44 50 54  |K%!4:S%=K%!8:DPT|
00000e80  52 25 3d 4b 25 21 31 32  3a 53 43 52 25 3d 4b 25  |R%=K%!12:SCR%=K%|
00000e90  21 31 36 3a 57 25 3d 4b  25 21 32 30 3a 43 54 25  |!16:W%=K%!20:CT%|
00000ea0  3d 4b 25 21 34 34 3a 69  44 25 3d 4b 25 21 37 36  |=K%!44:iD%=K%!76|
00000eb0  0d 04 7e 0b e7 4b 25 21  32 34 8c 0d 04 88 2c e7  |..~..K%!24....,.|
00000ec0  4b 25 21 33 32 8b 46 25  3d 4d 25 2b 4d 25 21 31  |K%!32.F%=M%+M%!1|
00000ed0  36 3a e7 44 50 54 52 25  3d 46 25 2b 21 46 25 3a  |6:.DPTR%=F%+!F%:|
00000ee0  4b 25 21 32 38 3d b9 0d  04 92 20 e7 4b 25 21 32  |K%!28=.... .K%!2|
00000ef0  38 f2 4e 65 78 74 46 72  61 6d 65 20 8b f2 4c 61  |8.NextFrame ..La|
00000f00  73 74 46 72 61 6d 65 0d  04 9c 1c e7 4b 25 21 33  |stFrame.....K%!3|
00000f10  32 8b e7 21 44 50 54 52  25 3d 30 3a 4b 25 21 32  |2..!DPTR%=0:K%!2|
00000f20  38 3d a3 0d 04 a6 0e cd  3a 4b 25 3d 21 4b 25 3a  |8=......:K%=!K%:|
00000f30  ce 0d 04 b0 1a c9 31 3a  f2 57 68 69 63 68 28 21  |......1:.Which(!|
00000f40  42 25 29 3a f2 52 65 64  72 61 77 0d 04 ba 18 c9  |B%):.Redraw.....|
00000f50  32 3a f2 57 68 69 63 68  28 21 42 25 29 3a f2 4f  |2:.Which(!B%):.O|
00000f60  70 65 6e 0d 04 c4 19 c9  33 3a f2 57 68 69 63 68  |pen.....3:.Which|
00000f70  28 21 42 25 29 3a f2 43  6c 6f 73 65 0d 04 ce 06  |(!B%):.Close....|
00000f80  c9 36 0d 04 d8 0f 20 20  20 c8 8e 42 25 21 31 32  |.6....   ..B%!12|
00000f90  ca 0d 04 e2 14 20 20 20  c9 46 53 25 3a e7 42 25  |.....   .FS%:.B%|
00000fa0  21 38 80 37 8c 0d 04 ec  2e 20 20 20 c8 99 22 57  |!8.7.....   .."W|
00000fb0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00000fc0  2c 2c 42 25 2b 31 32 3a  f2 57 68 69 63 68 28 4d  |,,B%+12:.Which(M|
00000fd0  57 25 29 0d 04 f6 42 20  20 20 57 4d 25 3d a4 47  |W%)...B   WM%=.G|
00000fe0  65 74 57 69 6d 70 4d 6f  64 65 3a 4a 25 3d 32 3a  |etWimpMode:J%=2:|
00000ff0  52 59 25 3d ac 4b 25 21  33 32 3a f2 46 75 6c 6c  |RY%=.K%!32:.Full|
00001000  28 30 2c 4a 25 29 3a f2  42 61 63 6b 54 6f 44 65  |(0,J%):.BackToDe|
00001010  73 6b 74 6f 70 0d 05 00  25 20 20 20 e7 42 25 21  |sktop...%   .B%!|
00001020  38 80 31 f2 50 6f 70 75  70 28 4d 45 4e 25 29 8b  |8.1.Popup(MEN%).|
00001030  f2 50 6f 70 75 70 28 2d  31 29 0d 05 0a 08 20 20  |.Popup(-1)....  |
00001040  20 cd 0d 05 14 27 20 20  20 c9 2d 32 3a e7 42 25  | ....'   .-2:.B%|
00001050  21 31 36 3d 5a 25 4d 58  25 3d 42 25 21 30 2d 38  |!16=Z%MX%=B%!0-8|
00001060  30 3a 4d 59 25 3d 33 31  34 0d 05 1e 31 20 20 20  |0:MY%=314...1   |
00001070  20 20 20 e7 42 25 21 38  3d 32 f2 53 65 6c 65 63  |   .B%!8=2.Selec|
00001080  74 28 52 4f 25 2c 21 52  25 3d 30 29 3a f2 50 6f  |t(RO%,!R%=0):.Po|
00001090  70 75 70 28 4d 45 4e 55  25 29 0d 05 28 0d 20 20  |pup(MENU%)..(.  |
000010a0  20 c9 47 25 2c 48 25 0d  05 32 1e 20 20 20 7f 3a  | .G%,H%..2.   .:|
000010b0  f2 57 68 69 63 68 28 42  25 21 31 32 29 3a f2 42  |.Which(B%!12):.B|
000010c0  75 74 74 6f 6e 0d 05 3c  08 20 20 20 cb 0d 05 46  |utton..<.   ...F|
000010d0  0d c9 39 3a f2 4d 65 6e  75 73 0d 05 50 0a c9 31  |..9:.Menus..P..1|
000010e0  37 2c 31 38 0d 05 5a 0f  20 20 20 c8 8e 42 25 21  |7,18..Z.   ..B%!|
000010f0  31 36 ca 0d 05 64 21 20  20 20 c9 30 3a c8 99 22  |16...d!   .0:.."|
00001100  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 3a  |Wimp_CloseDown":|
00001110  f2 45 4e 44 0d 05 6e 21  20 20 20 c9 31 3a e7 42  |.END..n!   .1:.B|
00001120  25 21 34 30 3d 26 44 36  41 84 42 25 21 34 30 3d  |%!40=&D6A.B%!40=|
00001130  26 43 32 41 8c 0d 05 78  47 20 20 20 20 20 20 21  |&C2A...xG      !|
00001140  42 25 3d 36 30 3a 42 25  21 31 32 3d 42 25 21 38  |B%=60:B%!12=B%!8|
00001150  3a 42 25 21 31 36 3d 32  3a 42 25 21 33 36 3d 2d  |:B%!16=2:B%!36=-|
00001160  31 3a 24 28 42 25 2b 34  34 29 3d 22 3c 57 69 6d  |1:$(B%+44)="<Wim|
00001170  70 24 53 63 72 61 70 3e  22 2b bd 30 0d 05 82 35  |p$Scrap>"+.0...5|
00001180  20 20 20 20 20 20 c8 99  22 57 69 6d 70 5f 53 65  |      .."Wimp_Se|
00001190  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 42 25  |ndMessage",17,B%|
000011a0  2c 42 25 21 34 3a 53 43  52 41 50 25 3d 42 25 21  |,B%!4:SCRAP%=B%!|
000011b0  38 0d 05 8c 0b 20 20 20  20 20 20 cd 0d 05 96 23  |8....      ....#|
000011c0  20 20 20 c9 33 2c 35 3a  e7 42 25 21 34 30 3d 26  |   .3,5:.B%!40=&|
000011d0  44 36 41 84 42 25 21 34  30 3d 26 43 32 41 8c 0d  |D6A.B%!40=&C2A..|
000011e0  05 a0 36 20 20 20 20 20  20 20 20 20 46 24 3d a4  |..6         F$=.|
000011f0  5a 53 28 42 25 2b 34 34  29 3a e7 53 43 52 41 50  |ZS(B%+44):.SCRAP|
00001200  25 3a 53 43 52 41 50 25  3d 53 43 52 41 50 25 3d  |%:SCRAP%=SCRAP%=|
00001210  42 25 21 31 32 0d 05 aa  3f 20 20 20 20 20 20 20  |B%!12...?       |
00001220  20 20 42 25 21 31 32 3d  42 25 21 38 3a 42 25 21  |  B%!12=B%!8:B%!|
00001230  31 36 3d 34 3a c8 99 22  57 69 6d 70 5f 53 65 6e  |16=4:.."Wimp_Sen|
00001240  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 42 25 2c  |dMessage",17,B%,|
00001250  42 25 21 34 0d 05 b4 21  20 20 20 20 20 20 20 20  |B%!4...!        |
00001260  20 52 59 25 3d a3 3a f2  4c 6f 61 64 41 46 69 6c  | RY%=.:.LoadAFil|
00001270  6d 28 46 24 29 0d 05 be  2e 20 20 20 20 20 20 20  |m(F$)....       |
00001280  20 20 e7 53 43 52 41 50  25 3a 53 43 52 41 50 25  |  .SCRAP%:SCRAP%|
00001290  3d a3 3a c8 99 22 4f 53  5f 46 69 6c 65 22 2c 36  |=.:.."OS_File",6|
000012a0  2c 46 24 0d 05 c8 0b 20  20 20 20 20 20 cd 0d 05  |,F$....      ...|
000012b0  d2 43 20 20 20 c9 39 2c  26 34 30 30 43 31 3a 4b  |.C   .9,&400C1:K|
000012c0  25 3d 21 52 25 3a c8 95  4b 25 3a 21 28 4b 25 21  |%=!R%:..K%:!(K%!|
000012d0  34 34 29 3d 21 28 4b 25  21 34 2b 32 38 29 3a e7  |44)=!(K%!4+28):.|
000012e0  4b 25 21 35 32 3a 21 28  4b 25 21 34 34 29 3d 2d  |K%!52:!(K%!44)=-|
000012f0  31 0d 05 dc 12 20 20 20  20 20 20 4b 25 3d 21 4b  |1....      K%=!K|
00001300  25 3a ce 0d 05 e6 35 20  20 20 20 20 20 4d 49 25  |%:....5      MI%|
00001310  3d a4 4d 56 61 72 28 eb  2c 39 29 84 a4 4d 56 61  |=.MVar(.,9)..MVa|
00001320  72 28 eb 2c 34 29 3c 3c  38 84 a4 4d 56 61 72 28  |r(.,4)<<8..MVar(|
00001330  eb 2c 35 29 3c 3c 31 36  0d 05 f0 08 20 20 20 cb  |.,5)<<16....   .|
00001340  0d 05 fa 05 cb 0d 06 04  06 fd 30 0d 06 0e 04 0d  |..........0.....|
00001350  06 18 0b dd f2 43 6c 6f  73 65 0d 06 22 2b 4c 25  |.....Close.."+L%|
00001360  3d 4b 25 21 33 36 3a 4e  25 3d 4c 25 3a c8 95 4e  |=K%!36:N%=L%:..N|
00001370  25 21 34 30 3a 4c 25 3d  4e 25 3a 4e 25 3d 4e 25  |%!40:L%=N%:N%=N%|
00001380  21 34 30 3a ce 0d 06 2c  0b e7 4b 25 21 34 30 8c  |!40:...,..K%!40.|
00001390  0d 06 36 2d e3 49 25 3d  31 32 b8 33 32 88 34 3a  |..6-.I%=12.32.4:|
000013a0  c8 94 4b 25 21 49 25 2c  4e 25 21 49 25 3a ed 3a  |..K%!I%,N%!I%:.:|
000013b0  c8 94 4b 25 21 37 36 2c  4e 25 21 37 36 0d 06 40  |..K%!76,N%!76..@|
000013c0  1c e7 4b 25 21 31 36 3e  30 4b 25 21 31 36 2d 3d  |..K%!16>0K%!16-=|
000013d0  4e 25 21 38 2d 4b 25 21  38 0d 06 4a 1c e7 4e 25  |N%!8-K%!8..J..N%|
000013e0  21 31 36 3e 30 4e 25 21  31 36 2d 3d 4b 25 21 38  |!16>0N%!16-=K%!8|
000013f0  2d 4e 25 21 38 0d 06 54  3a c8 99 53 4f 25 2c 26  |-N%!8..T:..SO%,&|
00001400  31 33 43 2c 53 25 2c 22  58 22 b8 20 52 30 2c 52  |13C,S%,"X". R0,R|
00001410  31 2c 52 32 2c 52 33 3a  c8 99 53 4f 25 2c 26 31  |1,R2,R3:..SO%,&1|
00001420  32 32 2c 4e 25 21 38 2c  22 58 22 2c 2c 2c 33 0d  |22,N%!8,"X",,,3.|
00001430  06 5e 2d c8 99 53 4f 25  2c 26 31 33 43 2c 4e 25  |.^-..SO%,&13C,N%|
00001440  21 38 2c 22 58 22 3a c8  99 53 4f 25 2c 26 31 32  |!8,"X":..SO%,&12|
00001450  32 2c 53 25 2c 22 58 22  2c 2c 2c 33 0d 06 68 3f  |2,S%,"X",,,3..h?|
00001460  c8 99 53 4f 25 2c 26 31  33 43 2c 53 25 2c 22 58  |..SO%,&13C,S%,"X|
00001470  22 3a c8 99 53 4f 25 2c  26 31 32 32 2c 4e 25 21  |":..SO%,&122,N%!|
00001480  38 2c 22 58 22 2c 2c 2c  33 3a c8 99 53 4f 25 2c  |8,"X",,,3:..SO%,|
00001490  52 30 2c 52 31 2c 52 32  2c 52 33 0d 06 72 0f f2  |R0,R1,R2,R3..r..|
000014a0  57 68 69 63 68 28 21 42  25 29 0d 06 7c 05 cd 0d  |Which(!B%)..|...|
000014b0  06 86 3e 4c 25 21 34 30  3d 30 3a c8 99 22 57 69  |..>L%!40=0:.."Wi|
000014c0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
000014d0  2c 42 25 3a c8 99 22 57  69 6d 70 5f 44 65 6c 65  |,B%:.."Wimp_Dele|
000014e0  74 65 57 69 6e 64 6f 77  22 2c 2c 42 25 0d 06 90  |teWindow",,B%...|
000014f0  2a 4d 25 3d 4b 25 21 35  36 3a e7 4b 25 21 33 36  |*M%=K%!56:.K%!36|
00001500  3c 3e 4b 25 4d 25 3d 53  25 8b e7 4b 25 21 36 30  |<>K%M%=S%..K%!60|
00001510  d9 23 4b 25 21 36 30 0d  06 9a 21 e7 4b 25 21 33  |.#K%!60...!.K%!3|
00001520  36 3d 4b 25 e7 4b 25 21  37 32 3a c8 99 49 53 25  |6=K%.K%!72:..IS%|
00001530  2b 34 2c 4b 25 21 37 32  0d 06 a4 1e 21 49 25 3d  |+4,K%!72....!I%=|
00001540  21 4b 25 3a 45 25 3d 4b  25 2b 4b 53 25 3a 4c 25  |!K%:E%=K%+KS%:L%|
00001550  3d 45 25 2d 4d 25 0d 06  ae 0c e7 45 25 3c 4d 54  |=E%-M%.....E%<MT|
00001560  25 8c 0d 06 b8 15 4a 25  3d 52 25 3a 49 25 3d 21  |%.....J%=R%:I%=!|
00001570  4a 25 3a c8 95 49 25 0d  06 c2 10 f2 41 64 6a 75  |J%:..I%.....Adju|
00001580  73 74 28 21 4a 25 29 0d  06 cc 3d f2 41 64 6a 75  |st(!J%)...=.Adju|
00001590  73 74 28 49 25 21 34 29  3a f2 41 64 6a 75 73 74  |st(I%!4):.Adjust|
000015a0  28 49 25 21 38 29 3a f2  41 64 6a 75 73 74 28 49  |(I%!8):.Adjust(I|
000015b0  25 21 31 32 29 3a f2 41  64 6a 75 73 74 28 49 25  |%!12):.Adjust(I%|
000015c0  21 31 36 29 0d 06 d6 37  f2 41 64 6a 75 73 74 28  |!16)...7.Adjust(|
000015d0  49 25 21 33 36 29 3a f2  41 64 6a 75 73 74 28 49  |I%!36):.Adjust(I|
000015e0  25 21 34 30 29 3a f2 41  64 6a 75 73 74 28 21 28  |%!40):.Adjust(!(|
000015f0  28 49 25 21 34 34 29 2b  34 29 29 0d 06 e0 30 f2  |(I%!44)+4))...0.|
00001600  41 64 6a 75 73 74 28 49  25 21 34 34 29 3a f2 41  |Adjust(I%!44):.A|
00001610  64 6a 75 73 74 28 49 25  21 35 32 29 3a f2 41 64  |djust(I%!52):.Ad|
00001620  6a 75 73 74 28 49 25 21  35 36 29 0d 06 ea 37 e7  |just(I%!56)...7.|
00001630  49 25 21 37 32 3a f2 41  64 6a 75 73 74 28 49 25  |I%!72:.Adjust(I%|
00001640  21 37 32 29 3a f2 41 64  6a 75 73 74 28 49 25 21  |!72):.Adjust(I%!|
00001650  37 36 29 3a f2 41 64 6a  75 73 74 28 49 25 21 36  |76):.Adjust(I%!6|
00001660  38 29 0d 06 f4 10 4a 25  3d 49 25 3a 49 25 3d 21  |8)....J%=I%:I%=!|
00001670  4a 25 0d 06 fe 05 ce 0d  07 08 1f f2 4d 6f 76 65  |J%..........Move|
00001680  28 4d 25 2b 4c 25 2c 4d  25 2c 4d 54 25 2d 28 4d  |(M%+L%,M%,MT%-(M|
00001690  25 2b 4c 25 29 29 0d 07  12 05 cd 0d 07 1c 2e 4d  |%+L%)).........M|
000016a0  54 25 2d 3d 4c 25 3a e7  4c 4f 25 c8 99 22 57 69  |T%-=L%:.LO%.."Wi|
000016b0  6d 70 5f 53 6c 6f 74 53  69 7a 65 22 2c 4d 54 25  |mp_SlotSize",MT%|
000016c0  2d 26 38 30 30 30 2c 2d  31 0d 07 26 05 e1 0d 07  |-&8000,-1..&....|
000016d0  30 04 0d 07 3a 20 dd f2  41 64 6a 75 73 74 28 f8  |0...: ..Adjust(.|
000016e0  20 50 25 29 3a e7 50 25  3e 4d 25 3a 50 25 2d 3d  | P%):.P%>M%:P%-=|
000016f0  4c 25 0d 07 44 05 e1 0d  07 4e 04 0d 07 58 24 dd  |L%..D....N...X$.|
00001700  f2 4f 70 65 6e 3a c8 99  22 57 69 6d 70 5f 4f 70  |.Open:.."Wimp_Op|
00001710  65 6e 57 69 6e 64 6f 77  22 2c 2c 42 25 3a e1 0d  |enWindow",,B%:..|
00001720  07 62 04 0d 07 6c 0c dd  f2 52 65 64 72 61 77 0d  |.b...l...Redraw.|
00001730  07 76 22 c8 99 22 57 69  6d 70 5f 52 65 64 72 61  |.v".."Wimp_Redra|
00001740  77 57 69 6e 64 6f 77 22  2c 2c 42 25 20 b8 20 46  |wWindow",,B% . F|
00001750  25 0d 07 80 33 c8 95 46  25 3a 58 25 3d 42 25 21  |%...3..F%:X%=B%!|
00001760  34 2d 42 25 21 32 30 3a  59 25 3d 42 25 21 31 36  |4-B%!20:Y%=B%!16|
00001770  2d 42 25 21 32 34 3a f2  52 65 64 72 61 77 53 70  |-B%!24:.RedrawSp|
00001780  72 69 74 65 0d 07 8a 24  c8 99 22 57 69 6d 70 5f  |rite...$.."Wimp_|
00001790  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 42  |GetRectangle",,B|
000017a0  25 20 b8 20 46 25 3a ce  0d 07 94 05 e1 0d 07 9e  |% . F%:.........|
000017b0  04 0d 07 a8 0c dd f2 42  75 74 74 6f 6e 0d 07 b2  |.......Button...|
000017c0  0b c8 8e 42 25 21 38 ca  0d 07 bc 11 c9 31 3a f2  |...B%!8......1:.|
000017d0  4c 61 73 74 46 72 61 6d  65 0d 07 c6 6b c9 32 3a  |LastFrame...k.2:|
000017e0  f2 53 65 6c 65 63 74 28  46 52 25 2c 21 28 4d 25  |.Select(FR%,!(M%|
000017f0  2b 4d 25 21 31 36 29 3d  30 29 3a f2 54 69 63 6b  |+M%!16)=0):.Tick|
00001800  28 46 52 25 2c 4b 25 21  32 34 29 3a f2 54 69 63  |(FR%,K%!24):.Tic|
00001810  6b 28 52 45 56 25 2c 4b  25 21 32 38 29 3a f2 54  |k(REV%,K%!28):.T|
00001820  69 63 6b 28 59 4f 59 4f  25 2c 4b 25 21 33 32 29  |ick(YOYO%,K%!32)|
00001830  3a f2 54 69 63 6b 28 46  52 46 25 2c 4b 25 21 36  |:.Tick(FRF%,K%!6|
00001840  30 3d 30 29 0d 07 d0 3a  f2 53 65 6c 65 63 74 28  |0=0)...:.Select(|
00001850  4d 44 25 2c a4 4d 6f 64  65 73 45 71 75 61 6c 28  |MD%,.ModesEqual(|
00001860  eb 2c 4d 25 21 32 38 29  29 3a 4d 58 25 3d 42 25  |.,M%!28)):MX%=B%|
00001870  21 30 2d 38 30 3a 4d 59  25 3d 42 25 21 34 0d 07  |!0-80:MY%=B%!4..|
00001880  da 3e f2 53 65 74 49 28  48 25 2c 30 2c c3 4d 25  |.>.SetI(H%,0,.M%|
00001890  21 32 38 29 3a f2 53 65  74 49 28 48 25 2c 31 2c  |!28):.SetI(H%,1,|
000018a0  c3 21 4d 25 29 3a f2 53  65 74 49 28 48 25 2c 32  |.!M%):.SetI(H%,2|
000018b0  2c a4 4d 53 47 28 22 4e  4f 22 29 29 0d 07 e4 3a  |,.MSG("NO"))...:|
000018c0  e7 4d 25 21 33 32 3d 31  f2 53 65 74 49 28 48 25  |.M%!32=1.SetI(H%|
000018d0  2c 32 2c a4 4d 53 47 28  22 59 45 53 22 29 29 8b  |,2,.MSG("YES")).|
000018e0  f2 53 65 74 49 28 48 25  2c 32 2c a4 4d 53 47 28  |.SetI(H%,2,.MSG(|
000018f0  22 4e 4f 22 29 29 0d 07  ee 3e e7 28 4d 25 21 33  |"NO"))...>.(M%!3|
00001900  36 80 33 29 3d 30 f2 53  65 74 49 28 48 25 2c 33  |6.3)=0.SetI(H%,3|
00001910  2c a4 4d 53 47 28 22 4e  4f 22 29 29 8b f2 53 65  |,.MSG("NO"))..Se|
00001920  74 49 28 48 25 2c 33 2c  a4 4d 53 47 28 22 59 45  |tI(H%,3,.MSG("YE|
00001930  53 22 29 29 0d 07 f8 29  f2 53 65 74 49 28 48 25  |S"))...).SetI(H%|
00001940  2c 34 2c c3 4d 25 21 32  30 29 3a f2 53 65 74 49  |,4,.M%!20):.SetI|
00001950  28 48 25 2c 35 2c c3 4d  25 21 32 34 29 0d 08 02  |(H%,5,.M%!24)...|
00001960  19 f2 50 6f 70 75 70 28  46 4d 45 4e 55 25 29 3a  |..Popup(FMENU%):|
00001970  4d 57 25 3d 57 25 0d 08  0c 11 c9 34 3a f2 4e 65  |MW%=W%.....4:.Ne|
00001980  78 74 46 72 61 6d 65 0d  08 16 05 cb 0d 08 20 05  |xtFrame....... .|
00001990  e1 0d 08 2a 04 0d 08 34  0b dd f2 4d 65 6e 75 73  |...*...4...Menus|
000019a0  0d 08 3e 0b c8 8e 4d 45  4e 25 ca 0d 08 48 11 c9  |..>...MEN%...H..|
000019b0  4d 45 4e 55 25 3a c8 8e  21 42 25 ca 0d 08 52 16  |MENU%:..!B%...R.|
000019c0  20 20 20 c9 30 3a f2 50  6f 70 75 70 28 47 25 29  |   .0:.Popup(G%)|
000019d0  3a e1 0d 08 5c 1a 20 20  20 c9 31 3a f2 52 6f 6c  |:...\.   .1:.Rol|
000019e0  6c 28 bb 24 21 52 4c 4c  25 2c 32 29 0d 08 66 19  |l(.$!RLL%,2)..f.|
000019f0  20 20 20 c9 33 3a 21 46  52 46 4d 25 3d 21 46 52  |   .3:!FRFM%=!FR|
00001a00  46 4d 25 82 31 0d 08 70  21 20 20 20 c9 34 3a c8  |FM%.1..p!   .4:.|
00001a10  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
00001a20  22 3a f2 45 4e 44 0d 08  7a 08 20 20 20 cb 0d 08  |":.END..z.   ...|
00001a30  84 1e c9 46 4d 45 4e 55  25 3a f2 57 68 69 63 68  |...FMENU%:.Which|
00001a40  28 4d 57 25 29 3a c8 8e  21 42 25 ca 0d 08 8e 11  |(MW%):..!B%.....|
00001a50  20 20 20 c9 30 3a c8 8e  42 25 21 34 ca 0d 08 98  |   .0:..B%!4....|
00001a60  25 20 20 20 20 20 20 c9  32 3a 51 25 3d 4b 25 3a  |%      .2:Q%=K%:|
00001a70  c8 95 51 25 21 34 30 3a  51 25 3d 51 25 21 34 30  |..Q%!40:Q%=Q%!40|
00001a80  3a ce 0d 08 a2 30 20 20  20 20 20 20 43 50 25 3d  |:....0      CP%=|
00001a90  51 25 21 35 32 3a 46 48  25 3d 51 25 21 36 30 3a  |Q%!52:FH%=Q%!60:|
00001aa0  42 42 25 3d 51 25 21 36  34 3a f2 53 65 74 46 69  |BB%=Q%!64:.SetFi|
00001ab0  6c 6d 0d 08 ac 1e 20 20  20 20 20 20 4b 25 21 33  |lm....      K%!3|
00001ac0  36 3d 51 25 21 33 36 3a  51 25 21 34 30 3d 4b 25  |6=Q%!36:Q%!40=K%|
00001ad0  0d 08 b6 0b 20 20 20 20  20 20 cb 0d 08 c0 16 20  |....      ..... |
00001ae0  20 20 c9 31 3a 4b 25 21  32 34 3d ac 4b 25 21 32  |  .1:K%!24=.K%!2|
00001af0  34 0d 08 ca 16 20 20 20  c9 32 3a 4b 25 21 32 38  |4....   .2:K%!28|
00001b00  3d ac 4b 25 21 32 38 0d  08 d4 16 20 20 20 c9 33  |=.K%!28....   .3|
00001b10  3a 4b 25 21 33 32 3d ac  4b 25 21 33 32 0d 08 de  |:K%!32=.K%!32...|
00001b20  3c 20 20 20 c9 34 3a 44  50 54 52 25 3d 4d 25 2b  |<   .4:DPTR%=M%+|
00001b30  4d 25 21 31 36 3a 69 44  25 3d 4b 25 21 36 38 3a  |M%!16:iD%=K%!68:|
00001b40  53 43 52 25 3d 30 3a f2  4e 65 78 74 46 72 61 6d  |SCR%=0:.NextFram|
00001b50  65 3a 4b 25 21 32 38 3d  b9 0d 08 e8 46 20 20 20  |e:K%!28=....F   |
00001b60  c9 35 3a 44 50 54 52 25  3d 4d 25 2b 4d 25 21 31  |.5:DPTR%=M%+M%!1|
00001b70  36 3a 69 44 25 3d 4b 25  21 36 38 3a 53 43 52 25  |6:iD%=K%!68:SCR%|
00001b80  3d 30 3a f2 4e 65 77 46  72 61 6d 65 3a f2 4c 61  |=0:.NewFrame:.La|
00001b90  73 74 46 72 61 6d 65 3a  4b 25 21 32 38 3d a3 0d  |stFrame:K%!28=..|
00001ba0  08 f2 45 20 20 20 c9 36  3a 57 4d 25 3d a4 47 65  |..E   .6:WM%=.Ge|
00001bb0  74 57 69 6d 70 4d 6f 64  65 3a 4a 25 3d 32 3a 52  |tWimpMode:J%=2:R|
00001bc0  59 25 3d ac 4b 25 21 33  32 3a f2 46 75 6c 6c 28  |Y%=.K%!32:.Full(|
00001bd0  30 2c 4a 25 29 3a f2 42  61 63 6b 54 6f 44 65 73  |0,J%):.BackToDes|
00001be0  6b 74 6f 70 0d 08 fc 22  20 20 20 c9 37 3a f4 53  |ktop..."   .7:.S|
00001bf0  59 53 22 57 69 6d 70 5f  53 65 74 4d 6f 64 65 22  |YS"Wimp_SetMode"|
00001c00  2c 4d 25 21 32 38 0d 09  06 1d 20 20 20 20 20 20  |,M%!28....      |
00001c10  20 20 20 f2 57 69 6d 70  4d 6f 64 65 28 4d 25 21  |   .WimpMode(M%!|
00001c20  32 38 29 0d 09 10 08 20  20 20 cb 0d 09 1a 3c 20  |28)....   ....< |
00001c30  20 20 f2 54 69 63 6b 28  46 52 25 2c 4b 25 21 32  |  .Tick(FR%,K%!2|
00001c40  34 29 3a f2 54 69 63 6b  28 52 45 56 25 2c 4b 25  |4):.Tick(REV%,K%|
00001c50  21 32 38 29 3a f2 54 69  63 6b 28 59 4f 59 4f 25  |!28):.Tick(YOYO%|
00001c60  2c 4b 25 21 33 32 29 0d  09 24 28 20 20 20 f2 53  |,K%!32)..$(   .S|
00001c70  65 6c 65 63 74 28 4d 44  25 2c a4 4d 6f 64 65 73  |elect(MD%,.Modes|
00001c80  45 71 75 61 6c 28 eb 2c  4d 25 21 32 38 29 29 0d  |Equal(.,M%!28)).|
00001c90  09 2e 05 cb 0d 09 38 3f  c8 99 22 57 69 6d 70 5f  |......8?.."Wimp_|
00001ca0  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00001cb0  2c 42 25 3a e7 42 25 21  38 80 31 3a f2 50 6f 70  |,B%:.B%!8.1:.Pop|
00001cc0  75 70 28 4d 45 4e 25 29  8b f2 50 6f 70 75 70 28  |up(MEN%)..Popup(|
00001cd0  2d 31 29 0d 09 42 05 e1  0d 09 4c 04 0d 09 56 42  |-1)..B....L...VB|
00001ce0  dd f2 57 69 6e 64 6f 77  28 54 24 2c 42 25 21 32  |..Window(T$,B%!2|
00001cf0  38 2c 21 42 25 2c 42 25  21 34 2c 42 25 21 38 2c  |8,!B%,B%!4,B%!8,|
00001d00  42 25 21 31 32 2c 42 25  21 34 30 2c 42 25 21 34  |B%!12,B%!40,B%!4|
00001d10  34 2c 42 25 21 34 38 2c  42 25 21 35 32 29 0d 09  |4,B%!48,B%!52)..|
00001d20  60 1c f4 54 24 3d 41 43  45 24 2b 22 20 22 2b 54  |`..T$=ACE$+" "+T|
00001d30  24 2b 22 20 22 2b 41 43  45 24 0d 09 6a 15 54 25  |$+" "+ACE$..j.T%|
00001d40  3d 54 54 25 3a 54 54 25  2b 3d a9 54 24 2b 31 0d  |=TT%:TT%+=.T$+1.|
00001d50  09 74 22 e7 54 54 25 3e  54 49 54 25 2b 31 30 30  |.t".TT%>TIT%+100|
00001d60  30 3a 54 54 25 3d 54 49  54 25 3a 54 25 3d 54 54  |0:TT%=TIT%:T%=TT|
00001d70  25 0d 09 7e 26 42 25 21  37 32 3d 54 25 3a 42 25  |%..~&B%!72=T%:B%|
00001d80  21 37 36 3d 2d 31 3a 42  25 21 38 30 3d a9 54 24  |!76=-1:B%!80=.T$|
00001d90  3a 24 54 25 3d 54 24 0d  09 88 34 42 25 21 31 36  |:$T%=T$...4B%!16|
00001da0  3d 28 21 42 25 2d 42 25  21 38 29 81 32 3a 42 25  |=(!B%-B%!8).2:B%|
00001db0  21 32 30 3d 28 42 25 21  31 32 2d 42 25 21 34 29  |!20=(B%!12-B%!4)|
00001dc0  81 32 3a 42 25 21 32 34  3d 2d 31 0d 09 92 23 42  |.2:B%!24=-1...#B|
00001dd0  25 21 33 32 3d 26 30 31  30 37 30 32 30 37 3a 42  |%!32=&01070207:B|
00001de0  25 21 33 36 3d 26 30 30  30 43 30 31 30 33 0d 09  |%!36=&000C0103..|
00001df0  9c 3d 42 25 21 35 36 3d  25 31 30 30 30 30 31 30  |.=B%!56=%1000010|
00001e00  30 31 3a 42 25 21 36 30  3d 32 3c 3c 31 32 3a 42  |01:B%!60=2<<12:B|
00001e10  25 21 36 34 3d 30 3a 42  25 21 36 38 3d 26 31 30  |%!64=0:B%!68=&10|
00001e20  30 30 31 3a 42 25 21 38  34 3d 30 0d 09 a6 22 c8  |001:B%!84=0...".|
00001e30  99 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |."Wimp_CreateWin|
00001e40  64 6f 77 22 2c 2c 42 25  20 b8 20 57 25 0d 09 b0  |dow",,B% . W%...|
00001e50  3e 21 42 25 3d 57 25 3a  c8 99 22 57 69 6d 70 5f  |>!B%=W%:.."Wimp_|
00001e60  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00001e70  2c 42 25 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |,B%:.."Wimp_Open|
00001e80  57 69 6e 64 6f 77 22 2c  2c 42 25 0d 09 ba 05 e1  |Window",,B%.....|
00001e90  0d 09 c4 04 0d 09 ce 19  dd f2 4e 65 78 74 46 72  |..........NextFr|
00001ea0  61 6d 65 3a f2 4e 65 77  46 72 61 6d 65 0d 09 d8  |ame:.NewFrame...|
00001eb0  32 42 25 21 34 3d 2d 33  45 34 3a 42 25 21 38 3d  |2B%!4=-3E4:B%!8=|
00001ec0  2d 33 45 34 3a 42 25 21  31 32 3d 33 45 34 3a 42  |-3E4:B%!12=3E4:B|
00001ed0  25 21 31 36 3d 33 45 34  3a 21 42 25 3d 57 25 0d  |%!16=3E4:!B%=W%.|
00001ee0  09 e2 22 c8 99 22 57 69  6d 70 5f 55 70 64 61 74  |..".."Wimp_Updat|
00001ef0  65 57 69 6e 64 6f 77 22  2c 2c 42 25 20 b8 20 46  |eWindow",,B% . F|
00001f00  25 0d 09 ec 33 c8 95 46  25 3a 58 25 3d 42 25 21  |%...3..F%:X%=B%!|
00001f10  34 2d 42 25 21 32 30 3a  59 25 3d 42 25 21 31 36  |4-B%!20:Y%=B%!16|
00001f20  2d 42 25 21 32 34 3a f2  52 65 64 72 61 77 53 70  |-B%!24:.RedrawSp|
00001f30  72 69 74 65 0d 09 f6 33  c8 99 22 57 69 6d 70 5f  |rite...3.."Wimp_|
00001f40  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 42  |GetRectangle",,B|
00001f50  25 20 b8 20 46 25 3a ce  3a e7 4b 25 21 37 32 3a  |% . F%:.:.K%!72:|
00001f60  f2 49 53 6f 75 6e 64 0d  0a 00 05 e1 0d 0a 0a 04  |.ISound.........|
00001f70  0d 0a 14 24 dd f2 4c 61  73 74 46 72 61 6d 65 3a  |...$..LastFrame:|
00001f80  e7 4b 25 21 37 32 3a f2  49 4c 61 73 74 46 72 61  |.K%!72:.ILastFra|
00001f90  6d 65 3a e1 0d 0a 1e 15  e7 44 50 54 52 25 3c 3e  |me:......DPTR%<>|
00001fa0  4d 25 2b 4d 25 21 31 36  8c 0d 0a 28 13 44 50 54  |M%+M%!16...(.DPT|
00001fb0  52 25 2d 3d 44 50 54 52  25 21 2d 34 0d 0a 32 11  |R%-=DPTR%!-4..2.|
00001fc0  e7 28 4d 25 21 33 36 80  33 29 3d 30 8c 0d 0a 3c  |.(M%!36.3)=0...<|
00001fd0  2e 20 20 e7 44 50 54 52  25 3d 4d 25 2b 4d 25 21  |.  .DPTR%=M%+M%!|
00001fe0  31 36 3a c8 95 21 44 50  54 52 25 3a 44 50 54 52  |16:..!DPTR%:DPTR|
00001ff0  25 2b 3d 21 44 50 54 52  25 3a ce 0d 0a 46 20 20  |%+=!DPTR%:...F  |
00002000  20 44 50 54 52 25 2d 3d  44 50 54 52 25 21 2d 34  | DPTR%-=DPTR%!-4|
00002010  3a f2 4e 65 78 74 46 72  61 6d 65 0d 0a 50 05 cc  |:.NextFrame..P..|
00002020  0d 0a 5a 16 20 20 e7 44  50 54 52 25 3d 4d 25 2b  |..Z.  .DPTR%=M%+|
00002030  4d 25 21 31 36 8c 0d 0a  64 36 20 20 44 50 54 52  |M%!16...d6  DPTR|
00002040  25 2b 3d 21 44 50 54 52  25 3a c8 99 22 48 6f 75  |%+=!DPTR%:.."Hou|
00002050  72 67 6c 61 73 73 5f 4f  6e 22 3a c8 95 21 28 44  |rglass_On":..!(D|
00002060  50 54 52 25 2b 21 44 50  54 52 25 29 0d 0a 6e 2e  |PTR%+!DPTR%)..n.|
00002070  20 20 f2 4e 65 77 46 72  61 6d 65 3a ce 3a c8 99  |  .NewFrame:.:..|
00002080  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 3a  |"Hourglass_Off":|
00002090  f2 4e 65 78 74 46 72 61  6d 65 0d 0a 78 07 20 20  |.NextFrame..x.  |
000020a0  cc 0d 0a 82 3d 20 20 f2  4e 65 78 74 46 72 61 6d  |....=  .NextFram|
000020b0  65 3a 4b 25 21 31 32 3d  44 50 54 52 25 2d 44 50  |e:K%!12=DPTR%-DP|
000020c0  54 52 25 21 2d 34 3a e7  4b 25 21 31 32 3d 4d 25  |TR%!-4:.K%!12=M%|
000020d0  2b 4d 25 21 31 36 3a 4b  25 21 31 36 3d 30 0d 0a  |+M%!16:K%!16=0..|
000020e0  8c 07 20 20 cd 0d 0a 96  05 cd 0d 0a a0 05 cd 0d  |..  ............|
000020f0  0a aa 05 e1 0d 0a b4 04  0d 0a be 0e dd f2 4e 65  |..............Ne|
00002100  77 46 72 61 6d 65 0d 0a  c8 38 e7 21 44 50 54 52  |wFrame...8.!DPTR|
00002110  25 3d 30 3a 44 50 54 52  25 3d 4d 25 2b 4d 25 21  |%=0:DPTR%=M%+M%!|
00002120  31 36 3a 53 43 52 25 3d  30 3a 69 44 25 3d 4b 25  |16:SCR%=0:iD%=K%|
00002130  21 36 38 3a e7 21 44 50  54 52 25 3d 30 e1 0d 0a  |!68:.!DPTR%=0...|
00002140  d2 22 c8 99 53 4f 25 2c  26 31 33 43 2c 53 25 2c  |."..SO%,&13C,S%,|
00002150  22 58 22 b8 20 52 30 2c  52 31 2c 52 32 2c 52 33  |"X". R0,R1,R2,R3|
00002160  0d 0a dc 4a ea 85 3a ee  85 ea 3a f7 85 3a c8 99  |...J..:...:..:..|
00002170  53 4f 25 2c 52 30 2c 52  31 2c 52 32 2c 52 33 3a  |SO%,R0,R1,R2,R3:|
00002180  21 42 25 3d 4b 25 21 32  30 3a f2 57 68 69 63 68  |!B%=K%!20:.Which|
00002190  28 21 42 25 29 3a f2 43  6c 6f 73 65 3a 4b 25 3d  |(!B%):.Close:K%=|
000021a0  21 52 25 3a 85 20 9f 2c  f6 24 0d 0a e6 46 e7 4b  |!R%:. .,.$...F.K|
000021b0  25 21 36 30 3d 30 c8 99  45 58 25 2c 4d 25 21 33  |%!60=0..EX%,M%!3|
000021c0  32 2c 44 50 54 52 25 2c  53 43 52 25 2c 4d 25 21  |2,DPTR%,SCR%,M%!|
000021d0  34 30 20 b8 20 2c 44 50  54 52 25 2c 53 43 52 25  |40 . ,DPTR%,SCR%|
000021e0  8b f2 45 58 28 44 50 54  52 25 2c 53 43 52 25 29  |..EX(DPTR%,SCR%)|
000021f0  0d 0a f0 16 e7 28 4d 25  21 33 36 80 33 29 3d 30  |.....(M%!36.3)=0|
00002200  53 43 52 25 3d 30 0d 0a  fa 18 f7 85 3a c8 99 53  |SCR%=0......:..S|
00002210  4f 25 2c 52 30 2c 52 31  2c 52 32 2c 52 33 0d 0b  |O%,R0,R1,R2,R3..|
00002220  04 35 4b 25 21 31 32 3d  44 50 54 52 25 3a 4b 25  |.5K%!12=DPTR%:K%|
00002230  21 31 36 3d 53 43 52 25  3a e7 4b 25 21 37 32 3a  |!16=SCR%:.K%!72:|
00002240  69 44 25 2b 3d 21 69 44  25 3a 4b 25 21 37 36 3d  |iD%+=!iD%:K%!76=|
00002250  69 44 25 0d 0b 0e 05 e1  0d 0b 18 04 0d 0b 22 10  |iD%...........".|
00002260  dd f2 4d 61 6b 65 53 70  72 69 74 65 0d 0b 2c 3d  |..MakeSprite..,=|
00002270  58 52 25 3d a4 4d 56 61  72 28 4d 25 21 32 38 2c  |XR%=.MVar(M%!28,|
00002280  34 29 3a 59 52 25 3d a4  4d 56 61 72 28 4d 25 21  |4):YR%=.MVar(M%!|
00002290  32 38 2c 35 29 3a 4c 42  25 3d a4 4d 56 61 72 28  |28,5):LB%=.MVar(|
000022a0  4d 25 21 32 38 2c 31 30  29 0d 0b 36 1b 53 53 25  |M%!28,10)..6.SS%|
000022b0  3d 28 28 31 3c 3c 58 52  25 29 3c 3c 35 2d 4c 42  |=((1<<XR%)<<5-LB|
000022c0  25 29 2d 31 0d 0b 40 37  53 53 25 3d 28 28 28 4d  |%)-1..@7SS%=(((M|
000022d0  25 21 32 30 2b 53 53 25  3e 3e 58 52 25 29 3e 3e  |%!20+SS%>>XR%)>>|
000022e0  35 2d 4c 42 25 29 3c 3c  32 29 2a 28 4d 25 21 32  |5-LB%)<<2)*(M%!2|
000022f0  34 3e 3e 59 52 25 29 2b  31 30 30 0d 0b 4a 40 53  |4>>YR%)+100..J@S|
00002300  25 3d a4 41 6c 6c 6f 63  28 53 53 25 29 3a 21 53  |%=.Alloc(SS%):!S|
00002310  25 3d 53 53 25 3a 53 25  21 34 3d 30 3a 53 25 21  |%=SS%:S%!4=0:S%!|
00002320  38 3d 31 36 3a 53 25 21  31 32 3d 31 36 3a c8 99  |8=16:S%!12=16:..|
00002330  53 4f 25 2c 26 31 30 39  2c 53 25 0d 0b 54 33 c8  |SO%,&109,S%..T3.|
00002340  99 53 4f 25 2c 26 31 30  46 2c 53 25 2c 22 58 22  |.SO%,&10F,S%,"X"|
00002350  2c 30 2c 4d 25 21 32 30  3e 3e 58 52 25 2c 4d 25  |,0,M%!20>>XR%,M%|
00002360  21 32 34 3e 3e 59 52 25  2c 4d 25 21 32 38 0d 0b  |!24>>YR%,M%!28..|
00002370  5e 05 e1 0d 0b 68 04 0d  0b 72 12 dd f2 52 65 64  |^....h...r...Red|
00002380  72 61 77 53 70 72 69 74  65 0d 0b 7c 20 e7 ac a4  |rawSprite..| ...|
00002390  4d 6f 64 65 73 45 71 75  61 6c 28 21 43 54 25 2c  |ModesEqual(!CT%,|
000023a0  eb 29 3a f2 54 61 62 6c  65 0d 0b 86 17 e7 4d 49  |.):.Table.....MI|
000023b0  25 3d 4b 25 21 34 38 80  4b 25 21 35 32 3d 30 8c  |%=K%!48.K%!52=0.|
000023c0  0d 0b 90 1e 20 20 20 c8  99 53 4f 25 2c 26 31 32  |....   ..SO%,&12|
000023d0  32 2c 53 25 2c 22 58 22  2c 58 25 2c 59 25 0d 0b  |2,S%,"X",X%,Y%..|
000023e0  9a 05 cc 0d 0b a4 26 20  20 20 c8 99 53 4f 25 2c  |......&   ..SO%,|
000023f0  26 31 33 34 2c 53 25 2c  22 58 22 2c 58 25 2c 59  |&134,S%,"X",X%,Y|
00002400  25 2c 2c 2c 43 54 25 21  34 0d 0b ae 05 cd 0d 0b  |%,,,CT%!4.......|
00002410  b8 05 e1 0d 0b c2 04 0d  0b cc 12 dd f2 4c 6f 61  |.............Loa|
00002420  64 46 69 6c 6d 28 46 24  29 0d 0b d6 15 69 53 25  |dFilm(F$)....iS%|
00002430  3d 30 3a 69 57 25 3d 30  3a 69 44 25 3d 30 0d 0b  |=0:iW%=0:iD%=0..|
00002440  e0 45 c8 99 22 4f 53 5f  46 69 6c 65 22 2c 35 2c  |.E.."OS_File",5,|
00002450  46 24 20 b8 20 4f 25 2c  2c 54 25 2c 2c 4c 25 3a  |F$ . O%,,T%,,L%:|
00002460  e7 4f 25 3c 3e 31 85 31  2c 22 43 61 6e 27 74 20  |.O%<>1.1,"Can't |
00002470  66 69 6e 64 20 66 69 6c  6d 20 27 22 2b 46 24 2b  |find film '"+F$+|
00002480  22 27 22 0d 0b ea 2d e7  28 54 25 3e 3e 38 29 3c  |"'"...-.(T%>>8)<|
00002490  3e 2d 39 38 32 3a e7 21  46 52 46 4d 25 80 31 f2  |>-982:.!FRFM%.1.|
000024a0  50 73 65 75 64 6f 4c 6f  61 64 28 46 24 29 3a e1  |PseudoLoad(F$):.|
000024b0  0d 0b f4 28 46 48 25 3d  30 3a 42 42 25 3d 30 3a  |...(FH%=0:BB%=0:|
000024c0  ea 85 3a ee 85 ea 3a f2  50 73 65 75 64 6f 4c 6f  |..:...:.PseudoLo|
000024d0  61 64 28 46 24 29 3a e1  0d 0b fe 15 4d 4d 25 3d  |ad(F$):.....MM%=|
000024e0  a4 41 6c 6c 6f 63 28 4c  25 29 3a f7 85 0d 0c 08  |.Alloc(L%):.....|
000024f0  20 4d 25 3d 4d 4d 25 3a  c8 99 22 4f 53 5f 46 69  | M%=MM%:.."OS_Fi|
00002500  6c 65 22 2c 26 46 46 2c  46 24 2c 4d 25 0d 0c 12  |le",&FF,F$,M%...|
00002510  25 43 54 25 3d a4 41 6c  6c 6f 63 28 32 36 34 29  |%CT%=.Alloc(264)|
00002520  3a 43 50 25 3d 30 3a 21  43 54 25 3d 4d 25 21 32  |:CP%=0:!CT%=M%!2|
00002530  38 3a 0d 0c 1c 12 e7 28  54 25 3e 3e 38 29 3d 2d  |8:.....(T%>>8)=-|
00002540  39 38 32 8c 0d 0c 26 34  e7 a4 43 68 75 6e 6b 28  |982...&4..Chunk(|
00002550  26 33 31 35 32 34 39 34  34 29 3a 69 53 25 3d 4d  |&31524944):iS%=M|
00002560  25 2b 4f 25 2b 38 3a c8  99 49 53 25 2b 33 2c 4d  |%+O%+8:..IS%+3,M|
00002570  25 2c 4c 25 b8 69 57 25  0d 0c 30 2b e7 a4 43 68  |%,L%.iW%..0+..Ch|
00002580  75 6e 6b 28 26 34 35 34  43 34 31 35 30 29 3a 43  |unk(&454C4150):C|
00002590  50 25 3d 4d 25 2b 4f 25  2b 33 36 3a 21 43 54 25  |P%=M%+O%+36:!CT%|
000025a0  3d 2d 31 0d 0c 3a 39 e7  a4 43 68 75 6e 6b 28 26  |=-1..:9..Chunk(&|
000025b0  34 36 34 35 34 33 34 31  29 3a 4d 25 2b 3d 4f 25  |46454341):M%+=O%|
000025c0  2b 38 8b 85 31 2c 22 46  69 6c 6d 20 63 68 75 6e  |+8..1,"Film chun|
000025d0  6b 20 6e 6f 74 20 66 6f  75 6e 64 22 0d 0c 44 05  |k not found"..D.|
000025e0  cd 0d 0c 4e 05 e1 0d 0c  58 04 0d 0c 62 17 dd a4  |...N....X...b...|
000025f0  43 68 75 6e 6b 28 43 25  29 ea 54 25 3a 4f 25 3d  |Chunk(C%).T%:O%=|
00002600  30 0d 0c 6c 2f c8 95 4f  25 3c 4c 25 80 ac 54 25  |0..l/..O%<L%..T%|
00002610  3a e7 4d 25 21 4f 25 3d  43 25 3a 54 25 3d b9 20  |:.M%!O%=C%:T%=. |
00002620  8b 4f 25 2b 3d 4d 25 21  28 4f 25 2b 34 29 3a ce  |.O%+=M%!(O%+4):.|
00002630  0d 0c 76 07 3d 54 25 0d  0c 80 04 0d 0c 8a 13 dd  |..v.=T%.........|
00002640  f2 4c 6f 61 64 41 46 69  6c 6d 28 45 24 29 0d 0c  |.LoadAFilm(E$)..|
00002650  94 1a f2 4c 6f 61 64 46  69 6c 6d 28 45 24 29 3a  |...LoadFilm(E$):|
00002660  f2 53 65 74 46 69 6c 6d  0d 0c 9e 05 e1 0d 0c a8  |.SetFilm........|
00002670  04 0d 0c b2 19 dd f2 53  65 74 46 69 6c 6d 3a f2  |.......SetFilm:.|
00002680  4d 61 6b 65 53 70 72 69  74 65 0d 0c bc 1a e7 57  |MakeSprite.....W|
00002690  54 25 2d 4d 25 21 32 34  3c 31 38 30 3a 57 54 25  |T%-M%!24<180:WT%|
000026a0  3d 39 35 30 0d 0c c6 46  f2 57 69 6e 64 6f 77 28  |=950...F.Window(|
000026b0  24 28 4d 25 2b 34 29 2c  25 31 31 31 31 2c 33 30  |$(M%+4),%1111,30|
000026c0  30 2c 57 54 25 2d 4d 25  21 32 34 2c 4d 25 21 32  |0,WT%-M%!24,M%!2|
000026d0  30 2b 33 30 30 2c 57 54  25 2c 30 2c 30 2c 4d 25  |0+300,WT%,0,0,M%|
000026e0  21 32 30 2c 4d 25 21 32  34 29 0d 0c d0 3a 57 54  |!20,M%!24)...:WT|
000026f0  25 2d 3d 34 38 3a 44 50  54 52 25 3d 4d 25 2b 4d  |%-=48:DPTR%=M%+M|
00002700  25 21 31 36 3a 53 43 52  25 3d 30 3a 43 4d 25 3d  |%!16:SCR%=0:CM%=|
00002710  4d 25 21 32 38 3a 4b 25  3d a4 41 6c 6c 6f 63 28  |M%!28:K%=.Alloc(|
00002720  4b 53 25 29 0d 0c da 44  21 4b 25 3d 21 52 25 3a  |KS%)...D!K%=!R%:|
00002730  21 52 25 3d 4b 25 3a 4b  25 21 34 3d 4d 25 3a 4b  |!R%=K%:K%!4=M%:K|
00002740  25 21 38 3d 53 25 3a 4b  25 21 32 30 3d 57 25 3a  |%!8=S%:K%!20=W%:|
00002750  4b 25 21 32 34 3d 21 28  44 50 54 52 25 2b 21 44  |K%!24=!(DPTR%+!D|
00002760  50 54 52 25 29 3c 3e 30  0d 0c e4 21 e7 4b 25 21  |PTR%)<>0...!.K%!|
00002770  32 34 8c 4b 25 21 32 34  3d 28 4d 25 21 33 36 80  |24.K%!24=(M%!36.|
00002780  28 31 3c 3c 34 29 29 3d  30 0d 0c ee 3c 4b 25 21  |(1<<4))=0...<K%!|
00002790  32 38 3d b9 3a 4b 25 21  33 32 3d 28 4d 25 21 33  |28=.:K%!32=(M%!3|
000027a0  36 80 34 29 3d 30 82 52  59 25 3a 4b 25 21 33 36  |6.4)=0.RY%:K%!36|
000027b0  3d 4b 25 3a 4b 25 21 34  30 3d 30 3a 4b 25 21 34  |=K%:K%!40=0:K%!4|
000027c0  34 3d 43 54 25 0d 0c f8  3d 4b 25 21 34 38 3d a4  |4=CT%...=K%!48=.|
000027d0  4d 56 61 72 28 4d 25 21  32 38 2c 39 29 84 a4 4d  |MVar(M%!28,9)..M|
000027e0  56 61 72 28 4d 25 21 32  38 2c 34 29 3c 3c 38 84  |Var(M%!28,4)<<8.|
000027f0  a4 4d 56 61 72 28 4d 25  21 32 38 2c 35 29 3c 3c  |.MVar(M%!28,5)<<|
00002800  31 36 0d 0d 02 51 4b 25  21 35 32 3d 43 50 25 3a  |16...QK%!52=CP%:|
00002810  4b 25 21 35 36 3d 4d 4d  25 3a 4b 25 21 36 30 3d  |K%!56=MM%:K%!60=|
00002820  46 48 25 3a 4b 25 21 36  34 3d 42 42 25 3a 4b 25  |FH%:K%!64=BB%:K%|
00002830  21 36 38 3d 69 53 25 3a  4b 25 21 37 32 3d 69 57  |!68=iS%:K%!72=iW|
00002840  25 3a 4b 25 21 37 36 3d  69 53 25 3a 69 44 25 3d  |%:K%!76=iS%:iD%=|
00002850  69 53 25 0d 0d 0c 0e f2  4e 65 78 74 46 72 61 6d  |iS%.....NextFram|
00002860  65 0d 0d 16 05 e1 0d 0d  20 04 0d 0d 2a 3e dd a4  |e....... ...*>..|
00002870  54 65 6d 70 28 54 24 29  3a c8 99 22 57 69 6d 70  |Temp(T$):.."Wimp|
00002880  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00002890  42 25 2c 43 25 2c 51 25  2b 31 30 30 30 2c 2d 31  |B%,C%,Q%+1000,-1|
000028a0  2c 54 24 b8 2c 2c 43 25  0d 0d 34 24 c8 99 22 57  |,T$.,,C%..4$.."W|
000028b0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
000028c0  22 2c 2c 42 25 b8 54 25  3a 3d 54 25 0d 0d 3e 04  |",,B%.T%:=T%..>.|
000028d0  0d 0d 48 2a dd f2 54 69  63 6b 28 54 25 2c 46 25  |..H*..Tick(T%,F%|
000028e0  29 3a e7 46 25 3a 21 54  25 3d 21 54 25 80 ac 31  |):.F%:!T%=!T%..1|
000028f0  8b 21 54 25 3d 21 54 25  84 31 0d 0d 52 05 e1 0d  |.!T%=!T%.1..R...|
00002900  0d 5c 3a dd f2 53 65 6c  65 63 74 28 54 25 2c 46  |.\:..Select(T%,F|
00002910  25 29 3a e7 46 25 3a 54  25 21 38 3d 54 25 21 38  |%):.F%:T%!8=T%!8|
00002920  84 31 3c 3c 32 32 8b 54  25 21 38 3d 54 25 21 38  |.1<<22.T%!8=T%!8|
00002930  80 ac 28 31 3c 3c 32 32  29 0d 0d 66 05 e1 0d 0d  |..(1<<22)..f....|
00002940  70 2a dd a4 5a 53 28 49  25 29 ea 41 24 3a f5 41  |p*..ZS(I%).A$:.A|
00002950  24 2b 3d bd 3f 49 25 3a  49 25 2b 3d 31 3a fd 3f  |$+=.?I%:I%+=1:.?|
00002960  49 25 3d 30 3a 3d 41 24  0d 0d 7a 04 0d 0d 84 31  |I%=0:=A$..z....1|
00002970  dd a4 41 6c 6c 6f 63 28  4c 25 29 3a ea 45 25 2c  |..Alloc(L%):.E%,|
00002980  54 25 3a e7 4c 4f 25 45  25 3d 4d 54 25 2b 4c 25  |T%:.LO%E%=MT%+L%|
00002990  2d 26 38 30 30 30 20 8b  45 25 3d 2d 31 0d 0d 8e  |-&8000 .E%=-1...|
000029a0  28 c8 99 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |(.."Wimp_SlotSiz|
000029b0  65 22 2c 45 25 2c 2d 31  b8 54 25 3a 54 25 2b 3d  |e",E%,-1.T%:T%+=|
000029c0  26 38 30 30 30 0d 0d 98  1c e7 54 25 3c 4d 54 25  |&8000.....T%<MT%|
000029d0  2b 4c 25 85 31 2c a4 4d  53 47 28 22 49 4e 53 22  |+L%.1,.MSG("INS"|
000029e0  29 0d 0d a2 13 4d 54 25  2b 3d 4c 25 3a 3d 4d 54  |)....MT%+=L%:=MT|
000029f0  25 2d 4c 25 0d 0d ac 04  0d 0d b6 22 dd f2 57 68  |%-L%......."..Wh|
00002a00  69 63 68 28 54 25 29 3a  57 25 3d 54 25 3a 4a 25  |ich(T%):W%=T%:J%|
00002a10  3d 52 25 3a 4b 25 3d 21  4a 25 0d 0d c0 67 c8 95  |=R%:K%=!J%...g..|
00002a20  4b 25 3a e7 57 25 3d 4b  25 21 32 30 3a 4d 25 3d  |K%:.W%=K%!20:M%=|
00002a30  4b 25 21 34 3a 53 25 3d  4b 25 21 38 3a 44 50 54  |K%!4:S%=K%!8:DPT|
00002a40  52 25 3d 4b 25 21 31 32  3a 53 43 52 25 3d 4b 25  |R%=K%!12:SCR%=K%|
00002a50  21 31 36 3a 43 54 25 3d  4b 25 21 34 34 3a 69 53  |!16:CT%=K%!44:iS|
00002a60  25 3d 4b 25 21 36 38 3a  69 57 25 3d 4b 25 21 37  |%=K%!68:iW%=K%!7|
00002a70  32 3a 69 44 25 3d 4b 25  21 37 36 3a 49 25 3d 4a  |2:iD%=K%!76:I%=J|
00002a80  25 0d 0d ca 19 4a 25 3d  4b 25 3a 4b 25 3d 21 4a  |%....J%=K%:K%=!J|
00002a90  25 3a ce 3a 4b 25 3d 21  49 25 0d 0d d4 05 e1 0d  |%:.:K%=!I%......|
00002aa0  0d de 04 0d 0d e8 1b dd  f2 4d 6f 76 65 28 41 25  |.........Move(A%|
00002ab0  2c 42 25 2c 43 25 29 3a  d6 4d 56 25 3a e1 0d 0d  |,B%,C%):.MV%:...|
00002ac0  f2 04 0d 0d fc 39 dd f2  50 6f 70 75 70 28 4e 25  |.....9..Popup(N%|
00002ad0  29 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |):.."Wimp_Create|
00002ae0  4d 65 6e 75 22 2c 2c 4e  25 2c 4d 58 25 2c 4d 59  |Menu",,N%,MX%,MY|
00002af0  25 3a 4d 45 4e 25 3d 4e  25 3a e1 0d 0e 06 04 0d  |%:MEN%=N%:......|
00002b00  0e 10 3a dd f2 53 65 74  49 28 57 25 2c 49 25 2c  |..:..SetI(W%,I%,|
00002b10  53 24 29 3a ea 46 25 3a  21 42 25 3d 57 25 3a c8  |S$):.F%:!B%=W%:.|
00002b20  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00002b30  49 6e 66 6f 22 2c 2c 42  25 0d 0e 1a 34 e7 49 25  |Info",,B%...4.I%|
00002b40  3e 3d 30 3a 49 25 3d 42  25 2b 31 31 32 2b 49 25  |>=0:I%=B%+112+I%|
00002b50  2a 33 32 3a 46 25 3d 49  25 2d 34 8b 49 25 3d 42  |*32:F%=I%-4.I%=B|
00002b60  25 2b 37 36 3a 46 25 3d  42 25 2b 36 30 0d 0e 24  |%+76:F%=B%+60..$|
00002b70  2a e7 21 46 25 80 31 3c  3c 38 3a 24 21 49 25 3d  |*.!F%.1<<8:$!I%=|
00002b80  c0 53 24 2c 49 25 21 38  2d 31 29 8b 24 49 25 3d  |.S$,I%!8-1).$I%=|
00002b90  c0 53 24 2c 31 31 29 0d  0e 2e 05 e1 0d 0e 38 04  |.S$,11).......8.|
00002ba0  0d 0e 42 20 dd f2 52 6f  6c 6c 28 52 43 25 2c 55  |..B ..Roll(RC%,U|
00002bb0  25 29 3a e7 52 43 25 3c  3d 30 3a 52 43 25 3d 31  |%):.RC%<=0:RC%=1|
00002bc0  0d 0e 4c 33 57 4d 25 3d  a4 47 65 74 57 69 6d 70  |..L3WM%=.GetWimp|
00002bd0  4d 6f 64 65 3a f5 3a 49  25 3d 30 3a 46 4b 25 3d  |Mode:.:I%=0:FK%=|
00002be0  30 3a c8 95 46 4b 25 3c  3e 21 52 25 80 49 25 3c  |0:..FK%<>!R%.I%<|
00002bf0  3e 32 37 0d 0e 56 25 4b  25 3d 21 52 25 3a c8 95  |>27..V%K%=!R%:..|
00002c00  21 4b 25 3c 3e 46 4b 25  3a 4b 25 3d 21 4b 25 3a  |!K%<>FK%:K%=!K%:|
00002c10  ce 3a 46 4b 25 3d 4b 25  0d 0e 60 52 4d 25 3d 4b  |.:FK%=K%..`RM%=K|
00002c20  25 21 34 3a 53 25 3d 4b  25 21 38 3a 44 50 54 52  |%!4:S%=K%!8:DPTR|
00002c30  25 3d 4b 25 21 31 32 3a  53 43 52 25 3d 4b 25 21  |%=K%!12:SCR%=K%!|
00002c40  31 36 3a 57 25 3d 4b 25  21 32 30 3a 43 54 25 3d  |16:W%=K%!20:CT%=|
00002c50  4b 25 21 34 34 3a 69 44  25 3d 4b 25 21 37 36 3a  |K%!44:iD%=K%!76:|
00002c60  52 59 25 3d ac 4b 25 21  33 32 0d 0e 6a 1a f2 46  |RY%=.K%!32..j..F|
00002c70  75 6c 6c 28 52 43 25 2c  55 25 29 3a 4b 25 3d 21  |ull(RC%,U%):K%=!|
00002c80  4b 25 3a ce 0d 0e 74 21  fd 49 25 3d 32 37 3a f4  |K%:...t!.I%=27:.|
00002c90  53 59 53 22 57 69 6d 70  5f 53 65 74 4d 6f 64 65  |SYS"Wimp_SetMode|
00002ca0  22 2c 57 4d 25 0d 0e 7e  12 f2 42 61 63 6b 54 6f  |",WM%..~..BackTo|
00002cb0  44 65 73 6b 74 6f 70 0d  0e 88 05 e1 0d 0e 92 04  |Desktop.........|
00002cc0  0d 0e 9c 1b dd f2 46 75  6c 6c 28 52 4c 25 2c f8  |......Full(RL%,.|
00002cd0  20 57 25 29 3a ea 4a 25  3a ea 85 0d 0e a6 21 46  | W%):.J%:.....!F|
00002ce0  57 25 3d 4d 25 21 32 30  3a 46 48 25 3d 4d 25 21  |W%=M%!20:FH%=M%!|
00002cf0  32 34 3a 46 4d 25 3d 4d  25 21 32 38 0d 0e b0 17  |24:FM%=M%!28....|
00002d00  54 25 3d b9 3a ea 85 3a  ee 85 ea 3a f7 85 3a 54  |T%=.:..:...:..:T|
00002d10  25 3d a3 0d 0e ba 36 e3  49 25 3d 30 b8 31 35 3a  |%=....6.I%=0.15:|
00002d20  53 55 50 25 3f 28 49 25  2a 34 29 3d 49 25 3a c8  |SUP%?(I%*4)=I%:.|
00002d30  99 22 4f 53 5f 57 6f 72  64 22 2c 26 42 2c 53 55  |."OS_Word",&B,SU|
00002d40  50 25 2b 49 25 2a 34 3a  ed 0d 0e c4 0d e7 46 4d  |P%+I%*4:......FM|
00002d50  25 3e 32 35 35 8c 0d 0e  ce 11 f2 4e 65 77 4d 6f  |%>255......NewMo|
00002d60  64 65 28 46 4d 25 29 0d  0e d8 05 cc 0d 0e e2 18  |de(FM%).........|
00002d70  e7 54 25 eb 46 4d 25 2b  31 32 38 3a f7 85 20 8b  |.T%.FM%+128:.. .|
00002d80  eb 46 4d 25 0d 0e ec 05  cd 0d 0e f6 27 ee 85 ea  |.FM%........'...|
00002d90  3a f7 85 3a f2 42 61 63  6b 54 6f 44 65 73 6b 74  |:..:.BackToDeskt|
00002da0  6f 70 3a 85 20 9f 2c f6  24 2b 22 20 22 2b c3 9e  |op:. .,.$+" "+..|
00002db0  0d 0f 00 3c f4 4f 4e 45  52 52 4f 52 4c 4f 43 41  |...<.ONERRORLOCA|
00002dc0  4c 3a 52 45 53 54 4f 52  45 45 52 52 4f 52 3a 45  |L:RESTOREERROR:E|
00002dd0  52 52 4f 52 20 45 52 52  2c 52 45 50 4f 52 54 24  |RROR ERR,REPORT$|
00002de0  2b 22 20 22 2b 53 54 52  24 45 52 4c 0d 0f 0a 39  |+" "+STR$ERL...9|
00002df0  e7 ac a4 4d 6f 64 65 73  45 71 75 61 6c 28 eb 2c  |...ModesEqual(.,|
00002e00  46 4d 25 29 8c 85 31 2c  22 4d 6f 64 65 20 66 6f  |FM%)..1,"Mode fo|
00002e10  72 20 66 69 6c 6d 20 6e  6f 74 20 61 76 61 69 6c  |r film not avail|
00002e20  61 62 6c 65 22 0d 0f 14  13 f4 49 46 4d 4f 44 45  |able".....IFMODE|
00002e30  3c 32 35 36 54 48 45 4e  0d 0f 1e 13 e7 a4 4d 56  |<256THEN......MV|
00002e40  61 72 28 2d 31 2c 39 29  3c 34 8c 0d 0f 28 24 20  |ar(-1,9)<4...($ |
00002e50  c8 99 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 49  |.."ColourTrans_I|
00002e60  6e 76 61 6c 69 64 61 74  65 43 61 63 68 65 22 0d  |nvalidateCache".|
00002e70  0f 32 14 20 e7 a4 4d 56  61 72 28 eb 2c 39 29 3c  |.2. ..MVar(.,9)<|
00002e80  3d 32 8c 0d 0f 3c 37 20  45 25 3d 42 25 2b 31 30  |=2...<7 E%=B%+10|
00002e90  30 3a c8 99 22 57 69 6d  70 5f 52 65 61 64 50 61  |0:.."Wimp_ReadPa|
00002ea0  6c 65 74 74 65 22 2c 2c  45 25 3a e7 4b 25 21 35  |lette",,E%:.K%!5|
00002eb0  32 3a 45 25 3d 4b 25 21  35 32 0d 0f 46 19 20 e7  |2:E%=K%!52..F. .|
00002ec0  a4 4d 56 61 72 28 eb 2c  39 29 3d 32 84 4b 25 21  |.MVar(.,9)=2.K%!|
00002ed0  35 32 8c 0d 0f 50 15 20  e3 49 25 3d 30 b8 a4 4d  |52...P. .I%=0..M|
00002ee0  56 61 72 28 eb 2c 33 29  0d 0f 5a 39 20 ef 31 39  |Var(.,3)..Z9 .19|
00002ef0  2c 49 25 2c 31 36 84 28  53 55 50 25 3f 28 49 25  |,I%,16.(SUP%?(I%|
00002f00  2a 34 2b 31 29 80 26 38  30 29 2c 45 25 3f 31 2c  |*4+1).&80),E%?1,|
00002f10  45 25 3f 32 2c 45 25 3f  33 3a 45 25 2b 3d 34 3a  |E%?2,E%?3:E%+=4:|
00002f20  ed 0d 0f 64 06 20 cd 0d  0f 6e 06 20 cd 0d 0f 78  |...d. ...n. ...x|
00002f30  05 cd 0d 0f 82 04 0d 0f  8c 23 53 57 25 3d a4 4d  |.........#SW%=.M|
00002f40  56 61 72 28 2d 31 2c 34  29 3a 53 48 25 3d a4 4d  |Var(-1,4):SH%=.M|
00002f50  56 61 72 28 2d 31 2c 35  29 0d 0f 96 13 e7 a4 4d  |Var(-1,5)......M|
00002f60  56 61 72 28 2d 31 2c 39  29 3c 34 8c 0d 0f a0 24  |Var(-1,9)<4....$|
00002f70  46 57 32 25 3d 28 46 57  25 81 32 3e 3e 53 57 25  |FW2%=(FW%.2>>SW%|
00002f80  29 3e 3e 33 2d a4 4d 56  61 72 28 2d 31 2c 39 29  |)>>3-.MVar(-1,9)|
00002f90  0d 0f aa 23 46 57 32 25  3d 28 46 57 32 25 3c 3c  |...#FW2%=(FW2%<<|
00002fa0  53 57 25 29 3c 3c 33 2d  a4 4d 56 61 72 28 2d 31  |SW%)<<3-.MVar(-1|
00002fb0  2c 39 29 0d 0f b4 05 cc  0d 0f be 0e 46 57 32 25  |,9).........FW2%|
00002fc0  3d 46 57 25 81 32 0d 0f  c8 05 cd 0d 0f d2 13 46  |=FW%.2.........F|
00002fd0  48 32 25 3d 46 48 25 81  32 3e 3e 53 48 25 0d 0f  |H2%=FH%.2>>SH%..|
00002fe0  dc 12 46 48 32 25 3d 46  48 32 25 3c 3c 53 48 25  |..FH2%=FH2%<<SH%|
00002ff0  0d 0f e6 3b 53 57 25 3d  28 a4 4d 56 61 72 28 2d  |...;SW%=(.MVar(-|
00003000  31 2c 31 31 29 2b 31 3c  3c 53 57 25 29 81 32 3a  |1,11)+1<<SW%).2:|
00003010  53 48 25 3d 28 a4 4d 56  61 72 28 2d 31 2c 31 32  |SH%=(.MVar(-1,12|
00003020  29 2b 31 3c 3c 53 48 25  29 81 32 0d 0f f0 04 0d  |)+1<<SH%).2.....|
00003030  0f fa 60 e7 4b 25 21 35  32 3a 45 25 3d 4b 25 21  |..`.K%!52:E%=K%!|
00003040  35 32 3a 45 25 2b 3d 45  25 3f 2d 32 34 3c 3c 32  |52:E%+=E%?-24<<2|
00003050  3a ef 35 3a c8 99 22 43  6f 6c 6f 75 72 54 72 61  |:.5:.."ColourTra|
00003060  6e 73 5f 53 65 74 47 43  4f 4c 22 2c 21 45 25 2c  |ns_SetGCOL",!E%,|
00003070  2c 2c 31 32 38 3a da 3a  ef 31 39 2c 30 2c 32 34  |,,128:.:.19,0,24|
00003080  2c 45 25 3f 31 2c 45 25  3f 32 2c 45 25 3f 33 0d  |,E%?1,E%?2,E%?3.|
00003090  10 04 04 0d 10 0e 26 87  3a 45 25 3d 31 3a f2 46  |......&.:E%=1:.F|
000030a0  3a db 3a f2 46 3a db 3a  46 25 3d 52 4c 25 3e 30  |:.:.F:.:F%=RL%>0|
000030b0  3a e7 4d 4f 25 c8 97 ee  32 0d 10 18 38 ef 32 34  |:.MO%...2...8.24|
000030c0  2c 53 57 25 2d 46 57 32  25 3b 53 48 25 2d 46 48  |,SW%-FW2%;SH%-FH|
000030d0  32 25 3b 53 57 25 2d 46  57 32 25 2b 46 57 25 2d  |2%;SW%-FW2%+FW%-|
000030e0  31 3b 53 48 25 2d 46 48  32 25 2b 46 48 25 2d 31  |1;SH%-FH2%+FH%-1|
000030f0  3b 0d 10 22 28 44 25 3d  4d 25 2b 4d 25 21 31 36  |;.."(D%=M%+M%!16|
00003100  3a 43 25 3d 30 3a 63 25  3d 2d 31 3a 43 4d 25 3d  |:C%=0:c%=-1:CM%=|
00003110  46 4d 25 3a f2 45 3a f2  46 0d 10 2c 04 0d 10 36  |FM%:.E:.F..,...6|
00003120  04 0d 10 40 1a f5 f5 49  25 3d a6 30 3a c8 99 36  |...@...I%=.0:..6|
00003130  2c 26 42 30 2c 32 35 35  3a f2 52 0d 10 4a 2f fd  |,&B0,255:.R..J/.|
00003140  49 25 3d 32 37 84 28 52  4c 25 80 21 44 25 3d 30  |I%=27.(RL%.!D%=0|
00003150  29 3a 52 4c 25 3d 94 52  4c 25 2d 31 3a fd 52 4c  |):RL%=.RL%-1:.RL|
00003160  25 3c 3d 30 84 49 25 3d  32 37 0d 10 54 06 f7 85  |%<=0.I%=27..T...|
00003170  0d 10 5e 05 e1 0d 10 68  04 0d 10 72 0e dd f2 52  |..^....h...r...R|
00003180  3a e7 4d 4f 25 f2 43 0d  10 7c 1d e7 46 25 8b e7  |:.MO%.C..|..F%..|
00003190  49 25 3c 30 f5 49 25 3d  a6 30 3a f2 43 3a fd 49  |I%<0.I%=.0:.C:.I|
000031a0  25 3e 3d 30 0d 10 86 32  e7 49 25 3c 33 32 80 ac  |%>=0...2.I%<32..|
000031b0  42 42 43 25 f2 45 3a f5  c8 99 36 2c 26 42 30 2c  |BBC%.E:...6,&B0,|
000031c0  2c 32 35 35 b8 2c 54 25  3a fd 54 25 3c 32 35 36  |,255.,T%:.T%<256|
000031d0  2d 57 25 3a f2 46 0d 10  90 0e e7 49 25 3c 30 80  |-W%:.F.....I%<0.|
000031e0  46 25 3a e1 0d 10 9a 12  e7 44 53 25 80 ac a6 2d  |F%:......DS%...-|
000031f0  31 3a 49 25 3d 30 0d 10  a4 1d c8 99 36 2c 31 35  |1:I%=0......6,15|
00003200  3a e7 42 42 43 25 80 49  25 3c 3e 32 49 25 3d 97  |:.BBC%.I%<>2I%=.|
00003210  22 2b 22 0d 10 ae 29 e7  49 25 3d 32 3a 42 42 43  |"+"...).I%=2:BBC|
00003220  25 3d ac 42 42 43 25 3a  46 25 3d a3 3a 49 25 3d  |%=.BBC%:F%=.:I%=|
00003230  97 22 46 22 3a e7 42 42  43 25 ef 37 0d 10 b8 13  |."F":.BBC%.7....|
00003240  e7 49 25 3d 33 32 3a 46  25 3d ac 46 25 3a e1 0d  |.I%=32:F%=.F%:..|
00003250  10 c2 11 e7 49 25 3d 31  33 3a 46 25 3d a3 3a e1  |....I%=13:F%=.:.|
00003260  0d 10 cc 0a c8 8e bd 49  25 ca 0d 10 d6 25 c9 22  |.......I%....%."|
00003270  49 22 2c 22 69 22 3a ef  32 33 2c 30 2c 38 2c 26  |I","i":.23,0,8,&|
00003280  38 31 2b 46 25 7c 3a 46  25 3d ac 46 25 3a e1 0d  |81+F%|:F%=.F%:..|
00003290  10 e0 2b c9 22 46 22 2c  22 66 22 3a 44 25 3d 4d  |..+."F","f":D%=M|
000032a0  25 2b 4d 25 21 31 36 3a  43 25 3d 30 3a 63 25 3d  |%+M%!16:C%=0:c%=|
000032b0  2d 31 3a f2 45 3a f2 46  3a e1 0d 10 ea 14 c9 22  |-1:.E:.F:......"|
000032c0  4c 22 2c 22 6c 22 2c 22  73 22 2c 22 53 22 0d 10  |L","l","s","S"..|
000032d0  f4 11 e7 28 4d 25 21 33  36 80 33 29 3d 30 8c 0d  |...(M%!36.3)=0..|
000032e0  10 fe 2c 20 20 20 e7 21  44 25 c8 95 21 28 44 25  |..,   .!D%..!(D%|
000032f0  2b 21 44 25 29 3a 44 25  2b 3d 21 44 25 3a 63 25  |+!D%):D%+=!D%:c%|
00003300  2b 3d 31 3a ce 3a f2 45  3a f2 46 0d 11 08 05 cc  |+=1:.:.E:.F.....|
00003310  0d 11 12 19 20 20 20 e7  21 44 25 3a c8 95 21 44  |....   .!D%:..!D|
00003320  25 3a f2 45 3a ce 3a f2  46 0d 11 1c 05 cd 0d 11  |%:.E:.:.F.......|
00003330  26 1b e7 bd 49 25 3d 22  73 22 84 bd 49 25 3d 22  |&...I%="s"..I%="|
00003340  53 22 3a 52 4c 25 3d 2d  31 0d 11 30 05 e1 0d 11  |S":RL%=-1..0....|
00003350  3a 0c c9 22 43 22 2c 22  63 22 0d 11 44 29 e7 4d  |:.."C","c"..D).M|
00003360  4f 25 80 ac 58 4f 25 3a  c8 97 87 3a 4d 4f 25 3d  |O%..XO%:...:MO%=|
00003370  a3 20 8b c8 97 ee 32 3a  4d 4f 25 3d b9 3a 58 4f  |. ....2:MO%=.:XO|
00003380  25 3d a3 0d 11 4e 05 e1  0d 11 58 0c c9 22 58 22  |%=...N....X.."X"|
00003390  2c 22 78 22 0d 11 62 28  e7 4d 4f 25 80 58 4f 25  |,"x"..b(.MO%.XO%|
000033a0  3a c8 97 87 3a 4d 4f 25  3d a3 20 8b c8 97 ee 32  |:...:MO%=. ....2|
000033b0  3a 4d 4f 25 3d b9 3a 58  4f 25 3d b9 0d 11 6c 05  |:MO%=.:XO%=...l.|
000033c0  e1 0d 11 76 1d c9 22 59  22 2c 22 79 22 3a 52 59  |...v.."Y","y":RY|
000033d0  25 3d 28 52 59 25 3e 3e  31 29 3d 30 3a e1 0d 11  |%=(RY%>>1)=0:...|
000033e0  80 36 c9 22 30 22 2c 22  31 22 2c 22 32 22 2c 22  |.6."0","1","2","|
000033f0  33 22 2c 22 34 22 2c 22  35 22 2c 22 36 22 2c 22  |3","4","5","6","|
00003400  37 22 2c 22 38 22 2c 22  39 22 3a 57 25 3d bb bd  |7","8","9":W%=..|
00003410  49 25 3a e1 0d 11 8a 12  c9 22 2b 22 3a e7 21 44  |I%:......"+":.!D|
00003420  25 f2 45 3a f2 46 0d 11  94 0a 46 25 3d a3 3a e1  |%.E:.F....F%=.:.|
00003430  0d 11 9e 17 c9 22 2d 22  3a e7 44 25 3d 4d 25 2b  |....."-":.D%=M%+|
00003440  4d 25 21 31 36 3a e1 0d  11 a8 1f e7 44 25 3e 4d  |M%!16:......D%>M|
00003450  25 2b 4d 25 21 31 36 44  25 2d 3d 44 25 21 2d 34  |%+M%!16D%-=D%!-4|
00003460  3a 63 25 2d 3d 31 0d 11  b2 2f e7 28 4d 25 21 33  |:c%-=1.../.(M%!3|
00003470  36 80 33 29 3c 3e 30 8b  e7 44 25 3e 4d 25 2b 4d  |6.3)<>0..D%>M%+M|
00003480  25 21 31 36 44 25 2d 3d  44 25 21 2d 34 3a 63 25  |%!16D%-=D%!-4:c%|
00003490  2d 3d 31 8b e1 0d 11 bc  1b e7 44 25 3d 4d 25 2b  |-=1.......D%=M%+|
000034a0  4d 25 21 31 36 3a 43 25  3d 30 3a 63 25 3d 2d 31  |M%!16:C%=0:c%=-1|
000034b0  0d 11 c6 0e f2 45 3a f2  46 3a 46 25 3d a3 0d 11  |.....E:.F:F%=...|
000034c0  d0 38 e7 28 4d 25 21 33  36 80 33 29 3d 30 8b 44  |.8.(M%!36.3)=0.D|
000034d0  25 2d 3d 44 25 21 2d 34  3a 63 25 2d 3d 31 3a e7  |%-=D%!-4:c%-=1:.|
000034e0  44 25 3d 4d 25 2b 4d 25  21 31 36 3a 43 25 3d 30  |D%=M%+M%!16:C%=0|
000034f0  3a 63 25 3d 2d 31 0d 11  da 05 e1 0d 11 e4 17 c9  |:c%=-1..........|
00003500  bd 32 37 3a ef 32 33 2c  30 2c 38 2c 26 38 30 7c  |.27:.23,0,8,&80||
00003510  3a e1 0d 11 ee 05 cb 0d  11 f8 08 ef 37 3a e1 0d  |:...........7:..|
00003520  12 02 04 0d 12 0c 27 dd  f2 46 3a c8 99 36 2c 26  |......'..F:..6,&|
00003530  37 31 2c 45 25 3a 45 25  3d 33 2d 45 25 3a c8 99  |71,E%:E%=3-E%:..|
00003540  36 2c 26 37 30 2c 45 25  3a e1 0d 12 16 37 dd f2  |6,&70,E%:....7..|
00003550  45 3a e7 52 59 25 f2 59  3a e1 20 8b e7 21 44 25  |E:.RY%.Y:. ..!D%|
00003560  3d 30 3a 44 25 3d 4d 25  2b 4d 25 21 31 36 3a 43  |=0:D%=M%+M%!16:C|
00003570  25 3d 30 3a 63 25 3d 2d  31 3a e7 21 44 25 3d 30  |%=0:c%=-1:.!D%=0|
00003580  e1 0d 12 20 3d 63 25 2b  3d 31 3a e7 4b 25 21 36  |... =c%+=1:.K%!6|
00003590  30 3d 30 c8 99 45 58 25  2c 4d 25 21 33 32 2c 44  |0=0..EX%,M%!32,D|
000035a0  25 2c 43 25 2c 4d 25 21  34 30 20 b8 20 2c 44 25  |%,C%,M%!40 . ,D%|
000035b0  2c 43 25 8b f2 45 58 28  44 25 2c 43 25 29 0d 12  |,C%..EX(D%,C%)..|
000035c0  2a 14 e7 28 4d 25 21 33  36 80 33 29 3d 30 43 25  |*..(M%!36.3)=0C%|
000035d0  3d 30 0d 12 34 05 e1 0d  12 3e 0f dd f2 59 3a e7  |=0..4....>...Y:.|
000035e0  52 59 25 80 31 8c 0d 12  48 42 e7 21 44 25 3c 3e  |RY%.1...HB.!D%<>|
000035f0  30 63 25 2b 3d 31 3a e7  4b 25 21 36 30 3d 30 c8  |0c%+=1:.K%!60=0.|
00003600  99 45 58 25 2c 4d 25 21  33 32 2c 44 25 2c 43 25  |.EX%,M%!32,D%,C%|
00003610  2c 4d 25 21 34 30 b8 2c  44 25 2c 43 25 8b f2 45  |,M%!40.,D%,C%..E|
00003620  58 28 44 25 2c 43 25 29  0d 12 52 14 e7 28 4d 25  |X(D%,C%)..R..(M%|
00003630  21 33 36 80 33 29 3d 30  43 25 3d 30 0d 12 5c 14  |!36.3)=0C%=0..\.|
00003640  e7 21 44 25 3d 30 3a 52  59 25 3d 52 59 25 82 31  |.!D%=0:RY%=RY%.1|
00003650  0d 12 66 05 cc 0d 12 70  2a e7 44 25 3d 4d 25 2b  |..f....p*.D%=M%+|
00003660  4d 25 21 31 36 3a 52 59  25 3d 52 59 25 82 31 3a  |M%!16:RY%=RY%.1:|
00003670  43 25 3d 30 3a 63 25 3d  2d 31 3a f2 45 3a e1 0d  |C%=0:c%=-1:.E:..|
00003680  12 7a 13 44 25 2d 3d 44  25 21 2d 34 3a 63 25 2d  |.z.D%-=D%!-4:c%-|
00003690  3d 31 0d 12 84 2f e7 28  4d 25 21 33 36 80 33 29  |=1.../.(M%!36.3)|
000036a0  3c 3e 30 8b e7 44 25 3e  4d 25 2b 4d 25 21 31 36  |<>0..D%>M%+M%!16|
000036b0  44 25 2d 3d 44 25 21 2d  34 3a 63 25 2d 3d 31 8b  |D%-=D%!-4:c%-=1.|
000036c0  e1 0d 12 8e 1b e7 44 25  3d 4d 25 2b 4d 25 21 31  |......D%=M%+M%!1|
000036d0  36 3a 43 25 3d 30 3a 63  25 3d 2d 31 0d 12 98 3b  |6:C%=0:c%=-1...;|
000036e0  63 25 2b 3d 31 3a e7 4b  25 21 36 30 3d 30 c8 99  |c%+=1:.K%!60=0..|
000036f0  45 58 25 2c 4d 25 21 33  32 2c 44 25 2c 43 25 2c  |EX%,M%!32,D%,C%,|
00003700  4d 25 21 34 30 b8 2c 44  25 2c 43 25 8b f2 45 58  |M%!40.,D%,C%..EX|
00003710  28 44 25 2c 43 25 29 0d  12 a2 3c e7 28 4d 25 21  |(D%,C%)...<.(M%!|
00003720  33 36 80 33 29 3d 30 43  25 3d 30 8b 44 25 2d 3d  |36.3)=0C%=0.D%-=|
00003730  44 25 21 2d 34 3a 63 25  2d 3d 31 3a e7 44 25 3d  |D%!-4:c%-=1:.D%=|
00003740  4d 25 2b 4d 25 21 31 36  3a 43 25 3d 30 3a 63 25  |M%+M%!16:C%=0:c%|
00003750  3d 2d 31 0d 12 ac 27 e7  44 25 3c 3d 4d 25 2b 4d  |=-1...'.D%<=M%+M|
00003760  25 21 31 36 2b 21 28 4d  25 2b 4d 25 21 31 36 29  |%!16+!(M%+M%!16)|
00003770  3a 52 59 25 3d 52 59 25  82 31 0d 12 b6 05 cd 0d  |:RY%=RY%.1......|
00003780  12 c0 05 e1 0d 12 ca 04  0d 12 d4 0e dd f2 43 3a  |..............C:|
00003790  e7 ac 4d 4f 25 e1 0d 12  de 2e c8 99 53 4f 25 2c  |..MO%.......SO%,|
000037a0  26 31 33 43 2c 53 50 52  25 2c 22 43 22 b8 20 52  |&13C,SPR%,"C". R|
000037b0  30 2c 52 31 2c 52 32 2c  52 33 3a db 3a fb 32 3a  |0,R1,R2,R3:.:.2:|
000037c0  fb 31 32 39 0d 12 e8 21  e7 58 4f 25 c8 97 78 25  |.129...!.XO%..x%|
000037d0  2c 79 25 2c 7a 25 3a f1  3b 78 25 27 79 25 3b 8b  |,y%,z%:.;x%'y%;.|
000037e0  f1 3b 63 25 3b 0d 12 f2  2b c8 99 53 4f 25 2c 52  |.;c%;...+..SO%,R|
000037f0  30 2c 52 31 2c 52 32 2c  52 33 3a c8 99 53 4f 25  |0,R1,R2,R3:..SO%|
00003800  2c 26 31 32 34 2c 53 50  52 25 2c 22 43 22 2c 32  |,&124,SPR%,"C",2|
00003810  0d 12 fc 05 e1 0d 13 06  04 0d 13 10 0b dd f2 54  |...............T|
00003820  61 62 6c 65 0d 13 1a 51  e7 4b 25 21 35 32 3a 45  |able...Q.K%!52:E|
00003830  25 3d 4b 25 21 35 32 8b  e7 a4 4d 56 61 72 28 4d  |%=K%!52...MVar(M|
00003840  25 21 32 38 2c 39 29 3d  32 3a c8 99 22 57 69 6d  |%!28,9)=2:.."Wim|
00003850  70 5f 52 65 61 64 50 61  6c 65 74 74 65 22 2c 2c  |p_ReadPalette",,|
00003860  42 25 2b 31 30 30 3a 45  25 3d 42 25 2b 31 30 30  |B%+100:E%=B%+100|
00003870  8b 45 25 3d 30 0d 13 24  42 c8 99 22 43 6f 6c 6f  |.E%=0..$B.."Colo|
00003880  75 72 54 72 61 6e 73 5f  53 65 6c 65 63 74 54 61  |urTrans_SelectTa|
00003890  62 6c 65 22 2c 4d 25 21  32 38 2c 45 25 2c 2d 31  |ble",M%!28,E%,-1|
000038a0  2c 2d 31 2c 43 54 25 2b  38 3a 21 43 54 25 3d a4  |,-1,CT%+8:!CT%=.|
000038b0  47 65 74 4d 6f 64 65 0d  13 2e 16 e7 a4 4d 56 61  |GetMode......MVa|
000038c0  72 28 4d 25 21 32 38 2c  39 29 3c 34 8c 0d 13 38  |r(M%!28,9)<4...8|
000038d0  50 43 54 25 21 34 3d 30  3a e3 49 25 3d 28 31 3c  |PCT%!4=0:.I%=(1<|
000038e0  3c 28 31 3c 3c a4 4d 56  61 72 28 4d 25 21 32 38  |<(1<<.MVar(M%!28|
000038f0  2c 39 29 29 29 2d 31 b8  30 88 2d 31 3a e7 43 54  |,9)))-1.0.-1:.CT|
00003900  25 3f 28 49 25 2b 38 29  3c 3e 49 25 8c 49 25 3d  |%?(I%+8)<>I%.I%=|
00003910  30 3a 43 54 25 21 34 3d  43 54 25 2b 38 0d 13 42  |0:CT%!4=CT%+8..B|
00003920  05 ed 0d 13 4c 05 cc 0d  13 56 0f 43 54 25 21 34  |....L....V.CT%!4|
00003930  3d 43 54 25 2b 38 0d 13  60 05 cd 0d 13 6a 05 e1  |=CT%+8..`....j..|
00003940  0d 13 74 04 0d 13 7e 0b  dd f2 45 72 72 6f 72 0d  |..t...~...Error.|
00003950  13 88 4c 21 42 25 3d 9f  3a 24 28 42 25 2b 34 29  |..L!B%=.:$(B%+4)|
00003960  3d f6 24 2b 22 20 22 2b  c3 9e 3a 56 25 3d 32 3a  |=.$+" "+..:V%=2:|
00003970  c8 99 22 58 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.."XWimp_ReportE|
00003980  72 72 6f 72 22 2c 42 25  2c 25 31 31 2c 22 50 72  |rror",B%,%11,"Pr|
00003990  6f 6a 65 63 74 6f 72 22  b8 56 25 0d 13 92 0b e7  |ojector".V%.....|
000039a0  56 25 3d 32 3a e0 0d 13  9c 05 e1 0d 13 a6 04 0d  |V%=2:...........|
000039b0  13 b0 38 dd a4 4d 56 61  72 28 4e 25 2c 56 25 29  |..8..MVar(N%,V%)|
000039c0  3a c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |:.."OS_ReadModeV|
000039d0  61 72 69 61 62 6c 65 22  2c 4e 25 2c 56 25 b8 2c  |ariable",N%,V%.,|
000039e0  2c 56 25 3a 3d 56 25 0d  13 ba 04 0d 13 c4 2a dd  |,V%:=V%.......*.|
000039f0  f2 4d 65 6e 75 54 28 54  24 29 3a 54 24 3d a4 4d  |.MenuT(T$):T$=.M|
00003a00  53 47 28 54 24 29 3a 4c  56 25 3d 56 25 3a 4d 4c  |SG(T$):LV%=V%:ML|
00003a10  25 3d a9 54 24 0d 13 ce  43 24 56 25 3d 54 24 3a  |%=.T$...C$V%=T$:|
00003a20  56 25 21 31 36 3d 31 36  2a 28 4d 4c 25 2b 31 29  |V%!16=16*(ML%+1)|
00003a30  3a 56 25 21 32 30 3d 34  34 3a 56 25 21 31 32 3d  |:V%!20=44:V%!12=|
00003a40  26 30 30 30 37 30 32 30  37 3a 56 25 21 32 34 3d  |&00070207:V%!24=|
00003a50  30 3a 56 25 2b 3d 32 38  0d 13 d8 05 e1 0d 13 e2  |0:V%+=28........|
00003a60  21 dd f2 45 6e 64 4d 65  6e 75 3a 4c 56 25 21 31  |!..EndMenu:LV%!1|
00003a70  36 3d 31 36 2a 28 4d 4c  25 2b 31 29 3a e1 0d 13  |6=16*(ML%+1):...|
00003a80  ec 04 0d 13 f6 37 dd f2  45 53 28 54 24 2c 46 25  |.....7..ES(T$,F%|
00003a90  2c 53 25 2c 59 25 29 3a  54 25 3d a4 45 53 28 54  |,S%,Y%):T%=.ES(T|
00003aa0  24 2c 46 25 2c 53 25 29  3a f2 53 65 6c 65 63 74  |$,F%,S%):.Select|
00003ab0  28 54 25 2c 59 25 29 3a  e1 0d 14 00 2a dd f2 45  |(T%,Y%):....*..E|
00003ac0  4c 28 54 24 2c 46 25 29  3a 54 25 3d a4 45 28 54  |L(T$,F%):T%=.E(T|
00003ad0  24 2c 32 29 3a f2 54 69  63 6b 28 54 25 2c 46 25  |$,2):.Tick(T%,F%|
00003ae0  29 3a e1 0d 14 0a 2c dd  f2 45 45 28 54 24 2c 46  |):....,..EE(T$,F|
00003af0  25 29 3a 54 25 3d a4 45  28 54 24 2c 26 38 30 29  |%):T%=.E(T$,&80)|
00003b00  3a f2 54 69 63 6b 28 54  25 2c 46 25 29 3a e1 0d  |:.Tick(T%,F%):..|
00003b10  14 14 2a dd f2 45 54 28  54 24 2c 46 25 29 3a 54  |..*..ET(T$,F%):T|
00003b20  25 3d a4 45 28 54 24 2c  30 29 3a f2 54 69 63 6b  |%=.E(T$,0):.Tick|
00003b30  28 54 25 2c 46 25 29 3a  e1 0d 14 1e 21 dd f2 4d  |(T%,F%):....!..M|
00003b40  65 6e 75 45 28 54 24 2c  46 25 29 3a 54 25 3d a4  |enuE(T$,F%):T%=.|
00003b50  45 28 54 24 2c 46 25 29  3a e1 0d 14 28 2a dd a4  |E(T$,F%):...(*..|
00003b60  45 28 54 24 2c 46 25 29  54 24 3d a4 4d 53 47 28  |E(T$,F%)T$=.MSG(|
00003b70  54 24 29 3a e7 a9 54 24  3e 4d 4c 25 3a 4d 4c 25  |T$):..T$>ML%:ML%|
00003b80  3d a9 54 24 0d 14 32 41  e7 a9 54 24 3c 31 32 3a  |=.T$..2A..T$<12:|
00003b90  24 28 56 25 2b 31 32 29  3d 54 24 3a 21 56 25 3d  |$(V%+12)=T$:!V%=|
00003ba0  46 25 3a 56 25 21 34 3d  2d 31 3a 56 25 21 38 3d  |F%:V%!4=-1:V%!8=|
00003bb0  31 84 37 3c 3c 32 34 3a  56 25 2b 3d 32 34 3a 3d  |1.7<<24:V%+=24:=|
00003bc0  56 25 2d 32 34 0d 14 3c  12 3d a4 45 53 28 54 24  |V%-24..<.=.ES(T$|
00003bd0  2c 46 25 2c 2d 31 29 0d  14 46 2b dd a4 45 53 28  |,F%,-1)..F+..ES(|
00003be0  54 24 2c 46 25 2c 53 25  29 ea 4c 25 3a 4c 25 3d  |T$,F%,S%).L%:L%=|
00003bf0  a9 54 24 3a e7 4c 25 3e  4d 4c 25 3a 4d 4c 25 3d  |.T$:.L%>ML%:ML%=|
00003c00  4c 25 0d 14 50 30 24 28  56 25 2b 31 32 29 3d c0  |L%..P0$(V%+12)=.|
00003c10  54 24 2c 31 31 29 3a 21  56 25 3d 46 25 3a 56 25  |T$,11):!V%=F%:V%|
00003c20  21 34 3d 53 25 3a 56 25  21 38 3d 31 84 37 3c 3c  |!4=S%:V%!8=1.7<<|
00003c30  32 34 0d 14 5a 13 e7 28  21 56 25 80 34 29 84 4c  |24..Z..(!V%.4).L|
00003c40  25 3e 31 31 8c 0d 14 64  27 20 20 20 56 25 21 32  |%>11...d'   V%!2|
00003c50  30 3d 4c 25 2b 31 3a 54  25 3d 44 4d 25 3a 44 4d  |0=L%+1:T%=DM%:DM|
00003c60  25 2b 3d 28 4c 25 2b 34  29 80 ac 33 0d 14 6e 2e  |%+=(L%+4)..3..n.|
00003c70  20 20 20 24 54 25 3d 54  24 3a 56 25 21 31 32 3d  |   $T%=T$:V%!12=|
00003c80  54 25 3a 56 25 21 38 3d  56 25 21 38 84 31 3c 3c  |T%:V%!8=V%!8.1<<|
00003c90  38 3a 56 25 21 31 36 3d  2d 31 0d 14 78 05 cd 0d  |8:V%!16=-1..x...|
00003ca0  14 82 11 56 25 2b 3d 32  34 3a 3d 56 25 2d 32 34  |...V%+=24:=V%-24|
00003cb0  0d 14 8c 26 dd a4 45 53  56 4c 28 54 24 2c 56 24  |...&..ESVL(T$,V$|
00003cc0  2c 46 25 2c 4c 25 2c 53  25 29 3a 54 24 3d a4 4d  |,F%,L%,S%):T$=.M|
00003cd0  53 47 28 54 24 29 0d 14  96 30 24 28 56 25 2b 31  |SG(T$)...0$(V%+1|
00003ce0  32 29 3d c0 54 24 2c 31  31 29 3a 21 56 25 3d 46  |2)=.T$,11):!V%=F|
00003cf0  25 3a 56 25 21 34 3d 53  25 3a 56 25 21 38 3d 31  |%:V%!4=S%:V%!8=1|
00003d00  84 37 3c 3c 32 34 0d 14  a0 13 e7 28 21 56 25 80  |.7<<24.....(!V%.|
00003d10  34 29 84 4c 25 3e 31 31  8c 0d 14 aa 27 20 20 20  |4).L%>11....'   |
00003d20  56 25 21 32 30 3d 4c 25  2b 31 3a 54 25 3d 44 4d  |V%!20=L%+1:T%=DM|
00003d30  25 3a 44 4d 25 2b 3d 28  4c 25 2b 34 29 80 ac 33  |%:DM%+=(L%+4)..3|
00003d40  0d 14 b4 25 20 20 20 24  54 25 3d 54 24 3a 56 25  |...%   $T%=T$:V%|
00003d50  21 31 32 3d 54 25 3a 56  25 21 38 3d 56 25 21 38  |!12=T%:V%!8=V%!8|
00003d60  84 31 3c 3c 38 0d 14 be  3c 20 20 20 e7 56 24 3d  |.1<<8...<   .V$=|
00003d70  22 22 56 25 21 31 36 3d  2d 31 8b 54 25 3d 44 4d  |""V%!16=-1.T%=DM|
00003d80  25 3a 44 4d 25 2b 3d 28  a9 56 24 2b 34 29 80 ac  |%:DM%+=(.V$+4)..|
00003d90  33 3a 24 54 25 3d 56 24  3a 56 25 21 31 36 3d 54  |3:$T%=V$:V%!16=T|
00003da0  25 0d 14 c8 05 cd 0d 14  d2 11 56 25 2b 3d 32 34  |%.........V%+=24|
00003db0  3a 3d 56 25 2d 32 34 0d  14 dc 04 0d 14 e6 43 dd  |:=V%-24.......C.|
00003dc0  a4 56 61 72 56 61 6c 28  4e 24 29 ea 46 25 3a c8  |.VarVal(N$).F%:.|
00003dd0  99 22 58 4f 53 5f 52 65  61 64 56 61 72 56 61 6c  |."XOS_ReadVarVal|
00003de0  22 2c 4e 24 2c 42 25 2c  32 35 35 b8 2c 2c 46 25  |",N$,B%,255.,,F%|
00003df0  3a 42 25 3f 46 25 3d 26  44 3a 3d 24 42 25 0d 14  |:B%?F%=&D:=$B%..|
00003e00  f0 04 0d 14 fa 0e dd f2  4d 65 73 73 28 43 24 29  |........Mess(C$)|
00003e10  0d 15 04 2d 43 25 3d 8e  43 24 3a e7 43 25 8b 85  |...-C%=.C$:.C%..|
00003e20  30 2c 22 43 61 6e 6e 6f  74 20 66 69 6e 64 20 6d  |0,"Cannot find m|
00003e30  65 73 73 61 67 65 73 20  66 69 6c 65 22 0d 15 0e  |essages file"...|
00003e40  14 de 4d 53 25 a2 23 43  25 3a 4d 45 25 3d 4d 53  |..MS%.#C%:ME%=MS|
00003e50  25 0d 15 18 0b c8 95 ac  c5 23 43 25 0d 15 22 2c  |%........#C%..",|
00003e60  20 43 24 3d be 23 43 25  3a e7 c0 43 24 2c 31 29  | C$=.#C%:..C$,1)|
00003e70  3c 3e 22 23 22 3a 24 4d  45 25 3d 43 24 3a 4d 45  |<>"#":$ME%=C$:ME|
00003e80  25 2b 3d a9 43 24 2b 31  0d 15 2c 0a ce 3a d9 23  |%+=.C$+1..,..:.#|
00003e90  43 25 0d 15 36 05 e1 0d  15 40 04 0d 15 4a 21 dd  |C%..6....@...J!.|
00003ea0  a4 4d 53 47 28 54 24 29  3a e7 c0 54 24 2c 31 29  |.MSG(T$):..T$,1)|
00003eb0  3d 22 21 22 3a 3d c1 54  24 2c 32 29 0d 15 54 17  |="!":=.T$,2)..T.|
00003ec0  ea 50 25 2c 46 25 2c 49  25 2c 43 24 3a 50 25 3d  |.P%,F%,I%,C$:P%=|
00003ed0  4d 53 25 0d 15 5e 10 c8  95 50 25 3c 4d 45 25 80  |MS%..^...P%<ME%.|
00003ee0  ac 46 25 0d 15 68 21 20  43 24 3d 24 50 25 3a 50  |.F%..h! C$=$P%:P|
00003ef0  25 2b 3d a9 43 24 2b 31  3a 49 25 3d a7 43 24 2c  |%+=.C$+1:I%=.C$,|
00003f00  22 3a 22 29 0d 15 72 28  20 e7 49 25 3a e7 c0 43  |":")..r( .I%:..C|
00003f10  24 2c 49 25 2d 31 29 3d  54 24 3a 43 24 3d c1 43  |$,I%-1)=T$:C$=.C|
00003f20  24 2c 49 25 2b 31 29 3a  46 25 3d b9 0d 15 7c 05  |$,I%+1):F%=...|.|
00003f30  ce 0d 15 86 3b e7 46 25  8b 85 20 30 2c 22 43 61  |....;.F%.. 0,"Ca|
00003f40  6e 27 74 20 67 65 74 20  6d 65 73 73 61 67 65 20  |n't get message |
00003f50  27 22 2b 54 24 2b 22 27  20 66 72 6f 6d 20 6d 65  |'"+T$+"' from me|
00003f60  73 73 61 67 65 73 20 66  69 6c 65 22 0d 15 90 07  |ssages file"....|
00003f70  3d 43 24 0d 15 9a 04 0d  15 a4 14 dd f2 50 73 65  |=C$..........Pse|
00003f80  75 64 6f 4c 6f 61 64 28  46 24 29 0d 15 ae 45 c8  |udoLoad(F$)...E.|
00003f90  99 22 4f 53 5f 46 69 6c  65 22 2c 35 2c 46 24 20  |."OS_File",5,F$ |
00003fa0  b8 20 4f 25 2c 2c 54 25  2c 2c 4c 25 3a e7 4f 25  |. O%,,T%,,L%:.O%|
00003fb0  3c 3e 31 85 31 2c 22 43  61 6e 27 74 20 66 69 6e  |<>1.1,"Can't fin|
00003fc0  64 20 66 69 6c 6d 20 27  22 2b 46 24 2b 22 27 22  |d film '"+F$+"'"|
00003fd0  0d 15 b8 0b 46 48 25 3d  8e 46 24 0d 15 c2 2c cf  |....FH%=.F$...,.|
00003fe0  23 46 48 25 3d 31 36 3a  53 25 3d a4 52 65 61 64  |#FH%=16:S%=.Read|
00003ff0  57 6f 72 64 28 46 48 25  29 3a cf 23 46 48 25 3d  |Word(FH%):.#FH%=|
00004000  53 25 3a 43 25 3d 30 0d  15 cc 1e 4e 46 25 3d a4  |S%:C%=0....NF%=.|
00004010  52 65 61 64 57 6f 72 64  28 46 48 25 29 3a 4d 46  |ReadWord(FH%):MF|
00004020  25 3d 4e 46 25 0d 15 d6  45 c8 95 4e 46 25 3a 43  |%=NF%...E..NF%:C|
00004030  25 2b 3d 31 3a cf 23 46  48 25 3d 8f 23 46 48 25  |%+=1:.#FH%=.#FH%|
00004040  2b 4e 46 25 2d 34 3a 4e  46 25 3d a4 52 65 61 64  |+NF%-4:NF%=.Read|
00004050  57 6f 72 64 28 46 48 25  29 3a e7 4d 46 25 3c 4e  |Word(FH%):.MF%<N|
00004060  46 25 3a 4d 46 25 3d 4e  46 25 0d 15 e0 05 ce 0d  |F%:MF%=NF%......|
00004070  15 ea 11 4c 25 3d 53 25  2b 31 36 2a 43 25 2b 34  |...L%=S%+16*C%+4|
00004080  0d 15 f4 35 4d 4d 25 3d  a4 41 6c 6c 6f 63 28 4c  |...5MM%=.Alloc(L|
00004090  25 2b 4d 46 25 29 3a 4d  25 3d 4d 4d 25 3a f2 52  |%+MF%):M%=MM%:.R|
000040a0  65 61 64 42 79 74 65 73  28 46 48 25 2c 30 2c 53  |eadBytes(FH%,0,S|
000040b0  25 2c 4d 25 29 0d 15 fe  24 43 54 25 3d a4 41 6c  |%,M%)...$CT%=.Al|
000040c0  6c 6f 63 28 32 36 34 29  3a 43 50 25 3d 30 3a 21  |loc(264):CP%=0:!|
000040d0  43 54 25 3d 4d 25 21 32  38 0d 16 08 28 cf 23 46  |CT%=M%!28...(.#F|
000040e0  48 25 3d 53 25 3a 4e 46  25 3d a4 52 65 61 64 57  |H%=S%:NF%=.ReadW|
000040f0  6f 72 64 28 46 48 25 29  3a 49 25 3d 4d 25 2b 53  |ord(FH%):I%=M%+S|
00004100  25 0d 16 12 36 c8 95 4e  46 25 3a 21 49 25 3d 31  |%...6..NF%:!I%=1|
00004110  36 3a 49 25 21 34 3d 8f  23 46 48 25 2d 34 3a 49  |6:I%!4=.#FH%-4:I|
00004120  25 21 38 3d 4e 46 25 3a  49 25 21 31 32 3d 31 36  |%!8=NF%:I%!12=16|
00004130  3a 49 25 2b 3d 31 36 0d  16 1c 2a cf 23 46 48 25  |:I%+=16...*.#FH%|
00004140  3d 8f 23 46 48 25 2b 4e  46 25 2d 34 3a 4e 46 25  |=.#FH%+NF%-4:NF%|
00004150  3d a4 52 65 61 64 57 6f  72 64 28 46 48 25 29 3a  |=.ReadWord(FH%):|
00004160  ce 0d 16 26 15 21 49 25  3d 30 3a 42 42 25 3d 49  |...&.!I%=0:BB%=I|
00004170  25 2b 34 2d 4d 25 0d 16  30 05 e1 0d 16 3a 04 0d  |%+4-M%..0....:..|
00004180  16 44 3a dd f2 52 65 61  64 42 79 74 65 73 28 46  |.D:..ReadBytes(F|
00004190  48 25 2c 4f 25 2c 53 25  2c 41 25 29 3a c8 99 22  |H%,O%,S%,A%):.."|
000041a0  4f 53 5f 47 42 50 42 22  2c 33 2c 46 48 25 2c 41  |OS_GBPB",3,FH%,A|
000041b0  25 2c 53 25 2c 4f 25 3a  e1 0d 16 4e 04 0d 16 58  |%,S%,O%:...N...X|
000041c0  36 dd a4 52 65 61 64 57  6f 72 64 28 46 48 25 29  |6..ReadWord(FH%)|
000041d0  3d 9a 23 46 48 25 84 9a  23 46 48 25 3c 3c 38 84  |=.#FH%..#FH%<<8.|
000041e0  9a 23 46 48 25 3c 3c 31  36 84 9a 23 46 48 25 3c  |.#FH%<<16..#FH%<|
000041f0  3c 32 34 0d 16 62 04 0d  16 6c 13 dd f2 45 58 28  |<24..b...l...EX(|
00004200  f8 20 44 25 2c f8 20 43  25 29 0d 16 76 28 f2 52  |. D%,. C%)..v(.R|
00004210  65 61 64 42 79 74 65 73  28 4b 25 21 36 30 2c 44  |eadBytes(K%!60,D|
00004220  25 21 34 2c 44 25 21 38  2c 4d 25 2b 4b 25 21 36  |%!4,D%!8,M%+K%!6|
00004230  34 29 0d 16 80 26 c8 99  45 58 25 2c 4d 25 21 33  |4)...&..EX%,M%!3|
00004240  32 2c 4d 25 2b 4b 25 21  36 34 2c 43 25 2c 4d 25  |2,M%+K%!64,C%,M%|
00004250  21 34 30 b8 2c 2c 43 25  0d 16 8a 0b 44 25 2b 3d  |!40.,,C%....D%+=|
00004260  21 44 25 0d 16 94 05 e1  0d 16 9e 04 0d 16 a8 2f  |!D%............/|
00004270  dd f2 45 4e 44 3a 4b 25  3d 21 52 25 3a c8 95 4b  |..END:K%=!R%:..K|
00004280  25 3a e7 4b 25 21 36 30  3c 3e 30 80 4b 25 21 33  |%:.K%!60<>0.K%!3|
00004290  36 3d 4b 25 d9 23 4b 25  21 36 30 0d 16 b2 18 e7  |6=K%.#K%!60.....|
000042a0  4b 25 21 37 32 3a c8 99  49 53 25 2b 34 2c 4b 25  |K%!72:..IS%+4,K%|
000042b0  21 37 32 0d 16 bc 0c 4b  25 3d 21 4b 25 3a ce 0d  |!72....K%=!K%:..|
000042c0  16 c6 1d c8 99 22 4f 53  5f 4d 6f 64 75 6c 65 22  |....."OS_Module"|
000042d0  2c 37 2c 2c 4e 65 77 4d  6f 64 65 25 0d 16 d0 0b  |,7,,NewMode%....|
000042e0  c8 99 49 53 25 2b 32 0d  16 da 05 e0 0d 16 e4 04  |..IS%+2.........|
000042f0  0d 16 ee 10 dd f2 49 4c  61 73 74 46 72 61 6d 65  |......ILastFrame|
00004300  0d 16 f8 15 e7 44 50 54  52 25 3c 3e 4d 25 2b 4d  |.....DPTR%<>M%+M|
00004310  25 21 31 36 8c 0d 17 02  1f 44 50 54 52 25 2d 3d  |%!16.....DPTR%-=|
00004320  44 50 54 52 25 21 2d 34  3a 69 44 25 2d 3d 69 44  |DPTR%!-4:iD%-=iD|
00004330  25 21 2d 34 0d 17 0c 11  e7 28 4d 25 21 33 36 80  |%!-4.....(M%!36.|
00004340  33 29 3d 30 8c 0d 17 16  38 20 20 e7 44 50 54 52  |3)=0....8  .DPTR|
00004350  25 3d 4d 25 2b 4d 25 21  31 36 3a c8 95 21 44 50  |%=M%+M%!16:..!DP|
00004360  54 52 25 3a 44 50 54 52  25 2b 3d 21 44 50 54 52  |TR%:DPTR%+=!DPTR|
00004370  25 3a 69 44 25 2b 3d 21  69 44 25 3a ce 0d 17 20  |%:iD%+=!iD%:... |
00004380  2c 20 20 44 50 54 52 25  2d 3d 44 50 54 52 25 21  |,  DPTR%-=DPTR%!|
00004390  2d 34 3a 69 44 25 2d 3d  69 44 25 21 2d 34 3a f2  |-4:iD%-=iD%!-4:.|
000043a0  4e 65 78 74 46 72 61 6d  65 0d 17 2a 05 cc 0d 17  |NextFrame..*....|
000043b0  34 16 20 20 e7 44 50 54  52 25 3d 4d 25 2b 4d 25  |4.  .DPTR%=M%+M%|
000043c0  21 31 36 8c 0d 17 3e 40  20 20 44 50 54 52 25 2b  |!16...>@  DPTR%+|
000043d0  3d 21 44 50 54 52 25 3a  69 44 25 2b 3d 21 69 44  |=!DPTR%:iD%+=!iD|
000043e0  25 3a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |%:.."Hourglass_O|
000043f0  6e 22 3a c8 95 21 28 44  50 54 52 25 2b 21 44 50  |n":..!(DPTR%+!DP|
00004400  54 52 25 29 0d 17 48 2e  20 20 f2 4e 65 77 46 72  |TR%)..H.  .NewFr|
00004410  61 6d 65 3a ce 3a c8 99  22 48 6f 75 72 67 6c 61  |ame:.:.."Hourgla|
00004420  73 73 5f 4f 66 66 22 3a  f2 4e 65 78 74 46 72 61  |ss_Off":.NextFra|
00004430  6d 65 0d 17 52 07 20 20  cc 0d 17 5c 4e 20 20 f2  |me..R.  ...\N  .|
00004440  4e 65 78 74 46 72 61 6d  65 3a 4b 25 21 31 32 3d  |NextFrame:K%!12=|
00004450  44 50 54 52 25 2d 44 50  54 52 25 21 2d 34 3a 4b  |DPTR%-DPTR%!-4:K|
00004460  25 21 37 36 3d 69 44 25  2d 69 44 25 21 2d 34 3a  |%!76=iD%-iD%!-4:|
00004470  e7 4b 25 21 31 32 3d 4d  25 2b 4d 25 21 31 36 3a  |.K%!12=M%+M%!16:|
00004480  4b 25 21 31 36 3d 30 0d  17 66 07 20 20 cd 0d 17  |K%!16=0..f.  ...|
00004490  70 05 cd 0d 17 7a 05 cd  0d 17 84 05 e1 0d 17 8e  |p....z..........|
000044a0  04 0d 17 98 0c dd f2 49  53 6f 75 6e 64 0d 17 a2  |.......ISound...|
000044b0  22 c8 99 49 53 25 2b 35  2c 4b 25 21 37 32 2c 4b  |"..IS%+5,K%!72,K|
000044c0  25 21 37 36 2d 21 28 4b  25 21 37 36 2d 34 29 0d  |%!76-!(K%!76-4).|
000044d0  17 ac 05 e1 0d 17 b6 04  0d 17 c0 14 dd a4 47 65  |..............Ge|
000044e0  74 4d 6f 64 65 53 74 72  28 4d 25 29 0d 17 ca 5e  |tModeStr(M%)...^|
000044f0  3d 22 58 22 2b a4 53 57  28 4d 25 29 2b 22 20 59  |="X"+.SW(M%)+" Y|
00004500  22 2b a4 53 48 28 4d 25  29 2b 22 20 22 2b a4 43  |"+.SH(M%)+" "+.C|
00004510  6f 6c 6f 75 72 73 28 4d  25 29 2b 22 20 45 58 22  |olours(M%)+" EX"|
00004520  2b a4 45 58 28 4d 25 29  2b 22 20 45 59 22 2b a4  |+.EX(M%)+" EY"+.|
00004530  45 59 28 4d 25 29 2b 22  20 46 22 2b a4 46 72 61  |EY(M%)+" F"+.Fra|
00004540  6d 65 52 61 74 65 28 4d  25 29 0d 17 d4 04 0d 17  |meRate(M%)......|
00004550  de 11 dd f2 4e 65 77 4d  6f 64 65 28 4d 25 29 0d  |....NewMode(M%).|
00004560  17 e8 08 ea 20 4d 24 0d  17 f2 33 e7 4d 25 80 31  |.... M$...3.M%.1|
00004570  8b 85 31 2c 22 4d 6f 64  65 20 76 61 6c 75 65 20  |..1,"Mode value |
00004580  73 74 6f 72 65 64 20 69  6e 20 66 69 6c 6d 20 69  |stored in film i|
00004590  73 20 69 6c 6c 65 67 61  6c 22 0d 17 fc 16 4d 24  |s illegal"....M$|
000045a0  3d a4 47 65 74 4d 6f 64  65 53 74 72 28 4d 25 29  |=.GetModeStr(M%)|
000045b0  0d 18 06 08 eb 20 4d 24  0d 18 10 05 e1 0d 18 1a  |..... M$........|
000045c0  04 0d 18 24 0c dd a4 53  57 28 4d 25 29 0d 18 2e  |...$...SW(M%)...|
000045d0  16 3d c3 28 31 2b a4 4d  56 61 72 28 2d 31 2c 31  |.=.(1+.MVar(-1,1|
000045e0  31 29 29 0d 18 38 04 0d  18 42 0c dd a4 53 48 28  |1))..8...B...SH(|
000045f0  4d 25 29 0d 18 4c 16 3d  c3 28 31 2b a4 4d 56 61  |M%)..L.=.(1+.MVa|
00004600  72 28 2d 31 2c 31 32 29  29 0d 18 56 04 0d 18 60  |r(-1,12))..V...`|
00004610  11 dd a4 43 6f 6c 6f 75  72 73 28 4d 25 29 0d 18  |...Colours(M%)..|
00004620  6a 07 ea 43 24 0d 18 74  12 c8 8e a4 4d 56 61 72  |j..C$..t....MVar|
00004630  28 4d 25 2c 39 29 ca 0d  18 7e 0e c9 30 3a 43 24  |(M%,9)...~..0:C$|
00004640  3d 22 47 32 22 0d 18 88  0e c9 31 3a 43 24 3d 22  |="G2".....1:C$="|
00004650  47 34 22 0d 18 92 0f c9  32 3a 43 24 3d 22 43 31  |G4".....2:C$="C1|
00004660  36 22 0d 18 9c 10 c9 33  3a 43 24 3d 22 43 32 35  |6".....3:C$="C25|
00004670  36 22 0d 18 a6 10 c9 34  3a 43 24 3d 22 43 33 32  |6".....4:C$="C32|
00004680  4b 22 0d 18 b0 10 c9 35  3a 43 24 3d 22 43 31 36  |K".....5:C$="C16|
00004690  4d 22 0d 18 ba 05 7f 0d  18 c4 2d 85 31 2c 22 54  |M"........-.1,"T|
000046a0  6f 6f 20 6d 61 6e 79 20  63 6f 6c 6f 75 72 73 20  |oo many colours |
000046b0  69 6e 20 74 68 69 73 20  73 63 72 65 65 6e 20 6d  |in this screen m|
000046c0  6f 64 65 22 0d 18 ce 05  cb 0d 18 d8 07 3d 43 24  |ode".........=C$|
000046d0  0d 18 e2 04 0d 18 ec 0c  dd a4 45 58 28 4d 25 29  |..........EX(M%)|
000046e0  0d 18 f6 13 3d c3 28 a4  4d 56 61 72 28 4d 25 2c  |....=.(.MVar(M%,|
000046f0  34 29 29 0d 19 00 04 0d  19 0a 0c dd a4 45 59 28  |4))..........EY(|
00004700  4d 25 29 0d 19 14 13 3d  c3 28 a4 4d 56 61 72 28  |M%)....=.(.MVar(|
00004710  4d 25 2c 35 29 29 0d 19  1e 04 0d 19 28 13 dd a4  |M%,5))......(...|
00004720  46 72 61 6d 65 52 61 74  65 28 4d 25 29 0d 19 32  |FrameRate(M%)..2|
00004730  08 4d 25 3d eb 0d 19 3c  0d 3d c3 28 4d 25 21 31  |.M%=...<.=.(M%!1|
00004740  36 29 0d 19 46 04 0d 19  50 04 0d 19 5a 0d dd a4  |6)..F...P...Z...|
00004750  47 65 74 4d 6f 64 65 0d  19 64 0a ea 49 25 2c 4d  |GetMode..d..I%,M|
00004760  25 0d 19 6e 08 4d 25 3d  eb 0d 19 78 0c e7 4d 25  |%..n.M%=...x..M%|
00004770  3c 32 35 36 8c 0d 19 82  07 3d 4d 25 0d 19 8c 05  |<256.....=M%....|
00004780  cc 0d 19 96 15 20 3d a4  47 65 74 4d 28 4e 65 77  |..... =.GetM(New|
00004790  4d 6f 64 65 25 29 0d 19  a0 05 cd 0d 19 aa 04 0d  |Mode%)..........|
000047a0  19 b4 11 dd a4 47 65 74  57 69 6d 70 4d 6f 64 65  |.....GetWimpMode|
000047b0  0d 19 be 0a ea 49 25 2c  4d 25 0d 19 c8 08 4d 25  |.....I%,M%....M%|
000047c0  3d eb 0d 19 d2 07 3d 4d  25 0d 19 dc 0c e7 4d 25  |=.....=M%.....M%|
000047d0  3c 32 35 36 8c 0d 19 e6  07 3d 4d 25 0d 19 f0 05  |<256.....=M%....|
000047e0  cc 0d 19 fa 16 20 3d a4  47 65 74 4d 28 57 69 6d  |..... =.GetM(Wim|
000047f0  70 4d 6f 64 65 25 29 0d  1a 04 05 cd 0d 1a 0e 04  |pMode%).........|
00004800  0d 1a 18 10 dd a4 47 65  74 4d 28 42 6c 6b 25 29  |......GetM(Blk%)|
00004810  0d 1a 22 0a ea 49 25 2c  4d 25 0d 1a 2c 08 4d 25  |.."..I%,M%..,.M%|
00004820  3d eb 0d 1a 36 0e e3 49  25 3d 30 b8 31 36 88 34  |=...6..I%=0.16.4|
00004830  0d 1a 40 12 20 42 6c 6b  25 21 49 25 3d 4d 25 21  |..@. Blk%!I%=M%!|
00004840  49 25 0d 1a 4a 05 ed 0d  1a 54 09 49 25 3d 32 30  |I%..J....T.I%=20|
00004850  0d 1a 5e 0f c8 95 4d 25  21 49 25 3c 3e 2d 31 0d  |..^...M%!I%<>-1.|
00004860  1a 68 12 20 42 6c 6b 25  21 49 25 3d 4d 25 21 49  |.h. Blk%!I%=M%!I|
00004870  25 0d 1a 72 0a 20 49 25  2b 3d 34 0d 1a 7c 12 20  |%..r. I%+=4..|. |
00004880  42 6c 6b 25 21 49 25 3d  4d 25 21 49 25 0d 1a 86  |Blk%!I%=M%!I%...|
00004890  0a 20 49 25 2b 3d 34 0d  1a 90 05 ce 0d 1a 9a 09  |. I%+=4.........|
000048a0  3d 42 6c 6b 25 0d 1a a4  04 0d 1a ae 17 dd a4 4d  |=Blk%..........M|
000048b0  6f 64 65 73 45 71 75 61  6c 28 4d 25 2c 4e 25 29  |odesEqual(M%,N%)|
000048c0  0d 1a b8 13 e7 4d 25 3d  2d 31 84 4e 25 3d 2d 31  |.....M%=-1.N%=-1|
000048d0  8c 3d a3 0d 1a c2 13 e7  4d 25 3c 32 35 36 80 4e  |.=......M%<256.N|
000048e0  25 3c 32 35 36 8c 0d 1a  cc 0a 3d 4d 25 3d 4e 25  |%<256.....=M%=N%|
000048f0  0d 1a d6 05 cc 0d 1a e0  4c 3d a4 4d 56 61 72 28  |........L=.MVar(|
00004900  4d 25 2c 34 29 3d a4 4d  56 61 72 28 4e 25 2c 34  |M%,4)=.MVar(N%,4|
00004910  29 80 a4 4d 56 61 72 28  4d 25 2c 35 29 3d a4 4d  |)..MVar(M%,5)=.M|
00004920  56 61 72 28 4e 25 2c 35  29 80 a4 4d 56 61 72 28  |Var(N%,5)..MVar(|
00004930  4d 25 2c 39 29 3d a4 4d  56 61 72 28 4e 25 2c 39  |M%,9)=.MVar(N%,9|
00004940  29 0d 1a ea 05 cd 0d 1a  f4 04 0d 1a fe 12 dd f2  |)...............|
00004950  57 69 6d 70 4d 6f 64 65  28 4d 25 29 0d 1b 08 0c  |WimpMode(M%)....|
00004960  e7 4d 25 3c 32 35 36 8c  0d 1b 12 18 20 c8 99 22  |.M%<256..... .."|
00004970  57 69 6d 70 5f 53 65 74  4d 6f 64 65 22 2c 4d 25  |Wimp_SetMode",M%|
00004980  0d 1b 1c 05 cc 0d 1b 26  21 20 ff 22 57 69 6d 70  |.......&! ."Wimp|
00004990  4d 6f 64 65 20 22 2b a4  47 65 74 4d 6f 64 65 53  |Mode "+.GetModeS|
000049a0  74 72 28 4d 25 29 0d 1b  30 05 cd 0d 1b 3a 05 e1  |tr(M%)..0....:..|
000049b0  0d 1b 44 04 0d 1b 4e 13  dd f2 42 61 63 6b 54 6f  |..D...N...BackTo|
000049c0  44 65 73 6b 74 6f 70 0d  1b 58 1a f4 53 59 53 22  |Desktop..X..SYS"|
000049d0  57 69 6d 70 5f 53 65 74  4d 6f 64 65 22 2c 57 4d  |Wimp_SetMode",WM|
000049e0  25 0d 1b 62 1b c8 99 22  57 69 6d 70 5f 50 72 6f  |%..b..."Wimp_Pro|
000049f0  63 65 73 73 4b 65 79 22  2c 34 36 30 0d 1b 6c 10  |cessKey",460..l.|
00004a00  c8 99 36 2c 26 39 39 2c  30 2c 31 33 0d 1b 76 38  |..6,&99,0,13..v8|
00004a10  f4 20 49 66 20 79 6f 75  27 72 65 20 72 65 61 64  |. If you're read|
00004a20  69 6e 67 20 74 68 69 73  20 61 6e 64 20 74 68 69  |ing this and thi|
00004a30  6e 6b 69 6e 67 20 74 68  61 74 20 74 68 69 73 20  |nking that this |
00004a40  69 73 20 61 0d 1b 80 35  f4 20 74 65 72 72 69 62  |is a...5. terrib|
00004a50  6c 65 20 62 6f 64 67 65  20 74 68 65 6e 20 79 6f  |le bodge then yo|
00004a60  75 20 61 72 65 20 74 68  69 6e 6b 69 6e 67 20 63  |u are thinking c|
00004a70  6f 72 72 65 63 74 6c 79  2e 0d 1b 8a 36 f4 20 49  |orrectly....6. I|
00004a80  6e 20 6d 79 20 64 65 66  65 6e 63 65 2c 20 49 20  |n my defence, I |
00004a90  77 6f 75 6c 64 20 73 61  79 20 74 68 61 74 20 69  |would say that i|
00004aa0  74 20 73 65 65 6d 73 20  74 6f 20 77 6f 72 6b 0d  |t seems to work.|
00004ab0  1b 94 3b f4 20 6d 6f 72  65 20 72 65 6c 69 61 62  |..;. more reliab|
00004ac0  6c 79 20 74 68 61 6e 20  61 6e 79 20 6f 74 68 65  |ly than any othe|
00004ad0  72 20 6d 65 74 68 6f 64  20 73 6f 20 66 61 72 20  |r method so far |
00004ae0  63 6f 6e 74 72 69 76 65  64 21 0d 1b 9e 05 e1 0d  |contrived!......|
00004af0  1b a8 04 0d ff                                    |.....|
00004af5