� ><PrintEmul$Dir>.!RunImage
� A printer FX emulator
H� By John TYTGAT, Brusselbaan 445, B-1600 St.-Pieters-Leeuw, Belgium
(?� � BASS 1991 (Belgian Archimedes Software-writers Society)
2:
<"Version$="v1.02 (21-Apr-1991)"
F:
P� � �error(�,�$):�diehard
Z:
d�initialise
n5ș "OS_GetEnv" � filename$:i%=�filename$,"-quit")
x5i%=�filename$,"""",i%+1):i%=�filename$,"""",i%+1)
�filename$=�filename$,i%+1)
�2ȕ �filename$,1)=" ":filename$=�filename$,2):�
��read_templates
��setup_menu
��setup_icon_right
�� filename$<>"" �load
�� � �error(�,�$):�die
��
�`  � Multitask% � Multitasking% ș "Wimp_Poll",%1110001000,q% � a% � ș "Wimp_Poll",1,q% � a%
�
  Ȏ a% �
�    � 0 : �emulate
�%             � �(Multitasking%) �
�/                �end_emulate:�update_window

c                q%!256=MainHandle%:ș "Wimp_GetWindowInfo",,q%+256:ș "Wimp_OpenWindow",,q%+256

-                � In% ș "XHourglass_Off"

               �

">    � 1 : � Multitasking% �redraw_windowM � �redraw_window

,&    � 2 : ș "Wimp_OpenWindow",,q%

6'    � 3 : ș "Wimp_CloseWindow",,q%

@I    � 4 : � Multitasking% � !q%=MainHandle% ș "XHourglass_Off":In%=�

JH    � 5 : � Multitasking% � !q%=MainHandle% ș "XHourglass_On":In%=�

T,    � 6 : � �(Multitasking%) �mouseclick

^    � 7 : �end_drag

h    � 8 : �process_key

r    � 9 : �menu_selection

|    � 17,18 : �receive

�    � 19 : �acknowledge

�  �

�� �

��

�:

���redraw_window

�&ș "Wimp_RedrawWindow",,q% � More%

�ȕ More%

�p  ș "OS_SpriteOp",564,H%,H%+16,q%!4-q%!20,-2526*YEig%*(Scale2%!4)�(Scale2%!12)+q%!16-q%!24,0,Scale2%,Trans%

�(  ș "Wimp_GetRectangle",,q% � More%

��

��

�:
��redraw_windowM
&ș "Wimp_RedrawWindow",,q% � More%
ȕ More%
&(  ș "Wimp_GetRectangle",,q% � More%
0�
:�
D:
N��menu_selection
X$ș "Wimp_GetPointerInfo",,q%+256
bAdjustClicked%=(q%!264)�1
l� MainMenu% �
v  � !q%=4 �clear
�3  � AdjustClicked% ș "Wimp_CreateMenu",,Menu2%
� �
�  Ȏ !q% �
�    � 1 : �clear
�:    � 2 : Multitask%=�(Multitask%):?Multi%=-Multitask%
�    � 3 : �die
�  �
�2  � AdjustClicked% ș "Wimp_CreateMenu",,Menu%
� �
��
�:
���clear
��� FileChanged% � �warning("One printerfile emulated but not saved in PrintEmul.  Do you still want to clear workspace ?")<>1 �
.FileLoaded%=�:Clear%?10=&40:FileChanged%=�
-!q%=MainHandle%:ș "Wimp_CloseWindow",,q%
#ș "Wimp_SlotSize",MainSize%,-1
 �
*:
4��end_drag
>� Leaf$
H ș "Wimp_GetPointerInfo",,q%
R0q%!20=q%!12:q%!24=q%!16:q%!28=!q%:q%!32=q%!4
\q%!36=624*1024:q%!40=&ff9
f;Leaf$=�search_leaf(�icon_getdata(q%+256,SaveHandle%,2))
p$(q%+44)=Leaf$+�0
z(!q%=(�(Leaf$)+48)�-4:q%!12=0:q%!16=1
�%ș "Wimp_SendMessage",18,q%,q%!20
��
�:
���process_key
�3� !q%<>ZoomHandle% ș "Wimp_ProcessKey",q%!24:�
�
Ȏ q%!4 �
�S  � 0 : � q%!24=13 � q%!24=&19D ș "Wimp_SetCaretPosition",ZoomHandle%,1,,,-1,1
�%  � 1 : � q%!24=13 � q%!24=&19D �
�?             Teller%=�(�icon_getdata(q%+256,ZoomHandle%,0))
�?             Noemer%=�(�icon_getdata(q%+256,ZoomHandle%,1))
�             �update_window
�C             q%!256=MainHandle%:ș "Wimp_GetWindowInfo",,q%+256
�-             ș "Wimp_OpenWindow",,q%+256
           �
K           � q%!24=&19C ș "Wimp_SetCaretPosition",ZoomHandle%,0,,,-1,1
�
$�
.:
8��initialise
B'� q% 560,ErrorBuffer% 256,Menu% 300
L$� Scale% 16,Scale2% 16,Trans% 16
VKș "Wimp_Initialise",200,&4B534154,"Printer FX Emulator" � ,TaskHandle%
`-ș "Wimp_SlotSize",-1,-1 � MainSize%:H%=�
j.FileLoaded%=�:Multitask%=�:Multitasking%=�
tFileChanged%=�:In%=�
~�asm
�:ș "OS_ReadModeVariable",-1,4 � ,,XEig%:XEig%=1<<XEig%
�:ș "OS_ReadModeVariable",-1,5 � ,,YEig%:YEig%=1<<YEig%
��
�:
���read_templates
�$� Temp% 1024:EndTemp%=Temp%+1024
�7ș "Wimp_OpenTemplate",,"<PrintEmul$Dir>.Templates"
�Cș "Wimp_LoadTemplate",,q%,Temp%,EndTemp%,-1,"Main",0 � ,,Temp%
�,ș "Wimp_CreateWindow",,q% � MainHandle%
�Gș "Wimp_LoadTemplate",,q%,Temp%,EndTemp%,-1,"progInfo",0 � ,,Temp%
�,ș "Wimp_CreateWindow",,q% � InfoHandle%
�Hș "Wimp_LoadTemplate",,q%,Temp%,EndTemp%,-1,"magnifier",0 � ,,Temp%
,ș "Wimp_CreateWindow",,q% � ZoomHandle%

Cș "Wimp_LoadTemplate",,q%,Temp%,EndTemp%,-1,"Save",0 � ,,Temp%
,ș "Wimp_CreateWindow",,q% � SaveHandle%
Dș "Wimp_LoadTemplate",,q%,Temp%,EndTemp%,-1,"about",0 � ,,Temp%
(-ș "Wimp_CreateWindow",,q% � AboutHandle%
2ș "Wimp_CloseTemplate"
<,�icon_putdata(q%,InfoHandle%,3,Version$)
F1�icon_putdata(q%,ZoomHandle%,0,"1"):Teller%=1
P1�icon_putdata(q%,ZoomHandle%,1,"4"):Noemer%=4
Z�
d:
n��setup_menu
xP%=Menu%:[OPT 2
�"EQUS "PrintEmul":EQUW 0:EQUB 0
�*EQUD &00070207:EQUD &98:EQUD 44:EQUD 0
�
�GEQUD 0  :EQUD InfoHandle%:EQUD &07000001:EQUS "Info" :EQUD 0:EQUD 0
�.Clear%
�NEQUD 0  :EQUD 0          :EQUD &07400001:EQUS "Clear":EQUW 0:EQUB 0:EQUD 0
�.Multi%
�KEQUD 1  :EQUD 0          :EQUD &07000001:EQUS "Multitask":EQUW 0:EQUB 0
�GEQUD &80:EQUD 0          :EQUD &07000001:EQUS "Quit" :EQUD 0:EQUD 0
�
�.Menu2%
�"EQUS "PrintEmul":EQUW 0:EQUB 0
�*EQUD &00070207:EQUD &70:EQUD 44:EQUD 0

HEQUD 0  :EQUD InfoHandle% :EQUD &07000001:EQUS "Info" :EQUD 0:EQUD 0
NEQUD 0  :EQUD AboutHandle%:EQUD &07000001:EQUS "About":EQUW 0:EQUB 0:EQUD0
"HEQUD 0  :EQUD SaveHandle% :EQUD &07000001:EQUS "Save" :EQUD 0:EQUD 0
,HEQUD 8  :EQUD ZoomHandle% :EQUD &07000001:EQUS "Zoom" :EQUD 0:EQUD 0
6NEQUD &80:EQUD 0           :EQUD &07000001:EQUS "Clear":EQUW 0:EQUB 0:EQUD0
@]
J:� P%-Menu%>300 �error(-1,"Menu runs out of length...")
T�
^:
h��setup_icon_right
r� Icons% 16
|q%!0=-1
�#q%!4=0:q%!8=0:q%!12=64:q%!16=68
�q%!20=&1700310A
�(q%!24=Icons%:$Icons%="!printemul"+�0
�$q%!28=1:q%!32=�("!printemul"+�0)
�)ș "Wimp_CreateIcon",,q% � IconBelow%
��
�:
���mouseclick
�Ȏ q%!12 �
�S  � MainHandle% : � q%!8=2 MainMenu%=�:ș "Wimp_CreateMenu",,Menu2%,!q%-64,q%!4
�:  � -2 : � q%!16=IconBelow% MainMenu%=�:�clicked_below
�  � ZoomHandle% :
�    Ȏ q%!16 �
G      � 2 : Teller%+=1:�icon_putdata(q%+256,ZoomHandle%,0,�Teller%)
'      � 3 : � Teller%<>1 Teller%-=1
?               �icon_putdata(q%+256,ZoomHandle%,0,�Teller%)
&G      � 4 : Noemer%+=1:�icon_putdata(q%+256,ZoomHandle%,1,�Noemer%)
0'      � 5 : � Noemer%<>1 Noemer%-=1
:?               �icon_putdata(q%+256,ZoomHandle%,1,�Noemer%)
D	    �
N    �update_window
X,  � SaveHandle% : � q%!16=1 � q%!8=&40 �
bL                       !q%=SaveHandle%:q%!4=1:ș "Wimp_GetIconState",,q%
lN                       q%!256=SaveHandle%:ș "Wimp_GetWindowState",,q%+256
vQ                       q%!8+=q%!260:q%!12+=q%!272:q%!16+=q%!260:q%!20+=q%!272
�1                       q%!4=5:q%!24=0:q%!28=0
�:                       q%!32=&7fffffff:q%!36=&7fffffff
�0                       ș "Wimp_DragBox",,q%
�                      �
�*                     � q%!16=3 �saveOK
��
��
�:
���update_window
�8ș "Wimp_ReadPixTrans",512,H%,H%+16,,,,Scale%,Trans%
� Scale2%!0=(Scale%!0)*Teller%
� Scale2%!4=(Scale%!4)*Teller%
� Scale2%!8=(Scale%!8)*Noemer%
"Scale2%!12=(Scale%!12)*Noemer%
8q%!256=0:q%!260=-2526*YEig%*(Scale2%!4)�(Scale2%!12)
5q%!264=1985*XEig%*(!Scale2%)�(Scale2%!8):q%!268=0
 *ș "Wimp_SetExtent",MainHandle%,q%+256
*Aș "Wimp_ForceRedraw",MainHandle%,q%!256,q%!260,q%!264,q%!268
4� FileLoaded% �
>9   q%!256=MainHandle%:ș "Wimp_GetWindowInfo",,q%+256
H   � FileChanged% �
R(      � Multitask% � Multitasking% �
\:         $(q%!(256+76))="Emulating '"+filename$+"'"+�0
f
        �
p;         $(q%!(256+76))="PrintEmul: "+filename$+" *"+�0
z       �
�
     �
�3      $(q%!(256+76))="PrintEmul: "+filename$+�0
�	    �
�$   ș "Wimp_CloseWindow",,q%+256
�#   ș "Wimp_OpenWindow",,q%+256
� �
��
�:
���clicked_below
�F� q%!16=IconBelow% � q%!8=2 ș "Wimp_CreateMenu",,Menu%,!q%-64,270
�r� q%!16=IconBelow% � q%!8=4 � FileLoaded% !q%=MainHandle%:ș "Wimp_GetWindowInfo",,q%:ș "Wimp_OpenWindow",,q%
��
�:
	
��receive
	Ȏ q%!16 �
	 � 0 : �die
	$ � 2 : �save
	.* � 3 : � q%!20=-2 � q%!24=IconBelow% �
	8+            filename$=�getstring(q%+44)
	B            �dataack:�load
	L           �
	V& � 5 : filename$=�getstring(q%+44)
	`6          ș "XOS_File",5,filename$ � ,,LoadAdres%
	j;          � (LoadAdres% � &FFF00)=&FF400 �dataack:�load
	t< � &400C0 : �icon_putdata(q%+256,ZoomHandle%,0,�Teller%)
	~?               �icon_putdata(q%+256,ZoomHandle%,1,�Noemer%)
	�=               ș "Wimp_CreateSubMenu",,q%!20,q%!24,q%!28
	�F � &400C1 : ș "OS_ReadModeVariable",-1,4 � ,,XEig%:XEig%=1<<XEig%
	�I               ș "OS_ReadModeVariable",-1,5 � ,,YEig%:YEig%=1<<YEig%
	�/               � FileLoaded% �update_window
	��
	��
	�:
	���acknowledge
	�Ȏ q%!16 �
	�  � 3 : � q%!12=q%!8 �
	�%             *REMOVE <Wimp$Scrap>
	�S             � 0,"Data transfer failed : Receiver died (No flowers by request)"
           �

�
�
:
(
��save
2� i%,i$
<� �
F� � � �error(-1,�$):� �:�
Pi%=0:i$=""
Z.ȕ q%?(44+i%)>31:i$+=�(q%?(44+i%)):i%+=1:�
dș "OS_SpriteOp",524,H%,i$
nq%!12=q%!8:q%!16=3
x$ș "Wimp_SendMessage",18,q%,q%!4
�&�icon_putdata(q%,SaveHandle%,2,i$)
�!FileChanged%=�:�update_window
�ș "Wimp_CreateMenu",,-1
�� �
��
�:
���saveOK
�� i$
�� �
�� � � �error(-1,�$):� �:�
� ș "Wimp_GetPointerInfo",,q%
�*i$=�icon_getdata(q%+256,SaveHandle%,2)
�V� �i$,".")=0 � �i$,":")=0 � 1,"To save, drag the file icon to a directory display"
ș "OS_SpriteOp",524,H%,i$
!FileChanged%=�:�update_window
%� q%!8=4 ș "Wimp_CreateMenu",,-1
"� �
,�
6:
@
��load
J� Check%,i%
TIș "XOS_File",5,filename$ � i%,,LoadAdres%,ExecutionAdres%,Length%,F%
^Ȏ i% �
hR  � 2 : �error(-1,"'"+filename$+"' is a directory and can not be loaded..."):�
r�
|U� (F%�1)=0 �error(-1,"You don't have read access for the file '"+filename$+"'"):�
�\� (LoadAdres% � &FFF00)<>&FF400 �error(-1,"Only 'PrintOut' files will be accepted..."):�
�5ș "Wimp_SlotSize",MainSize%+624*1024,-1 � Check%
��� MainSize%+624*1024>Check% ș "Wimp_SlotSize",MainSize%,-1:�error(-1,"I'm sorry, there is not enough memory to load this file.  Perhaps an 8 MByte memory board may be useful..."):�
�(!H%=624*1024:H%!4=0:H%!8=16:H%!12=16
�3ș "OS_SpriteOp",256+15,H%,"BASS",0,1985,2526,0
�"�begin_emulate:Multitasking%=�
�,FileLoaded%=�:Clear%?10=0:FileChanged%=�
��update_window
�Sq%!256=MainHandle%:ș "Wimp_GetWindowInfo",,q%+256:ș "Wimp_OpenWindow",,q%+256
�"� �(Multitask%) �not_multitask
�@�icon_putdata(q%+256,AboutHandle%,6,�search_leaf(filename$))
�1�icon_putdata(q%+256,AboutHandle%,7,�Length%)
��
:
��not_multitask
ș "XHourglass_On"
&ȕ Multitasking%
0  �emulate
:�
D�end_emulate
Nș "XHourglass_Off"
X�
b:
l��begin_emulate
v"QuadD%=�:DoubleD%=�:SingleD%=�
�File%=�(filename$)
�
Y%=0:X%=0
�LineFeed%=36
��
�:
���end_emulate
��#File%
�1�icon_putsprite(q%+256,AboutHandle%,3,QuadD%)
�3�icon_putsprite(q%+256,AboutHandle%,4,DoubleD%)
�3�icon_putsprite(q%+256,AboutHandle%,5,SingleD%)
��
�:
�
��emulate

6ș "XHourglass_Percentage",100*(�#File%) � Length%

B%=�#File%

Ȏ B% �

  � &C : Y%=2526

* � &D : X%=0

4 � &1B :

>   B%=�#File%

H   Ȏ B% �

R     � &32 : LineFeed%=36

\&     � &41 : LineFeed%=(�#File%)*3

f     � &4A : Y%+=�#File%

p:     � &5A : QuadD%=�:A%=X%:B%=Y%:C%=File%:� QuadDens%

z'     � &40 : Y%=0:X%=0:LineFeed%=36

�>     � &59 : DoubleD%=�:A%=X%:B%=Y%:C%=File%:� DoubleDens%

�>     � &4B : SingleD%=�:A%=X%:B%=Y%:C%=File%:� SingleDens%

�[      : �error(-1,"Emulation error 2 : &"+�~B%+" "+�34+�B%+�34+", PNTR at &"+�~�#A%):�

�   �

�G  : �error(-1,"Emulation error 1 : &"+�~B%+", PNTR at &"+�~�#A%):�

��

�'� �#File% � Y%>2525 Multitasking%=�

��

�:

�	��asm

�(CodeLength%=2048:� Code% CodeLength%

�� Pass%=0 � 2 �2

�P%=Code%:[OPT Pass%
  ;R0 = x coordinate
  ;R1 = y coordinate
  ;R2 = file handle
$.QuadDens%
.   STMFD R13!,{R14}
8   MOV R3,R0:MOV R6,R1
B(   MOV R1,R2:SWI "OS_BGet":MOV R5,R0
L'   SWI "OS_BGet":ADD R5,R5,R0,ASL#8
V.quad1%
`   SWI "OS_BGet"
j.   TST R0,#128:ADDNE R4,R6,#0 :BLNE Point%
t.   TST R0,#64 :ADDNE R4,R6,#3 :BLNE Point%
~.   TST R0,#32 :ADDNE R4,R6,#6 :BLNE Point%
�.   TST R0,#16 :ADDNE R4,R6,#9 :BLNE Point%
�.   TST R0,#8  :ADDNE R4,R6,#12:BLNE Point%
�.   TST R0,#4  :ADDNE R4,R6,#15:BLNE Point%
�.   TST R0,#2  :ADDNE R4,R6,#18:BLNE Point%
�.   TST R0,#1  :ADDNE R4,R6,#21:BLNE Point%
�   ADD R3,R3,#1
�   SUBS R5,R5,#1
�     BGT quad1%
�   LDMFD R13!,{PC}^
�.DoubleDens%
�   STMFD R13!,{R14}
�   MOV R3,R0:MOV R6,R1
(   MOV R1,R2:SWI "OS_BGet":MOV R5,R0

'   SWI "OS_BGet":ADD R5,R5,R0,ASL#8

.double1%
   SWI "OS_BGet"
(4   TST R0,#128:ADDNE R4,R6,#0 :BLNE DoublePoint%
24   TST R0,#64 :ADDNE R4,R6,#3 :BLNE DoublePoint%
<4   TST R0,#32 :ADDNE R4,R6,#6 :BLNE DoublePoint%
F4   TST R0,#16 :ADDNE R4,R6,#9 :BLNE DoublePoint%
P4   TST R0,#8  :ADDNE R4,R6,#12:BLNE DoublePoint%
Z4   TST R0,#4  :ADDNE R4,R6,#15:BLNE DoublePoint%
d4   TST R0,#2  :ADDNE R4,R6,#18:BLNE DoublePoint%
n4   TST R0,#1  :ADDNE R4,R6,#21:BLNE DoublePoint%
x   ADD R3,R3,#2
�   SUBS R5,R5,#1
�     BGT double1%
�   LDMFD R13!,{PC}^
�.DoublePoint%
�   MOV R12,R14
�   BL Point%
�   ADD R3,R3,#1:BL Point%
�   ADD R4,R4,#1:BL Point%
�A   SUB R3,R3,#1:BL Point%       ;R4 moet niet hersteld worden
�   MOV PC,R12
�.SingleDens%
�   STMFD R13!,{R14}
�   MOV R3,R0:MOV R6,R1
(   MOV R1,R2:SWI "OS_BGet":MOV R5,R0
'   SWI "OS_BGet":ADD R5,R5,R0,ASL#8

.single1%
"   SWI "OS_BGet"
,4   TST R0,#128:ADDNE R4,R6,#0 :BLNE SinglePoint%
64   TST R0,#64 :ADDNE R4,R6,#3 :BLNE SinglePoint%
@4   TST R0,#32 :ADDNE R4,R6,#6 :BLNE SinglePoint%
J4   TST R0,#16 :ADDNE R4,R6,#9 :BLNE SinglePoint%
T4   TST R0,#8  :ADDNE R4,R6,#12:BLNE SinglePoint%
^4   TST R0,#4  :ADDNE R4,R6,#15:BLNE SinglePoint%
h4   TST R0,#2  :ADDNE R4,R6,#18:BLNE SinglePoint%
r4   TST R0,#1  :ADDNE R4,R6,#21:BLNE SinglePoint%
|   ADD R3,R3,#4
�   SUBS R5,R5,#1
�     BGT single1%
�   LDMFD R13!,{PC}^
�.SinglePoint%
�   MOV R12,R14
�   BL Point%
�K   ADD R3,R3,#1:BL Point%:ADD R3,R3,#1:BL Point%:ADD R3,R3,#1:BL Point%
�   ADD R4,R4,#1
�   BL Point%
�K   SUB R3,R3,#1:BL Point%:SUB R3,R3,#1:BL Point%:SUB R3,R3,#1:BL Point%
�   ADD R4,R4,#1
�   BL Point%
�K   ADD R3,R3,#1:BL Point%:ADD R3,R3,#1:BL Point%:ADD R3,R3,#1:BL Point%
   SUB R3,R3,#3
   MOV PC,R12
  ;R3 = x coordinate
&  ;R4 = y coordinate
0".Point% STMFD R13!,{R2-R4,R14}
:        LDR R2,BeginSprite%
D        LDR R14,X_Breedte%
N        MLA R14,R4,R14,R2
X#        LDRB R4,[R14,R3,ASR#3]!
b        � R3,R3,#7
l        MOV R2,#1
v        �R R4,R4,R2,ASL R3
�        STRB R4,[R14]
�"        LDMFD R13!,{R2-R4,PC}^
�.BeginSprite% EQUD H%+16+44
�.X_Breedte%   EQUD 1985�8+4
�]:�
�F� P%>Code%+CodeLength% �error(-1,"ARM code runs out of length...")
��
�:
�ݤgetstring(x%)
�� x$
�
ȕ ?x%
�� ?x%<31 x$+=" " �x$+=�?x%
�x%+=1:�
=x$
:

��dataack
 /q%!12=q%!8:ș "Wimp_SendMessage",17,q%,q%!4
*�
4:
>��error(num%,error$)
Hș "Wimp_CloseTemplate"
R!ErrorBuffer%=num%
\d� num%=-1 $(ErrorBuffer%+4)=error$+�0 � $(ErrorBuffer%+4)=error$+" (internal error code "+Þ+")"
f4ș "Wimp_ReportError",ErrorBuffer%,0,"PrintEmul"
p�
z:
�ݤwarning(error$)
�� i%
�,!ErrorBuffer%=0:$(ErrorBuffer%+4)=error$
�Iș "Wimp_ReportError",ErrorBuffer%,&13,"Warning from PrintEmul" � ,i%
�=i%
�:
�	��die
�z� FileChanged% i%=�warning("One printerfile emulated but not saved in PrintEmul.  Do you still want to quit ?") � i%=1
�� i%=1 �diehard
�
:

��diehard
$-ș "Wimp_CloseDown",TaskHandle%,&4B534154
.�
8:
B.��icon_putdata(q%,whandle%,ihandle%,data$)
Lq%!0=whandle%:q%!4=ihandle%
Vș "Wimp_GetIconState",,q%
`$(q%!28)=data$
j9ș "Wimp_ForceRedraw",whandle%,q%!8,q%!12,q%!16,q%!20
t�
~:
�3��icon_putsprite(q%,whandle%,ihandle%,boolean%)
�q%!0=whandle%:q%!4=ihandle%
�ș "Wimp_GetIconState",,q%
�0� boolean% $(q%!32)="Syes" � $(q%!32)="Sno "
�9ș "Wimp_ForceRedraw",whandle%,q%!8,q%!12,q%!16,q%!20
��
�:
�(ݤicon_getdata(q%,whandle%,ihandle%)
�q%!0=whandle%
�q%!4=ihandle%
�ș "Wimp_GetIconState",,q%
�
=$(q%!28)
:

ݤsearch_leaf(f$)
� i%
i%=�(f$)
(�
2
 i%-=1
< � �f$,i%,1)="." � i%=0
F=�f$,i%+1)
�

00000000  0d 00 0a 20 f4 20 3e 3c  50 72 69 6e 74 45 6d 75  |... . ><PrintEmu|
00000010  6c 24 44 69 72 3e 2e 21  52 75 6e 49 6d 61 67 65  |l$Dir>.!RunImage|
00000020  0d 00 14 1b f4 20 41 20  70 72 69 6e 74 65 72 20  |..... A printer |
00000030  46 58 20 65 6d 75 6c 61  74 6f 72 0d 00 1e 48 f4  |FX emulator...H.|
00000040  20 42 79 20 4a 6f 68 6e  20 54 59 54 47 41 54 2c  | By John TYTGAT,|
00000050  20 42 72 75 73 73 65 6c  62 61 61 6e 20 34 34 35  | Brusselbaan 445|
00000060  2c 20 42 2d 31 36 30 30  20 53 74 2e 2d 50 69 65  |, B-1600 St.-Pie|
00000070  74 65 72 73 2d 4c 65 65  75 77 2c 20 42 65 6c 67  |ters-Leeuw, Belg|
00000080  69 75 6d 0d 00 28 3f f4  20 a9 20 42 41 53 53 20  |ium..(?. . BASS |
00000090  31 39 39 31 20 28 42 65  6c 67 69 61 6e 20 41 72  |1991 (Belgian Ar|
000000a0  63 68 69 6d 65 64 65 73  20 53 6f 66 74 77 61 72  |chimedes Softwar|
000000b0  65 2d 77 72 69 74 65 72  73 20 53 6f 63 69 65 74  |e-writers Societ|
000000c0  79 29 0d 00 32 05 3a 0d  00 3c 22 56 65 72 73 69  |y)..2.:..<"Versi|
000000d0  6f 6e 24 3d 22 76 31 2e  30 32 20 28 32 31 2d 41  |on$="v1.02 (21-A|
000000e0  70 72 2d 31 39 39 31 29  22 0d 00 46 05 3a 0d 00  |pr-1991)"..F.:..|
000000f0  50 1d ee 20 85 20 f2 65  72 72 6f 72 28 9f 2c f6  |P.. . .error(.,.|
00000100  24 29 3a f2 64 69 65 68  61 72 64 0d 00 5a 05 3a  |$):.diehard..Z.:|
00000110  0d 00 64 0f f2 69 6e 69  74 69 61 6c 69 73 65 0d  |..d..initialise.|
00000120  00 6e 35 c8 99 20 22 4f  53 5f 47 65 74 45 6e 76  |.n5.. "OS_GetEnv|
00000130  22 20 b8 20 66 69 6c 65  6e 61 6d 65 24 3a 69 25  |" . filename$:i%|
00000140  3d a7 66 69 6c 65 6e 61  6d 65 24 2c 22 2d 71 75  |=.filename$,"-qu|
00000150  69 74 22 29 0d 00 78 35  69 25 3d a7 66 69 6c 65  |it")..x5i%=.file|
00000160  6e 61 6d 65 24 2c 22 22  22 22 2c 69 25 2b 31 29  |name$,"""",i%+1)|
00000170  3a 69 25 3d a7 66 69 6c  65 6e 61 6d 65 24 2c 22  |:i%=.filename$,"|
00000180  22 22 22 2c 69 25 2b 31  29 0d 00 82 1e 66 69 6c  |""",i%+1)....fil|
00000190  65 6e 61 6d 65 24 3d c1  66 69 6c 65 6e 61 6d 65  |ename$=.filename|
000001a0  24 2c 69 25 2b 31 29 0d  00 8c 32 c8 95 20 c0 66  |$,i%+1)...2.. .f|
000001b0  69 6c 65 6e 61 6d 65 24  2c 31 29 3d 22 20 22 3a  |ilename$,1)=" ":|
000001c0  66 69 6c 65 6e 61 6d 65  24 3d c1 66 69 6c 65 6e  |filename$=.filen|
000001d0  61 6d 65 24 2c 32 29 3a  ce 0d 00 96 13 f2 72 65  |ame$,2):......re|
000001e0  61 64 5f 74 65 6d 70 6c  61 74 65 73 0d 00 a0 0f  |ad_templates....|
000001f0  f2 73 65 74 75 70 5f 6d  65 6e 75 0d 00 aa 15 f2  |.setup_menu.....|
00000200  73 65 74 75 70 5f 69 63  6f 6e 5f 72 69 67 68 74  |setup_icon_right|
00000210  0d 00 b4 19 e7 20 66 69  6c 65 6e 61 6d 65 24 3c  |..... filename$<|
00000220  3e 22 22 20 f2 6c 6f 61  64 0d 00 be 19 ee 20 85  |>"" .load..... .|
00000230  20 f2 65 72 72 6f 72 28  9f 2c f6 24 29 3a f2 64  | .error(.,.$):.d|
00000240  69 65 0d 00 c8 05 f5 0d  00 d2 60 20 20 e7 20 4d  |ie........`  . M|
00000250  75 6c 74 69 74 61 73 6b  25 20 80 20 4d 75 6c 74  |ultitask% . Mult|
00000260  69 74 61 73 6b 69 6e 67  25 20 c8 99 20 22 57 69  |itasking% .. "Wi|
00000270  6d 70 5f 50 6f 6c 6c 22  2c 25 31 31 31 30 30 30  |mp_Poll",%111000|
00000280  31 30 30 30 2c 71 25 20  b8 20 61 25 20 8b 20 c8  |1000,q% . a% . .|
00000290  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 31 2c  |. "Wimp_Poll",1,|
000002a0  71 25 20 b8 20 61 25 0d  00 dc 0d 20 20 c8 8e 20  |q% . a%....  .. |
000002b0  61 25 20 ca 0d 00 e6 16  20 20 20 20 c9 20 30 20  |a% .....    . 0 |
000002c0  3a 20 f2 65 6d 75 6c 61  74 65 0d 00 f0 25 20 20  |: .emulate...%  |
000002d0  20 20 20 20 20 20 20 20  20 20 20 e7 20 ac 28 4d  |           . .(M|
000002e0  75 6c 74 69 74 61 73 6b  69 6e 67 25 29 20 8c 0d  |ultitasking%) ..|
000002f0  00 fa 2f 20 20 20 20 20  20 20 20 20 20 20 20 20  |../             |
00000300  20 20 20 f2 65 6e 64 5f  65 6d 75 6c 61 74 65 3a  |   .end_emulate:|
00000310  f2 75 70 64 61 74 65 5f  77 69 6e 64 6f 77 0d 01  |.update_window..|
00000320  04 63 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.c              |
00000330  20 20 71 25 21 32 35 36  3d 4d 61 69 6e 48 61 6e  |  q%!256=MainHan|
00000340  64 6c 65 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |dle%:.. "Wimp_Ge|
00000350  74 57 69 6e 64 6f 77 49  6e 66 6f 22 2c 2c 71 25  |tWindowInfo",,q%|
00000360  2b 32 35 36 3a c8 99 20  22 57 69 6d 70 5f 4f 70  |+256:.. "Wimp_Op|
00000370  65 6e 57 69 6e 64 6f 77  22 2c 2c 71 25 2b 32 35  |enWindow",,q%+25|
00000380  36 0d 01 0e 2d 20 20 20  20 20 20 20 20 20 20 20  |6...-           |
00000390  20 20 20 20 20 e7 20 49  6e 25 20 c8 99 20 22 58  |     . In% .. "X|
000003a0  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 01  |Hourglass_Off"..|
000003b0  18 14 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
000003c0  20 cd 0d 01 22 3e 20 20  20 20 c9 20 31 20 3a 20  | ...">    . 1 : |
000003d0  e7 20 4d 75 6c 74 69 74  61 73 6b 69 6e 67 25 20  |. Multitasking% |
000003e0  f2 72 65 64 72 61 77 5f  77 69 6e 64 6f 77 4d 20  |.redraw_windowM |
000003f0  8b 20 f2 72 65 64 72 61  77 5f 77 69 6e 64 6f 77  |. .redraw_window|
00000400  0d 01 2c 26 20 20 20 20  c9 20 32 20 3a 20 c8 99  |..,&    . 2 : ..|
00000410  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000420  77 22 2c 2c 71 25 0d 01  36 27 20 20 20 20 c9 20  |w",,q%..6'    . |
00000430  33 20 3a 20 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |3 : .. "Wimp_Clo|
00000440  73 65 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 01 40  |seWindow",,q%..@|
00000450  49 20 20 20 20 c9 20 34  20 3a 20 e7 20 4d 75 6c  |I    . 4 : . Mul|
00000460  74 69 74 61 73 6b 69 6e  67 25 20 80 20 21 71 25  |titasking% . !q%|
00000470  3d 4d 61 69 6e 48 61 6e  64 6c 65 25 20 c8 99 20  |=MainHandle% .. |
00000480  22 58 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  |"XHourglass_Off"|
00000490  3a 49 6e 25 3d a3 0d 01  4a 48 20 20 20 20 c9 20  |:In%=...JH    . |
000004a0  35 20 3a 20 e7 20 4d 75  6c 74 69 74 61 73 6b 69  |5 : . Multitaski|
000004b0  6e 67 25 20 80 20 21 71  25 3d 4d 61 69 6e 48 61  |ng% . !q%=MainHa|
000004c0  6e 64 6c 65 25 20 c8 99  20 22 58 48 6f 75 72 67  |ndle% .. "XHourg|
000004d0  6c 61 73 73 5f 4f 6e 22  3a 49 6e 25 3d b9 0d 01  |lass_On":In%=...|
000004e0  54 2c 20 20 20 20 c9 20  36 20 3a 20 e7 20 ac 28  |T,    . 6 : . .(|
000004f0  4d 75 6c 74 69 74 61 73  6b 69 6e 67 25 29 20 f2  |Multitasking%) .|
00000500  6d 6f 75 73 65 63 6c 69  63 6b 0d 01 5e 17 20 20  |mouseclick..^.  |
00000510  20 20 c9 20 37 20 3a 20  f2 65 6e 64 5f 64 72 61  |  . 7 : .end_dra|
00000520  67 0d 01 68 1a 20 20 20  20 c9 20 38 20 3a 20 f2  |g..h.    . 8 : .|
00000530  70 72 6f 63 65 73 73 5f  6b 65 79 0d 01 72 1d 20  |process_key..r. |
00000540  20 20 20 c9 20 39 20 3a  20 f2 6d 65 6e 75 5f 73  |   . 9 : .menu_s|
00000550  65 6c 65 63 74 69 6f 6e  0d 01 7c 1a 20 20 20 20  |election..|.    |
00000560  c9 20 31 37 2c 31 38 20  3a 20 f2 72 65 63 65 69  |. 17,18 : .recei|
00000570  76 65 0d 01 86 1b 20 20  20 20 c9 20 31 39 20 3a  |ve....    . 19 :|
00000580  20 f2 61 63 6b 6e 6f 77  6c 65 64 67 65 0d 01 90  | .acknowledge...|
00000590  07 20 20 cb 0d 01 9a 07  fd 20 a3 0d 01 a4 05 e0  |.  ...... ......|
000005a0  0d 01 ae 05 3a 0d 01 b8  13 dd f2 72 65 64 72 61  |....:......redra|
000005b0  77 5f 77 69 6e 64 6f 77  0d 01 c2 26 c8 99 20 22  |w_window...&.. "|
000005c0  57 69 6d 70 5f 52 65 64  72 61 77 57 69 6e 64 6f  |Wimp_RedrawWindo|
000005d0  77 22 2c 2c 71 25 20 b8  20 4d 6f 72 65 25 0d 01  |w",,q% . More%..|
000005e0  cc 0c c8 95 20 4d 6f 72  65 25 0d 01 d6 70 20 20  |.... More%...p  |
000005f0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000600  2c 35 36 34 2c 48 25 2c  48 25 2b 31 36 2c 71 25  |,564,H%,H%+16,q%|
00000610  21 34 2d 71 25 21 32 30  2c 2d 32 35 32 36 2a 59  |!4-q%!20,-2526*Y|
00000620  45 69 67 25 2a 28 53 63  61 6c 65 32 25 21 34 29  |Eig%*(Scale2%!4)|
00000630  81 28 53 63 61 6c 65 32  25 21 31 32 29 2b 71 25  |.(Scale2%!12)+q%|
00000640  21 31 36 2d 71 25 21 32  34 2c 30 2c 53 63 61 6c  |!16-q%!24,0,Scal|
00000650  65 32 25 2c 54 72 61 6e  73 25 0d 01 e0 28 20 20  |e2%,Trans%...(  |
00000660  c8 99 20 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |.. "Wimp_GetRect|
00000670  61 6e 67 6c 65 22 2c 2c  71 25 20 b8 20 4d 6f 72  |angle",,q% . Mor|
00000680  65 25 0d 01 ea 05 ce 0d  01 f4 05 e1 0d 01 fe 05  |e%..............|
00000690  3a 0d 02 08 14 dd f2 72  65 64 72 61 77 5f 77 69  |:......redraw_wi|
000006a0  6e 64 6f 77 4d 0d 02 12  26 c8 99 20 22 57 69 6d  |ndowM...&.. "Wim|
000006b0  70 5f 52 65 64 72 61 77  57 69 6e 64 6f 77 22 2c  |p_RedrawWindow",|
000006c0  2c 71 25 20 b8 20 4d 6f  72 65 25 0d 02 1c 0c c8  |,q% . More%.....|
000006d0  95 20 4d 6f 72 65 25 0d  02 26 28 20 20 c8 99 20  |. More%..&(  .. |
000006e0  22 57 69 6d 70 5f 47 65  74 52 65 63 74 61 6e 67  |"Wimp_GetRectang|
000006f0  6c 65 22 2c 2c 71 25 20  b8 20 4d 6f 72 65 25 0d  |le",,q% . More%.|
00000700  02 30 05 ce 0d 02 3a 05  e1 0d 02 44 05 3a 0d 02  |.0....:....D.:..|
00000710  4e 14 dd f2 6d 65 6e 75  5f 73 65 6c 65 63 74 69  |N...menu_selecti|
00000720  6f 6e 0d 02 58 24 c8 99  20 22 57 69 6d 70 5f 47  |on..X$.. "Wimp_G|
00000730  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00000740  71 25 2b 32 35 36 0d 02  62 1d 41 64 6a 75 73 74  |q%+256..b.Adjust|
00000750  43 6c 69 63 6b 65 64 25  3d 28 71 25 21 32 36 34  |Clicked%=(q%!264|
00000760  29 80 31 0d 02 6c 11 e7  20 4d 61 69 6e 4d 65 6e  |).1..l.. MainMen|
00000770  75 25 20 8c 0d 02 76 14  20 20 e7 20 21 71 25 3d  |u% ...v.  . !q%=|
00000780  34 20 f2 63 6c 65 61 72  0d 02 80 33 20 20 e7 20  |4 .clear...3  . |
00000790  41 64 6a 75 73 74 43 6c  69 63 6b 65 64 25 20 c8  |AdjustClicked% .|
000007a0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
000007b0  6e 75 22 2c 2c 4d 65 6e  75 32 25 0d 02 8a 06 20  |nu",,Menu2%.... |
000007c0  cc 0d 02 94 0e 20 20 c8  8e 20 21 71 25 20 ca 0d  |.....  .. !q% ..|
000007d0  02 9e 14 20 20 20 20 c9  20 31 20 3a 20 f2 63 6c  |...    . 1 : .cl|
000007e0  65 61 72 0d 02 a8 3a 20  20 20 20 c9 20 32 20 3a  |ear...:    . 2 :|
000007f0  20 4d 75 6c 74 69 74 61  73 6b 25 3d ac 28 4d 75  | Multitask%=.(Mu|
00000800  6c 74 69 74 61 73 6b 25  29 3a 3f 4d 75 6c 74 69  |ltitask%):?Multi|
00000810  25 3d 2d 4d 75 6c 74 69  74 61 73 6b 25 0d 02 b2  |%=-Multitask%...|
00000820  12 20 20 20 20 c9 20 33  20 3a 20 f2 64 69 65 0d  |.    . 3 : .die.|
00000830  02 bc 07 20 20 cb 0d 02  c6 32 20 20 e7 20 41 64  |...  ....2  . Ad|
00000840  6a 75 73 74 43 6c 69 63  6b 65 64 25 20 c8 99 20  |justClicked% .. |
00000850  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00000860  22 2c 2c 4d 65 6e 75 25  0d 02 d0 06 20 cd 0d 02  |",,Menu%.... ...|
00000870  da 05 e1 0d 02 e4 05 3a  0d 02 ee 0b dd f2 63 6c  |.......:......cl|
00000880  65 61 72 0d 02 f8 82 e7  20 46 69 6c 65 43 68 61  |ear..... FileCha|
00000890  6e 67 65 64 25 20 e7 20  a4 77 61 72 6e 69 6e 67  |nged% . .warning|
000008a0  28 22 4f 6e 65 20 70 72  69 6e 74 65 72 66 69 6c  |("One printerfil|
000008b0  65 20 65 6d 75 6c 61 74  65 64 20 62 75 74 20 6e  |e emulated but n|
000008c0  6f 74 20 73 61 76 65 64  20 69 6e 20 50 72 69 6e  |ot saved in Prin|
000008d0  74 45 6d 75 6c 2e 20 20  44 6f 20 79 6f 75 20 73  |tEmul.  Do you s|
000008e0  74 69 6c 6c 20 77 61 6e  74 20 74 6f 20 63 6c 65  |till want to cle|
000008f0  61 72 20 77 6f 72 6b 73  70 61 63 65 20 3f 22 29  |ar workspace ?")|
00000900  3c 3e 31 20 e1 0d 03 02  2e 46 69 6c 65 4c 6f 61  |<>1 .....FileLoa|
00000910  64 65 64 25 3d a3 3a 43  6c 65 61 72 25 3f 31 30  |ded%=.:Clear%?10|
00000920  3d 26 34 30 3a 46 69 6c  65 43 68 61 6e 67 65 64  |=&40:FileChanged|
00000930  25 3d a3 0d 03 0c 2d 21  71 25 3d 4d 61 69 6e 48  |%=....-!q%=MainH|
00000940  61 6e 64 6c 65 25 3a c8  99 20 22 57 69 6d 70 5f  |andle%:.. "Wimp_|
00000950  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |CloseWindow",,q%|
00000960  0d 03 16 23 c8 99 20 22  57 69 6d 70 5f 53 6c 6f  |...#.. "Wimp_Slo|
00000970  74 53 69 7a 65 22 2c 4d  61 69 6e 53 69 7a 65 25  |tSize",MainSize%|
00000980  2c 2d 31 0d 03 20 05 e1  0d 03 2a 05 3a 0d 03 34  |,-1.. ....*.:..4|
00000990  0e dd f2 65 6e 64 5f 64  72 61 67 0d 03 3e 0b ea  |...end_drag..>..|
000009a0  20 4c 65 61 66 24 0d 03  48 20 c8 99 20 22 57 69  | Leaf$..H .. "Wi|
000009b0  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
000009c0  6f 22 2c 2c 71 25 0d 03  52 30 71 25 21 32 30 3d  |o",,q%..R0q%!20=|
000009d0  71 25 21 31 32 3a 71 25  21 32 34 3d 71 25 21 31  |q%!12:q%!24=q%!1|
000009e0  36 3a 71 25 21 32 38 3d  21 71 25 3a 71 25 21 33  |6:q%!28=!q%:q%!3|
000009f0  32 3d 71 25 21 34 0d 03  5c 1d 71 25 21 33 36 3d  |2=q%!4..\.q%!36=|
00000a00  36 32 34 2a 31 30 32 34  3a 71 25 21 34 30 3d 26  |624*1024:q%!40=&|
00000a10  66 66 39 0d 03 66 3b 4c  65 61 66 24 3d a4 73 65  |ff9..f;Leaf$=.se|
00000a20  61 72 63 68 5f 6c 65 61  66 28 a4 69 63 6f 6e 5f  |arch_leaf(.icon_|
00000a30  67 65 74 64 61 74 61 28  71 25 2b 32 35 36 2c 53  |getdata(q%+256,S|
00000a40  61 76 65 48 61 6e 64 6c  65 25 2c 32 29 29 0d 03  |aveHandle%,2))..|
00000a50  70 15 24 28 71 25 2b 34  34 29 3d 4c 65 61 66 24  |p.$(q%+44)=Leaf$|
00000a60  2b bd 30 0d 03 7a 28 21  71 25 3d 28 a9 28 4c 65  |+.0..z(!q%=(.(Le|
00000a70  61 66 24 29 2b 34 38 29  80 2d 34 3a 71 25 21 31  |af$)+48).-4:q%!1|
00000a80  32 3d 30 3a 71 25 21 31  36 3d 31 0d 03 84 25 c8  |2=0:q%!16=1...%.|
00000a90  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00000aa0  61 67 65 22 2c 31 38 2c  71 25 2c 71 25 21 32 30  |age",18,q%,q%!20|
00000ab0  0d 03 8e 05 e1 0d 03 98  05 3a 0d 03 a2 11 dd f2  |.........:......|
00000ac0  70 72 6f 63 65 73 73 5f  6b 65 79 0d 03 ac 33 e7  |process_key...3.|
00000ad0  20 21 71 25 3c 3e 5a 6f  6f 6d 48 61 6e 64 6c 65  | !q%<>ZoomHandle|
00000ae0  25 20 c8 99 20 22 57 69  6d 70 5f 50 72 6f 63 65  |% .. "Wimp_Proce|
00000af0  73 73 4b 65 79 22 2c 71  25 21 32 34 3a e1 0d 03  |ssKey",q%!24:...|
00000b00  b6 0d c8 8e 20 71 25 21  34 20 ca 0d 03 c0 53 20  |.... q%!4 ....S |
00000b10  20 c9 20 30 20 3a 20 e7  20 71 25 21 32 34 3d 31  | . 0 : . q%!24=1|
00000b20  33 20 84 20 71 25 21 32  34 3d 26 31 39 44 20 c8  |3 . q%!24=&19D .|
00000b30  99 20 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |. "Wimp_SetCaret|
00000b40  50 6f 73 69 74 69 6f 6e  22 2c 5a 6f 6f 6d 48 61  |Position",ZoomHa|
00000b50  6e 64 6c 65 25 2c 31 2c  2c 2c 2d 31 2c 31 0d 03  |ndle%,1,,,-1,1..|
00000b60  ca 25 20 20 c9 20 31 20  3a 20 e7 20 71 25 21 32  |.%  . 1 : . q%!2|
00000b70  34 3d 31 33 20 84 20 71  25 21 32 34 3d 26 31 39  |4=13 . q%!24=&19|
00000b80  44 20 8c 0d 03 d4 3f 20  20 20 20 20 20 20 20 20  |D ....?         |
00000b90  20 20 20 20 54 65 6c 6c  65 72 25 3d bb 28 a4 69  |    Teller%=.(.i|
00000ba0  63 6f 6e 5f 67 65 74 64  61 74 61 28 71 25 2b 32  |con_getdata(q%+2|
00000bb0  35 36 2c 5a 6f 6f 6d 48  61 6e 64 6c 65 25 2c 30  |56,ZoomHandle%,0|
00000bc0  29 29 0d 03 de 3f 20 20  20 20 20 20 20 20 20 20  |))...?          |
00000bd0  20 20 20 4e 6f 65 6d 65  72 25 3d bb 28 a4 69 63  |   Noemer%=.(.ic|
00000be0  6f 6e 5f 67 65 74 64 61  74 61 28 71 25 2b 32 35  |on_getdata(q%+25|
00000bf0  36 2c 5a 6f 6f 6d 48 61  6e 64 6c 65 25 2c 31 29  |6,ZoomHandle%,1)|
00000c00  29 0d 03 e8 1f 20 20 20  20 20 20 20 20 20 20 20  |)....           |
00000c10  20 20 f2 75 70 64 61 74  65 5f 77 69 6e 64 6f 77  |  .update_window|
00000c20  0d 03 f2 43 20 20 20 20  20 20 20 20 20 20 20 20  |...C            |
00000c30  20 71 25 21 32 35 36 3d  4d 61 69 6e 48 61 6e 64  | q%!256=MainHand|
00000c40  6c 65 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |le%:.. "Wimp_Get|
00000c50  57 69 6e 64 6f 77 49 6e  66 6f 22 2c 2c 71 25 2b  |WindowInfo",,q%+|
00000c60  32 35 36 0d 03 fc 2d 20  20 20 20 20 20 20 20 20  |256...-         |
00000c70  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |    .. "Wimp_Ope|
00000c80  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 2b 32 35 36  |nWindow",,q%+256|
00000c90  0d 04 06 10 20 20 20 20  20 20 20 20 20 20 20 cd  |....           .|
00000ca0  0d 04 10 4b 20 20 20 20  20 20 20 20 20 20 20 e7  |...K           .|
00000cb0  20 71 25 21 32 34 3d 26  31 39 43 20 c8 99 20 22  | q%!24=&19C .. "|
00000cc0  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00000cd0  69 74 69 6f 6e 22 2c 5a  6f 6f 6d 48 61 6e 64 6c  |ition",ZoomHandl|
00000ce0  65 25 2c 30 2c 2c 2c 2d  31 2c 31 0d 04 1a 05 cb  |e%,0,,,-1,1.....|
00000cf0  0d 04 24 05 e1 0d 04 2e  05 3a 0d 04 38 10 dd f2  |..$......:..8...|
00000d00  69 6e 69 74 69 61 6c 69  73 65 0d 04 42 27 de 20  |initialise..B'. |
00000d10  71 25 20 35 36 30 2c 45  72 72 6f 72 42 75 66 66  |q% 560,ErrorBuff|
00000d20  65 72 25 20 32 35 36 2c  4d 65 6e 75 25 20 33 30  |er% 256,Menu% 30|
00000d30  30 0d 04 4c 24 de 20 53  63 61 6c 65 25 20 31 36  |0..L$. Scale% 16|
00000d40  2c 53 63 61 6c 65 32 25  20 31 36 2c 54 72 61 6e  |,Scale2% 16,Tran|
00000d50  73 25 20 31 36 0d 04 56  4b c8 99 20 22 57 69 6d  |s% 16..VK.. "Wim|
00000d60  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
00000d70  30 2c 26 34 42 35 33 34  31 35 34 2c 22 50 72 69  |0,&4B534154,"Pri|
00000d80  6e 74 65 72 20 46 58 20  45 6d 75 6c 61 74 6f 72  |nter FX Emulator|
00000d90  22 20 b8 20 2c 54 61 73  6b 48 61 6e 64 6c 65 25  |" . ,TaskHandle%|
00000da0  0d 04 60 2d c8 99 20 22  57 69 6d 70 5f 53 6c 6f  |..`-.. "Wimp_Slo|
00000db0  74 53 69 7a 65 22 2c 2d  31 2c 2d 31 20 b8 20 4d  |tSize",-1,-1 . M|
00000dc0  61 69 6e 53 69 7a 65 25  3a 48 25 3d 93 0d 04 6a  |ainSize%:H%=...j|
00000dd0  2e 46 69 6c 65 4c 6f 61  64 65 64 25 3d a3 3a 4d  |.FileLoaded%=.:M|
00000de0  75 6c 74 69 74 61 73 6b  25 3d b9 3a 4d 75 6c 74  |ultitask%=.:Mult|
00000df0  69 74 61 73 6b 69 6e 67  25 3d a3 0d 04 74 18 46  |itasking%=...t.F|
00000e00  69 6c 65 43 68 61 6e 67  65 64 25 3d a3 3a 49 6e  |ileChanged%=.:In|
00000e10  25 3d a3 0d 04 7e 08 f2  61 73 6d 0d 04 88 3a c8  |%=...~..asm...:.|
00000e20  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
00000e30  72 69 61 62 6c 65 22 2c  2d 31 2c 34 20 b8 20 2c  |riable",-1,4 . ,|
00000e40  2c 58 45 69 67 25 3a 58  45 69 67 25 3d 31 3c 3c  |,XEig%:XEig%=1<<|
00000e50  58 45 69 67 25 0d 04 92  3a c8 99 20 22 4f 53 5f  |XEig%...:.. "OS_|
00000e60  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00000e70  22 2c 2d 31 2c 35 20 b8  20 2c 2c 59 45 69 67 25  |",-1,5 . ,,YEig%|
00000e80  3a 59 45 69 67 25 3d 31  3c 3c 59 45 69 67 25 0d  |:YEig%=1<<YEig%.|
00000e90  04 9c 05 e1 0d 04 a6 05  3a 0d 04 b0 14 dd f2 72  |........:......r|
00000ea0  65 61 64 5f 74 65 6d 70  6c 61 74 65 73 0d 04 ba  |ead_templates...|
00000eb0  24 de 20 54 65 6d 70 25  20 31 30 32 34 3a 45 6e  |$. Temp% 1024:En|
00000ec0  64 54 65 6d 70 25 3d 54  65 6d 70 25 2b 31 30 32  |dTemp%=Temp%+102|
00000ed0  34 0d 04 c4 37 c8 99 20  22 57 69 6d 70 5f 4f 70  |4...7.. "Wimp_Op|
00000ee0  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 50  |enTemplate",,"<P|
00000ef0  72 69 6e 74 45 6d 75 6c  24 44 69 72 3e 2e 54 65  |rintEmul$Dir>.Te|
00000f00  6d 70 6c 61 74 65 73 22  0d 04 ce 43 c8 99 20 22  |mplates"...C.. "|
00000f10  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000f20  65 22 2c 2c 71 25 2c 54  65 6d 70 25 2c 45 6e 64  |e",,q%,Temp%,End|
00000f30  54 65 6d 70 25 2c 2d 31  2c 22 4d 61 69 6e 22 2c  |Temp%,-1,"Main",|
00000f40  30 20 b8 20 2c 2c 54 65  6d 70 25 0d 04 d8 2c c8  |0 . ,,Temp%...,.|
00000f50  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000f60  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 4d 61 69 6e  |ndow",,q% . Main|
00000f70  48 61 6e 64 6c 65 25 0d  04 e2 47 c8 99 20 22 57  |Handle%...G.. "W|
00000f80  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000f90  22 2c 2c 71 25 2c 54 65  6d 70 25 2c 45 6e 64 54  |",,q%,Temp%,EndT|
00000fa0  65 6d 70 25 2c 2d 31 2c  22 70 72 6f 67 49 6e 66  |emp%,-1,"progInf|
00000fb0  6f 22 2c 30 20 b8 20 2c  2c 54 65 6d 70 25 0d 04  |o",0 . ,,Temp%..|
00000fc0  ec 2c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.,.. "Wimp_Creat|
00000fd0  65 57 69 6e 64 6f 77 22  2c 2c 71 25 20 b8 20 49  |eWindow",,q% . I|
00000fe0  6e 66 6f 48 61 6e 64 6c  65 25 0d 04 f6 48 c8 99  |nfoHandle%...H..|
00000ff0  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00001000  61 74 65 22 2c 2c 71 25  2c 54 65 6d 70 25 2c 45  |ate",,q%,Temp%,E|
00001010  6e 64 54 65 6d 70 25 2c  2d 31 2c 22 6d 61 67 6e  |ndTemp%,-1,"magn|
00001020  69 66 69 65 72 22 2c 30  20 b8 20 2c 2c 54 65 6d  |ifier",0 . ,,Tem|
00001030  70 25 0d 05 00 2c c8 99  20 22 57 69 6d 70 5f 43  |p%...,.. "Wimp_C|
00001040  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
00001050  20 b8 20 5a 6f 6f 6d 48  61 6e 64 6c 65 25 0d 05  | . ZoomHandle%..|
00001060  0a 43 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.C.. "Wimp_LoadT|
00001070  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 54 65 6d  |emplate",,q%,Tem|
00001080  70 25 2c 45 6e 64 54 65  6d 70 25 2c 2d 31 2c 22  |p%,EndTemp%,-1,"|
00001090  53 61 76 65 22 2c 30 20  b8 20 2c 2c 54 65 6d 70  |Save",0 . ,,Temp|
000010a0  25 0d 05 14 2c c8 99 20  22 57 69 6d 70 5f 43 72  |%...,.. "Wimp_Cr|
000010b0  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |eateWindow",,q% |
000010c0  b8 20 53 61 76 65 48 61  6e 64 6c 65 25 0d 05 1e  |. SaveHandle%...|
000010d0  44 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |D.. "Wimp_LoadTe|
000010e0  6d 70 6c 61 74 65 22 2c  2c 71 25 2c 54 65 6d 70  |mplate",,q%,Temp|
000010f0  25 2c 45 6e 64 54 65 6d  70 25 2c 2d 31 2c 22 61  |%,EndTemp%,-1,"a|
00001100  62 6f 75 74 22 2c 30 20  b8 20 2c 2c 54 65 6d 70  |bout",0 . ,,Temp|
00001110  25 0d 05 28 2d c8 99 20  22 57 69 6d 70 5f 43 72  |%..(-.. "Wimp_Cr|
00001120  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |eateWindow",,q% |
00001130  b8 20 41 62 6f 75 74 48  61 6e 64 6c 65 25 0d 05  |. AboutHandle%..|
00001140  32 1b c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |2... "Wimp_Close|
00001150  54 65 6d 70 6c 61 74 65  22 0d 05 3c 2c f2 69 63  |Template"..<,.ic|
00001160  6f 6e 5f 70 75 74 64 61  74 61 28 71 25 2c 49 6e  |on_putdata(q%,In|
00001170  66 6f 48 61 6e 64 6c 65  25 2c 33 2c 56 65 72 73  |foHandle%,3,Vers|
00001180  69 6f 6e 24 29 0d 05 46  31 f2 69 63 6f 6e 5f 70  |ion$)..F1.icon_p|
00001190  75 74 64 61 74 61 28 71  25 2c 5a 6f 6f 6d 48 61  |utdata(q%,ZoomHa|
000011a0  6e 64 6c 65 25 2c 30 2c  22 31 22 29 3a 54 65 6c  |ndle%,0,"1"):Tel|
000011b0  6c 65 72 25 3d 31 0d 05  50 31 f2 69 63 6f 6e 5f  |ler%=1..P1.icon_|
000011c0  70 75 74 64 61 74 61 28  71 25 2c 5a 6f 6f 6d 48  |putdata(q%,ZoomH|
000011d0  61 6e 64 6c 65 25 2c 31  2c 22 34 22 29 3a 4e 6f  |andle%,1,"4"):No|
000011e0  65 6d 65 72 25 3d 34 0d  05 5a 05 e1 0d 05 64 05  |emer%=4..Z....d.|
000011f0  3a 0d 05 6e 10 dd f2 73  65 74 75 70 5f 6d 65 6e  |:..n...setup_men|
00001200  75 0d 05 78 13 50 25 3d  4d 65 6e 75 25 3a 5b 4f  |u..x.P%=Menu%:[O|
00001210  50 54 20 32 0d 05 82 22  45 51 55 53 20 22 50 72  |PT 2..."EQUS "Pr|
00001220  69 6e 74 45 6d 75 6c 22  3a 45 51 55 57 20 30 3a  |intEmul":EQUW 0:|
00001230  45 51 55 42 20 30 0d 05  8c 2a 45 51 55 44 20 26  |EQUB 0...*EQUD &|
00001240  30 30 30 37 30 32 30 37  3a 45 51 55 44 20 26 39  |00070207:EQUD &9|
00001250  38 3a 45 51 55 44 20 34  34 3a 45 51 55 44 20 30  |8:EQUD 44:EQUD 0|
00001260  0d 05 96 04 0d 05 a0 47  45 51 55 44 20 30 20 20  |.......GEQUD 0  |
00001270  3a 45 51 55 44 20 49 6e  66 6f 48 61 6e 64 6c 65  |:EQUD InfoHandle|
00001280  25 3a 45 51 55 44 20 26  30 37 30 30 30 30 30 31  |%:EQUD &07000001|
00001290  3a 45 51 55 53 20 22 49  6e 66 6f 22 20 3a 45 51  |:EQUS "Info" :EQ|
000012a0  55 44 20 30 3a 45 51 55  44 20 30 0d 05 aa 0b 2e  |UD 0:EQUD 0.....|
000012b0  43 6c 65 61 72 25 0d 05  b4 4e 45 51 55 44 20 30  |Clear%...NEQUD 0|
000012c0  20 20 3a 45 51 55 44 20  30 20 20 20 20 20 20 20  |  :EQUD 0       |
000012d0  20 20 20 3a 45 51 55 44  20 26 30 37 34 30 30 30  |   :EQUD &074000|
000012e0  30 31 3a 45 51 55 53 20  22 43 6c 65 61 72 22 3a  |01:EQUS "Clear":|
000012f0  45 51 55 57 20 30 3a 45  51 55 42 20 30 3a 45 51  |EQUW 0:EQUB 0:EQ|
00001300  55 44 20 30 0d 05 be 0b  2e 4d 75 6c 74 69 25 0d  |UD 0.....Multi%.|
00001310  05 c8 4b 45 51 55 44 20  31 20 20 3a 45 51 55 44  |..KEQUD 1  :EQUD|
00001320  20 30 20 20 20 20 20 20  20 20 20 20 3a 45 51 55  | 0          :EQU|
00001330  44 20 26 30 37 30 30 30  30 30 31 3a 45 51 55 53  |D &07000001:EQUS|
00001340  20 22 4d 75 6c 74 69 74  61 73 6b 22 3a 45 51 55  | "Multitask":EQU|
00001350  57 20 30 3a 45 51 55 42  20 30 0d 05 d2 47 45 51  |W 0:EQUB 0...GEQ|
00001360  55 44 20 26 38 30 3a 45  51 55 44 20 30 20 20 20  |UD &80:EQUD 0   |
00001370  20 20 20 20 20 20 20 3a  45 51 55 44 20 26 30 37  |       :EQUD &07|
00001380  30 30 30 30 30 31 3a 45  51 55 53 20 22 51 75 69  |000001:EQUS "Qui|
00001390  74 22 20 3a 45 51 55 44  20 30 3a 45 51 55 44 20  |t" :EQUD 0:EQUD |
000013a0  30 0d 05 dc 04 0d 05 e6  0b 2e 4d 65 6e 75 32 25  |0.........Menu2%|
000013b0  0d 05 f0 22 45 51 55 53  20 22 50 72 69 6e 74 45  |..."EQUS "PrintE|
000013c0  6d 75 6c 22 3a 45 51 55  57 20 30 3a 45 51 55 42  |mul":EQUW 0:EQUB|
000013d0  20 30 0d 05 fa 2a 45 51  55 44 20 26 30 30 30 37  | 0...*EQUD &0007|
000013e0  30 32 30 37 3a 45 51 55  44 20 26 37 30 3a 45 51  |0207:EQUD &70:EQ|
000013f0  55 44 20 34 34 3a 45 51  55 44 20 30 0d 06 04 04  |UD 44:EQUD 0....|
00001400  0d 06 0e 48 45 51 55 44  20 30 20 20 3a 45 51 55  |...HEQUD 0  :EQU|
00001410  44 20 49 6e 66 6f 48 61  6e 64 6c 65 25 20 3a 45  |D InfoHandle% :E|
00001420  51 55 44 20 26 30 37 30  30 30 30 30 31 3a 45 51  |QUD &07000001:EQ|
00001430  55 53 20 22 49 6e 66 6f  22 20 3a 45 51 55 44 20  |US "Info" :EQUD |
00001440  30 3a 45 51 55 44 20 30  0d 06 18 4e 45 51 55 44  |0:EQUD 0...NEQUD|
00001450  20 30 20 20 3a 45 51 55  44 20 41 62 6f 75 74 48  | 0  :EQUD AboutH|
00001460  61 6e 64 6c 65 25 3a 45  51 55 44 20 26 30 37 30  |andle%:EQUD &070|
00001470  30 30 30 30 31 3a 45 51  55 53 20 22 41 62 6f 75  |00001:EQUS "Abou|
00001480  74 22 3a 45 51 55 57 20  30 3a 45 51 55 42 20 30  |t":EQUW 0:EQUB 0|
00001490  3a 45 51 55 44 30 0d 06  22 48 45 51 55 44 20 30  |:EQUD0.."HEQUD 0|
000014a0  20 20 3a 45 51 55 44 20  53 61 76 65 48 61 6e 64  |  :EQUD SaveHand|
000014b0  6c 65 25 20 3a 45 51 55  44 20 26 30 37 30 30 30  |le% :EQUD &07000|
000014c0  30 30 31 3a 45 51 55 53  20 22 53 61 76 65 22 20  |001:EQUS "Save" |
000014d0  3a 45 51 55 44 20 30 3a  45 51 55 44 20 30 0d 06  |:EQUD 0:EQUD 0..|
000014e0  2c 48 45 51 55 44 20 38  20 20 3a 45 51 55 44 20  |,HEQUD 8  :EQUD |
000014f0  5a 6f 6f 6d 48 61 6e 64  6c 65 25 20 3a 45 51 55  |ZoomHandle% :EQU|
00001500  44 20 26 30 37 30 30 30  30 30 31 3a 45 51 55 53  |D &07000001:EQUS|
00001510  20 22 5a 6f 6f 6d 22 20  3a 45 51 55 44 20 30 3a  | "Zoom" :EQUD 0:|
00001520  45 51 55 44 20 30 0d 06  36 4e 45 51 55 44 20 26  |EQUD 0..6NEQUD &|
00001530  38 30 3a 45 51 55 44 20  30 20 20 20 20 20 20 20  |80:EQUD 0       |
00001540  20 20 20 20 3a 45 51 55  44 20 26 30 37 30 30 30  |    :EQUD &07000|
00001550  30 30 31 3a 45 51 55 53  20 22 43 6c 65 61 72 22  |001:EQUS "Clear"|
00001560  3a 45 51 55 57 20 30 3a  45 51 55 42 20 30 3a 45  |:EQUW 0:EQUB 0:E|
00001570  51 55 44 30 0d 06 40 05  5d 0d 06 4a 3a e7 20 50  |QUD0..@.]..J:. P|
00001580  25 2d 4d 65 6e 75 25 3e  33 30 30 20 f2 65 72 72  |%-Menu%>300 .err|
00001590  6f 72 28 2d 31 2c 22 4d  65 6e 75 20 72 75 6e 73  |or(-1,"Menu runs|
000015a0  20 6f 75 74 20 6f 66 20  6c 65 6e 67 74 68 2e 2e  | out of length..|
000015b0  2e 22 29 0d 06 54 05 e1  0d 06 5e 05 3a 0d 06 68  |.")..T....^.:..h|
000015c0  16 dd f2 73 65 74 75 70  5f 69 63 6f 6e 5f 72 69  |...setup_icon_ri|
000015d0  67 68 74 0d 06 72 0f de  20 49 63 6f 6e 73 25 20  |ght..r.. Icons% |
000015e0  31 36 0d 06 7c 0b 71 25  21 30 3d 2d 31 0d 06 86  |16..|.q%!0=-1...|
000015f0  23 71 25 21 34 3d 30 3a  71 25 21 38 3d 30 3a 71  |#q%!4=0:q%!8=0:q|
00001600  25 21 31 32 3d 36 34 3a  71 25 21 31 36 3d 36 38  |%!12=64:q%!16=68|
00001610  0d 06 90 13 71 25 21 32  30 3d 26 31 37 30 30 33  |....q%!20=&17003|
00001620  31 30 41 0d 06 9a 28 71  25 21 32 34 3d 49 63 6f  |10A...(q%!24=Ico|
00001630  6e 73 25 3a 24 49 63 6f  6e 73 25 3d 22 21 70 72  |ns%:$Icons%="!pr|
00001640  69 6e 74 65 6d 75 6c 22  2b bd 30 0d 06 a4 24 71  |intemul"+.0...$q|
00001650  25 21 32 38 3d 31 3a 71  25 21 33 32 3d a9 28 22  |%!28=1:q%!32=.("|
00001660  21 70 72 69 6e 74 65 6d  75 6c 22 2b bd 30 29 0d  |!printemul"+.0).|
00001670  06 ae 29 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..).. "Wimp_Crea|
00001680  74 65 49 63 6f 6e 22 2c  2c 71 25 20 b8 20 49 63  |teIcon",,q% . Ic|
00001690  6f 6e 42 65 6c 6f 77 25  0d 06 b8 05 e1 0d 06 c2  |onBelow%........|
000016a0  05 3a 0d 06 cc 10 dd f2  6d 6f 75 73 65 63 6c 69  |.:......mousecli|
000016b0  63 6b 0d 06 d6 0e c8 8e  20 71 25 21 31 32 20 ca  |ck...... q%!12 .|
000016c0  0d 06 e0 53 20 20 c9 20  4d 61 69 6e 48 61 6e 64  |...S  . MainHand|
000016d0  6c 65 25 20 3a 20 e7 20  71 25 21 38 3d 32 20 4d  |le% : . q%!8=2 M|
000016e0  61 69 6e 4d 65 6e 75 25  3d b9 3a c8 99 20 22 57  |ainMenu%=.:.. "W|
000016f0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00001700  2c 4d 65 6e 75 32 25 2c  21 71 25 2d 36 34 2c 71  |,Menu2%,!q%-64,q|
00001710  25 21 34 0d 06 ea 3a 20  20 c9 20 2d 32 20 3a 20  |%!4...:  . -2 : |
00001720  e7 20 71 25 21 31 36 3d  49 63 6f 6e 42 65 6c 6f  |. q%!16=IconBelo|
00001730  77 25 20 4d 61 69 6e 4d  65 6e 75 25 3d a3 3a f2  |w% MainMenu%=.:.|
00001740  63 6c 69 63 6b 65 64 5f  62 65 6c 6f 77 0d 06 f4  |clicked_below...|
00001750  15 20 20 c9 20 5a 6f 6f  6d 48 61 6e 64 6c 65 25  |.  . ZoomHandle%|
00001760  20 3a 0d 06 fe 12 20 20  20 20 c8 8e 20 71 25 21  | :....    .. q%!|
00001770  31 36 20 ca 0d 07 08 47  20 20 20 20 20 20 c9 20  |16 ....G      . |
00001780  32 20 3a 20 54 65 6c 6c  65 72 25 2b 3d 31 3a f2  |2 : Teller%+=1:.|
00001790  69 63 6f 6e 5f 70 75 74  64 61 74 61 28 71 25 2b  |icon_putdata(q%+|
000017a0  32 35 36 2c 5a 6f 6f 6d  48 61 6e 64 6c 65 25 2c  |256,ZoomHandle%,|
000017b0  30 2c c3 54 65 6c 6c 65  72 25 29 0d 07 12 27 20  |0,.Teller%)...' |
000017c0  20 20 20 20 20 c9 20 33  20 3a 20 e7 20 54 65 6c  |     . 3 : . Tel|
000017d0  6c 65 72 25 3c 3e 31 20  54 65 6c 6c 65 72 25 2d  |ler%<>1 Teller%-|
000017e0  3d 31 0d 07 1c 3f 20 20  20 20 20 20 20 20 20 20  |=1...?          |
000017f0  20 20 20 20 20 f2 69 63  6f 6e 5f 70 75 74 64 61  |     .icon_putda|
00001800  74 61 28 71 25 2b 32 35  36 2c 5a 6f 6f 6d 48 61  |ta(q%+256,ZoomHa|
00001810  6e 64 6c 65 25 2c 30 2c  c3 54 65 6c 6c 65 72 25  |ndle%,0,.Teller%|
00001820  29 0d 07 26 47 20 20 20  20 20 20 c9 20 34 20 3a  |)..&G      . 4 :|
00001830  20 4e 6f 65 6d 65 72 25  2b 3d 31 3a f2 69 63 6f  | Noemer%+=1:.ico|
00001840  6e 5f 70 75 74 64 61 74  61 28 71 25 2b 32 35 36  |n_putdata(q%+256|
00001850  2c 5a 6f 6f 6d 48 61 6e  64 6c 65 25 2c 31 2c c3  |,ZoomHandle%,1,.|
00001860  4e 6f 65 6d 65 72 25 29  0d 07 30 27 20 20 20 20  |Noemer%)..0'    |
00001870  20 20 c9 20 35 20 3a 20  e7 20 4e 6f 65 6d 65 72  |  . 5 : . Noemer|
00001880  25 3c 3e 31 20 4e 6f 65  6d 65 72 25 2d 3d 31 0d  |%<>1 Noemer%-=1.|
00001890  07 3a 3f 20 20 20 20 20  20 20 20 20 20 20 20 20  |.:?             |
000018a0  20 20 f2 69 63 6f 6e 5f  70 75 74 64 61 74 61 28  |  .icon_putdata(|
000018b0  71 25 2b 32 35 36 2c 5a  6f 6f 6d 48 61 6e 64 6c  |q%+256,ZoomHandl|
000018c0  65 25 2c 31 2c c3 4e 6f  65 6d 65 72 25 29 0d 07  |e%,1,.Noemer%)..|
000018d0  44 09 20 20 20 20 cb 0d  07 4e 16 20 20 20 20 f2  |D.    ...N.    .|
000018e0  75 70 64 61 74 65 5f 77  69 6e 64 6f 77 0d 07 58  |update_window..X|
000018f0  2c 20 20 c9 20 53 61 76  65 48 61 6e 64 6c 65 25  |,  . SaveHandle%|
00001900  20 3a 20 e7 20 71 25 21  31 36 3d 31 20 80 20 71  | : . q%!16=1 . q|
00001910  25 21 38 3d 26 34 30 20  8c 0d 07 62 4c 20 20 20  |%!8=&40 ...bL   |
00001920  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001930  20 20 20 20 21 71 25 3d  53 61 76 65 48 61 6e 64  |    !q%=SaveHand|
00001940  6c 65 25 3a 71 25 21 34  3d 31 3a c8 99 20 22 57  |le%:q%!4=1:.. "W|
00001950  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00001960  22 2c 2c 71 25 0d 07 6c  4e 20 20 20 20 20 20 20  |",,q%..lN       |
00001970  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001980  71 25 21 32 35 36 3d 53  61 76 65 48 61 6e 64 6c  |q%!256=SaveHandl|
00001990  65 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |e%:.. "Wimp_GetW|
000019a0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 71 25 2b  |indowState",,q%+|
000019b0  32 35 36 0d 07 76 51 20  20 20 20 20 20 20 20 20  |256..vQ         |
000019c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 71 25  |              q%|
000019d0  21 38 2b 3d 71 25 21 32  36 30 3a 71 25 21 31 32  |!8+=q%!260:q%!12|
000019e0  2b 3d 71 25 21 32 37 32  3a 71 25 21 31 36 2b 3d  |+=q%!272:q%!16+=|
000019f0  71 25 21 32 36 30 3a 71  25 21 32 30 2b 3d 71 25  |q%!260:q%!20+=q%|
00001a00  21 32 37 32 0d 07 80 31  20 20 20 20 20 20 20 20  |!272...1        |
00001a10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 71  |               q|
00001a20  25 21 34 3d 35 3a 71 25  21 32 34 3d 30 3a 71 25  |%!4=5:q%!24=0:q%|
00001a30  21 32 38 3d 30 0d 07 8a  3a 20 20 20 20 20 20 20  |!28=0...:       |
00001a40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001a50  71 25 21 33 32 3d 26 37  66 66 66 66 66 66 66 3a  |q%!32=&7fffffff:|
00001a60  71 25 21 33 36 3d 26 37  66 66 66 66 66 66 66 0d  |q%!36=&7fffffff.|
00001a70  07 94 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |..0             |
00001a80  20 20 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  |          .. "Wi|
00001a90  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 71 25 0d  |mp_DragBox",,q%.|
00001aa0  07 9e 1b 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00001ab0  20 20 20 20 20 20 20 20  20 cd 0d 07 a8 2a 20 20  |         ....*  |
00001ac0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001ad0  20 20 20 e7 20 71 25 21  31 36 3d 33 20 f2 73 61  |   . q%!16=3 .sa|
00001ae0  76 65 4f 4b 0d 07 b2 05  cb 0d 07 bc 05 e1 0d 07  |veOK............|
00001af0  c6 05 3a 0d 07 d0 13 dd  f2 75 70 64 61 74 65 5f  |..:......update_|
00001b00  77 69 6e 64 6f 77 0d 07  da 38 c8 99 20 22 57 69  |window...8.. "Wi|
00001b10  6d 70 5f 52 65 61 64 50  69 78 54 72 61 6e 73 22  |mp_ReadPixTrans"|
00001b20  2c 35 31 32 2c 48 25 2c  48 25 2b 31 36 2c 2c 2c  |,512,H%,H%+16,,,|
00001b30  2c 53 63 61 6c 65 25 2c  54 72 61 6e 73 25 0d 07  |,Scale%,Trans%..|
00001b40  e4 20 53 63 61 6c 65 32  25 21 30 3d 28 53 63 61  |. Scale2%!0=(Sca|
00001b50  6c 65 25 21 30 29 2a 54  65 6c 6c 65 72 25 0d 07  |le%!0)*Teller%..|
00001b60  ee 20 53 63 61 6c 65 32  25 21 34 3d 28 53 63 61  |. Scale2%!4=(Sca|
00001b70  6c 65 25 21 34 29 2a 54  65 6c 6c 65 72 25 0d 07  |le%!4)*Teller%..|
00001b80  f8 20 53 63 61 6c 65 32  25 21 38 3d 28 53 63 61  |. Scale2%!8=(Sca|
00001b90  6c 65 25 21 38 29 2a 4e  6f 65 6d 65 72 25 0d 08  |le%!8)*Noemer%..|
00001ba0  02 22 53 63 61 6c 65 32  25 21 31 32 3d 28 53 63  |."Scale2%!12=(Sc|
00001bb0  61 6c 65 25 21 31 32 29  2a 4e 6f 65 6d 65 72 25  |ale%!12)*Noemer%|
00001bc0  0d 08 0c 38 71 25 21 32  35 36 3d 30 3a 71 25 21  |...8q%!256=0:q%!|
00001bd0  32 36 30 3d 2d 32 35 32  36 2a 59 45 69 67 25 2a  |260=-2526*YEig%*|
00001be0  28 53 63 61 6c 65 32 25  21 34 29 81 28 53 63 61  |(Scale2%!4).(Sca|
00001bf0  6c 65 32 25 21 31 32 29  0d 08 16 35 71 25 21 32  |le2%!12)...5q%!2|
00001c00  36 34 3d 31 39 38 35 2a  58 45 69 67 25 2a 28 21  |64=1985*XEig%*(!|
00001c10  53 63 61 6c 65 32 25 29  81 28 53 63 61 6c 65 32  |Scale2%).(Scale2|
00001c20  25 21 38 29 3a 71 25 21  32 36 38 3d 30 0d 08 20  |%!8):q%!268=0.. |
00001c30  2a c8 99 20 22 57 69 6d  70 5f 53 65 74 45 78 74  |*.. "Wimp_SetExt|
00001c40  65 6e 74 22 2c 4d 61 69  6e 48 61 6e 64 6c 65 25  |ent",MainHandle%|
00001c50  2c 71 25 2b 32 35 36 0d  08 2a 41 c8 99 20 22 57  |,q%+256..*A.. "W|
00001c60  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00001c70  2c 4d 61 69 6e 48 61 6e  64 6c 65 25 2c 71 25 21  |,MainHandle%,q%!|
00001c80  32 35 36 2c 71 25 21 32  36 30 2c 71 25 21 32 36  |256,q%!260,q%!26|
00001c90  34 2c 71 25 21 32 36 38  0d 08 34 13 e7 20 46 69  |4,q%!268..4.. Fi|
00001ca0  6c 65 4c 6f 61 64 65 64  25 20 8c 0d 08 3e 39 20  |leLoaded% ...>9 |
00001cb0  20 20 71 25 21 32 35 36  3d 4d 61 69 6e 48 61 6e  |  q%!256=MainHan|
00001cc0  64 6c 65 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |dle%:.. "Wimp_Ge|
00001cd0  74 57 69 6e 64 6f 77 49  6e 66 6f 22 2c 2c 71 25  |tWindowInfo",,q%|
00001ce0  2b 32 35 36 0d 08 48 17  20 20 20 e7 20 46 69 6c  |+256..H.   . Fil|
00001cf0  65 43 68 61 6e 67 65 64  25 20 8c 0d 08 52 28 20  |eChanged% ...R( |
00001d00  20 20 20 20 20 e7 20 4d  75 6c 74 69 74 61 73 6b  |     . Multitask|
00001d10  25 20 80 20 4d 75 6c 74  69 74 61 73 6b 69 6e 67  |% . Multitasking|
00001d20  25 20 8c 0d 08 5c 3a 20  20 20 20 20 20 20 20 20  |% ...\:         |
00001d30  24 28 71 25 21 28 32 35  36 2b 37 36 29 29 3d 22  |$(q%!(256+76))="|
00001d40  45 6d 75 6c 61 74 69 6e  67 20 27 22 2b 66 69 6c  |Emulating '"+fil|
00001d50  65 6e 61 6d 65 24 2b 22  27 22 2b bd 30 0d 08 66  |ename$+"'"+.0..f|
00001d60  0d 20 20 20 20 20 20 20  20 cc 0d 08 70 3b 20 20  |.        ...p;  |
00001d70  20 20 20 20 20 20 20 24  28 71 25 21 28 32 35 36  |       $(q%!(256|
00001d80  2b 37 36 29 29 3d 22 50  72 69 6e 74 45 6d 75 6c  |+76))="PrintEmul|
00001d90  3a 20 22 2b 66 69 6c 65  6e 61 6d 65 24 2b 22 20  |: "+filename$+" |
00001da0  2a 22 2b bd 30 0d 08 7a  0c 20 20 20 20 20 20 20  |*"+.0..z.       |
00001db0  cd 0d 08 84 0a 20 20 20  20 20 cc 0d 08 8e 33 20  |.....     ....3 |
00001dc0  20 20 20 20 20 24 28 71  25 21 28 32 35 36 2b 37  |     $(q%!(256+7|
00001dd0  36 29 29 3d 22 50 72 69  6e 74 45 6d 75 6c 3a 20  |6))="PrintEmul: |
00001de0  22 2b 66 69 6c 65 6e 61  6d 65 24 2b bd 30 0d 08  |"+filename$+.0..|
00001df0  98 09 20 20 20 20 cd 0d  08 a2 24 20 20 20 c8 99  |..    ....$   ..|
00001e00  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
00001e10  6f 77 22 2c 2c 71 25 2b  32 35 36 0d 08 ac 23 20  |ow",,q%+256...# |
00001e20  20 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |  .. "Wimp_OpenW|
00001e30  69 6e 64 6f 77 22 2c 2c  71 25 2b 32 35 36 0d 08  |indow",,q%+256..|
00001e40  b6 06 20 cd 0d 08 c0 05  e1 0d 08 ca 05 3a 0d 08  |.. ..........:..|
00001e50  d4 13 dd f2 63 6c 69 63  6b 65 64 5f 62 65 6c 6f  |....clicked_belo|
00001e60  77 0d 08 de 46 e7 20 71  25 21 31 36 3d 49 63 6f  |w...F. q%!16=Ico|
00001e70  6e 42 65 6c 6f 77 25 20  80 20 71 25 21 38 3d 32  |nBelow% . q%!8=2|
00001e80  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00001e90  4d 65 6e 75 22 2c 2c 4d  65 6e 75 25 2c 21 71 25  |Menu",,Menu%,!q%|
00001ea0  2d 36 34 2c 32 37 30 0d  08 e8 72 e7 20 71 25 21  |-64,270...r. q%!|
00001eb0  31 36 3d 49 63 6f 6e 42  65 6c 6f 77 25 20 80 20  |16=IconBelow% . |
00001ec0  71 25 21 38 3d 34 20 e7  20 46 69 6c 65 4c 6f 61  |q%!8=4 . FileLoa|
00001ed0  64 65 64 25 20 21 71 25  3d 4d 61 69 6e 48 61 6e  |ded% !q%=MainHan|
00001ee0  64 6c 65 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |dle%:.. "Wimp_Ge|
00001ef0  74 57 69 6e 64 6f 77 49  6e 66 6f 22 2c 2c 71 25  |tWindowInfo",,q%|
00001f00  3a c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |:.. "Wimp_OpenWi|
00001f10  6e 64 6f 77 22 2c 2c 71  25 0d 08 f2 05 e1 0d 08  |ndow",,q%.......|
00001f20  fc 05 3a 0d 09 06 0d dd  f2 72 65 63 65 69 76 65  |..:......receive|
00001f30  0d 09 10 0e c8 8e 20 71  25 21 31 36 20 ca 0d 09  |...... q%!16 ...|
00001f40  1a 0f 20 c9 20 30 20 3a  20 f2 64 69 65 0d 09 24  |.. . 0 : .die..$|
00001f50  10 20 c9 20 32 20 3a 20  f2 73 61 76 65 0d 09 2e  |. . 2 : .save...|
00001f60  2a 20 c9 20 33 20 3a 20  e7 20 71 25 21 32 30 3d  |* . 3 : . q%!20=|
00001f70  2d 32 20 80 20 71 25 21  32 34 3d 49 63 6f 6e 42  |-2 . q%!24=IconB|
00001f80  65 6c 6f 77 25 20 8c 0d  09 38 2b 20 20 20 20 20  |elow% ...8+     |
00001f90  20 20 20 20 20 20 20 66  69 6c 65 6e 61 6d 65 24  |       filename$|
00001fa0  3d a4 67 65 74 73 74 72  69 6e 67 28 71 25 2b 34  |=.getstring(q%+4|
00001fb0  34 29 0d 09 42 1e 20 20  20 20 20 20 20 20 20 20  |4)..B.          |
00001fc0  20 20 f2 64 61 74 61 61  63 6b 3a f2 6c 6f 61 64  |  .dataack:.load|
00001fd0  0d 09 4c 10 20 20 20 20  20 20 20 20 20 20 20 cd  |..L.           .|
00001fe0  0d 09 56 26 20 c9 20 35  20 3a 20 66 69 6c 65 6e  |..V& . 5 : filen|
00001ff0  61 6d 65 24 3d a4 67 65  74 73 74 72 69 6e 67 28  |ame$=.getstring(|
00002000  71 25 2b 34 34 29 0d 09  60 36 20 20 20 20 20 20  |q%+44)..`6      |
00002010  20 20 20 20 c8 99 20 22  58 4f 53 5f 46 69 6c 65  |    .. "XOS_File|
00002020  22 2c 35 2c 66 69 6c 65  6e 61 6d 65 24 20 b8 20  |",5,filename$ . |
00002030  2c 2c 4c 6f 61 64 41 64  72 65 73 25 0d 09 6a 3b  |,,LoadAdres%..j;|
00002040  20 20 20 20 20 20 20 20  20 20 e7 20 28 4c 6f 61  |          . (Loa|
00002050  64 41 64 72 65 73 25 20  80 20 26 46 46 46 30 30  |dAdres% . &FFF00|
00002060  29 3d 26 46 46 34 30 30  20 f2 64 61 74 61 61 63  |)=&FF400 .dataac|
00002070  6b 3a f2 6c 6f 61 64 0d  09 74 3c 20 c9 20 26 34  |k:.load..t< . &4|
00002080  30 30 43 30 20 3a 20 f2  69 63 6f 6e 5f 70 75 74  |00C0 : .icon_put|
00002090  64 61 74 61 28 71 25 2b  32 35 36 2c 5a 6f 6f 6d  |data(q%+256,Zoom|
000020a0  48 61 6e 64 6c 65 25 2c  30 2c c3 54 65 6c 6c 65  |Handle%,0,.Telle|
000020b0  72 25 29 0d 09 7e 3f 20  20 20 20 20 20 20 20 20  |r%)..~?         |
000020c0  20 20 20 20 20 20 f2 69  63 6f 6e 5f 70 75 74 64  |      .icon_putd|
000020d0  61 74 61 28 71 25 2b 32  35 36 2c 5a 6f 6f 6d 48  |ata(q%+256,ZoomH|
000020e0  61 6e 64 6c 65 25 2c 31  2c c3 4e 6f 65 6d 65 72  |andle%,1,.Noemer|
000020f0  25 29 0d 09 88 3d 20 20  20 20 20 20 20 20 20 20  |%)...=          |
00002100  20 20 20 20 20 c8 99 20  22 57 69 6d 70 5f 43 72  |     .. "Wimp_Cr|
00002110  65 61 74 65 53 75 62 4d  65 6e 75 22 2c 2c 71 25  |eateSubMenu",,q%|
00002120  21 32 30 2c 71 25 21 32  34 2c 71 25 21 32 38 0d  |!20,q%!24,q%!28.|
00002130  09 92 46 20 c9 20 26 34  30 30 43 31 20 3a 20 c8  |..F . &400C1 : .|
00002140  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
00002150  72 69 61 62 6c 65 22 2c  2d 31 2c 34 20 b8 20 2c  |riable",-1,4 . ,|
00002160  2c 58 45 69 67 25 3a 58  45 69 67 25 3d 31 3c 3c  |,XEig%:XEig%=1<<|
00002170  58 45 69 67 25 0d 09 9c  49 20 20 20 20 20 20 20  |XEig%...I       |
00002180  20 20 20 20 20 20 20 20  c8 99 20 22 4f 53 5f 52  |        .. "OS_R|
00002190  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
000021a0  2c 2d 31 2c 35 20 b8 20  2c 2c 59 45 69 67 25 3a  |,-1,5 . ,,YEig%:|
000021b0  59 45 69 67 25 3d 31 3c  3c 59 45 69 67 25 0d 09  |YEig%=1<<YEig%..|
000021c0  a6 2f 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |./              |
000021d0  20 e7 20 46 69 6c 65 4c  6f 61 64 65 64 25 20 f2  | . FileLoaded% .|
000021e0  75 70 64 61 74 65 5f 77  69 6e 64 6f 77 0d 09 b0  |update_window...|
000021f0  05 cb 0d 09 ba 05 e1 0d  09 c4 05 3a 0d 09 ce 11  |...........:....|
00002200  dd f2 61 63 6b 6e 6f 77  6c 65 64 67 65 0d 09 d8  |..acknowledge...|
00002210  0e c8 8e 20 71 25 21 31  36 20 ca 0d 09 e2 1a 20  |... q%!16 ..... |
00002220  20 c9 20 33 20 3a 20 e7  20 71 25 21 31 32 3d 71  | . 3 : . q%!12=q|
00002230  25 21 38 20 8c 0d 09 ec  25 20 20 20 20 20 20 20  |%!8 ....%       |
00002240  20 20 20 20 20 20 2a 52  45 4d 4f 56 45 20 3c 57  |      *REMOVE <W|
00002250  69 6d 70 24 53 63 72 61  70 3e 0d 09 f6 53 20 20  |imp$Scrap>...S  |
00002260  20 20 20 20 20 20 20 20  20 20 20 85 20 30 2c 22  |           . 0,"|
00002270  44 61 74 61 20 74 72 61  6e 73 66 65 72 20 66 61  |Data transfer fa|
00002280  69 6c 65 64 20 3a 20 52  65 63 65 69 76 65 72 20  |iled : Receiver |
00002290  64 69 65 64 20 28 4e 6f  20 66 6c 6f 77 65 72 73  |died (No flowers|
000022a0  20 62 79 20 72 65 71 75  65 73 74 29 22 0d 0a 00  | by request)"...|
000022b0  10 20 20 20 20 20 20 20  20 20 20 20 cd 0d 0a 0a  |.           ....|
000022c0  05 cb 0d 0a 14 05 e1 0d  0a 1e 05 3a 0d 0a 28 0a  |...........:..(.|
000022d0  dd f2 73 61 76 65 0d 0a  32 0b ea 20 69 25 2c 69  |..save..2.. i%,i|
000022e0  24 0d 0a 3c 07 ea 20 85  0d 0a 46 1d ee 20 85 20  |$..<.. ...F.. . |
000022f0  ea 20 f2 65 72 72 6f 72  28 2d 31 2c f6 24 29 3a  |. .error(-1,.$):|
00002300  f7 20 85 3a e1 0d 0a 50  0e 69 25 3d 30 3a 69 24  |. .:...P.i%=0:i$|
00002310  3d 22 22 0d 0a 5a 2e c8  95 20 71 25 3f 28 34 34  |=""..Z... q%?(44|
00002320  2b 69 25 29 3e 33 31 3a  69 24 2b 3d bd 28 71 25  |+i%)>31:i$+=.(q%|
00002330  3f 28 34 34 2b 69 25 29  29 3a 69 25 2b 3d 31 3a  |?(44+i%)):i%+=1:|
00002340  ce 0d 0a 64 1e c8 99 20  22 4f 53 5f 53 70 72 69  |...d... "OS_Spri|
00002350  74 65 4f 70 22 2c 35 32  34 2c 48 25 2c 69 24 0d  |teOp",524,H%,i$.|
00002360  0a 6e 16 71 25 21 31 32  3d 71 25 21 38 3a 71 25  |.n.q%!12=q%!8:q%|
00002370  21 31 36 3d 33 0d 0a 78  24 c8 99 20 22 57 69 6d  |!16=3..x$.. "Wim|
00002380  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00002390  38 2c 71 25 2c 71 25 21  34 0d 0a 82 26 f2 69 63  |8,q%,q%!4...&.ic|
000023a0  6f 6e 5f 70 75 74 64 61  74 61 28 71 25 2c 53 61  |on_putdata(q%,Sa|
000023b0  76 65 48 61 6e 64 6c 65  25 2c 32 2c 69 24 29 0d  |veHandle%,2,i$).|
000023c0  0a 8c 21 46 69 6c 65 43  68 61 6e 67 65 64 25 3d  |..!FileChanged%=|
000023d0  a3 3a f2 75 70 64 61 74  65 5f 77 69 6e 64 6f 77  |.:.update_window|
000023e0  0d 0a 96 1c c8 99 20 22  57 69 6d 70 5f 43 72 65  |...... "Wimp_Cre|
000023f0  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 0d 0a a0 07  |ateMenu",,-1....|
00002400  f7 20 85 0d 0a aa 05 e1  0d 0a b4 05 3a 0d 0a be  |. ..........:...|
00002410  0c dd f2 73 61 76 65 4f  4b 0d 0a c8 08 ea 20 69  |...saveOK..... i|
00002420  24 0d 0a d2 07 ea 20 85  0d 0a dc 1d ee 20 85 20  |$..... ...... . |
00002430  ea 20 f2 65 72 72 6f 72  28 2d 31 2c f6 24 29 3a  |. .error(-1,.$):|
00002440  f7 20 85 3a e1 0d 0a e6  20 c8 99 20 22 57 69 6d  |. .:.... .. "Wim|
00002450  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00002460  22 2c 2c 71 25 0d 0a f0  2a 69 24 3d a4 69 63 6f  |",,q%...*i$=.ico|
00002470  6e 5f 67 65 74 64 61 74  61 28 71 25 2b 32 35 36  |n_getdata(q%+256|
00002480  2c 53 61 76 65 48 61 6e  64 6c 65 25 2c 32 29 0d  |,SaveHandle%,2).|
00002490  0a fa 56 e7 20 a7 69 24  2c 22 2e 22 29 3d 30 20  |..V. .i$,".")=0 |
000024a0  80 20 a7 69 24 2c 22 3a  22 29 3d 30 20 85 20 31  |. .i$,":")=0 . 1|
000024b0  2c 22 54 6f 20 73 61 76  65 2c 20 64 72 61 67 20  |,"To save, drag |
000024c0  74 68 65 20 66 69 6c 65  20 69 63 6f 6e 20 74 6f  |the file icon to|
000024d0  20 61 20 64 69 72 65 63  74 6f 72 79 20 64 69 73  | a directory dis|
000024e0  70 6c 61 79 22 0d 0b 04  1e c8 99 20 22 4f 53 5f  |play"...... "OS_|
000024f0  53 70 72 69 74 65 4f 70  22 2c 35 32 34 2c 48 25  |SpriteOp",524,H%|
00002500  2c 69 24 0d 0b 0e 21 46  69 6c 65 43 68 61 6e 67  |,i$...!FileChang|
00002510  65 64 25 3d a3 3a f2 75  70 64 61 74 65 5f 77 69  |ed%=.:.update_wi|
00002520  6e 64 6f 77 0d 0b 18 25  e7 20 71 25 21 38 3d 34  |ndow...%. q%!8=4|
00002530  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00002540  4d 65 6e 75 22 2c 2c 2d  31 0d 0b 22 07 f7 20 85  |Menu",,-1..".. .|
00002550  0d 0b 2c 05 e1 0d 0b 36  05 3a 0d 0b 40 0a dd f2  |..,....6.:..@...|
00002560  6c 6f 61 64 0d 0b 4a 0f  ea 20 43 68 65 63 6b 25  |load..J.. Check%|
00002570  2c 69 25 0d 0b 54 49 c8  99 20 22 58 4f 53 5f 46  |,i%..TI.. "XOS_F|
00002580  69 6c 65 22 2c 35 2c 66  69 6c 65 6e 61 6d 65 24  |ile",5,filename$|
00002590  20 b8 20 69 25 2c 2c 4c  6f 61 64 41 64 72 65 73  | . i%,,LoadAdres|
000025a0  25 2c 45 78 65 63 75 74  69 6f 6e 41 64 72 65 73  |%,ExecutionAdres|
000025b0  25 2c 4c 65 6e 67 74 68  25 2c 46 25 0d 0b 5e 0b  |%,Length%,F%..^.|
000025c0  c8 8e 20 69 25 20 ca 0d  0b 68 52 20 20 c9 20 32  |.. i% ...hR  . 2|
000025d0  20 3a 20 f2 65 72 72 6f  72 28 2d 31 2c 22 27 22  | : .error(-1,"'"|
000025e0  2b 66 69 6c 65 6e 61 6d  65 24 2b 22 27 20 69 73  |+filename$+"' is|
000025f0  20 61 20 64 69 72 65 63  74 6f 72 79 20 61 6e 64  | a directory and|
00002600  20 63 61 6e 20 6e 6f 74  20 62 65 20 6c 6f 61 64  | can not be load|
00002610  65 64 2e 2e 2e 22 29 3a  e1 0d 0b 72 05 cb 0d 0b  |ed..."):...r....|
00002620  7c 55 e7 20 28 46 25 80  31 29 3d 30 20 f2 65 72  ||U. (F%.1)=0 .er|
00002630  72 6f 72 28 2d 31 2c 22  59 6f 75 20 64 6f 6e 27  |ror(-1,"You don'|
00002640  74 20 68 61 76 65 20 72  65 61 64 20 61 63 63 65  |t have read acce|
00002650  73 73 20 66 6f 72 20 74  68 65 20 66 69 6c 65 20  |ss for the file |
00002660  27 22 2b 66 69 6c 65 6e  61 6d 65 24 2b 22 27 22  |'"+filename$+"'"|
00002670  29 3a e1 0d 0b 86 5c e7  20 28 4c 6f 61 64 41 64  |):....\. (LoadAd|
00002680  72 65 73 25 20 80 20 26  46 46 46 30 30 29 3c 3e  |res% . &FFF00)<>|
00002690  26 46 46 34 30 30 20 f2  65 72 72 6f 72 28 2d 31  |&FF400 .error(-1|
000026a0  2c 22 4f 6e 6c 79 20 27  50 72 69 6e 74 4f 75 74  |,"Only 'PrintOut|
000026b0  27 20 66 69 6c 65 73 20  77 69 6c 6c 20 62 65 20  |' files will be |
000026c0  61 63 63 65 70 74 65 64  2e 2e 2e 22 29 3a e1 0d  |accepted..."):..|
000026d0  0b 90 35 c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |..5.. "Wimp_Slot|
000026e0  53 69 7a 65 22 2c 4d 61  69 6e 53 69 7a 65 25 2b  |Size",MainSize%+|
000026f0  36 32 34 2a 31 30 32 34  2c 2d 31 20 b8 20 43 68  |624*1024,-1 . Ch|
00002700  65 63 6b 25 0d 0b 9a b9  e7 20 4d 61 69 6e 53 69  |eck%..... MainSi|
00002710  7a 65 25 2b 36 32 34 2a  31 30 32 34 3e 43 68 65  |ze%+624*1024>Che|
00002720  63 6b 25 20 c8 99 20 22  57 69 6d 70 5f 53 6c 6f  |ck% .. "Wimp_Slo|
00002730  74 53 69 7a 65 22 2c 4d  61 69 6e 53 69 7a 65 25  |tSize",MainSize%|
00002740  2c 2d 31 3a f2 65 72 72  6f 72 28 2d 31 2c 22 49  |,-1:.error(-1,"I|
00002750  27 6d 20 73 6f 72 72 79  2c 20 74 68 65 72 65 20  |'m sorry, there |
00002760  69 73 20 6e 6f 74 20 65  6e 6f 75 67 68 20 6d 65  |is not enough me|
00002770  6d 6f 72 79 20 74 6f 20  6c 6f 61 64 20 74 68 69  |mory to load thi|
00002780  73 20 66 69 6c 65 2e 20  20 50 65 72 68 61 70 73  |s file.  Perhaps|
00002790  20 61 6e 20 38 20 4d 42  79 74 65 20 6d 65 6d 6f  | an 8 MByte memo|
000027a0  72 79 20 62 6f 61 72 64  20 6d 61 79 20 62 65 20  |ry board may be |
000027b0  75 73 65 66 75 6c 2e 2e  2e 22 29 3a e1 0d 0b a4  |useful..."):....|
000027c0  28 21 48 25 3d 36 32 34  2a 31 30 32 34 3a 48 25  |(!H%=624*1024:H%|
000027d0  21 34 3d 30 3a 48 25 21  38 3d 31 36 3a 48 25 21  |!4=0:H%!8=16:H%!|
000027e0  31 32 3d 31 36 0d 0b ae  33 c8 99 20 22 4f 53 5f  |12=16...3.. "OS_|
000027f0  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 31 35  |SpriteOp",256+15|
00002800  2c 48 25 2c 22 42 41 53  53 22 2c 30 2c 31 39 38  |,H%,"BASS",0,198|
00002810  35 2c 32 35 32 36 2c 30  0d 0b b8 22 f2 62 65 67  |5,2526,0...".beg|
00002820  69 6e 5f 65 6d 75 6c 61  74 65 3a 4d 75 6c 74 69  |in_emulate:Multi|
00002830  74 61 73 6b 69 6e 67 25  3d b9 0d 0b c2 2c 46 69  |tasking%=....,Fi|
00002840  6c 65 4c 6f 61 64 65 64  25 3d b9 3a 43 6c 65 61  |leLoaded%=.:Clea|
00002850  72 25 3f 31 30 3d 30 3a  46 69 6c 65 43 68 61 6e  |r%?10=0:FileChan|
00002860  67 65 64 25 3d b9 0d 0b  cc 12 f2 75 70 64 61 74  |ged%=......updat|
00002870  65 5f 77 69 6e 64 6f 77  0d 0b d6 53 71 25 21 32  |e_window...Sq%!2|
00002880  35 36 3d 4d 61 69 6e 48  61 6e 64 6c 65 25 3a c8  |56=MainHandle%:.|
00002890  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
000028a0  77 49 6e 66 6f 22 2c 2c  71 25 2b 32 35 36 3a c8  |wInfo",,q%+256:.|
000028b0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
000028c0  6f 77 22 2c 2c 71 25 2b  32 35 36 0d 0b e0 22 e7  |ow",,q%+256...".|
000028d0  20 ac 28 4d 75 6c 74 69  74 61 73 6b 25 29 20 f2  | .(Multitask%) .|
000028e0  6e 6f 74 5f 6d 75 6c 74  69 74 61 73 6b 0d 0b ea  |not_multitask...|
000028f0  40 f2 69 63 6f 6e 5f 70  75 74 64 61 74 61 28 71  |@.icon_putdata(q|
00002900  25 2b 32 35 36 2c 41 62  6f 75 74 48 61 6e 64 6c  |%+256,AboutHandl|
00002910  65 25 2c 36 2c a4 73 65  61 72 63 68 5f 6c 65 61  |e%,6,.search_lea|
00002920  66 28 66 69 6c 65 6e 61  6d 65 24 29 29 0d 0b f4  |f(filename$))...|
00002930  31 f2 69 63 6f 6e 5f 70  75 74 64 61 74 61 28 71  |1.icon_putdata(q|
00002940  25 2b 32 35 36 2c 41 62  6f 75 74 48 61 6e 64 6c  |%+256,AboutHandl|
00002950  65 25 2c 37 2c c3 4c 65  6e 67 74 68 25 29 0d 0b  |e%,7,.Length%)..|
00002960  fe 05 e1 0d 0c 08 05 3a  0d 0c 12 13 dd f2 6e 6f  |.......:......no|
00002970  74 5f 6d 75 6c 74 69 74  61 73 6b 0d 0c 1c 16 c8  |t_multitask.....|
00002980  99 20 22 58 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |. "XHourglass_On|
00002990  22 0d 0c 26 14 c8 95 20  4d 75 6c 74 69 74 61 73  |"..&... Multitas|
000029a0  6b 69 6e 67 25 0d 0c 30  0e 20 20 f2 65 6d 75 6c  |king%..0.  .emul|
000029b0  61 74 65 0d 0c 3a 05 ce  0d 0c 44 10 f2 65 6e 64  |ate..:....D..end|
000029c0  5f 65 6d 75 6c 61 74 65  0d 0c 4e 17 c8 99 20 22  |_emulate..N... "|
000029d0  58 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |XHourglass_Off".|
000029e0  0c 58 05 e1 0d 0c 62 05  3a 0d 0c 6c 13 dd f2 62  |.X....b.:..l...b|
000029f0  65 67 69 6e 5f 65 6d 75  6c 61 74 65 0d 0c 76 22  |egin_emulate..v"|
00002a00  51 75 61 64 44 25 3d a3  3a 44 6f 75 62 6c 65 44  |QuadD%=.:DoubleD|
00002a10  25 3d a3 3a 53 69 6e 67  6c 65 44 25 3d a3 0d 0c  |%=.:SingleD%=...|
00002a20  80 16 46 69 6c 65 25 3d  8e 28 66 69 6c 65 6e 61  |..File%=.(filena|
00002a30  6d 65 24 29 0d 0c 8a 0d  59 25 3d 30 3a 58 25 3d  |me$)....Y%=0:X%=|
00002a40  30 0d 0c 94 10 4c 69 6e  65 46 65 65 64 25 3d 33  |0....LineFeed%=3|
00002a50  36 0d 0c 9e 05 e1 0d 0c  a8 05 3a 0d 0c b2 11 dd  |6.........:.....|
00002a60  f2 65 6e 64 5f 65 6d 75  6c 61 74 65 0d 0c bc 0b  |.end_emulate....|
00002a70  d9 23 46 69 6c 65 25 0d  0c c6 31 f2 69 63 6f 6e  |.#File%...1.icon|
00002a80  5f 70 75 74 73 70 72 69  74 65 28 71 25 2b 32 35  |_putsprite(q%+25|
00002a90  36 2c 41 62 6f 75 74 48  61 6e 64 6c 65 25 2c 33  |6,AboutHandle%,3|
00002aa0  2c 51 75 61 64 44 25 29  0d 0c d0 33 f2 69 63 6f  |,QuadD%)...3.ico|
00002ab0  6e 5f 70 75 74 73 70 72  69 74 65 28 71 25 2b 32  |n_putsprite(q%+2|
00002ac0  35 36 2c 41 62 6f 75 74  48 61 6e 64 6c 65 25 2c  |56,AboutHandle%,|
00002ad0  34 2c 44 6f 75 62 6c 65  44 25 29 0d 0c da 33 f2  |4,DoubleD%)...3.|
00002ae0  69 63 6f 6e 5f 70 75 74  73 70 72 69 74 65 28 71  |icon_putsprite(q|
00002af0  25 2b 32 35 36 2c 41 62  6f 75 74 48 61 6e 64 6c  |%+256,AboutHandl|
00002b00  65 25 2c 35 2c 53 69 6e  67 6c 65 44 25 29 0d 0c  |e%,5,SingleD%)..|
00002b10  e4 05 e1 0d 0c ee 05 3a  0d 0c f8 0d dd f2 65 6d  |.......:......em|
00002b20  75 6c 61 74 65 0d 0d 02  36 c8 99 20 22 58 48 6f  |ulate...6.. "XHo|
00002b30  75 72 67 6c 61 73 73 5f  50 65 72 63 65 6e 74 61  |urglass_Percenta|
00002b40  67 65 22 2c 31 30 30 2a  28 8f 23 46 69 6c 65 25  |ge",100*(.#File%|
00002b50  29 20 81 20 4c 65 6e 67  74 68 25 0d 0d 0c 0e 42  |) . Length%....B|
00002b60  25 3d 9a 23 46 69 6c 65  25 0d 0d 16 0b c8 8e 20  |%=.#File%...... |
00002b70  42 25 20 ca 0d 0d 20 13  20 c9 20 26 43 20 3a 20  |B% ... . . &C : |
00002b80  59 25 3d 32 35 32 36 0d  0d 2a 10 20 c9 20 26 44  |Y%=2526..*. . &D|
00002b90  20 3a 20 58 25 3d 30 0d  0d 34 0c 20 c9 20 26 31  | : X%=0..4. . &1|
00002ba0  42 20 3a 0d 0d 3e 11 20  20 20 42 25 3d 9a 23 46  |B :..>.   B%=.#F|
00002bb0  69 6c 65 25 0d 0d 48 0e  20 20 20 c8 8e 20 42 25  |ile%..H.   .. B%|
00002bc0  20 ca 0d 0d 52 1d 20 20  20 20 20 c9 20 26 33 32  | ...R.     . &32|
00002bd0  20 3a 20 4c 69 6e 65 46  65 65 64 25 3d 33 36 0d  | : LineFeed%=36.|
00002be0  0d 5c 26 20 20 20 20 20  c9 20 26 34 31 20 3a 20  |.\&     . &41 : |
00002bf0  4c 69 6e 65 46 65 65 64  25 3d 28 9a 23 46 69 6c  |LineFeed%=(.#Fil|
00002c00  65 25 29 2a 33 0d 0d 66  1c 20 20 20 20 20 c9 20  |e%)*3..f.     . |
00002c10  26 34 41 20 3a 20 59 25  2b 3d 9a 23 46 69 6c 65  |&4A : Y%+=.#File|
00002c20  25 0d 0d 70 3a 20 20 20  20 20 c9 20 26 35 41 20  |%..p:     . &5A |
00002c30  3a 20 51 75 61 64 44 25  3d b9 3a 41 25 3d 58 25  |: QuadD%=.:A%=X%|
00002c40  3a 42 25 3d 59 25 3a 43  25 3d 46 69 6c 65 25 3a  |:B%=Y%:C%=File%:|
00002c50  d6 20 51 75 61 64 44 65  6e 73 25 0d 0d 7a 27 20  |. QuadDens%..z' |
00002c60  20 20 20 20 c9 20 26 34  30 20 3a 20 59 25 3d 30  |    . &40 : Y%=0|
00002c70  3a 58 25 3d 30 3a 4c 69  6e 65 46 65 65 64 25 3d  |:X%=0:LineFeed%=|
00002c80  33 36 0d 0d 84 3e 20 20  20 20 20 c9 20 26 35 39  |36...>     . &59|
00002c90  20 3a 20 44 6f 75 62 6c  65 44 25 3d b9 3a 41 25  | : DoubleD%=.:A%|
00002ca0  3d 58 25 3a 42 25 3d 59  25 3a 43 25 3d 46 69 6c  |=X%:B%=Y%:C%=Fil|
00002cb0  65 25 3a d6 20 44 6f 75  62 6c 65 44 65 6e 73 25  |e%:. DoubleDens%|
00002cc0  0d 0d 8e 3e 20 20 20 20  20 c9 20 26 34 42 20 3a  |...>     . &4B :|
00002cd0  20 53 69 6e 67 6c 65 44  25 3d b9 3a 41 25 3d 58  | SingleD%=.:A%=X|
00002ce0  25 3a 42 25 3d 59 25 3a  43 25 3d 46 69 6c 65 25  |%:B%=Y%:C%=File%|
00002cf0  3a d6 20 53 69 6e 67 6c  65 44 65 6e 73 25 0d 0d  |:. SingleDens%..|
00002d00  98 5b 20 20 20 20 20 7f  20 3a 20 f2 65 72 72 6f  |.[     . : .erro|
00002d10  72 28 2d 31 2c 22 45 6d  75 6c 61 74 69 6f 6e 20  |r(-1,"Emulation |
00002d20  65 72 72 6f 72 20 32 20  3a 20 26 22 2b c3 7e 42  |error 2 : &"+.~B|
00002d30  25 2b 22 20 22 2b bd 33  34 2b bd 42 25 2b bd 33  |%+" "+.34+.B%+.3|
00002d40  34 2b 22 2c 20 50 4e 54  52 20 61 74 20 26 22 2b  |4+", PNTR at &"+|
00002d50  c3 7e 8f 23 41 25 29 3a  e1 0d 0d a2 08 20 20 20  |.~.#A%):.....   |
00002d60  cb 0d 0d ac 47 20 7f 20  3a 20 f2 65 72 72 6f 72  |....G . : .error|
00002d70  28 2d 31 2c 22 45 6d 75  6c 61 74 69 6f 6e 20 65  |(-1,"Emulation e|
00002d80  72 72 6f 72 20 31 20 3a  20 26 22 2b c3 7e 42 25  |rror 1 : &"+.~B%|
00002d90  2b 22 2c 20 50 4e 54 52  20 61 74 20 26 22 2b c3  |+", PNTR at &"+.|
00002da0  7e 8f 23 41 25 29 3a e1  0d 0d b6 05 cb 0d 0d c0  |~.#A%):.........|
00002db0  27 e7 20 c5 23 46 69 6c  65 25 20 84 20 59 25 3e  |'. .#File% . Y%>|
00002dc0  32 35 32 35 20 4d 75 6c  74 69 74 61 73 6b 69 6e  |2525 Multitaskin|
00002dd0  67 25 3d a3 0d 0d ca 05  e1 0d 0d d4 05 3a 0d 0d  |g%=..........:..|
00002de0  de 09 dd f2 61 73 6d 0d  0d e8 28 43 6f 64 65 4c  |....asm...(CodeL|
00002df0  65 6e 67 74 68 25 3d 32  30 34 38 3a de 20 43 6f  |ength%=2048:. Co|
00002e00  64 65 25 20 43 6f 64 65  4c 65 6e 67 74 68 25 0d  |de% CodeLength%.|
00002e10  0d f2 14 e3 20 50 61 73  73 25 3d 30 20 b8 20 32  |.... Pass%=0 . 2|
00002e20  20 88 32 0d 0d fc 17 50  25 3d 43 6f 64 65 25 3a  | .2....P%=Code%:|
00002e30  5b 4f 50 54 20 50 61 73  73 25 0d 0e 06 18 20 20  |[OPT Pass%....  |
00002e40  3b 52 30 20 3d 20 78 20  63 6f 6f 72 64 69 6e 61  |;R0 = x coordina|
00002e50  74 65 0d 0e 10 18 20 20  3b 52 31 20 3d 20 79 20  |te....  ;R1 = y |
00002e60  63 6f 6f 72 64 69 6e 61  74 65 0d 0e 1a 17 20 20  |coordinate....  |
00002e70  3b 52 32 20 3d 20 66 69  6c 65 20 68 61 6e 64 6c  |;R2 = file handl|
00002e80  65 0d 0e 24 0e 2e 51 75  61 64 44 65 6e 73 25 0d  |e..$..QuadDens%.|
00002e90  0e 2e 17 20 20 20 53 54  4d 46 44 20 52 31 33 21  |...   STMFD R13!|
00002ea0  2c 7b 52 31 34 7d 0d 0e  38 1a 20 20 20 4d 4f 56  |,{R14}..8.   MOV|
00002eb0  20 52 33 2c 52 30 3a 4d  4f 56 20 52 36 2c 52 31  | R3,R0:MOV R6,R1|
00002ec0  0d 0e 42 28 20 20 20 4d  4f 56 20 52 31 2c 52 32  |..B(   MOV R1,R2|
00002ed0  3a 53 57 49 20 22 4f 53  5f 42 47 65 74 22 3a 4d  |:SWI "OS_BGet":M|
00002ee0  4f 56 20 52 35 2c 52 30  0d 0e 4c 27 20 20 20 53  |OV R5,R0..L'   S|
00002ef0  57 49 20 22 4f 53 5f 42  47 65 74 22 3a 41 44 44  |WI "OS_BGet":ADD|
00002f00  20 52 35 2c 52 35 2c 52  30 2c 41 53 4c 23 38 0d  | R5,R5,R0,ASL#8.|
00002f10  0e 56 0b 2e 71 75 61 64  31 25 0d 0e 60 14 20 20  |.V..quad1%..`.  |
00002f20  20 53 57 49 20 22 4f 53  5f 42 47 65 74 22 0d 0e  | SWI "OS_BGet"..|
00002f30  6a 2e 20 20 20 54 53 54  20 52 30 2c 23 31 32 38  |j.   TST R0,#128|
00002f40  3a 41 44 44 4e 45 20 52  34 2c 52 36 2c 23 30 20  |:ADDNE R4,R6,#0 |
00002f50  3a 42 4c 4e 45 20 50 6f  69 6e 74 25 0d 0e 74 2e  |:BLNE Point%..t.|
00002f60  20 20 20 54 53 54 20 52  30 2c 23 36 34 20 3a 41  |   TST R0,#64 :A|
00002f70  44 44 4e 45 20 52 34 2c  52 36 2c 23 33 20 3a 42  |DDNE R4,R6,#3 :B|
00002f80  4c 4e 45 20 50 6f 69 6e  74 25 0d 0e 7e 2e 20 20  |LNE Point%..~.  |
00002f90  20 54 53 54 20 52 30 2c  23 33 32 20 3a 41 44 44  | TST R0,#32 :ADD|
00002fa0  4e 45 20 52 34 2c 52 36  2c 23 36 20 3a 42 4c 4e  |NE R4,R6,#6 :BLN|
00002fb0  45 20 50 6f 69 6e 74 25  0d 0e 88 2e 20 20 20 54  |E Point%....   T|
00002fc0  53 54 20 52 30 2c 23 31  36 20 3a 41 44 44 4e 45  |ST R0,#16 :ADDNE|
00002fd0  20 52 34 2c 52 36 2c 23  39 20 3a 42 4c 4e 45 20  | R4,R6,#9 :BLNE |
00002fe0  50 6f 69 6e 74 25 0d 0e  92 2e 20 20 20 54 53 54  |Point%....   TST|
00002ff0  20 52 30 2c 23 38 20 20  3a 41 44 44 4e 45 20 52  | R0,#8  :ADDNE R|
00003000  34 2c 52 36 2c 23 31 32  3a 42 4c 4e 45 20 50 6f  |4,R6,#12:BLNE Po|
00003010  69 6e 74 25 0d 0e 9c 2e  20 20 20 54 53 54 20 52  |int%....   TST R|
00003020  30 2c 23 34 20 20 3a 41  44 44 4e 45 20 52 34 2c  |0,#4  :ADDNE R4,|
00003030  52 36 2c 23 31 35 3a 42  4c 4e 45 20 50 6f 69 6e  |R6,#15:BLNE Poin|
00003040  74 25 0d 0e a6 2e 20 20  20 54 53 54 20 52 30 2c  |t%....   TST R0,|
00003050  23 32 20 20 3a 41 44 44  4e 45 20 52 34 2c 52 36  |#2  :ADDNE R4,R6|
00003060  2c 23 31 38 3a 42 4c 4e  45 20 50 6f 69 6e 74 25  |,#18:BLNE Point%|
00003070  0d 0e b0 2e 20 20 20 54  53 54 20 52 30 2c 23 31  |....   TST R0,#1|
00003080  20 20 3a 41 44 44 4e 45  20 52 34 2c 52 36 2c 23  |  :ADDNE R4,R6,#|
00003090  32 31 3a 42 4c 4e 45 20  50 6f 69 6e 74 25 0d 0e  |21:BLNE Point%..|
000030a0  ba 13 20 20 20 41 44 44  20 52 33 2c 52 33 2c 23  |..   ADD R3,R3,#|
000030b0  31 0d 0e c4 14 20 20 20  53 55 42 53 20 52 35 2c  |1....   SUBS R5,|
000030c0  52 35 2c 23 31 0d 0e ce  13 20 20 20 20 20 42 47  |R5,#1....     BG|
000030d0  54 20 71 75 61 64 31 25  0d 0e d8 17 20 20 20 4c  |T quad1%....   L|
000030e0  44 4d 46 44 20 52 31 33  21 2c 7b 50 43 7d 5e 0d  |DMFD R13!,{PC}^.|
000030f0  0e e2 10 2e 44 6f 75 62  6c 65 44 65 6e 73 25 0d  |....DoubleDens%.|
00003100  0e ec 17 20 20 20 53 54  4d 46 44 20 52 31 33 21  |...   STMFD R13!|
00003110  2c 7b 52 31 34 7d 0d 0e  f6 1a 20 20 20 4d 4f 56  |,{R14}....   MOV|
00003120  20 52 33 2c 52 30 3a 4d  4f 56 20 52 36 2c 52 31  | R3,R0:MOV R6,R1|
00003130  0d 0f 00 28 20 20 20 4d  4f 56 20 52 31 2c 52 32  |...(   MOV R1,R2|
00003140  3a 53 57 49 20 22 4f 53  5f 42 47 65 74 22 3a 4d  |:SWI "OS_BGet":M|
00003150  4f 56 20 52 35 2c 52 30  0d 0f 0a 27 20 20 20 53  |OV R5,R0...'   S|
00003160  57 49 20 22 4f 53 5f 42  47 65 74 22 3a 41 44 44  |WI "OS_BGet":ADD|
00003170  20 52 35 2c 52 35 2c 52  30 2c 41 53 4c 23 38 0d  | R5,R5,R0,ASL#8.|
00003180  0f 14 0d 2e 64 6f 75 62  6c 65 31 25 0d 0f 1e 14  |....double1%....|
00003190  20 20 20 53 57 49 20 22  4f 53 5f 42 47 65 74 22  |   SWI "OS_BGet"|
000031a0  0d 0f 28 34 20 20 20 54  53 54 20 52 30 2c 23 31  |..(4   TST R0,#1|
000031b0  32 38 3a 41 44 44 4e 45  20 52 34 2c 52 36 2c 23  |28:ADDNE R4,R6,#|
000031c0  30 20 3a 42 4c 4e 45 20  44 6f 75 62 6c 65 50 6f  |0 :BLNE DoublePo|
000031d0  69 6e 74 25 0d 0f 32 34  20 20 20 54 53 54 20 52  |int%..24   TST R|
000031e0  30 2c 23 36 34 20 3a 41  44 44 4e 45 20 52 34 2c  |0,#64 :ADDNE R4,|
000031f0  52 36 2c 23 33 20 3a 42  4c 4e 45 20 44 6f 75 62  |R6,#3 :BLNE Doub|
00003200  6c 65 50 6f 69 6e 74 25  0d 0f 3c 34 20 20 20 54  |lePoint%..<4   T|
00003210  53 54 20 52 30 2c 23 33  32 20 3a 41 44 44 4e 45  |ST R0,#32 :ADDNE|
00003220  20 52 34 2c 52 36 2c 23  36 20 3a 42 4c 4e 45 20  | R4,R6,#6 :BLNE |
00003230  44 6f 75 62 6c 65 50 6f  69 6e 74 25 0d 0f 46 34  |DoublePoint%..F4|
00003240  20 20 20 54 53 54 20 52  30 2c 23 31 36 20 3a 41  |   TST R0,#16 :A|
00003250  44 44 4e 45 20 52 34 2c  52 36 2c 23 39 20 3a 42  |DDNE R4,R6,#9 :B|
00003260  4c 4e 45 20 44 6f 75 62  6c 65 50 6f 69 6e 74 25  |LNE DoublePoint%|
00003270  0d 0f 50 34 20 20 20 54  53 54 20 52 30 2c 23 38  |..P4   TST R0,#8|
00003280  20 20 3a 41 44 44 4e 45  20 52 34 2c 52 36 2c 23  |  :ADDNE R4,R6,#|
00003290  31 32 3a 42 4c 4e 45 20  44 6f 75 62 6c 65 50 6f  |12:BLNE DoublePo|
000032a0  69 6e 74 25 0d 0f 5a 34  20 20 20 54 53 54 20 52  |int%..Z4   TST R|
000032b0  30 2c 23 34 20 20 3a 41  44 44 4e 45 20 52 34 2c  |0,#4  :ADDNE R4,|
000032c0  52 36 2c 23 31 35 3a 42  4c 4e 45 20 44 6f 75 62  |R6,#15:BLNE Doub|
000032d0  6c 65 50 6f 69 6e 74 25  0d 0f 64 34 20 20 20 54  |lePoint%..d4   T|
000032e0  53 54 20 52 30 2c 23 32  20 20 3a 41 44 44 4e 45  |ST R0,#2  :ADDNE|
000032f0  20 52 34 2c 52 36 2c 23  31 38 3a 42 4c 4e 45 20  | R4,R6,#18:BLNE |
00003300  44 6f 75 62 6c 65 50 6f  69 6e 74 25 0d 0f 6e 34  |DoublePoint%..n4|
00003310  20 20 20 54 53 54 20 52  30 2c 23 31 20 20 3a 41  |   TST R0,#1  :A|
00003320  44 44 4e 45 20 52 34 2c  52 36 2c 23 32 31 3a 42  |DDNE R4,R6,#21:B|
00003330  4c 4e 45 20 44 6f 75 62  6c 65 50 6f 69 6e 74 25  |LNE DoublePoint%|
00003340  0d 0f 78 13 20 20 20 41  44 44 20 52 33 2c 52 33  |..x.   ADD R3,R3|
00003350  2c 23 32 0d 0f 82 14 20  20 20 53 55 42 53 20 52  |,#2....   SUBS R|
00003360  35 2c 52 35 2c 23 31 0d  0f 8c 15 20 20 20 20 20  |5,R5,#1....     |
00003370  42 47 54 20 64 6f 75 62  6c 65 31 25 0d 0f 96 17  |BGT double1%....|
00003380  20 20 20 4c 44 4d 46 44  20 52 31 33 21 2c 7b 50  |   LDMFD R13!,{P|
00003390  43 7d 5e 0d 0f a0 11 2e  44 6f 75 62 6c 65 50 6f  |C}^.....DoublePo|
000033a0  69 6e 74 25 0d 0f aa 12  20 20 20 4d 4f 56 20 52  |int%....   MOV R|
000033b0  31 32 2c 52 31 34 0d 0f  b4 10 20 20 20 42 4c 20  |12,R14....   BL |
000033c0  50 6f 69 6e 74 25 0d 0f  be 1d 20 20 20 41 44 44  |Point%....   ADD|
000033d0  20 52 33 2c 52 33 2c 23  31 3a 42 4c 20 50 6f 69  | R3,R3,#1:BL Poi|
000033e0  6e 74 25 0d 0f c8 1d 20  20 20 41 44 44 20 52 34  |nt%....   ADD R4|
000033f0  2c 52 34 2c 23 31 3a 42  4c 20 50 6f 69 6e 74 25  |,R4,#1:BL Point%|
00003400  0d 0f d2 41 20 20 20 53  55 42 20 52 33 2c 52 33  |...A   SUB R3,R3|
00003410  2c 23 31 3a 42 4c 20 50  6f 69 6e 74 25 20 20 20  |,#1:BL Point%   |
00003420  20 20 20 20 3b 52 34 20  6d 6f 65 74 20 6e 69 65  |    ;R4 moet nie|
00003430  74 20 68 65 72 73 74 65  6c 64 20 77 6f 72 64 65  |t hersteld worde|
00003440  6e 0d 0f dc 11 20 20 20  4d 4f 56 20 50 43 2c 52  |n....   MOV PC,R|
00003450  31 32 0d 0f e6 10 2e 53  69 6e 67 6c 65 44 65 6e  |12.....SingleDen|
00003460  73 25 0d 0f f0 17 20 20  20 53 54 4d 46 44 20 52  |s%....   STMFD R|
00003470  31 33 21 2c 7b 52 31 34  7d 0d 0f fa 1a 20 20 20  |13!,{R14}....   |
00003480  4d 4f 56 20 52 33 2c 52  30 3a 4d 4f 56 20 52 36  |MOV R3,R0:MOV R6|
00003490  2c 52 31 0d 10 04 28 20  20 20 4d 4f 56 20 52 31  |,R1...(   MOV R1|
000034a0  2c 52 32 3a 53 57 49 20  22 4f 53 5f 42 47 65 74  |,R2:SWI "OS_BGet|
000034b0  22 3a 4d 4f 56 20 52 35  2c 52 30 0d 10 0e 27 20  |":MOV R5,R0...' |
000034c0  20 20 53 57 49 20 22 4f  53 5f 42 47 65 74 22 3a  |  SWI "OS_BGet":|
000034d0  41 44 44 20 52 35 2c 52  35 2c 52 30 2c 41 53 4c  |ADD R5,R5,R0,ASL|
000034e0  23 38 0d 10 18 0d 2e 73  69 6e 67 6c 65 31 25 0d  |#8.....single1%.|
000034f0  10 22 14 20 20 20 53 57  49 20 22 4f 53 5f 42 47  |.".   SWI "OS_BG|
00003500  65 74 22 0d 10 2c 34 20  20 20 54 53 54 20 52 30  |et"..,4   TST R0|
00003510  2c 23 31 32 38 3a 41 44  44 4e 45 20 52 34 2c 52  |,#128:ADDNE R4,R|
00003520  36 2c 23 30 20 3a 42 4c  4e 45 20 53 69 6e 67 6c  |6,#0 :BLNE Singl|
00003530  65 50 6f 69 6e 74 25 0d  10 36 34 20 20 20 54 53  |ePoint%..64   TS|
00003540  54 20 52 30 2c 23 36 34  20 3a 41 44 44 4e 45 20  |T R0,#64 :ADDNE |
00003550  52 34 2c 52 36 2c 23 33  20 3a 42 4c 4e 45 20 53  |R4,R6,#3 :BLNE S|
00003560  69 6e 67 6c 65 50 6f 69  6e 74 25 0d 10 40 34 20  |inglePoint%..@4 |
00003570  20 20 54 53 54 20 52 30  2c 23 33 32 20 3a 41 44  |  TST R0,#32 :AD|
00003580  44 4e 45 20 52 34 2c 52  36 2c 23 36 20 3a 42 4c  |DNE R4,R6,#6 :BL|
00003590  4e 45 20 53 69 6e 67 6c  65 50 6f 69 6e 74 25 0d  |NE SinglePoint%.|
000035a0  10 4a 34 20 20 20 54 53  54 20 52 30 2c 23 31 36  |.J4   TST R0,#16|
000035b0  20 3a 41 44 44 4e 45 20  52 34 2c 52 36 2c 23 39  | :ADDNE R4,R6,#9|
000035c0  20 3a 42 4c 4e 45 20 53  69 6e 67 6c 65 50 6f 69  | :BLNE SinglePoi|
000035d0  6e 74 25 0d 10 54 34 20  20 20 54 53 54 20 52 30  |nt%..T4   TST R0|
000035e0  2c 23 38 20 20 3a 41 44  44 4e 45 20 52 34 2c 52  |,#8  :ADDNE R4,R|
000035f0  36 2c 23 31 32 3a 42 4c  4e 45 20 53 69 6e 67 6c  |6,#12:BLNE Singl|
00003600  65 50 6f 69 6e 74 25 0d  10 5e 34 20 20 20 54 53  |ePoint%..^4   TS|
00003610  54 20 52 30 2c 23 34 20  20 3a 41 44 44 4e 45 20  |T R0,#4  :ADDNE |
00003620  52 34 2c 52 36 2c 23 31  35 3a 42 4c 4e 45 20 53  |R4,R6,#15:BLNE S|
00003630  69 6e 67 6c 65 50 6f 69  6e 74 25 0d 10 68 34 20  |inglePoint%..h4 |
00003640  20 20 54 53 54 20 52 30  2c 23 32 20 20 3a 41 44  |  TST R0,#2  :AD|
00003650  44 4e 45 20 52 34 2c 52  36 2c 23 31 38 3a 42 4c  |DNE R4,R6,#18:BL|
00003660  4e 45 20 53 69 6e 67 6c  65 50 6f 69 6e 74 25 0d  |NE SinglePoint%.|
00003670  10 72 34 20 20 20 54 53  54 20 52 30 2c 23 31 20  |.r4   TST R0,#1 |
00003680  20 3a 41 44 44 4e 45 20  52 34 2c 52 36 2c 23 32  | :ADDNE R4,R6,#2|
00003690  31 3a 42 4c 4e 45 20 53  69 6e 67 6c 65 50 6f 69  |1:BLNE SinglePoi|
000036a0  6e 74 25 0d 10 7c 13 20  20 20 41 44 44 20 52 33  |nt%..|.   ADD R3|
000036b0  2c 52 33 2c 23 34 0d 10  86 14 20 20 20 53 55 42  |,R3,#4....   SUB|
000036c0  53 20 52 35 2c 52 35 2c  23 31 0d 10 90 15 20 20  |S R5,R5,#1....  |
000036d0  20 20 20 42 47 54 20 73  69 6e 67 6c 65 31 25 0d  |   BGT single1%.|
000036e0  10 9a 17 20 20 20 4c 44  4d 46 44 20 52 31 33 21  |...   LDMFD R13!|
000036f0  2c 7b 50 43 7d 5e 0d 10  a4 11 2e 53 69 6e 67 6c  |,{PC}^.....Singl|
00003700  65 50 6f 69 6e 74 25 0d  10 ae 12 20 20 20 4d 4f  |ePoint%....   MO|
00003710  56 20 52 31 32 2c 52 31  34 0d 10 b8 10 20 20 20  |V R12,R14....   |
00003720  42 4c 20 50 6f 69 6e 74  25 0d 10 c2 4b 20 20 20  |BL Point%...K   |
00003730  41 44 44 20 52 33 2c 52  33 2c 23 31 3a 42 4c 20  |ADD R3,R3,#1:BL |
00003740  50 6f 69 6e 74 25 3a 41  44 44 20 52 33 2c 52 33  |Point%:ADD R3,R3|
00003750  2c 23 31 3a 42 4c 20 50  6f 69 6e 74 25 3a 41 44  |,#1:BL Point%:AD|
00003760  44 20 52 33 2c 52 33 2c  23 31 3a 42 4c 20 50 6f  |D R3,R3,#1:BL Po|
00003770  69 6e 74 25 0d 10 cc 13  20 20 20 41 44 44 20 52  |int%....   ADD R|
00003780  34 2c 52 34 2c 23 31 0d  10 d6 10 20 20 20 42 4c  |4,R4,#1....   BL|
00003790  20 50 6f 69 6e 74 25 0d  10 e0 4b 20 20 20 53 55  | Point%...K   SU|
000037a0  42 20 52 33 2c 52 33 2c  23 31 3a 42 4c 20 50 6f  |B R3,R3,#1:BL Po|
000037b0  69 6e 74 25 3a 53 55 42  20 52 33 2c 52 33 2c 23  |int%:SUB R3,R3,#|
000037c0  31 3a 42 4c 20 50 6f 69  6e 74 25 3a 53 55 42 20  |1:BL Point%:SUB |
000037d0  52 33 2c 52 33 2c 23 31  3a 42 4c 20 50 6f 69 6e  |R3,R3,#1:BL Poin|
000037e0  74 25 0d 10 ea 13 20 20  20 41 44 44 20 52 34 2c  |t%....   ADD R4,|
000037f0  52 34 2c 23 31 0d 10 f4  10 20 20 20 42 4c 20 50  |R4,#1....   BL P|
00003800  6f 69 6e 74 25 0d 10 fe  4b 20 20 20 41 44 44 20  |oint%...K   ADD |
00003810  52 33 2c 52 33 2c 23 31  3a 42 4c 20 50 6f 69 6e  |R3,R3,#1:BL Poin|
00003820  74 25 3a 41 44 44 20 52  33 2c 52 33 2c 23 31 3a  |t%:ADD R3,R3,#1:|
00003830  42 4c 20 50 6f 69 6e 74  25 3a 41 44 44 20 52 33  |BL Point%:ADD R3|
00003840  2c 52 33 2c 23 31 3a 42  4c 20 50 6f 69 6e 74 25  |,R3,#1:BL Point%|
00003850  0d 11 08 13 20 20 20 53  55 42 20 52 33 2c 52 33  |....   SUB R3,R3|
00003860  2c 23 33 0d 11 12 11 20  20 20 4d 4f 56 20 50 43  |,#3....   MOV PC|
00003870  2c 52 31 32 0d 11 1c 18  20 20 3b 52 33 20 3d 20  |,R12....  ;R3 = |
00003880  78 20 63 6f 6f 72 64 69  6e 61 74 65 0d 11 26 18  |x coordinate..&.|
00003890  20 20 3b 52 34 20 3d 20  79 20 63 6f 6f 72 64 69  |  ;R4 = y coordi|
000038a0  6e 61 74 65 0d 11 30 22  2e 50 6f 69 6e 74 25 20  |nate..0".Point% |
000038b0  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 32 2d 52  |STMFD R13!,{R2-R|
000038c0  34 2c 52 31 34 7d 0d 11  3a 1f 20 20 20 20 20 20  |4,R14}..:.      |
000038d0  20 20 4c 44 52 20 52 32  2c 42 65 67 69 6e 53 70  |  LDR R2,BeginSp|
000038e0  72 69 74 65 25 0d 11 44  1e 20 20 20 20 20 20 20  |rite%..D.       |
000038f0  20 4c 44 52 20 52 31 34  2c 58 5f 42 72 65 65 64  | LDR R14,X_Breed|
00003900  74 65 25 0d 11 4e 1d 20  20 20 20 20 20 20 20 4d  |te%..N.        M|
00003910  4c 41 20 52 31 34 2c 52  34 2c 52 31 34 2c 52 32  |LA R14,R4,R14,R2|
00003920  0d 11 58 23 20 20 20 20  20 20 20 20 4c 44 52 42  |..X#        LDRB|
00003930  20 52 34 2c 5b 52 31 34  2c 52 33 2c 41 53 52 23  | R4,[R14,R3,ASR#|
00003940  33 5d 21 0d 11 62 16 20  20 20 20 20 20 20 20 80  |3]!..b.        .|
00003950  20 52 33 2c 52 33 2c 23  37 0d 11 6c 15 20 20 20  | R3,R3,#7..l.   |
00003960  20 20 20 20 20 4d 4f 56  20 52 32 2c 23 31 0d 11  |     MOV R2,#1..|
00003970  76 1e 20 20 20 20 20 20  20 20 84 52 20 52 34 2c  |v.        .R R4,|
00003980  52 34 2c 52 32 2c 41 53  4c 20 52 33 0d 11 80 19  |R4,R2,ASL R3....|
00003990  20 20 20 20 20 20 20 20  53 54 52 42 20 52 34 2c  |        STRB R4,|
000039a0  5b 52 31 34 5d 0d 11 8a  22 20 20 20 20 20 20 20  |[R14]..."       |
000039b0  20 4c 44 4d 46 44 20 52  31 33 21 2c 7b 52 32 2d  | LDMFD R13!,{R2-|
000039c0  52 34 2c 50 43 7d 5e 0d  11 94 1f 2e 42 65 67 69  |R4,PC}^.....Begi|
000039d0  6e 53 70 72 69 74 65 25  20 45 51 55 44 20 48 25  |nSprite% EQUD H%|
000039e0  2b 31 36 2b 34 34 0d 11  9e 1f 2e 58 5f 42 72 65  |+16+44.....X_Bre|
000039f0  65 64 74 65 25 20 20 20  45 51 55 44 20 31 39 38  |edte%   EQUD 198|
00003a00  35 81 38 2b 34 0d 11 a8  07 5d 3a ed 0d 11 b2 46  |5.8+4....]:....F|
00003a10  e7 20 50 25 3e 43 6f 64  65 25 2b 43 6f 64 65 4c  |. P%>Code%+CodeL|
00003a20  65 6e 67 74 68 25 20 f2  65 72 72 6f 72 28 2d 31  |ength% .error(-1|
00003a30  2c 22 41 52 4d 20 63 6f  64 65 20 72 75 6e 73 20  |,"ARM code runs |
00003a40  6f 75 74 20 6f 66 20 6c  65 6e 67 74 68 2e 2e 2e  |out of length...|
00003a50  22 29 0d 11 bc 05 e1 0d  11 c6 05 3a 0d 11 d0 13  |").........:....|
00003a60  dd a4 67 65 74 73 74 72  69 6e 67 28 78 25 29 0d  |..getstring(x%).|
00003a70  11 da 08 ea 20 78 24 0d  11 e4 0a c8 95 20 3f 78  |.... x$...... ?x|
00003a80  25 0d 11 ee 1e e7 20 3f  78 25 3c 33 31 20 78 24  |%..... ?x%<31 x$|
00003a90  2b 3d 22 20 22 20 8b 78  24 2b 3d bd 3f 78 25 0d  |+=" " .x$+=.?x%.|
00003aa0  11 f8 0b 78 25 2b 3d 31  3a ce 0d 12 02 07 3d 78  |...x%+=1:.....=x|
00003ab0  24 0d 12 0c 05 3a 0d 12  16 0d dd f2 64 61 74 61  |$....:......data|
00003ac0  61 63 6b 0d 12 20 2f 71  25 21 31 32 3d 71 25 21  |ack.. /q%!12=q%!|
00003ad0  38 3a c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |8:.. "Wimp_SendM|
00003ae0  65 73 73 61 67 65 22 2c  31 37 2c 71 25 2c 71 25  |essage",17,q%,q%|
00003af0  21 34 0d 12 2a 05 e1 0d  12 34 05 3a 0d 12 3e 18  |!4..*....4.:..>.|
00003b00  dd f2 65 72 72 6f 72 28  6e 75 6d 25 2c 65 72 72  |..error(num%,err|
00003b10  6f 72 24 29 0d 12 48 1b  c8 99 20 22 57 69 6d 70  |or$)..H... "Wimp|
00003b20  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
00003b30  12 52 16 21 45 72 72 6f  72 42 75 66 66 65 72 25  |.R.!ErrorBuffer%|
00003b40  3d 6e 75 6d 25 0d 12 5c  64 e7 20 6e 75 6d 25 3d  |=num%..\d. num%=|
00003b50  2d 31 20 24 28 45 72 72  6f 72 42 75 66 66 65 72  |-1 $(ErrorBuffer|
00003b60  25 2b 34 29 3d 65 72 72  6f 72 24 2b bd 30 20 8b  |%+4)=error$+.0 .|
00003b70  20 24 28 45 72 72 6f 72  42 75 66 66 65 72 25 2b  | $(ErrorBuffer%+|
00003b80  34 29 3d 65 72 72 6f 72  24 2b 22 20 28 69 6e 74  |4)=error$+" (int|
00003b90  65 72 6e 61 6c 20 65 72  72 6f 72 20 63 6f 64 65  |ernal error code|
00003ba0  20 22 2b c3 9e 2b 22 29  22 0d 12 66 34 c8 99 20  | "+..+")"..f4.. |
00003bb0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00003bc0  72 22 2c 45 72 72 6f 72  42 75 66 66 65 72 25 2c  |r",ErrorBuffer%,|
00003bd0  30 2c 22 50 72 69 6e 74  45 6d 75 6c 22 0d 12 70  |0,"PrintEmul"..p|
00003be0  05 e1 0d 12 7a 05 3a 0d  12 84 15 dd a4 77 61 72  |....z.:......war|
00003bf0  6e 69 6e 67 28 65 72 72  6f 72 24 29 0d 12 85 08  |ning(error$)....|
00003c00  ea 20 69 25 0d 12 8e 2c  21 45 72 72 6f 72 42 75  |. i%...,!ErrorBu|
00003c10  66 66 65 72 25 3d 30 3a  24 28 45 72 72 6f 72 42  |ffer%=0:$(ErrorB|
00003c20  75 66 66 65 72 25 2b 34  29 3d 65 72 72 6f 72 24  |uffer%+4)=error$|
00003c30  0d 12 98 49 c8 99 20 22  57 69 6d 70 5f 52 65 70  |...I.. "Wimp_Rep|
00003c40  6f 72 74 45 72 72 6f 72  22 2c 45 72 72 6f 72 42  |ortError",ErrorB|
00003c50  75 66 66 65 72 25 2c 26  31 33 2c 22 57 61 72 6e  |uffer%,&13,"Warn|
00003c60  69 6e 67 20 66 72 6f 6d  20 50 72 69 6e 74 45 6d  |ing from PrintEm|
00003c70  75 6c 22 20 b8 20 2c 69  25 0d 12 a2 07 3d 69 25  |ul" . ,i%....=i%|
00003c80  0d 12 ac 05 3a 0d 12 b6  09 dd f2 64 69 65 0d 12  |....:......die..|
00003c90  ca 7a e7 20 46 69 6c 65  43 68 61 6e 67 65 64 25  |.z. FileChanged%|
00003ca0  20 69 25 3d a4 77 61 72  6e 69 6e 67 28 22 4f 6e  | i%=.warning("On|
00003cb0  65 20 70 72 69 6e 74 65  72 66 69 6c 65 20 65 6d  |e printerfile em|
00003cc0  75 6c 61 74 65 64 20 62  75 74 20 6e 6f 74 20 73  |ulated but not s|
00003cd0  61 76 65 64 20 69 6e 20  50 72 69 6e 74 45 6d 75  |aved in PrintEmu|
00003ce0  6c 2e 20 20 44 6f 20 79  6f 75 20 73 74 69 6c 6c  |l.  Do you still|
00003cf0  20 77 61 6e 74 20 74 6f  20 71 75 69 74 20 3f 22  | want to quit ?"|
00003d00  29 20 8b 20 69 25 3d 31  0d 12 fc 13 e7 20 69 25  |) . i%=1..... i%|
00003d10  3d 31 20 f2 64 69 65 68  61 72 64 0d 13 06 05 e1  |=1 .diehard.....|
00003d20  0d 13 10 05 3a 0d 13 1a  0d dd f2 64 69 65 68 61  |....:......dieha|
00003d30  72 64 0d 13 24 2d c8 99  20 22 57 69 6d 70 5f 43  |rd..$-.. "Wimp_C|
00003d40  6c 6f 73 65 44 6f 77 6e  22 2c 54 61 73 6b 48 61  |loseDown",TaskHa|
00003d50  6e 64 6c 65 25 2c 26 34  42 35 33 34 31 35 34 0d  |ndle%,&4B534154.|
00003d60  13 2e 05 e1 0d 13 38 05  3a 0d 13 42 2e dd f2 69  |......8.:..B...i|
00003d70  63 6f 6e 5f 70 75 74 64  61 74 61 28 71 25 2c 77  |con_putdata(q%,w|
00003d80  68 61 6e 64 6c 65 25 2c  69 68 61 6e 64 6c 65 25  |handle%,ihandle%|
00003d90  2c 64 61 74 61 24 29 0d  13 4c 1f 71 25 21 30 3d  |,data$)..L.q%!0=|
00003da0  77 68 61 6e 64 6c 65 25  3a 71 25 21 34 3d 69 68  |whandle%:q%!4=ih|
00003db0  61 6e 64 6c 65 25 0d 13  56 1e c8 99 20 22 57 69  |andle%..V... "Wi|
00003dc0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00003dd0  2c 2c 71 25 0d 13 60 12  24 28 71 25 21 32 38 29  |,,q%..`.$(q%!28)|
00003de0  3d 64 61 74 61 24 0d 13  6a 39 c8 99 20 22 57 69  |=data$..j9.. "Wi|
00003df0  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00003e00  77 68 61 6e 64 6c 65 25  2c 71 25 21 38 2c 71 25  |whandle%,q%!8,q%|
00003e10  21 31 32 2c 71 25 21 31  36 2c 71 25 21 32 30 0d  |!12,q%!16,q%!20.|
00003e20  13 74 05 e1 0d 13 7e 05  3a 0d 13 88 33 dd f2 69  |.t....~.:...3..i|
00003e30  63 6f 6e 5f 70 75 74 73  70 72 69 74 65 28 71 25  |con_putsprite(q%|
00003e40  2c 77 68 61 6e 64 6c 65  25 2c 69 68 61 6e 64 6c  |,whandle%,ihandl|
00003e50  65 25 2c 62 6f 6f 6c 65  61 6e 25 29 0d 13 92 1f  |e%,boolean%)....|
00003e60  71 25 21 30 3d 77 68 61  6e 64 6c 65 25 3a 71 25  |q%!0=whandle%:q%|
00003e70  21 34 3d 69 68 61 6e 64  6c 65 25 0d 13 9c 1e c8  |!4=ihandle%.....|
00003e80  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00003e90  74 61 74 65 22 2c 2c 71  25 0d 13 a6 30 e7 20 62  |tate",,q%...0. b|
00003ea0  6f 6f 6c 65 61 6e 25 20  24 28 71 25 21 33 32 29  |oolean% $(q%!32)|
00003eb0  3d 22 53 79 65 73 22 20  8b 20 24 28 71 25 21 33  |="Syes" . $(q%!3|
00003ec0  32 29 3d 22 53 6e 6f 20  22 0d 13 b0 39 c8 99 20  |2)="Sno "...9.. |
00003ed0  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00003ee0  77 22 2c 77 68 61 6e 64  6c 65 25 2c 71 25 21 38  |w",whandle%,q%!8|
00003ef0  2c 71 25 21 31 32 2c 71  25 21 31 36 2c 71 25 21  |,q%!12,q%!16,q%!|
00003f00  32 30 0d 13 ba 05 e1 0d  13 c4 05 3a 0d 13 ce 28  |20.........:...(|
00003f10  dd a4 69 63 6f 6e 5f 67  65 74 64 61 74 61 28 71  |..icon_getdata(q|
00003f20  25 2c 77 68 61 6e 64 6c  65 25 2c 69 68 61 6e 64  |%,whandle%,ihand|
00003f30  6c 65 25 29 0d 13 d8 11  71 25 21 30 3d 77 68 61  |le%)....q%!0=wha|
00003f40  6e 64 6c 65 25 0d 13 e2  11 71 25 21 34 3d 69 68  |ndle%....q%!4=ih|
00003f50  61 6e 64 6c 65 25 0d 13  ec 1e c8 99 20 22 57 69  |andle%...... "Wi|
00003f60  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00003f70  2c 2c 71 25 0d 13 f6 0d  3d 24 28 71 25 21 32 38  |,,q%....=$(q%!28|
00003f80  29 0d 14 00 05 3a 0d 14  0a 15 dd a4 73 65 61 72  |)....:......sear|
00003f90  63 68 5f 6c 65 61 66 28  66 24 29 0d 14 14 08 ea  |ch_leaf(f$).....|
00003fa0  20 69 25 0d 14 1e 0c 69  25 3d a9 28 66 24 29 0d  | i%....i%=.(f$).|
00003fb0  14 28 05 f5 0d 14 32 0a  20 69 25 2d 3d 31 0d 14  |.(....2. i%-=1..|
00003fc0  3c 1b 20 fd 20 c1 66 24  2c 69 25 2c 31 29 3d 22  |<. . .f$,i%,1)="|
00003fd0  2e 22 20 84 20 69 25 3d  30 0d 14 46 0e 3d c1 66  |." . i%=0..F.=.f|
00003fe0  24 2c 69 25 2b 31 29 0d  ff                       |$,i%+1)..|
00003fe9