� >!RunImage
� Neutralise Module Virus
� Written by Carl Shaw
(� (C) Archimedes World 1992
2:
<� Get some workspace
F:
PBufferSize%=300*1024
Z� Buffer BufferSize%
d� filemem% &1000
n� block% &300
x� iblock% &200
�� iblock1% &100
�� temp% &100
�� menu% &100
�� File$(300)
�:
�� Global Variables
�:
�
  quit%=�
�  sp%=0
�  device$="ADFS::0"
�  DeviceIcon%=7
�  CheckIcon%=10
�  RepairIcon%=11

  ScanIcon%=12

  AbortIcon%=13

  mask%=&4B2

":

,� Initialise the task

6:

@  �KillModules

J$  � �Error(�,�$+" at line "+Þ)

TB  ș "Wimp_Initialise",200,&4B534154,"FixVirusModule" � ,task%

^:

h� Get window definitions

r:

|  �Get_Templates

�:

�� Place Icon on Screen

�:

�+  IconBarHandle%=�IconBar("!FixVirMod")

�:

�,� Now the usual WIMP polling checks ....

�:

�  �

�   scanning%=�

�   �Poll

�
  � quit%

�:

�*� Program quit, close down application
:
&  ș "Wimp_CloseDown",task%,"TASK"
:
&�
0:
::
D��Fix(name$)
NT � check,init_code,data,FOff,IOff,SOff,FinOffset,InitOffset,ServiceOffset,match%
X ș "Hourglass_On"
bB ș"XOS_File",5,name$ � type,,load_add,exec_add,length,attribs
lV � length>BufferSize% �WriteIcon(RepairIcon%,"** NO ROOM **"):ș "Hourglass_Off":�
vE ș"XOS_File",&FF,name$,Buffer,0 � type,,load_add,exec_add,length
�! init_code=Buffer+!(Buffer+4)
� �
�
 match%=�
� � check= 0 � 59 � 4
�  � data
�(  � (init_code!check)<>data match%=�
� � check
�F � � match% ș"Hourglass_Off":�WriteIcon(RepairIcon%,"CLEAN..."):�
�" �WriteIcon(RepairIcon%,name$)
� FOff=!(init_code+&3AC)
�D � FOff<>0 FinOffset=((init_code+&F0)-FOff)-Buffer � FinOffset=0
� IOff=!(init_code+&3B0)
�F � IOff<>0 InitOffset=((init_code+&C0)-IOff)-Buffer � InitOffset=0
 SOff=!(init_code+&3B4)
M � SOff<>0 ServiceOffset=((init_code+&144)-SOff)-Buffer � ServiceOffset=0
 !(Buffer+4) = InitOffset
  !(Buffer+8) = FinOffset
*! !(Buffer+12) = ServiceOffset
4$ � (attribs �8)=8 �Access(name$)
>< ș"XOS_File",0,name$,load_add,exec_add,Buffer,init_code
H ș "Hourglass_Off"
R�
\:
f� Detection Data
p:
z7� &E92D5F00,&E28F10B4,&E3A00001,&E5C10000,&E3A0000E
�7� &EF020007,&E4D10001,&E3500092,&BA00001C,&E4D10001
�7� &E3500009,&BA000019,&E4D10001,&E3500006,&BA000016
�:
���SearchDisc
� scanning%=�
�# device$=�IconText(DeviceIcon%)
� �ScanTree(device$+".$")
�& �WriteIcon(CheckIcon%,"READY...")
�' �WriteIcon(RepairIcon%,"READY...")
��
�:
���ScanTree(start$)
� �ScanDir(start$)
 ȕ sp%>0 � scanning%=�
!  � scanning% �ScanDir(�Pull)
 �
$�
.:
8��ScanDir(dir$)
BC � records,offset,scan%,search%,namescan%,Fname$,newfilebuffer%
L � Read Directory Contents
V@ ș "XOS_GBPB",10,dir$,filemem%,256,0,&1000,"*" � ,,,records
`3 � records=256 � 1,"Filing system not attached"
j& � records=0 � records=256 �Poll:�
t scan%=filemem%
~ � search%=0 � (records-1)
�  namescan%=scan%+&14
�  Fname$=""
�  �
�,   � ?namescan%>31 Fname$+=�(?namescan%)
�   namescan%+=1
�  � ?namescan%=0
�  Fname$=dir$+"."+Fname$
�  Ȏ !(scan%+&10) �
�}   � 1 :�WriteIcon(CheckIcon%,Fname$):�WriteIcon(RepairIcon%,""):�Poll:� !scan%<0 � ((!scan%>>8)� &FFF)=&FFA �Fix(Fname$)
�   � 2 : �Push(Fname$)
�  �
�(  scan%=namescan%+(4-(namescan% �4))
  �Poll

%  � � scanning% search%=records-1
 �
�
(:
2�
<:
F:
P:
Z� WIMP Handling Routines
d:
n��Get_Templates
x3 ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
�B ș "Wimp_LoadTemplate",,block%,iblock%,iblock%+&100,-1,"Main"
� block%!24=-1
�1 ș "Wimp_CreateWindow",,block% � MainHandle%
�D ș "Wimp_LoadTemplate",,block%,iblock1%,iblock1%+&100,-1,"Info"
� block%!24=-1
�1 ș "Wimp_CreateWindow",,block% � InfoHandle%
� ș "Wimp_CloseTemplate"
��
�:
�ݤIconBar(Sprite$)
�
 � IconH%
� !block%=-1
� block%!4=0
 block%!8=0
 block%!12=68
 block%!16=68
" block%!20=&3002
, $(block%+24)=Sprite$
6* ș "Wimp_CreateIcon",,block% � IconH%
@=IconH%
J:
T
��Poll
^ � ReasonCode%
h. ș "Wimp_Poll",mask%,block% � ReasonCode%
r Ȏ ReasonCode% �
|&  � 2:ș "Wimp_OpenWindow",,block%
�'  � 3:ș "Wimp_CloseWindow",,block%
�  � 6:�Buttons
�(  � 8:ș "Wimp_ProcessKey",block%!24
�  � 9:�MenuChoice
�&  � 17,18: � (block%!16)=0 quit%=�
� �
��
�:
�
��Buttons
�) � x%,y%,button%,window%,icon%,drive%
� x%=!block%
� y%=block%!4
� window%=block%!12
 icon%=block%!16
 button%=block%!8
  � window%=-2 �
&E   � (button% �2) �IconBarMenu(x%) � � (button% �5) � �OpenMain:�
0  �
:  � window%=MainHandle%
D2   � (icon%>0 � icon%<6) � ((button% � 5)>0) �
N    drive%=icon%-1
X"    device$="ADFS::"+�(drive%)
b'    �WriteIcon(DeviceIcon%,device$)
l   �
v;   � icon%=AbortIcon% � ((button% � 5)>0) � scanning%=�
�.   � icon%=ScanIcon% � ((button% � 5)>0) �
�!    � scanning%=� �SearchDisc
�   �
�  �
��
�:
���OpenMain
� !block%=MainHandle%
�% ș "Wimp_GetWindowState",,block%
�! ș "Wimp_OpenWindow",,block%
�) �WriteIcon(CheckIcon%,"Nothing....")
�* �WriteIcon(RepairIcon%,"Nothing....")
��
:
:
��IconBarMenu(xp%)
  $menu%="FixVirMod"
* menu%?12=7
4 menu%?13=2
> menu%?14=7
H menu%?15=0
R menu%!16=140
\ menu%!20=44
f menu%!24=0
p pntr%=menu%+28
z$ �item(pntr%,"Info",InfoHandle%)
� �item(pntr%,"Quit",-1)
�  pntr%!-24=(pntr%!-24 � &80)
�+ ș "Wimp_CreateMenu",,menu%,xp%-64,184
��
�:
�"��item(� pntr%,item$,windowh%)
�
 !pntr%=0
� pntr%!4=windowh%
� pntr%!8=&7000021
� $(pntr%+12)=item$
� pntr%+=24
��
�:
	��MenuChoice
	 � choice%
	 choice%=!block%
	$ � choice%=1 quit%=�
	.�
	8:
	BݤIconText(IconNo%)
	L !temp%=MainHandle%
	V temp%!4=IconNo%
	`# ș "XWimp_GetIconState",,temp%
	j=$(temp%!28)
	t:
	~��WriteIcon(Icon%,Text$)
	� !temp%=MainHandle%
	� temp%!4=Icon%
	�" ș "Wimp_GetIconState",,temp%
	�! $(temp%!28)=�Text$,temp%!36)
	� !temp%=MainHandle%
	� temp%!4=Icon%
	� temp%!8=0
	� temp%!12=0
	�# ș "XWimp_SetIconState",,temp%
	��
	�:
	���Error(ErrNo,Error$)
	 � A%

 !temp%=ErrNo
 $(temp%+4)=Error$
4 ș "Wimp_ReportError",temp%,1,"FixVirMod" � ,A%
( � A%=2 � quit%=�
2�
<:
F��Access(name$)
P ș "OS_File",4,name$,,,,3
Z�
d:
n��Push(item$)
x File$(sp%)=item$
� sp%+=1
�) � sp%>300 � 1,"Too Many Directories"
��
�:
�
ݤPull
� sp%-=1
�=File$(sp%)
�:
���KillModules
� � response%
�J $(block%+4)="All non-ROM modules are about to be cleared.  Proceed ?"
�> ș "XWimp_ReportError",block%,23,"WARNING :" � ,response%
�+ � response%=2 � 0,"Quitting FixVirMod"
 ș "XOS_Module",9
�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 1d f4 20 4e 65  75 74 72 61 6c 69 73 65  |..... Neutralise|
00000020  20 4d 6f 64 75 6c 65 20  56 69 72 75 73 0d 00 1e  | Module Virus...|
00000030  1a f4 20 57 72 69 74 74  65 6e 20 62 79 20 43 61  |.. Written by Ca|
00000040  72 6c 20 53 68 61 77 0d  00 28 1f f4 20 28 43 29  |rl Shaw..(.. (C)|
00000050  20 41 72 63 68 69 6d 65  64 65 73 20 57 6f 72 6c  | Archimedes Worl|
00000060  64 20 31 39 39 32 0d 00  32 05 3a 0d 00 3c 18 f4  |d 1992..2.:..<..|
00000070  20 47 65 74 20 73 6f 6d  65 20 77 6f 72 6b 73 70  | Get some worksp|
00000080  61 63 65 0d 00 46 05 3a  0d 00 50 18 42 75 66 66  |ace..F.:..P.Buff|
00000090  65 72 53 69 7a 65 25 3d  33 30 30 2a 31 30 32 34  |erSize%=300*1024|
000000a0  0d 00 5a 18 de 20 42 75  66 66 65 72 20 42 75 66  |..Z.. Buffer Buf|
000000b0  66 65 72 53 69 7a 65 25  0d 00 64 14 de 20 66 69  |ferSize%..d.. fi|
000000c0  6c 65 6d 65 6d 25 20 26  31 30 30 30 0d 00 6e 11  |lemem% &1000..n.|
000000d0  de 20 62 6c 6f 63 6b 25  20 26 33 30 30 0d 00 78  |. block% &300..x|
000000e0  12 de 20 69 62 6c 6f 63  6b 25 20 26 32 30 30 0d  |.. iblock% &200.|
000000f0  00 82 13 de 20 69 62 6c  6f 63 6b 31 25 20 26 31  |.... iblock1% &1|
00000100  30 30 0d 00 8c 10 de 20  74 65 6d 70 25 20 26 31  |00..... temp% &1|
00000110  30 30 0d 00 96 10 de 20  6d 65 6e 75 25 20 26 31  |00..... menu% &1|
00000120  30 30 0d 00 a0 10 de 20  46 69 6c 65 24 28 33 30  |00..... File$(30|
00000130  30 29 0d 00 aa 05 3a 0d  00 b4 16 f4 20 47 6c 6f  |0)....:..... Glo|
00000140  62 61 6c 20 56 61 72 69  61 62 6c 65 73 0d 00 be  |bal Variables...|
00000150  05 3a 0d 00 c8 0d 20 20  71 75 69 74 25 3d a3 0d  |.:....  quit%=..|
00000160  00 d2 0b 20 20 73 70 25  3d 30 0d 00 dc 17 20 20  |...  sp%=0....  |
00000170  64 65 76 69 63 65 24 3d  22 41 44 46 53 3a 3a 30  |device$="ADFS::0|
00000180  22 0d 00 e6 13 20 20 44  65 76 69 63 65 49 63 6f  |"....  DeviceIco|
00000190  6e 25 3d 37 0d 00 f0 13  20 20 43 68 65 63 6b 49  |n%=7....  CheckI|
000001a0  63 6f 6e 25 3d 31 30 0d  00 fa 14 20 20 52 65 70  |con%=10....  Rep|
000001b0  61 69 72 49 63 6f 6e 25  3d 31 31 0d 01 04 12 20  |airIcon%=11.... |
000001c0  20 53 63 61 6e 49 63 6f  6e 25 3d 31 32 0d 01 0e  | ScanIcon%=12...|
000001d0  13 20 20 41 62 6f 72 74  49 63 6f 6e 25 3d 31 33  |.  AbortIcon%=13|
000001e0  0d 01 18 10 20 20 6d 61  73 6b 25 3d 26 34 42 32  |....  mask%=&4B2|
000001f0  0d 01 22 05 3a 0d 01 2c  19 f4 20 49 6e 69 74 69  |..".:..,.. Initi|
00000200  61 6c 69 73 65 20 74 68  65 20 74 61 73 6b 0d 01  |alise the task..|
00000210  36 05 3a 0d 01 40 12 20  20 f2 4b 69 6c 6c 4d 6f  |6.:..@.  .KillMo|
00000220  64 75 6c 65 73 0d 01 4a  24 20 20 ee 85 20 f2 45  |dules..J$  .. .E|
00000230  72 72 6f 72 28 9f 2c f6  24 2b 22 20 61 74 20 6c  |rror(.,.$+" at l|
00000240  69 6e 65 20 22 2b c3 9e  29 0d 01 54 42 20 20 c8  |ine "+..)..TB  .|
00000250  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
00000260  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
00000270  34 2c 22 46 69 78 56 69  72 75 73 4d 6f 64 75 6c  |4,"FixVirusModul|
00000280  65 22 20 b8 20 2c 74 61  73 6b 25 0d 01 5e 05 3a  |e" . ,task%..^.:|
00000290  0d 01 68 1c f4 20 47 65  74 20 77 69 6e 64 6f 77  |..h.. Get window|
000002a0  20 64 65 66 69 6e 69 74  69 6f 6e 73 0d 01 72 05  | definitions..r.|
000002b0  3a 0d 01 7c 14 20 20 f2  47 65 74 5f 54 65 6d 70  |:..|.  .Get_Temp|
000002c0  6c 61 74 65 73 0d 01 86  05 3a 0d 01 90 1a f4 20  |lates....:..... |
000002d0  50 6c 61 63 65 20 49 63  6f 6e 20 6f 6e 20 53 63  |Place Icon on Sc|
000002e0  72 65 65 6e 0d 01 9a 05  3a 0d 01 a4 2b 20 20 49  |reen....:...+  I|
000002f0  63 6f 6e 42 61 72 48 61  6e 64 6c 65 25 3d a4 49  |conBarHandle%=.I|
00000300  63 6f 6e 42 61 72 28 22  21 46 69 78 56 69 72 4d  |conBar("!FixVirM|
00000310  6f 64 22 29 0d 01 ae 05  3a 0d 01 b8 2c f4 20 4e  |od")....:...,. N|
00000320  6f 77 20 74 68 65 20 75  73 75 61 6c 20 57 49 4d  |ow the usual WIM|
00000330  50 20 70 6f 6c 6c 69 6e  67 20 63 68 65 63 6b 73  |P polling checks|
00000340  20 2e 2e 2e 2e 0d 01 c2  05 3a 0d 01 cc 07 20 20  | ........:....  |
00000350  f5 0d 01 d6 12 20 20 20  73 63 61 6e 6e 69 6e 67  |.....   scanning|
00000360  25 3d a3 0d 01 e0 0c 20  20 20 f2 50 6f 6c 6c 0d  |%=.....   .Poll.|
00000370  01 ea 0d 20 20 fd 20 71  75 69 74 25 0d 01 f4 05  |...  . quit%....|
00000380  3a 0d 01 fe 2a f4 20 50  72 6f 67 72 61 6d 20 71  |:...*. Program q|
00000390  75 69 74 2c 20 63 6c 6f  73 65 20 64 6f 77 6e 20  |uit, close down |
000003a0  61 70 70 6c 69 63 61 74  69 6f 6e 0d 02 08 05 3a  |application....:|
000003b0  0d 02 12 26 20 20 c8 99  20 22 57 69 6d 70 5f 43  |...&  .. "Wimp_C|
000003c0  6c 6f 73 65 44 6f 77 6e  22 2c 74 61 73 6b 25 2c  |loseDown",task%,|
000003d0  22 54 41 53 4b 22 0d 02  1c 05 3a 0d 02 26 05 e0  |"TASK"....:..&..|
000003e0  0d 02 30 05 3a 0d 02 3a  05 3a 0d 02 44 10 dd f2  |..0.:..:.:..D...|
000003f0  46 69 78 28 6e 61 6d 65  24 29 0d 02 4e 54 20 ea  |Fix(name$)..NT .|
00000400  20 63 68 65 63 6b 2c 69  6e 69 74 5f 63 6f 64 65  | check,init_code|
00000410  2c 64 61 74 61 2c 46 4f  66 66 2c 49 4f 66 66 2c  |,data,FOff,IOff,|
00000420  53 4f 66 66 2c 46 69 6e  4f 66 66 73 65 74 2c 49  |SOff,FinOffset,I|
00000430  6e 69 74 4f 66 66 73 65  74 2c 53 65 72 76 69 63  |nitOffset,Servic|
00000440  65 4f 66 66 73 65 74 2c  6d 61 74 63 68 25 0d 02  |eOffset,match%..|
00000450  58 16 20 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |X. .. "Hourglass|
00000460  5f 4f 6e 22 0d 02 62 42  20 c8 99 22 58 4f 53 5f  |_On"..bB .."XOS_|
00000470  46 69 6c 65 22 2c 35 2c  6e 61 6d 65 24 20 b8 20  |File",5,name$ . |
00000480  74 79 70 65 2c 2c 6c 6f  61 64 5f 61 64 64 2c 65  |type,,load_add,e|
00000490  78 65 63 5f 61 64 64 2c  6c 65 6e 67 74 68 2c 61  |xec_add,length,a|
000004a0  74 74 72 69 62 73 0d 02  6c 56 20 e7 20 6c 65 6e  |ttribs..lV . len|
000004b0  67 74 68 3e 42 75 66 66  65 72 53 69 7a 65 25 20  |gth>BufferSize% |
000004c0  f2 57 72 69 74 65 49 63  6f 6e 28 52 65 70 61 69  |.WriteIcon(Repai|
000004d0  72 49 63 6f 6e 25 2c 22  2a 2a 20 4e 4f 20 52 4f  |rIcon%,"** NO RO|
000004e0  4f 4d 20 2a 2a 22 29 3a  c8 99 20 22 48 6f 75 72  |OM **"):.. "Hour|
000004f0  67 6c 61 73 73 5f 4f 66  66 22 3a e1 0d 02 76 45  |glass_Off":...vE|
00000500  20 c8 99 22 58 4f 53 5f  46 69 6c 65 22 2c 26 46  | .."XOS_File",&F|
00000510  46 2c 6e 61 6d 65 24 2c  42 75 66 66 65 72 2c 30  |F,name$,Buffer,0|
00000520  20 b8 20 74 79 70 65 2c  2c 6c 6f 61 64 5f 61 64  | . type,,load_ad|
00000530  64 2c 65 78 65 63 5f 61  64 64 2c 6c 65 6e 67 74  |d,exec_add,lengt|
00000540  68 0d 02 80 21 20 69 6e  69 74 5f 63 6f 64 65 3d  |h...! init_code=|
00000550  42 75 66 66 65 72 2b 21  28 42 75 66 66 65 72 2b  |Buffer+!(Buffer+|
00000560  34 29 0d 02 8a 06 20 f7  0d 02 94 0d 20 6d 61 74  |4).... ..... mat|
00000570  63 68 25 3d b9 0d 02 9e  18 20 e3 20 63 68 65 63  |ch%=..... . chec|
00000580  6b 3d 20 30 20 b8 20 35  39 20 88 20 34 0d 02 a8  |k= 0 . 59 . 4...|
00000590  0c 20 20 f3 20 64 61 74  61 0d 02 b2 28 20 20 e7  |.  . data...(  .|
000005a0  20 28 69 6e 69 74 5f 63  6f 64 65 21 63 68 65 63  | (init_code!chec|
000005b0  6b 29 3c 3e 64 61 74 61  20 6d 61 74 63 68 25 3d  |k)<>data match%=|
000005c0  a3 0d 02 bc 0c 20 ed 20  63 68 65 63 6b 0d 02 c6  |..... . check...|
000005d0  46 20 e7 20 ac 20 6d 61  74 63 68 25 20 c8 99 22  |F . . match% .."|
000005e0  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 3a f2  |Hourglass_Off":.|
000005f0  57 72 69 74 65 49 63 6f  6e 28 52 65 70 61 69 72  |WriteIcon(Repair|
00000600  49 63 6f 6e 25 2c 22 43  4c 45 41 4e 2e 2e 2e 22  |Icon%,"CLEAN..."|
00000610  29 3a e1 0d 02 d0 22 20  f2 57 72 69 74 65 49 63  |):...." .WriteIc|
00000620  6f 6e 28 52 65 70 61 69  72 49 63 6f 6e 25 2c 6e  |on(RepairIcon%,n|
00000630  61 6d 65 24 29 0d 02 da  1b 20 46 4f 66 66 3d 21  |ame$).... FOff=!|
00000640  28 69 6e 69 74 5f 63 6f  64 65 2b 26 33 41 43 29  |(init_code+&3AC)|
00000650  0d 02 e4 44 20 e7 20 46  4f 66 66 3c 3e 30 20 46  |...D . FOff<>0 F|
00000660  69 6e 4f 66 66 73 65 74  3d 28 28 69 6e 69 74 5f  |inOffset=((init_|
00000670  63 6f 64 65 2b 26 46 30  29 2d 46 4f 66 66 29 2d  |code+&F0)-FOff)-|
00000680  42 75 66 66 65 72 20 8b  20 46 69 6e 4f 66 66 73  |Buffer . FinOffs|
00000690  65 74 3d 30 0d 02 ee 1b  20 49 4f 66 66 3d 21 28  |et=0.... IOff=!(|
000006a0  69 6e 69 74 5f 63 6f 64  65 2b 26 33 42 30 29 0d  |init_code+&3B0).|
000006b0  02 f8 46 20 e7 20 49 4f  66 66 3c 3e 30 20 49 6e  |..F . IOff<>0 In|
000006c0  69 74 4f 66 66 73 65 74  3d 28 28 69 6e 69 74 5f  |itOffset=((init_|
000006d0  63 6f 64 65 2b 26 43 30  29 2d 49 4f 66 66 29 2d  |code+&C0)-IOff)-|
000006e0  42 75 66 66 65 72 20 8b  20 49 6e 69 74 4f 66 66  |Buffer . InitOff|
000006f0  73 65 74 3d 30 0d 03 02  1b 20 53 4f 66 66 3d 21  |set=0.... SOff=!|
00000700  28 69 6e 69 74 5f 63 6f  64 65 2b 26 33 42 34 29  |(init_code+&3B4)|
00000710  0d 03 0c 4d 20 e7 20 53  4f 66 66 3c 3e 30 20 53  |...M . SOff<>0 S|
00000720  65 72 76 69 63 65 4f 66  66 73 65 74 3d 28 28 69  |erviceOffset=((i|
00000730  6e 69 74 5f 63 6f 64 65  2b 26 31 34 34 29 2d 53  |nit_code+&144)-S|
00000740  4f 66 66 29 2d 42 75 66  66 65 72 20 8b 20 53 65  |Off)-Buffer . Se|
00000750  72 76 69 63 65 4f 66 66  73 65 74 3d 30 0d 03 16  |rviceOffset=0...|
00000760  1d 20 21 28 42 75 66 66  65 72 2b 34 29 20 3d 20  |. !(Buffer+4) = |
00000770  49 6e 69 74 4f 66 66 73  65 74 0d 03 20 1c 20 21  |InitOffset.. . !|
00000780  28 42 75 66 66 65 72 2b  38 29 20 3d 20 46 69 6e  |(Buffer+8) = Fin|
00000790  4f 66 66 73 65 74 0d 03  2a 21 20 21 28 42 75 66  |Offset..*! !(Buf|
000007a0  66 65 72 2b 31 32 29 20  3d 20 53 65 72 76 69 63  |fer+12) = Servic|
000007b0  65 4f 66 66 73 65 74 0d  03 34 24 20 e7 20 28 61  |eOffset..4$ . (a|
000007c0  74 74 72 69 62 73 20 80  38 29 3d 38 20 f2 41 63  |ttribs .8)=8 .Ac|
000007d0  63 65 73 73 28 6e 61 6d  65 24 29 0d 03 3e 3c 20  |cess(name$)..>< |
000007e0  c8 99 22 58 4f 53 5f 46  69 6c 65 22 2c 30 2c 6e  |.."XOS_File",0,n|
000007f0  61 6d 65 24 2c 6c 6f 61  64 5f 61 64 64 2c 65 78  |ame$,load_add,ex|
00000800  65 63 5f 61 64 64 2c 42  75 66 66 65 72 2c 69 6e  |ec_add,Buffer,in|
00000810  69 74 5f 63 6f 64 65 0d  03 48 17 20 c8 99 20 22  |it_code..H. .. "|
00000820  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 03  |Hourglass_Off"..|
00000830  52 05 e1 0d 03 5c 05 3a  0d 03 66 14 f4 20 44 65  |R....\.:..f.. De|
00000840  74 65 63 74 69 6f 6e 20  44 61 74 61 0d 03 70 05  |tection Data..p.|
00000850  3a 0d 03 7a 37 dc 20 26  45 39 32 44 35 46 30 30  |:..z7. &E92D5F00|
00000860  2c 26 45 32 38 46 31 30  42 34 2c 26 45 33 41 30  |,&E28F10B4,&E3A0|
00000870  30 30 30 31 2c 26 45 35  43 31 30 30 30 30 2c 26  |0001,&E5C10000,&|
00000880  45 33 41 30 30 30 30 45  0d 03 84 37 dc 20 26 45  |E3A0000E...7. &E|
00000890  46 30 32 30 30 30 37 2c  26 45 34 44 31 30 30 30  |F020007,&E4D1000|
000008a0  31 2c 26 45 33 35 30 30  30 39 32 2c 26 42 41 30  |1,&E3500092,&BA0|
000008b0  30 30 30 31 43 2c 26 45  34 44 31 30 30 30 31 0d  |0001C,&E4D10001.|
000008c0  03 8e 37 dc 20 26 45 33  35 30 30 30 30 39 2c 26  |..7. &E3500009,&|
000008d0  42 41 30 30 30 30 31 39  2c 26 45 34 44 31 30 30  |BA000019,&E4D100|
000008e0  30 31 2c 26 45 33 35 30  30 30 30 36 2c 26 42 41  |01,&E3500006,&BA|
000008f0  30 30 30 30 31 36 0d 03  98 05 3a 0d 03 a2 10 dd  |000016....:.....|
00000900  f2 53 65 61 72 63 68 44  69 73 63 0d 03 ac 10 20  |.SearchDisc.... |
00000910  73 63 61 6e 6e 69 6e 67  25 3d b9 0d 03 b6 23 20  |scanning%=....# |
00000920  64 65 76 69 63 65 24 3d  a4 49 63 6f 6e 54 65 78  |device$=.IconTex|
00000930  74 28 44 65 76 69 63 65  49 63 6f 6e 25 29 0d 03  |t(DeviceIcon%)..|
00000940  c0 1c 20 f2 53 63 61 6e  54 72 65 65 28 64 65 76  |.. .ScanTree(dev|
00000950  69 63 65 24 2b 22 2e 24  22 29 0d 03 ca 26 20 f2  |ice$+".$")...& .|
00000960  57 72 69 74 65 49 63 6f  6e 28 43 68 65 63 6b 49  |WriteIcon(CheckI|
00000970  63 6f 6e 25 2c 22 52 45  41 44 59 2e 2e 2e 22 29  |con%,"READY...")|
00000980  0d 03 d4 27 20 f2 57 72  69 74 65 49 63 6f 6e 28  |...' .WriteIcon(|
00000990  52 65 70 61 69 72 49 63  6f 6e 25 2c 22 52 45 41  |RepairIcon%,"REA|
000009a0  44 59 2e 2e 2e 22 29 0d  03 de 05 e1 0d 03 e8 05  |DY...").........|
000009b0  3a 0d 03 f2 16 dd f2 53  63 61 6e 54 72 65 65 28  |:......ScanTree(|
000009c0  73 74 61 72 74 24 29 0d  03 fc 15 20 f2 53 63 61  |start$).... .Sca|
000009d0  6e 44 69 72 28 73 74 61  72 74 24 29 0d 04 06 1b  |nDir(start$)....|
000009e0  20 c8 95 20 73 70 25 3e  30 20 80 20 73 63 61 6e  | .. sp%>0 . scan|
000009f0  6e 69 6e 67 25 3d b9 0d  04 10 21 20 20 e7 20 73  |ning%=....!  . s|
00000a00  63 61 6e 6e 69 6e 67 25  20 f2 53 63 61 6e 44 69  |canning% .ScanDi|
00000a10  72 28 a4 50 75 6c 6c 29  0d 04 1a 06 20 ce 0d 04  |r(.Pull).... ...|
00000a20  24 05 e1 0d 04 2e 05 3a  0d 04 38 13 dd f2 53 63  |$......:..8...Sc|
00000a30  61 6e 44 69 72 28 64 69  72 24 29 0d 04 42 43 20  |anDir(dir$)..BC |
00000a40  ea 20 72 65 63 6f 72 64  73 2c 6f 66 66 73 65 74  |. records,offset|
00000a50  2c 73 63 61 6e 25 2c 73  65 61 72 63 68 25 2c 6e  |,scan%,search%,n|
00000a60  61 6d 65 73 63 61 6e 25  2c 46 6e 61 6d 65 24 2c  |amescan%,Fname$,|
00000a70  6e 65 77 66 69 6c 65 62  75 66 66 65 72 25 0d 04  |newfilebuffer%..|
00000a80  4c 1e 20 f4 20 52 65 61  64 20 44 69 72 65 63 74  |L. . Read Direct|
00000a90  6f 72 79 20 43 6f 6e 74  65 6e 74 73 0d 04 56 40  |ory Contents..V@|
00000aa0  20 c8 99 20 22 58 4f 53  5f 47 42 50 42 22 2c 31  | .. "XOS_GBPB",1|
00000ab0  30 2c 64 69 72 24 2c 66  69 6c 65 6d 65 6d 25 2c  |0,dir$,filemem%,|
00000ac0  32 35 36 2c 30 2c 26 31  30 30 30 2c 22 2a 22 20  |256,0,&1000,"*" |
00000ad0  b8 20 2c 2c 2c 72 65 63  6f 72 64 73 0d 04 60 33  |. ,,,records..`3|
00000ae0  20 e7 20 72 65 63 6f 72  64 73 3d 32 35 36 20 85  | . records=256 .|
00000af0  20 31 2c 22 46 69 6c 69  6e 67 20 73 79 73 74 65  | 1,"Filing syste|
00000b00  6d 20 6e 6f 74 20 61 74  74 61 63 68 65 64 22 0d  |m not attached".|
00000b10  04 6a 26 20 e7 20 72 65  63 6f 72 64 73 3d 30 20  |.j& . records=0 |
00000b20  84 20 72 65 63 6f 72 64  73 3d 32 35 36 20 f2 50  |. records=256 .P|
00000b30  6f 6c 6c 3a e1 0d 04 74  13 20 73 63 61 6e 25 3d  |oll:...t. scan%=|
00000b40  66 69 6c 65 6d 65 6d 25  0d 04 7e 1e 20 e3 20 73  |filemem%..~. . s|
00000b50  65 61 72 63 68 25 3d 30  20 b8 20 28 72 65 63 6f  |earch%=0 . (reco|
00000b60  72 64 73 2d 31 29 0d 04  88 19 20 20 6e 61 6d 65  |rds-1)....  name|
00000b70  73 63 61 6e 25 3d 73 63  61 6e 25 2b 26 31 34 0d  |scan%=scan%+&14.|
00000b80  04 92 0f 20 20 46 6e 61  6d 65 24 3d 22 22 0d 04  |...  Fname$=""..|
00000b90  9c 07 20 20 f5 0d 04 a6  2c 20 20 20 e7 20 3f 6e  |..  ....,   . ?n|
00000ba0  61 6d 65 73 63 61 6e 25  3e 33 31 20 46 6e 61 6d  |amescan%>31 Fnam|
00000bb0  65 24 2b 3d bd 28 3f 6e  61 6d 65 73 63 61 6e 25  |e$+=.(?namescan%|
00000bc0  29 0d 04 b0 13 20 20 20  6e 61 6d 65 73 63 61 6e  |)....   namescan|
00000bd0  25 2b 3d 31 0d 04 ba 14  20 20 fd 20 3f 6e 61 6d  |%+=1....  . ?nam|
00000be0  65 73 63 61 6e 25 3d 30  0d 04 c4 1c 20 20 46 6e  |escan%=0....  Fn|
00000bf0  61 6d 65 24 3d 64 69 72  24 2b 22 2e 22 2b 46 6e  |ame$=dir$+"."+Fn|
00000c00  61 6d 65 24 0d 04 ce 17  20 20 c8 8e 20 21 28 73  |ame$....  .. !(s|
00000c10  63 61 6e 25 2b 26 31 30  29 20 ca 0d 04 d8 7d 20  |can%+&10) ....} |
00000c20  20 20 c9 20 31 20 3a f2  57 72 69 74 65 49 63 6f  |  . 1 :.WriteIco|
00000c30  6e 28 43 68 65 63 6b 49  63 6f 6e 25 2c 46 6e 61  |n(CheckIcon%,Fna|
00000c40  6d 65 24 29 3a f2 57 72  69 74 65 49 63 6f 6e 28  |me$):.WriteIcon(|
00000c50  52 65 70 61 69 72 49 63  6f 6e 25 2c 22 22 29 3a  |RepairIcon%,""):|
00000c60  f2 50 6f 6c 6c 3a e7 20  21 73 63 61 6e 25 3c 30  |.Poll:. !scan%<0|
00000c70  20 80 20 28 28 21 73 63  61 6e 25 3e 3e 38 29 80  | . ((!scan%>>8).|
00000c80  20 26 46 46 46 29 3d 26  46 46 41 20 f2 46 69 78  | &FFF)=&FFA .Fix|
00000c90  28 46 6e 61 6d 65 24 29  0d 04 e2 1a 20 20 20 c9  |(Fname$)....   .|
00000ca0  20 32 20 3a 20 f2 50 75  73 68 28 46 6e 61 6d 65  | 2 : .Push(Fname|
00000cb0  24 29 0d 04 ec 07 20 20  cb 0d 04 f6 28 20 20 73  |$)....  ....(  s|
00000cc0  63 61 6e 25 3d 6e 61 6d  65 73 63 61 6e 25 2b 28  |can%=namescan%+(|
00000cd0  34 2d 28 6e 61 6d 65 73  63 61 6e 25 20 83 34 29  |4-(namescan% .4)|
00000ce0  29 0d 05 00 0b 20 20 f2  50 6f 6c 6c 0d 05 0a 25  |)....  .Poll...%|
00000cf0  20 20 e7 20 ac 20 73 63  61 6e 6e 69 6e 67 25 20  |  . . scanning% |
00000d00  73 65 61 72 63 68 25 3d  72 65 63 6f 72 64 73 2d  |search%=records-|
00000d10  31 0d 05 14 06 20 ed 0d  05 1e 05 e1 0d 05 28 05  |1.... ........(.|
00000d20  3a 0d 05 32 05 e1 0d 05  3c 05 3a 0d 05 46 05 3a  |:..2....<.:..F.:|
00000d30  0d 05 50 05 3a 0d 05 5a  1c f4 20 57 49 4d 50 20  |..P.:..Z.. WIMP |
00000d40  48 61 6e 64 6c 69 6e 67  20 52 6f 75 74 69 6e 65  |Handling Routine|
00000d50  73 0d 05 64 05 3a 0d 05  6e 13 dd f2 47 65 74 5f  |s..d.:..n...Get_|
00000d60  54 65 6d 70 6c 61 74 65  73 0d 05 78 33 20 c8 99  |Templates..x3 ..|
00000d70  20 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  | "Wimp_OpenTempl|
00000d80  61 74 65 22 2c 2c 22 3c  4f 62 65 79 24 44 69 72  |ate",,"<Obey$Dir|
00000d90  3e 2e 54 65 6d 70 6c 61  74 65 73 22 0d 05 82 42  |>.Templates"...B|
00000da0  20 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  | .. "Wimp_LoadTe|
00000db0  6d 70 6c 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 2c  |mplate",,block%,|
00000dc0  69 62 6c 6f 63 6b 25 2c  69 62 6c 6f 63 6b 25 2b  |iblock%,iblock%+|
00000dd0  26 31 30 30 2c 2d 31 2c  22 4d 61 69 6e 22 0d 05  |&100,-1,"Main"..|
00000de0  8c 11 20 62 6c 6f 63 6b  25 21 32 34 3d 2d 31 0d  |.. block%!24=-1.|
00000df0  05 96 31 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..1 .. "Wimp_Cre|
00000e00  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |ateWindow",,bloc|
00000e10  6b 25 20 b8 20 4d 61 69  6e 48 61 6e 64 6c 65 25  |k% . MainHandle%|
00000e20  0d 05 a0 44 20 c8 99 20  22 57 69 6d 70 5f 4c 6f  |...D .. "Wimp_Lo|
00000e30  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 6c 6f  |adTemplate",,blo|
00000e40  63 6b 25 2c 69 62 6c 6f  63 6b 31 25 2c 69 62 6c  |ck%,iblock1%,ibl|
00000e50  6f 63 6b 31 25 2b 26 31  30 30 2c 2d 31 2c 22 49  |ock1%+&100,-1,"I|
00000e60  6e 66 6f 22 0d 05 aa 11  20 62 6c 6f 63 6b 25 21  |nfo".... block%!|
00000e70  32 34 3d 2d 31 0d 05 b4  31 20 c8 99 20 22 57 69  |24=-1...1 .. "Wi|
00000e80  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000e90  2c 2c 62 6c 6f 63 6b 25  20 b8 20 49 6e 66 6f 48  |,,block% . InfoH|
00000ea0  61 6e 64 6c 65 25 0d 05  be 1c 20 c8 99 20 22 57  |andle%.... .. "W|
00000eb0  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
00000ec0  65 22 0d 05 c8 05 e1 0d  05 d2 05 3a 0d 05 dc 16  |e".........:....|
00000ed0  dd a4 49 63 6f 6e 42 61  72 28 53 70 72 69 74 65  |..IconBar(Sprite|
00000ee0  24 29 0d 05 e6 0d 20 ea  20 49 63 6f 6e 48 25 0d  |$).... . IconH%.|
00000ef0  05 f0 0f 20 21 62 6c 6f  63 6b 25 3d 2d 31 0d 05  |... !block%=-1..|
00000f00  fa 0f 20 62 6c 6f 63 6b  25 21 34 3d 30 0d 06 04  |.. block%!4=0...|
00000f10  0f 20 62 6c 6f 63 6b 25  21 38 3d 30 0d 06 0e 11  |. block%!8=0....|
00000f20  20 62 6c 6f 63 6b 25 21  31 32 3d 36 38 0d 06 18  | block%!12=68...|
00000f30  11 20 62 6c 6f 63 6b 25  21 31 36 3d 36 38 0d 06  |. block%!16=68..|
00000f40  22 14 20 62 6c 6f 63 6b  25 21 32 30 3d 26 33 30  |". block%!20=&30|
00000f50  30 32 0d 06 2c 19 20 24  28 62 6c 6f 63 6b 25 2b  |02..,. $(block%+|
00000f60  32 34 29 3d 53 70 72 69  74 65 24 0d 06 36 2a 20  |24)=Sprite$..6* |
00000f70  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00000f80  63 6f 6e 22 2c 2c 62 6c  6f 63 6b 25 20 b8 20 49  |con",,block% . I|
00000f90  63 6f 6e 48 25 0d 06 40  0b 3d 49 63 6f 6e 48 25  |conH%..@.=IconH%|
00000fa0  0d 06 4a 05 3a 0d 06 54  0a dd f2 50 6f 6c 6c 0d  |..J.:..T...Poll.|
00000fb0  06 5e 12 20 ea 20 52 65  61 73 6f 6e 43 6f 64 65  |.^. . ReasonCode|
00000fc0  25 0d 06 68 2e 20 c8 99  20 22 57 69 6d 70 5f 50  |%..h. .. "Wimp_P|
00000fd0  6f 6c 6c 22 2c 6d 61 73  6b 25 2c 62 6c 6f 63 6b  |oll",mask%,block|
00000fe0  25 20 b8 20 52 65 61 73  6f 6e 43 6f 64 65 25 0d  |% . ReasonCode%.|
00000ff0  06 72 15 20 c8 8e 20 52  65 61 73 6f 6e 43 6f 64  |.r. .. ReasonCod|
00001000  65 25 20 ca 0d 06 7c 26  20 20 c9 20 32 3a c8 99  |e% ...|&  . 2:..|
00001010  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00001020  77 22 2c 2c 62 6c 6f 63  6b 25 0d 06 86 27 20 20  |w",,block%...'  |
00001030  c9 20 33 3a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |. 3:.. "Wimp_Clo|
00001040  73 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |seWindow",,block|
00001050  25 0d 06 90 12 20 20 c9  20 36 3a f2 42 75 74 74  |%....  . 6:.Butt|
00001060  6f 6e 73 0d 06 9a 28 20  20 c9 20 38 3a c8 99 20  |ons...(  . 8:.. |
00001070  22 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  |"Wimp_ProcessKey|
00001080  22 2c 62 6c 6f 63 6b 25  21 32 34 0d 06 a4 15 20  |",block%!24.... |
00001090  20 c9 20 39 3a f2 4d 65  6e 75 43 68 6f 69 63 65  | . 9:.MenuChoice|
000010a0  0d 06 ae 26 20 20 c9 20  31 37 2c 31 38 3a 20 e7  |...&  . 17,18: .|
000010b0  20 28 62 6c 6f 63 6b 25  21 31 36 29 3d 30 20 71  | (block%!16)=0 q|
000010c0  75 69 74 25 3d b9 0d 06  b8 06 20 cb 0d 06 c2 05  |uit%=..... .....|
000010d0  e1 0d 06 cc 05 3a 0d 06  d6 0d dd f2 42 75 74 74  |.....:......Butt|
000010e0  6f 6e 73 0d 06 e0 29 20  ea 20 78 25 2c 79 25 2c  |ons...) . x%,y%,|
000010f0  62 75 74 74 6f 6e 25 2c  77 69 6e 64 6f 77 25 2c  |button%,window%,|
00001100  69 63 6f 6e 25 2c 64 72  69 76 65 25 0d 06 ea 0f  |icon%,drive%....|
00001110  20 78 25 3d 21 62 6c 6f  63 6b 25 0d 06 f4 10 20  | x%=!block%.... |
00001120  79 25 3d 62 6c 6f 63 6b  25 21 34 0d 06 fe 16 20  |y%=block%!4.... |
00001130  77 69 6e 64 6f 77 25 3d  62 6c 6f 63 6b 25 21 31  |window%=block%!1|
00001140  32 0d 07 08 14 20 69 63  6f 6e 25 3d 62 6c 6f 63  |2.... icon%=bloc|
00001150  6b 25 21 31 36 0d 07 12  15 20 62 75 74 74 6f 6e  |k%!16.... button|
00001160  25 3d 62 6c 6f 63 6b 25  21 38 0d 07 1c 14 20 20  |%=block%!8....  |
00001170  e7 20 77 69 6e 64 6f 77  25 3d 2d 32 20 8c 0d 07  |. window%=-2 ...|
00001180  26 45 20 20 20 e7 20 28  62 75 74 74 6f 6e 25 20  |&E   . (button% |
00001190  80 32 29 20 f2 49 63 6f  6e 42 61 72 4d 65 6e 75  |.2) .IconBarMenu|
000011a0  28 78 25 29 20 8b 20 e7  20 28 62 75 74 74 6f 6e  |(x%) . . (button|
000011b0  25 20 80 35 29 20 8c 20  f2 4f 70 65 6e 4d 61 69  |% .5) . .OpenMai|
000011c0  6e 3a e1 0d 07 30 07 20  20 cd 0d 07 3a 1b 20 20  |n:...0.  ...:.  |
000011d0  e7 20 77 69 6e 64 6f 77  25 3d 4d 61 69 6e 48 61  |. window%=MainHa|
000011e0  6e 64 6c 65 25 0d 07 44  32 20 20 20 e7 20 28 69  |ndle%..D2   . (i|
000011f0  63 6f 6e 25 3e 30 20 80  20 69 63 6f 6e 25 3c 36  |con%>0 . icon%<6|
00001200  29 20 80 20 28 28 62 75  74 74 6f 6e 25 20 80 20  |) . ((button% . |
00001210  35 29 3e 30 29 20 8c 0d  07 4e 16 20 20 20 20 64  |5)>0) ...N.    d|
00001220  72 69 76 65 25 3d 69 63  6f 6e 25 2d 31 0d 07 58  |rive%=icon%-1..X|
00001230  22 20 20 20 20 64 65 76  69 63 65 24 3d 22 41 44  |"    device$="AD|
00001240  46 53 3a 3a 22 2b c3 28  64 72 69 76 65 25 29 0d  |FS::"+.(drive%).|
00001250  07 62 27 20 20 20 20 f2  57 72 69 74 65 49 63 6f  |.b'    .WriteIco|
00001260  6e 28 44 65 76 69 63 65  49 63 6f 6e 25 2c 64 65  |n(DeviceIcon%,de|
00001270  76 69 63 65 24 29 0d 07  6c 08 20 20 20 cd 0d 07  |vice$)..l.   ...|
00001280  76 3b 20 20 20 e7 20 69  63 6f 6e 25 3d 41 62 6f  |v;   . icon%=Abo|
00001290  72 74 49 63 6f 6e 25 20  80 20 28 28 62 75 74 74  |rtIcon% . ((butt|
000012a0  6f 6e 25 20 80 20 35 29  3e 30 29 20 8c 20 73 63  |on% . 5)>0) . sc|
000012b0  61 6e 6e 69 6e 67 25 3d  a3 0d 07 80 2e 20 20 20  |anning%=.....   |
000012c0  e7 20 69 63 6f 6e 25 3d  53 63 61 6e 49 63 6f 6e  |. icon%=ScanIcon|
000012d0  25 20 80 20 28 28 62 75  74 74 6f 6e 25 20 80 20  |% . ((button% . |
000012e0  35 29 3e 30 29 20 8c 0d  07 8a 21 20 20 20 20 e7  |5)>0) ....!    .|
000012f0  20 73 63 61 6e 6e 69 6e  67 25 3d a3 20 f2 53 65  | scanning%=. .Se|
00001300  61 72 63 68 44 69 73 63  0d 07 94 08 20 20 20 cd  |archDisc....   .|
00001310  0d 07 9e 07 20 20 cd 0d  07 a8 05 e1 0d 07 b2 05  |....  ..........|
00001320  3a 0d 07 bc 0e dd f2 4f  70 65 6e 4d 61 69 6e 0d  |:......OpenMain.|
00001330  07 c6 18 20 21 62 6c 6f  63 6b 25 3d 4d 61 69 6e  |... !block%=Main|
00001340  48 61 6e 64 6c 65 25 0d  07 d0 25 20 c8 99 20 22  |Handle%...% .. "|
00001350  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00001360  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 07 da 21  |ate",,block%...!|
00001370  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
00001380  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 07 e4  |ndow",,block%...|
00001390  29 20 f2 57 72 69 74 65  49 63 6f 6e 28 43 68 65  |) .WriteIcon(Che|
000013a0  63 6b 49 63 6f 6e 25 2c  22 4e 6f 74 68 69 6e 67  |ckIcon%,"Nothing|
000013b0  2e 2e 2e 2e 22 29 0d 07  ee 2a 20 f2 57 72 69 74  |....")...* .Writ|
000013c0  65 49 63 6f 6e 28 52 65  70 61 69 72 49 63 6f 6e  |eIcon(RepairIcon|
000013d0  25 2c 22 4e 6f 74 68 69  6e 67 2e 2e 2e 2e 22 29  |%,"Nothing....")|
000013e0  0d 07 f8 05 e1 0d 08 02  05 3a 0d 08 0c 05 3a 0d  |.........:....:.|
000013f0  08 16 16 dd f2 49 63 6f  6e 42 61 72 4d 65 6e 75  |.....IconBarMenu|
00001400  28 78 70 25 29 0d 08 20  17 20 24 6d 65 6e 75 25  |(xp%).. . $menu%|
00001410  3d 22 46 69 78 56 69 72  4d 6f 64 22 0d 08 2a 0f  |="FixVirMod"..*.|
00001420  20 6d 65 6e 75 25 3f 31  32 3d 37 0d 08 34 0f 20  | menu%?12=7..4. |
00001430  6d 65 6e 75 25 3f 31 33  3d 32 0d 08 3e 0f 20 6d  |menu%?13=2..>. m|
00001440  65 6e 75 25 3f 31 34 3d  37 0d 08 48 0f 20 6d 65  |enu%?14=7..H. me|
00001450  6e 75 25 3f 31 35 3d 30  0d 08 52 11 20 6d 65 6e  |nu%?15=0..R. men|
00001460  75 25 21 31 36 3d 31 34  30 0d 08 5c 10 20 6d 65  |u%!16=140..\. me|
00001470  6e 75 25 21 32 30 3d 34  34 0d 08 66 0f 20 6d 65  |nu%!20=44..f. me|
00001480  6e 75 25 21 32 34 3d 30  0d 08 70 13 20 70 6e 74  |nu%!24=0..p. pnt|
00001490  72 25 3d 6d 65 6e 75 25  2b 32 38 0d 08 7a 24 20  |r%=menu%+28..z$ |
000014a0  f2 69 74 65 6d 28 70 6e  74 72 25 2c 22 49 6e 66  |.item(pntr%,"Inf|
000014b0  6f 22 2c 49 6e 66 6f 48  61 6e 64 6c 65 25 29 0d  |o",InfoHandle%).|
000014c0  08 84 1b 20 f2 69 74 65  6d 28 70 6e 74 72 25 2c  |... .item(pntr%,|
000014d0  22 51 75 69 74 22 2c 2d  31 29 0d 08 8e 20 20 70  |"Quit",-1)...  p|
000014e0  6e 74 72 25 21 2d 32 34  3d 28 70 6e 74 72 25 21  |ntr%!-24=(pntr%!|
000014f0  2d 32 34 20 84 20 26 38  30 29 0d 08 98 2b 20 c8  |-24 . &80)...+ .|
00001500  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001510  6e 75 22 2c 2c 6d 65 6e  75 25 2c 78 70 25 2d 36  |nu",,menu%,xp%-6|
00001520  34 2c 31 38 34 0d 08 a2  05 e1 0d 08 ac 05 3a 0d  |4,184.........:.|
00001530  08 b6 22 dd f2 69 74 65  6d 28 f8 20 70 6e 74 72  |.."..item(. pntr|
00001540  25 2c 69 74 65 6d 24 2c  77 69 6e 64 6f 77 68 25  |%,item$,windowh%|
00001550  29 0d 08 c0 0d 20 21 70  6e 74 72 25 3d 30 0d 08  |).... !pntr%=0..|
00001560  ca 15 20 70 6e 74 72 25  21 34 3d 77 69 6e 64 6f  |.. pntr%!4=windo|
00001570  77 68 25 0d 08 d4 15 20  70 6e 74 72 25 21 38 3d  |wh%.... pntr%!8=|
00001580  26 37 30 30 30 30 32 31  0d 08 de 16 20 24 28 70  |&7000021.... $(p|
00001590  6e 74 72 25 2b 31 32 29  3d 69 74 65 6d 24 0d 08  |ntr%+12)=item$..|
000015a0  e8 0e 20 70 6e 74 72 25  2b 3d 32 34 0d 08 f2 05  |.. pntr%+=24....|
000015b0  e1 0d 08 fc 05 3a 0d 09  06 10 dd f2 4d 65 6e 75  |.....:......Menu|
000015c0  43 68 6f 69 63 65 0d 09  10 0e 20 ea 20 63 68 6f  |Choice.... . cho|
000015d0  69 63 65 25 0d 09 1a 14  20 63 68 6f 69 63 65 25  |ice%.... choice%|
000015e0  3d 21 62 6c 6f 63 6b 25  0d 09 24 18 20 e7 20 63  |=!block%..$. . c|
000015f0  68 6f 69 63 65 25 3d 31  20 71 75 69 74 25 3d b9  |hoice%=1 quit%=.|
00001600  0d 09 2e 05 e1 0d 09 38  05 3a 0d 09 42 17 dd a4  |.......8.:..B...|
00001610  49 63 6f 6e 54 65 78 74  28 49 63 6f 6e 4e 6f 25  |IconText(IconNo%|
00001620  29 0d 09 4c 17 20 21 74  65 6d 70 25 3d 4d 61 69  |)..L. !temp%=Mai|
00001630  6e 48 61 6e 64 6c 65 25  0d 09 56 14 20 74 65 6d  |nHandle%..V. tem|
00001640  70 25 21 34 3d 49 63 6f  6e 4e 6f 25 0d 09 60 23  |p%!4=IconNo%..`#|
00001650  20 c8 99 20 22 58 57 69  6d 70 5f 47 65 74 49 63  | .. "XWimp_GetIc|
00001660  6f 6e 53 74 61 74 65 22  2c 2c 74 65 6d 70 25 0d  |onState",,temp%.|
00001670  09 6a 10 3d 24 28 74 65  6d 70 25 21 32 38 29 0d  |.j.=$(temp%!28).|
00001680  09 74 05 3a 0d 09 7e 1c  dd f2 57 72 69 74 65 49  |.t.:..~...WriteI|
00001690  63 6f 6e 28 49 63 6f 6e  25 2c 54 65 78 74 24 29  |con(Icon%,Text$)|
000016a0  0d 09 88 17 20 21 74 65  6d 70 25 3d 4d 61 69 6e  |.... !temp%=Main|
000016b0  48 61 6e 64 6c 65 25 0d  09 92 12 20 74 65 6d 70  |Handle%.... temp|
000016c0  25 21 34 3d 49 63 6f 6e  25 0d 09 9c 22 20 c8 99  |%!4=Icon%..." ..|
000016d0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
000016e0  61 74 65 22 2c 2c 74 65  6d 70 25 0d 09 a6 21 20  |ate",,temp%...! |
000016f0  24 28 74 65 6d 70 25 21  32 38 29 3d c2 54 65 78  |$(temp%!28)=.Tex|
00001700  74 24 2c 74 65 6d 70 25  21 33 36 29 0d 09 b0 17  |t$,temp%!36)....|
00001710  20 21 74 65 6d 70 25 3d  4d 61 69 6e 48 61 6e 64  | !temp%=MainHand|
00001720  6c 65 25 0d 09 ba 12 20  74 65 6d 70 25 21 34 3d  |le%.... temp%!4=|
00001730  49 63 6f 6e 25 0d 09 c4  0e 20 74 65 6d 70 25 21  |Icon%.... temp%!|
00001740  38 3d 30 0d 09 ce 0f 20  74 65 6d 70 25 21 31 32  |8=0.... temp%!12|
00001750  3d 30 0d 09 d8 23 20 c8  99 20 22 58 57 69 6d 70  |=0...# .. "XWimp|
00001760  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00001770  74 65 6d 70 25 0d 09 e2  05 e1 0d 09 ec 05 3a 0d  |temp%.........:.|
00001780  09 f6 19 dd f2 45 72 72  6f 72 28 45 72 72 4e 6f  |.....Error(ErrNo|
00001790  2c 45 72 72 6f 72 24 29  0d 0a 00 09 20 ea 20 41  |,Error$).... . A|
000017a0  25 0d 0a 0a 11 20 21 74  65 6d 70 25 3d 45 72 72  |%.... !temp%=Err|
000017b0  4e 6f 0d 0a 14 16 20 24  28 74 65 6d 70 25 2b 34  |No.... $(temp%+4|
000017c0  29 3d 45 72 72 6f 72 24  0d 0a 1e 34 20 c8 99 20  |)=Error$...4 .. |
000017d0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
000017e0  72 22 2c 74 65 6d 70 25  2c 31 2c 22 46 69 78 56  |r",temp%,1,"FixV|
000017f0  69 72 4d 6f 64 22 20 b8  20 2c 41 25 0d 0a 28 15  |irMod" . ,A%..(.|
00001800  20 e7 20 41 25 3d 32 20  8c 20 71 75 69 74 25 3d  | . A%=2 . quit%=|
00001810  b9 0d 0a 32 05 e1 0d 0a  3c 05 3a 0d 0a 46 13 dd  |...2....<.:..F..|
00001820  f2 41 63 63 65 73 73 28  6e 61 6d 65 24 29 0d 0a  |.Access(name$)..|
00001830  50 1e 20 c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |P. .. "OS_File",|
00001840  34 2c 6e 61 6d 65 24 2c  2c 2c 2c 33 0d 0a 5a 05  |4,name$,,,,3..Z.|
00001850  e1 0d 0a 64 05 3a 0d 0a  6e 11 dd f2 50 75 73 68  |...d.:..n...Push|
00001860  28 69 74 65 6d 24 29 0d  0a 78 15 20 46 69 6c 65  |(item$)..x. File|
00001870  24 28 73 70 25 29 3d 69  74 65 6d 24 0d 0a 82 0b  |$(sp%)=item$....|
00001880  20 73 70 25 2b 3d 31 0d  0a 8c 29 20 e7 20 73 70  | sp%+=1...) . sp|
00001890  25 3e 33 30 30 20 85 20  31 2c 22 54 6f 6f 20 4d  |%>300 . 1,"Too M|
000018a0  61 6e 79 20 44 69 72 65  63 74 6f 72 69 65 73 22  |any Directories"|
000018b0  0d 0a 96 05 e1 0d 0a a0  05 3a 0d 0a aa 0a dd a4  |.........:......|
000018c0  50 75 6c 6c 0d 0a b4 0b  20 73 70 25 2d 3d 31 0d  |Pull.... sp%-=1.|
000018d0  0a be 0f 3d 46 69 6c 65  24 28 73 70 25 29 0d 0a  |...=File$(sp%)..|
000018e0  c8 05 3a 0d 0a d2 11 dd  f2 4b 69 6c 6c 4d 6f 64  |..:......KillMod|
000018f0  75 6c 65 73 0d 0a dc 10  20 ea 20 72 65 73 70 6f  |ules.... . respo|
00001900  6e 73 65 25 0d 0a e6 4a  20 24 28 62 6c 6f 63 6b  |nse%...J $(block|
00001910  25 2b 34 29 3d 22 41 6c  6c 20 6e 6f 6e 2d 52 4f  |%+4)="All non-RO|
00001920  4d 20 6d 6f 64 75 6c 65  73 20 61 72 65 20 61 62  |M modules are ab|
00001930  6f 75 74 20 74 6f 20 62  65 20 63 6c 65 61 72 65  |out to be cleare|
00001940  64 2e 20 20 50 72 6f 63  65 65 64 20 3f 22 0d 0a  |d.  Proceed ?"..|
00001950  f0 3e 20 c8 99 20 22 58  57 69 6d 70 5f 52 65 70  |.> .. "XWimp_Rep|
00001960  6f 72 74 45 72 72 6f 72  22 2c 62 6c 6f 63 6b 25  |ortError",block%|
00001970  2c 32 33 2c 22 57 41 52  4e 49 4e 47 20 3a 22 20  |,23,"WARNING :" |
00001980  b8 20 2c 72 65 73 70 6f  6e 73 65 25 0d 0a fa 2b  |. ,response%...+|
00001990  20 e7 20 72 65 73 70 6f  6e 73 65 25 3d 32 20 85  | . response%=2 .|
000019a0  20 30 2c 22 51 75 69 74  74 69 6e 67 20 46 69 78  | 0,"Quitting Fix|
000019b0  56 69 72 4d 6f 64 22 0d  0b 04 16 20 c8 99 20 22  |VirMod".... .. "|
000019c0  58 4f 53 5f 4d 6f 64 75  6c 65 22 2c 39 0d 0b 0e  |XOS_Module",9...|
000019d0  05 e1 0d ff                                       |....|
000019d4