� >$.!VKiller.!RunImage
2� Virus Killer V2.20 (C) Richard K. Lloyd 1991
1� Currently kills:  Discovered by:   Attacks:
(4� Extend Virus      Simon Burrows    !Boot files
27� ArchieVirus       Hugo Fiennes     Absolute files
<4� CeBit Virus       ?                !Boot files
F4� Vigay Virus       Gordon Sinclair  !Boot files
P
Z� Recommended CD:
dB� B-52's "Cosmic Thing". Weird at first, but it grows on you !
n
x� General error trapper
�� � �systemerror
�
�"quit%=�:� Nothing happened yet
�	�init
�ȕ � quit%
�   �wimp_poll(�)
��
�
�*ș "XWimp_CloseDown",task%,!taskconst%
�ș "OS_Exit"
�
�
��init
�6maxfiles%=16:� Number of objects read in at a time

Imaxfs%=127:� Highest known FS number (may eventually need increasing)

ksize%=maxfiles%*64:� Max files per dir and 64 bytes per file info (increased to allow for longer names)

9maxboot%=&1400:� 5K is largest allowed size for !Boot

"� buff% maxboot%,fbuff% 12

,)� inbuff% 20,outbuff% 20,seekbuff% 20

6)� �dfO:� x%=0 � 16 � 4:� x%!inbuff%:�

@1icon$="IconSprites <Obey$Dir>.!Sprites"+�(&A)

Jiconlen%=�(icon$)

TZprotect$="| This file has been innoculated against the Extend Virus"+�(&A)+"||"+�(&FF)

^protlen%=�(protect$)

h7extendhelp$="Extend"+�(9)+�(9)+"1.56 (08 Jul 1989)"

rUcebithelp$="TlodMod"+�(9)+�(9)+"1.11 (11 Nov 1990) by Devil the LORD OF DARKNESS"

|7cebitobey$="rme. TlodMod 0 rml. <Obey$Dir>.TlodMod"

�+vigayobey$="RUN ""<Obey$Dir>.datadqm"""

�.cebitoff%=&4C4:� Offset of infection count

�-archsize%=&398:� Size of ArchieVirus code

�)deffs$="adfs":� Default filing system

�.oldappicon$="":� Previous application icon

�,infect%=�:still%=�:� No virus checks yet

�Anummem%=0:numdisk%=0:numinnoc%=0:numscans%=0:� Reset counters

�7fsysnum%=0:fsys$="":� Not checked filing system yet

�*innoc%=�:� Not innoculating by default

�'logging%=�:� Not logging by default

�+opened%=�:� Dialogue box not opened yet

�

�� Application Constants
2prog$="VKiller":� English text name of program
H� Change next line to date$=MID$(TIME$,5,11) to get the current date
8date$="11 Apr 1991":� Current date as a fixed string
&>vkillvar$="<VKiller$Dir>":� VKiller environmental variable
0Jiconbartype%=-1:� -1 = Utility (RHS of bar), -2 = Service (LHS of bar)
:>windman%=200:� Expect at LEAST V2.00 of the Window Manager
D2bl$=�(0):� NULL char used to terminate strings
N2dirscan%=11:� Directory spec goes in this icon
X0status%=12:� Status messages go in this icon
b"appicon%=18:� Application icon
liconname%=22:� Icon name
v"fileicon%=25:� File total icon
�&diricon%=26:� Directory total icon
�4iconbar%=136:� External coord height of icon bar
�
�� Workspace for application
�9� vkillwind% &E00,infowind% &E00:� Template workspace
�%� poll% 256:� Wimp_Poll workspace
�(� icon% 48:� Icon bar icon workspace
�@� taskconst% 8:$taskconst%="TASK":� Store Task constant here
�9� icondata% 256:� Temp workspace to get/put icon data
�
�� Initialise WIMP
�Jș "XWimp_Initialise",windman%,!taskconst%,prog$+bl$ � windvers%,task%
�e� windvers%<windman% � �fatal(prog$+" requires Window Manager V"+�fraction(windman%)+" or later")

�menu_initialise(256,256)
2�gettemplates:� Get window templates from file
 $�makeicon:� Create icon bar icon
*�build_fs_names
4�choose_fs(0)
>�finishscan
H�statusinform("Idle")
R�scanRMA(�gettaskhand(""))
\Chand%=�gettaskhand("TaskManager"):� hand%:�vigay_running(hand%)
f�
p
zݤgettaskhand(taskname$)
�/� This routine is unintentionally blank :-(
�I� Although it is possible to get the name of a task given its handle,
�J� there appears to be no way to get the reverse (Task Manager cheats -
�G� it runs first of all and picks up Wimp_Initialise handles/names).
�H� Can anyone out there complete this routine to return a task handle
�&� given its name ? Pretty please ?
�=0
�
���plotappicon(sprname$)
�sprname$=�lower(sprname$)
�� sprname$<>oldappicon$ �
�(   �putdata(appicon%,"S"+sprname$,�)
�   oldappicon$=sprname$
�
�

$��check(dir$,leafdir$)
.t� off%,base%,num%,loop%,addr%,name$,fullname$,len%,gotboot%,type%,flags%,errblk%,gotappicon%,icon_name$,lowname$
8+�wimp_poll(�):� quit%=� � scanning%=�:�
Bbase%=�claimRMA(size%)
L� base%=0 �
V>   �status_log("","Insufficient RMA - skipping deeper","")
`   �
j�
t� leafdir$<>"" �
~   dir$+="."+leafdir$
�   � �(leafdir$)=33 �
�8      � is the application sprite already in memory?
�4      ș "XWimp_SpriteOp",40,,leafdir$ � ;flags%
�E      � flags% � 1:icon_name$="application" � icon_name$=leafdir$
�   �
�       icon_name$="directory"
�   �
�%   �putdata(iconname%,leafdir$,�)
�   �plotappicon(icon_name$)
��
��putdata(dirscan%,dir$,�)
�#off%=0:gotboot%=�:gotappicon%=�
�

   �wimp_poll(�)
    � quit%=� � scanning%=� �
      num%=0
(   �
2      addr%=base%
<e      ș "XOS_GBPB",10,dir$+�(0),addr%,maxfiles%,off%,size%,"*"+�(0) � errblk%,,,num%,off%;flags%
F      � flags% � 1 �
P0         �status_log("",�rtoz(errblk%+4),"")
Z*         num%=0:scanning%=�:badscan%=�
d      �
n   �
x   � num% �
�      � loop%=0 � num%-1
�         obj%=addr%!16
�3         len%=addr%!8:type%=(!addr%>>>8) � &FFF
�.         addr%+=20:name$=�getstring(addr%)
�7         addr%=(addr%+4) � 4*4:� Align to next word
�         � obj%=2 �
�%            numdirs%+=1:�dircount
�"            �check(dir$,name$)
�         �
�'            numfiles%+=1:�filecount
�&            lowname$=�lower(name$)
�$            � lowname$="!boot" �
�               gotboot%=�
F               � type%=&FEB:�check_for_boot_virus(dir$,name$,len%)
            �
            Ȏ type% �
"5            � &FF8:� len%>=archsize% � innoc%=� �
,B                         �check_for_abs_virus(dir$,name$,len%)
6                      �
@:            � &FF9:� lowname$="!sprites":gotappicon%=�
J<            � &FFA:�check_for_mod_virus(dir$,name$,len%)
T9            � &FFB:�check_for_BASIC_virus(dir$,name$)
^            �
h         �
r      �
|  �
�%� off%=-1 � quit%=� � scanning%=�
�F� gotboot%=� � �(leafdir$)=33 � innoc%=� � quit%=� � scanning%=� �
�6   � �extend_innocboot(dir$,base%,0,gotappicon%) �
�<      �status_log(dir$,"!Boot created & innoculated","")
�   �
��
��releaseRMA(base%)
��
�
���newinnoc
�,numinnoc%+=1:�putdata(15,�(numinnoc%),�)
��
�
��unsupported(virus$)
��warn(virus$+" detected in RMA - the current release of "+prog$+" cannot remove it from RMA. Please hard reset, re-run "+prog$+" ONLY and re-scan all suspect disks.")
quit%=�:scanning%=�
&�
0
:,��notifyvirus(mess1$,mess2$,count%,rma%)
D� rma% �
N=   nummem%+=1:�putdata(13,�(nummem%),�):mess1$+=" in RMA"
X�
b-   numdisk%+=1:�putdata(14,�(numdisk%),�)
l�
vA� mess2$<>"":�putdata(dirscan%,mess2$+" Count: "+�(count%),�)
�infect%=�:�openwindow
�(�status_log("",mess1$+" found !","")
��holdit(1)
��
�
���holdit(secs%)
�� t%:t%=�+secs%*100
��
�   �wimp_poll(�)
�� �>t% � quit%
��
�
���delfile(m$,type$)
� �oscli("Delete",m$,"") �
)  �status_log("",type$+" deleted",m$)
�
 1  �status_log("","Couldn't delete "+type$,m$)
*�
4�
>
Hݤoscli(l$,m$,r$)
R � flags%,again%,errblk%,osc$
\(osc$=l$+" "+m$+" "+r$+" { > null: }"
f�
p   � l$="RMKill" �
z4      ș "XWimp_StartTask",osc$ � errblk%;flags%
�   �
�,      ș "XOS_CLI",osc$ � errblk%;flags%
�   �
�   again%=�
�   � flags% � 1 �
�      Ȏ !errblk% �
�      � &108C9:
�G         again%=�yesno("Write-protected disk - retry disk write ?")
�2      � &108C3:again%=�oscli("Access",m$,"WR")
�      �
�      � again%=�:still%=�
�   �
�� again%=�
	=((flags% � 1)=0)
	
	ݤwimperror(mess$,mask%)
	$� click%
	.Qș "XWimp_ReportError",�4,bl$)+mess$+bl$,mask%,prog$+" Warning"+bl$ � ,click%
	8=click%
	B
	L/ݤyesno(mess$)=(�wimperror(mess$,%10011)=1)
	V
	`��warn(mess$)
	j� click%
	t#click%=�wimperror(mess$,%10001)
	~�
	�
	���scanRMA(hand%)
	�� start%,flags%
	�#� �modexists("Extend",start%) �
	�/   � �rtoz(start%+start%!&14)=extendhelp$ �
	�&      �extend_in_RMA(hand%,start%)
	�   �
	��
	�$� �modexists("TlodMod",start%) �
	�.   � �rtoz(start%+start%!&14)=cebithelp$ �
	�      �cebit_in_RMA(start%)
	�   �
�

H� Note - this will be improved in later versions, once someone tells
A� me how to find out the list of routines that have claimed a
F� particular vector. This appears to be impossible to determine in
(� RISC OS 2.00.
2Gș "XOS_File",36 � ;flags%:� Likely to crash due to ArchieVirus :-(
<#� (flags% � 1)=0:�archie_in_RMA
F�
P
Zݤmodexists(mod$,� addr%)
d� flags%
n-ș "XOS_Module",18,mod$ � ,,,addr%;flags%
x=((flags% � 1)=0)
�
�!��extend_in_RMA(hand%,start%)
�
� hand% �
�7   � This is a bug-fix :-) It allows the virus task
�?   � to shutdown properly without crashing the Task Manager
�*   start%!&40=hand%:� Save task handle
�   P%=start%+&70
�
   [OPT 0
�5   LDR R2,start%+&64:CMP R2,#1:SWIGT "XOS_Module"
�*   LDR R0,start%+&40:LDR R1,start%+&54
�   ]
��
�8   �warn("Task Manager is unstable - do not use it")
�
9�notifyvirus("Extend Virus","Execution",start%!&34,�)
(�killmodule("Extend","Extend Virus")
"�
,
6��cebit_in_RMA(start%)
@>�notifyvirus("CeBit Virus","Infection",start%!cebitoff%,�)
JH� Next line deviously flips UpCall trap to RELEASE vector instead...
T,P%=start%+&FC:[OPT 0:SWI "XOS_Release":]
^;start%!8=&EC:� Point finalisation to modified trap code
h(�killmodule("TlodMod","CeBit Virus")
r�
|
���killmodule(mod$,name$)
� � �oscli("RMKill",mod$,"") �
�2   �status_log("",name$+" killed from RMA","")
��
�<   �status_log("","Couldn't kill "+name$+" from RMA","")
�   still%=�
��
��
�
���archie_in_RMA
�&�notifyvirus("ArchieVirus","",0,�)
��unsupported("ArchieVirus")
��

ݤexists(file$,type%)
� found%,ftype%
&*ș "XOS_File",5,file$ � found%,,ftype%
0ftype%=(ftype%>>>8) � &FFF
:=(found%=1 � type%=ftype%)
D
N*ݤupper(s$)=�flipstr(s$,�"a",�"z",-32)
X
b)ݤlower(s$)=�flipstr(s$,�"A",�"Z",32)
l
vݤflipstr(s$,l%,h%,d%)
�� loop%,n$,c%:n$=""
�� loop%=1 � �(s$)
�   c%=�(�s$,loop%))
�   � c%>=l% � c%<=h%:c%+=d%
�   n$+=�(c%)
��
�=n$
�
�ݤgetstring(� addr%)
�� s$:s$=""
�-ȕ ?addr%<>0:s$+=�(?addr%):addr%+=1:�:=s$
�
���wimp_poll(check%)


� reason%

%ș "XWimp_Poll",0,poll% � reason%

Ȏ reason% �

 (� 0:� check%:�checkcurfs:�scanRMA(0)

*7� 2:ș "XWimp_OpenWindow",,poll%:� Info window drag

4� 3:�closewindow

>� 6:�mouseclick

H� 9:�menuselect

R� 17,18:�wimpmessage

\� 19: �ackwimpmessage

f�

p�

z

���checkcurfs

�� �getfsname(fsysnum%)="" �

�I   �warn(fsys$+" has been disabled - cannot scan that filing system")

�   �build_fs_names

�   �choose_fs(0)

�   scanning%=�:badscan%=�

��

��

�

���closewindow

�7ș "XWimp_CloseWindow",,vkillwind%:� Eval close box

��

�
��mouseclick
Ȏ poll%!8 �
   � 1,4:�startup
$   �   2:�shownewmenu
.�
8�
B
L��shownewmenu
V� y%
`� poll%!12=-2 �
j y%=96+44*2
t �build_menu(1)
~�
� y%=poll%!4+16
� �scanning%=� �
�  Ȏ poll%!16 �
�  � 7, 9: �build_menu(2)
�  � 8,10: �build_menu(3)
�  : �build_menu(1)
�  �
� �
�  �build_menu(1)
� �
��
�)oldx%=!poll%-64:oldy%=y%:�showoldmenu
�


��showoldmenu
,ș "XWimp_CreateMenu",,menu%,oldx%,oldy%
(�
2
<��openwindow
F� x%,y%,sx%,sy%
P)ș "XWimp_GetWindowState",,vkillwind%
Z� opened%=� �
dI   � Auto-centre window (but only for the very first time it is open)
n1   ș "XOS_ReadVduVariables",inbuff%,outbuff%
x'   x%=outbuff%!8+1:x%=x%<<!outbuff%
�)   y%=outbuff%!12+1:y%=y%<<outbuff%!4
�%   sx%=vkillwind%!12-vkillwind%!4
�%   sy%=vkillwind%!16-vkillwind%!8
�=   vkillwind%!4=(x%-sx%)/2:vkillwind%!12=vkillwind%!4+sx%
�H   vkillwind%!8=(y%-sy%+iconbar%/2)/2:vkillwind%!16=vkillwind%!8+sy%
�   opened%=�
��
�3vkillwind%!28=-1:� Open on top of everyone else
�%ș "XWimp_OpenWindow",,vkillwind%
��
�� 4,5,11,12,-1
�
�
��startup
Ȏ poll%!12 �
   � -2:�openwindow
   � vkillhand%:
"      Ȏ poll%!16 �
,"      � 7,8,9,10: �shownewmenu
63      � 19:� scanning%:�finishscan � �startscan
@      �
J�
T�
^
h��menuselect
r� mouse%,item%
|item%=!poll%+1
�3ș "XWimp_GetPointerInfo",,poll%:mouse%=poll%!8
�Ȏ menubuilt% �
�� 1: Ȏ item% �
�3         � numitems%:quit%=�:� Last Item = Quit
�
        �
�,� 2: �tick_option(menu%,fs_names$,fsys$)
�        �choose_fs(item%-1)
�/        �tick_option(menu%,fs_names$,fsys$)
�1� 3: �tick_option(menu%,fs_devices$,fdevice$)
�#        �choose_device(item%-1)
�4        �tick_option(menu%,fs_devices$,fdevice$)
��
�� mouse%=1:�showoldmenu
�

��wimpmessage
&Ȏ poll%!16 �
0E   �      0:quit%=�:� Shut down (Desktop Exit, Task Manager Quit)
:   � &400C2:�appstart
D�
N�
X
b��ackwimpmessage
l� poll%!16=5 �
v! � no editor loaded - run it!
�( ș"XWimp_StartTask","Run "+logname$
��
��
�
���appstart
�J� Unlike, ahem, certain Acorn applications we could mention, it really
�F� is nice to make sure only one invocation of the program has been
�C� activated - this is done by checking a new task's name/handle
�� hand%:hand%=poll%!4
�� hand%<>task% �
�   Ȏ �rtoz(poll%+28) �
�   � prog$:quit%=�
�   � "":�scanRMA(hand%)
,   � "TaskManager":�vigay_running(hand%)
   �
�
 �
*
4��statuserror(mess$)
>�putdata(status%,mess$,�)
H�holdit(1)
R�
\
f��statusinform(mess$)
p�putdata(status%,mess$,�)
z�wimp_poll(�)
��
�
�ݤicon_selected(icon%)
�+!icondata%=vkillhand%:icondata%!4=icon%
�%ș"XWimp_GetIconState",,icondata%
�'=((icondata%!24 � (1<<21))=(1<<21))
�
� ��putdata(icon%,mess$,path%)
�-� Change icon 'icon%' to the string mess$
�;� Note that this assumes an indirected icon of course !
�� off%,len%
�+!icondata%=vkillhand%:icondata%!4=icon%
�&ș "XWimp_GetIconState",,icondata%
� icon%=appicon% �
   off%=32
�
$"   off%=28:len%=icondata%!36-1
.   � path% �
8       mess$=�mess$,preflen%)
B4      � �(mess$)>len%:mess$="..."+�mess$,len%-3)
L   �
V      mess$=�mess$,len%)
`   �
j�
t$(icondata%!off%)=mess$
~ icondata%!8=0:icondata%!12=0
�Aș "XWimp_SetIconState",,icondata%:� Philp Colmer improvement
��
�
���makeicon
�?P%=icon%:� Use built in assembler - easier to see structure
�
[OPT 0
�E                EQUD    iconbartype%    ; Icon bar 'utility' flag
�;                EQUD    0               ; Bottom left X
�;                EQUD    0               ; Bottom left Y
�9                EQUD    69              ; Top right X
�9                EQUD    68              ; Top right Y
�>                EQUB    %00000010       ; Icon is a sprite
G                EQUB    %00110001       ; Click notifies/Indirected

H                EQUB    %00000000       ; Nothing special about icon
F                EQUB    %00000001       ; Forecol = 1, Backcol = 0
D.pokespname     EQUD    pokespname+12   ; Pointer to sprite name
(E                EQUD    1               ; Pointer to WIMP sprites
2C                EQUD    12              ; Length of sprite name
<<.spritename     EQUS    "!vkiller"+�4,bl$) ; Sprite name
F]
P,ș "XWimp_CreateIcon",,icon% � iconhand%
Z�
d
n��gettemplates
x� flags%,dummy%
�=ș "XWimp_OpenTemplate",,vkillvar$+".Templates" � ;flags%
�<� flags% � 1:�fatal("Missing Templates file for "+prog$)
�6vkillhand%=�loadtemplate(vkillwind%,"VKillWindow")
�)info%=�loadtemplate(infowind%,"Info")
�ș "XWimp_CloseTemplate"
��
�
�ݤloadtemplate(addr%,wind$)
�G� Note the +4 on the address - this allows the poking of the handle
�� windhand%,windptr%
�Vș "XWimp_LoadTemplate",,addr%+4,addr%+&700,addr%+&E00,-1,wind$,0 � ,,,,,,windptr%
�S� windptr%=0:�fatal("Missing "+wind$+" window from "+prog$+"'s Templates file")
�0ș "XWimp_CreateWindow",,addr%+4 � windhand%
H!addr%=windhand%:� Store window handle because needed by later calls
=windhand%

"��systemerror
,A� Why do I need this proc ? Well, the Wimp doesn't report the
6)� offending line number of an error !
@
� err$
J'� �:err$=" at line "+�(�) � err$=""
T	� � �
^�fatal(�$+err$)
h�
r
|��fatal(error$)
��"Error 0 "+error$
��
�
�ݤgetfsname(fsnum%)
�� fsname%,fname$
�6ș "XOS_FSControl",33,fsnum%,fbuff%,12 � ,,fsname%
�� ?fsname% �
�!   fname$=�getstring(fsname%)
�   Ȏ fname$ �
�~   � "null","printer","serial","vdu","rawvdu","kbd","rawkbd","deskfs","msdos","netprint","pipe":fname$="":� Not infectable
�   �
��
�   fname$=""
�
=fname$

&ݤFSprefix(prefix$)
0%=�checkswi("X"+prefix$+"_Drives")
:
Dݤcheckswi(swi$)
N� swi%,flags%
X4ș "XOS_SWINumberFromString",,swi$ � swi%;flags%
b=((flags% � 1)=0)
l
v"��hackflags(icon%,eor%,clear%)
�!icondata%=vkillhand%
�icondata%!4=icon%
�icondata%!8=eor%
�icondata%!12=clear%
�&ș "XWimp_SetIconState",,icondata%
��
�
���hilite(icon%,bool%)
�.�hackflags(icon%,((-bool%)<<21),&00200000)
��
�
���init_log
�� f%,flags%,p%,f$
� logging%=�:�
f$="XRamFS_FreeSpace":f%=0
=� �checkswi(f$):ș f$,":0" � ,f%;flags%:� flags% � 1:f%=0
 I� f%<32768:logname$="<VKiller$Dir>.Log" � logname$="RAM:$.VKillerLog"
*)ș"XOS_File",11,logname$,&FFF � p%;f%
4� f% � 1:�stop_log(p%)
>�
H
R��stop_log(eb%)
\:�warn("Logging of activities disabled: "+�rtoz(eb%+4))
flogging%=�
p�
z
�
��log(s$)
�� c%,f%
�� logging%=� �
�%ș"XOS_Find",&C0,logname$ � c%;f%
�� f% � 1:�stop_log(c%):�
��c%<>0 �
� �#c%=�#c%
� �#c%,s$
�	 �#c%
��
��
�
�#��infect_log(path$,mess$,suff$)
still%=�:infect%=�
"�status_log(path$,mess$,suff$)
�
$
.#��status_log(path$,mess$,suff$)
8$� suff$<>"":suff$=" ("+suff$+")"
B� path$="" �
L   �log(mess$+suff$)
V   �statusinform(mess$)
`�
j"   �log(path$+"."+mess$+suff$)
t/   �statusinform(�appname(path$)+"."+mess$)
~�
��
�
�ݤappname(path$)
�� l%:l%=�(path$)
�'ȕ l%>0 � �path$,l%,1)<>".":l%-=1:�
�=�path$,l%+1)
�
���filecount
�&�putdata(fileicon%,�(numfiles%),�)
��
�
���dircount
$�putdata(diricon%,�(numdirs%),�)

�

��finishscan
(�putdata(19,"Start scan",�)
2�putdata(dirscan%,"Idle",�)
< �putdata(iconname%,"Idle",�)
F�plotappicon("!"+prog$)
Pscanning%=�
Z�
d
n��startscan
x
� prefix$
�innoc%=�icon_selected(20)
�logging%=�icon_selected(21)
��putdata(19,"Stop scan",�)
�-scanning%=�:infect%=�:still%=�:badscan%=�
�/numdirs%=0:numfiles%=0:�filecount:�dircount
�+prefix$=�build_path:preflen%=�(prefix$)
�� preflen% �
� �init_log
�/ �log("Scan of "+prefix$+" started on "+�$)
�" �statusinform("Scan started")
� �check(prefix$,"")
� �hilite(23,�)
� � scanning% �
3    �log("Scan of "+prefix$+" finished on "+�$)
0    numscans%+=1:�putdata(17,�(numscans%),�)
    � infect% �
"       � still% �
,A          �status_log("","Device may still be infected !","")
6       �
@E          �status_log("","Device was infected, but now clean","")
J       �
T	    �
^?       �status_log("","Device is clean - no infections","")
h	    �
r �
|    � badscan%=� �
�5       �status_log("","Scan manually aborted","")
�	    �
� �
� �openwindow
�0 � now ask an editor to pick up the log file
� �logging% �
�  !poll%=(48+�logname$)��3
�  poll%!12=0
�  poll%!16=5
�  poll%!36=-2
�  poll%!40=&FFF
�  $(poll%+44)=logname$+�0
�&  ș"XWimp_SendMessage",18,poll%,0
-  � and give the editor a chance to do so
  �wimp_poll(�)
 �
&�
0�finishscan
:�
D
Nݤmakestring(addr%,len%)
X� loop%,s$:s$=""
b1� loop%=0 � len%-1:s$=s$+�(loop%?addr%):�:=s$
l
v��build_fs_names
�A� this procedure scans for all of the possible filing systems
�8� and builds a menu structure string from the result
�� i%
�fs_names$="#Filing Sys,"
��i%=1 � maxfs%
�% � add this FS name to the string
�" fs_names$+=�getfsname(i%)+","
�: � if there wasn't a name there, remove the last comma
�. ��fs_names$,2)=",," fs_names$=�fs_names$)
��
�"� always remove the last comma
�fs_names$=�fs_names$)
��

��choose_fs(s%)
� i%,j%,s$
 3� get the s% entry from fs_names$ and save that
*s$=fs_names$
4�i%=0 � s%
> j%=�s$,",")
H �j%=0 �
R9  �warn("Cannot find FS "+�(s%)+" - aborting "+prog$)
\
  quit%=�
f  scanning%=�
p  �
z �
� s$=�s$,j%+1)
��
� i%=�s$,","):�i%=0 i%=�(s$)+1
�fsys$=�s$,i%-1)
�"� get the filing system number
�1ș"XOS_FSControl",13,fsys$+�(0),0 � ,fsysnum%
��putdata(7,fsys$,�)
�"� now rebuild the devices list
��build_devices_list
��choose_device(0)
��
�
���build_devices_list
 � i%,j%,numflop%,numhard%,s$
fs_devices$="#Devices,"
+� this is going to be REALLY tacky code
$8� first of all, we need to get rid of the exceptions
.�
8� Econet
B� ~~~~~~
L/� Build a list of logged on-to file servers
V�fsys$="net" �
`	 i%=0
j �
tK  � we'll load the info into buff ... it isn't being used at this time!
~9  ș"NetFS_EnumerateFS",i%,buff%,maxboot%,1 � i%,,,j%
�
  �j%=1 �
�"   fs_devices$+=�rtoz(buff%+3)
�   ȕ �fs_devices$)=" "
�!    fs_devices$=�fs_devices$)
�   �
�   fs_devices$+=","
�  �
� � i%=-1
� �fs_devices$="#Devices," �
�  fs_devices$+="(None)"
� �
�  fs_devices$=�fs_devices$)
 �

 �
�
�
(	� NFS
2	� ~~~
< � Build a list of NFS mounts
F�fsys$="nfs" �
P	 i%=0
Z �
d"  ș"NFS_MountList",0,i% � ,i%
n  �i%<>0 �
x!   fs_devices$+=�rtoz(i%)+","
�  �
� � i%=0
� �fs_devices$="#Devices," �
�  fs_devices$+="(None)"
� �
�  fs_devices$=�fs_devices$)
� �
� �
��
��
�#� FileCore based filing systems
�#� ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
�6� Try to determine which "drives" this FS supports
�fsys$="ram" �
 s$="RamFS"
�
" �FSprefix(fsys$) �
,  s$=fsys$
6 �
@  s$=�upper(fsys$)
J  �FSprefix(s$)=� �
T   s$+="FS"
^   �FSprefix(s$)=� �
h    fs_devices$+="(None)"
r	    �
|   �
�  �
� �
��
�3� OK, we have a FileCore FS. Now build the list
�,ș "X"+s$+"_Drives" � ,numflop%,numhard%
��numflop%<>0 �
� �i%=0 � numflop%-1
�  fs_devices$+=�(i%)+","
� �
��
��numhard%<>0 �
� �i%=0 � numhard%-1
�  fs_devices$+=�(i%+4)+","
  �
 �
 fs_devices$=�fs_devices$)
 &�
 0
 :ݤrtoz(p%)=�getstring(p%)
 D
 N��choose_device(s%)
 X� i%,j%,s$
 b3� get the s% entry from fs_names$ and save that
 ls$=fs_devices$
 v�i%=0 � s%
 � j%=�s$,",")
 � �j%=0 �
 �3  � 1, "Device menu has not been cleanly built"
 � �
 �  s$=�s$,j%+1)
 � �
 ��
 � i%=�s$,","):�i%=0 i%=�(s$)+1
 �fdevice$=�s$,i%-1)
 ��putdata(8,fdevice$,�)
 ��
 �
 �ݤbuild_path
!G� this procedure builds a valid path depending on the filing system
!J� as with building the devices list, we deal with the tacky ones first
!� fsys$="net" �
!  � fdevice$="(None)" �
!*)  �statusinform("Which file server?")
!4	  =""
!> �
!H  ="net#"+fdevice$+":&"
!R �
!\�
!f� fsys$="nfs" �
!p � fdevice$="(None)" �
!z'  �statusinform("Which NFS mount?")
!�	  =""
!� �
!�  ="NFS::"+fdevice$+".$"
!� �
!��
!��fdevice$="(None)" �
!� =fsys$+":$"
!��
!�=fsys$+"::"+fdevice$+".$"
!�
!���build_menu(i%)
!�menubuilt%=i%
!�Ȏ i% �
"� 1: � icon bar menu
"6        menu%=�create_menu("#"+prog$+",Info,Quit")
"'        �menu_attach(menu%,0,info%)
"$        numitems%=2
".� 2: � filing systems menu
"8        �build_fs_names
"B)        menu%=�create_menu(fs_names$)
"L/        �tick_option(menu%,fs_names$,fsys$)
"V � 3: � filing system devices
"`        �build_devices_list
"j+        menu%=�create_menu(fs_devices$)
"t4        �tick_option(menu%,fs_devices$,fdevice$)
"~�
"��
"�
"�$��tick_option(menu%,list$,item$)
"�� i%,j%
"�#� lose the header from the list
"�%i%=�list$,","):list$=�list$,i%+1)
"�ȕ list$<>""
"�' i%=�list$,","):�i%=0 i%=�(list$)+1
"� �item$=�list$,i%-1) �
"�  �menu_tick(menu%,j%)
"�  list$=""
"� �
#  list$=�list$,i%+1)
#
  j%+=1
# �
#�
#(�
#2
#<&��menu_initialise(men_ws%,men_df%)
#F+menu_max_ws%=men_ws%:� menu_ws% men_ws%
#P+menu_max_df%=men_df%:� menu_df% men_df%
#Zmenu_end%=menu_df%+men_df%
#dmenu_curws%=menu_ws%
#n�
#x
#�ݤcreate_menu(menu$)
#�� M%,m$,I%,menuptr%,maxx%
#�<� in this particular application, there are no sub menus
#�<� and only one actively created menu, so it is PERFECTLY
#�%� safe to reset the menu pointers
#�#menu_df%=menu_end%-menu_max_df%
#�menu_curws%=menu_ws%
#�e� (menu_df%+28>menu_end%) � 1, "Out of menu workspace - increase 2nd parameter to initialisation"
#�menuptr%=menu_df%
#�I%=0
#�� �menu$,1)="#" �
#�	 I%=1
#�' menutitle$=�menu_par(menu$,",",I%)
$�
$ menutitle$=""
$�
$"$menuptr%=�menutitle$,12)
$,menuptr%?12=7
$6menuptr%?13=2
$@menuptr%?14=7
$Jmenuptr%?15=0
$Tmenuptr%!16=196
$^menuptr%!20=44
$hmenuptr%!24=0
$rmenuptr%+=28
$|maxx%=�menutitle$-3
$��
$�" item$=�menu_par(menu$,",",I%)
$�% �menu_item(item$,maxx%,menuptr%)
$�� item$=""
$�M%=menu_df%
$�M%!16=(maxx%*8+6)*2
$�menu_df%=menuptr%
$�=M%
$�:
$�"��menu_tick(menuhandle%,item%)
$�:menuhandle%!(28+24*item%)=menuhandle%!(28+24*item%)� 1
$��
$�:
%ݤmenu_par(menu$,sep$,� I%)
%� L%
%L%=I%+1
%&I%=�menu$+sep$,sep$,L%)
%0=�menu$,L%,I%-L%)
%::
%D)��menu_item(text$,� maxx%,� menuptr%)
%N� I%,F%,L%
%X1� text$="" menuptr%!-24=(menuptr%!-24)� &80:�
%be� (menuptr%+24>menu_end%) � 1, "Out of menu workspace - increase 2nd parameter to initialisation"
%l
F%=&00
%vD� �text$,1)="#" text$=�text$):F%+=&02:� dotted line follows item
%�C� �text$,1)="@" text$=�text$):F%+=&08:� generate a menu warning
%�menuptr%!0=F%
%�menuptr%!4=-1
%�menuptr%!8=&07000021
%�� �text$,1)="$" �
%�I !menuptr%+=&04                                  :� item is writeable
%� text$=�12," ")
%��
%� � �text$<=12 �
%�  $(menuptr%+12)=text$
%� �
%�,  I%=�menu_workspace(�text$+1):$I%=text$
%�8  menuptr%!12=I%:menuptr%!16=-1:menuptr%!20=�text$+1
&!  menuptr%!8=menuptr%!8� &100
& �
&�
& � �text$>maxx% maxx%=�text$
&*menuptr%+=24
&4�
&>:
&H#��menu_attach(menu%,item%,ptr%)
&Rmenu%+=28+item%*24
&\menu%!4=ptr%
&f�
&p:
&zݤmenu_workspace(L%)
&�|� menu_curws%+L%>menu_ws%+menu_max_ws% � task_fatal%, "Out of menu workspace - increase 1st parameter to initialisation"
&�menu_curws%+=L%
&�=menu_curws%-L%
&�:
&�Q� ---------------------------------------------------------------------------
&�'� Virus checking code goes here ...
&�Q� ---------------------------------------------------------------------------
&�:
&�*��check_for_mod_virus(dir$,name$,len%)
&�Ȏ �lower(name$) �
&�� "tlodmod"
&�   � len%=1240 �
&�I      �fix_module(dir$+"."+name$,"CeBit Virus","Infection",cebitoff%)
'   �
'X� "monitorrm","checkmod","extendrm","osextend","colourrm","fastmod","coderm","memrm"
'   � len%=940 �
'$D      �fix_module(dir$+"."+name$,"Extend Virus","Execution",&34)
'.   �
'8�
'B�
'L
'V*��fix_module(mod$,name$,type$,offset%)
'`� count%
'jA� �oscli("Load",mod$,�~buff%):count%=buff%!offset% � count%=0
'tname$=name$+" module"
'~&�notifyvirus(name$,type$,count%,�)
'��delfile(mod$,name$)
'��
'�:
'�*��check_for_boot_virus(path$,name$,l%)
'�0� doinnoc%,s%,t%,u%,s$,core$,scratch%,force%
'�� l%>=maxboot% �
'�:   �infect_log(path$,"!Boot too big - not scanned","")
'�   �
'��
'�2doinnoc%=innoc%:core$=�appname(path$)+".!Boot"
'�scratch%=�:force%=�
'�.� �oscli("Load",path$+"."+name$,�~buff%) �
(   s%=-1
(
   �
(      t%=s%+1
(      �
((         s%+=1:u%=buff%?s%
(2#      � u%<32 � u%>126 � s%>=l%
(<      � s%<l% �
(F3         buff%?s%=&D:s$=$(buff%+t%):buff%?s%=u%
(P         Ȏ s$ �
(Z         � cebitobey$
(d<            �notifyvirus("CeBit Virus in "+core$,"",0,�)
(n6            u%=buff%?(t%-2):l%=t%+(u%=&FF)+(u%=&A)
(x#            doinnoc%=�:force%=�
(�         � vigayobey$
(�<            �notifyvirus("Vigay Virus in "+core$,"",0,�)
(�*            l%=0:doinnoc%=�:scratch%=�
(�         �
(�      �
(�   � s%>=l%
(�
   � l% �
(�      Ȏ buff%?(l%-1) �
(�      � &FF:� l%>4 �
(�'                  Ȏ buff%?(l%-4) �
(�                  � 13
(�F                     �notifyvirus("Extend Virus in "+core$,"",0,�)
(�+                     l%=l%-4:doinnoc%=�
)=                     ȕ l%>0 � buff%?(l%-1)<>&D:l%=l%-1:�
)(                     buff%?(l%-1)=&A
)                  � 10
)"#                     � force% �
),(                        l%-=protlen%
)6                     �
)@&                        doinnoc%=�
)Ja                        �status_log(path$,"!Boot already innoculated","against Extend Virus")
)T                     �
)^'                   doinnoc%=force%
)h                  �
)r               �
)|#      � &0A:� Normal terminator
)�-       buff%?l%=&A:l%+=1:� Add LF on end
)�      �
)�   �
)�2      scratch%=�exists(path$+".!Sprites",&FF9)
)�   �
)��
)�   doinnoc%=�
)�8   �infect_log(path$,"!Boot could not be loaded","")
)��
)�� doinnoc% �
)�!   � l%+protlen%+1>maxboot% �
)�U      �infect_log(path$,"!Boot too big - not innoculated","against Extend Virus")
*   �
*8      � �extend_innocboot(path$,buff%,l%,scratch%) �
*Q         �status_log(path$,"!Boot is now innoculated","against Extend Virus")
*&      �
*0   �
*:�
*D�
*N:
*X-ݤextend_innocboot(dir$,a%,len%,addicon%)
*b'� good%,n$:good%=�:n$=dir$+".!Boot"
*l.� addicon%:$(a%+len%)=icon$:len%+=iconlen%
*v$(a%+len%)=protect$
*�7� �oscli("Save",n$,�~a%+" "+�~(a%+len%+protlen%)) �
*�6   � �oscli("SetType",n$,"Obey"):good%=�:�newinnoc
*��
*�C� good%=�:�infect_log(dir$,"!Boot could not be innoculated","")
*�
=good%
*�:
*�%��check_for_abs_virus(dir$,n$,l%)
*�9� doinnoc%,handle%,flags%,cancel%,replace%,end$,name$
*�name$=dir$+"."+n$
*�replace%=�
*�handle%=� name$
*�� handle% �
*�   doinnoc%=innoc%
+6   � �abs_readptr(handle%,l%-16,16,end$,dir$,n$) �
+!      � �end$,8)="Hypo1210" �
+         doinnoc%=�
+ N         �status_log(dir$,n$+" already innoculated","against ArchieVirus")
+*      �
+4          � �end$,4)="1210" �
+>^            �notifyvirus("ArchieVirus in "+�appname(dir$)+"."+n$,"Decrement",!seekbuff%,�)
+H%            doinnoc%=�:replace%=�
+R         �
+\      �
+f   �
+p      doinnoc%=�
+z   �
+�+   ș "XOS_Find",0,handle%:� Close file
+��
+�   doinnoc%=�
+��
+�� doinnoc% �
+�   handle%=0
+�D   � Yes, 2 *Access's needed (no I/O if already set to, say, WR)
+�&   � �oscli("Access",name$,"RL") �
+�)      � �oscli("Access",name$,"WR") �
+�         handle%=� name$
+�         � handle% �
+�            � replace% �
+�G               doinnoc%=�abs_writeptr(handle%,0,�end$,5,4),dir$,n$)
,B               � doinnoc%:l%=l%-archsize%:� Shrink file length
,            �
,            � doinnoc% �
,$C               � �abs_writeptr(handle%,l%,"Hypo1210",dir$,n$) �
,.F                  �#handle%=l%+8:� Truncate file (allow for innoc)
,8                  �newinnoc
,BX                  �status_log(dir$,n$+" has been innoculated","against ArchieVirus")
,L               �
,V            �
,`4            ș "XOS_Find",0,handle%:� Close file
,j         �
,t      �
,~   �
,��
,�� handle%=0 �
,�5   �infect_log(dir$,n$+" could not be opened","")
,��
,��
,�:
,�'��check_for_BASIC_virus(dir$,name$)
,�Ȏ �lower(name$) �
,�4� "datadqm":� len%=2311:�vigay_virus(dir$,name$)
,��
,��
,�:
-��vigay_virus(d$,n$)
-
>�notifyvirus("Vigay Virus in "+�appname(d$)+"."+n$,"",0,�)
-%�delfile(d$+"."+n$,"Vigay Virus")
-�
-(:
-2��vigay_running(hand%)
-<&�notifyvirus("Vigay Virus","",0,�)
-F/� hand%=0:hand%=�gettaskhand("TaskManager")
-P
� hand% �
-Z&   !poll%=20:poll%!12=0:poll%!16=0
-d,   ș "XWimp_SendMessage",17,poll%,hand%
-n.   �status_log("","Vigay Virus killed","")
-x�
-�"   �unsupported("Vigay Virus")
-��
-��
-�:
-�/ݤabs_writeptr(file%,pos%,mess$,dir$,name$)
-�� flags%,p%
-�$seekbuff%=mess$
-�=ș "XOS_GBPB",1,file%,seekbuff%,�(mess$),pos% � p%;flags%
-�4=�abs_checkerror(flags%,dir$,name$,"writing",p%)
-�:
-�/ݤabs_readptr(file%,pos%,len%,� s$,dir$,n$)
-�� flags%,p%
-�9ș "XOS_GBPB",3,file%,seekbuff%,len%,pos% � p%;flags%
."s$=�makestring(seekbuff%,len%)
.1=�abs_checkerror(flags%,dir$,n$,"reading",p%)
.:
."'ݤabs_checkerror(f%,dir$,n$,op$,p%)
.,� f% � 1 �
.6]   �infect_log(dir$,n$+" could not be accessed","(for "+op$+", reason: "+�rtoz(p%+4)+")")
.@   doinnoc%=�
.J�
.T=((f% � 1)=0)
.^
.hݤclaimRMA(amount%)
.r� addr%,flags%
.|0ș "XOS_Module",6,,,amount% � ,,addr%;flags%
.�� flags% � 1:=0 � =addr%
.�
.���releaseRMA(addr%)
.�ș "XOS_Module",7,,addr%
.��
�

00000000  0d 00 0a 1b f4 20 3e 24  2e 21 56 4b 69 6c 6c 65  |..... >$.!VKille|
00000010  72 2e 21 52 75 6e 49 6d  61 67 65 0d 00 14 32 f4  |r.!RunImage...2.|
00000020  20 56 69 72 75 73 20 4b  69 6c 6c 65 72 20 56 32  | Virus Killer V2|
00000030  2e 32 30 20 28 43 29 20  52 69 63 68 61 72 64 20  |.20 (C) Richard |
00000040  4b 2e 20 4c 6c 6f 79 64  20 31 39 39 31 0d 00 1e  |K. Lloyd 1991...|
00000050  31 f4 20 43 75 72 72 65  6e 74 6c 79 20 6b 69 6c  |1. Currently kil|
00000060  6c 73 3a 20 20 44 69 73  63 6f 76 65 72 65 64 20  |ls:  Discovered |
00000070  62 79 3a 20 20 20 41 74  74 61 63 6b 73 3a 0d 00  |by:   Attacks:..|
00000080  28 34 f4 20 45 78 74 65  6e 64 20 56 69 72 75 73  |(4. Extend Virus|
00000090  20 20 20 20 20 20 53 69  6d 6f 6e 20 42 75 72 72  |      Simon Burr|
000000a0  6f 77 73 20 20 20 20 21  42 6f 6f 74 20 66 69 6c  |ows    !Boot fil|
000000b0  65 73 0d 00 32 37 f4 20  41 72 63 68 69 65 56 69  |es..27. ArchieVi|
000000c0  72 75 73 20 20 20 20 20  20 20 48 75 67 6f 20 46  |rus       Hugo F|
000000d0  69 65 6e 6e 65 73 20 20  20 20 20 41 62 73 6f 6c  |iennes     Absol|
000000e0  75 74 65 20 66 69 6c 65  73 0d 00 3c 34 f4 20 43  |ute files..<4. C|
000000f0  65 42 69 74 20 56 69 72  75 73 20 20 20 20 20 20  |eBit Virus      |
00000100  20 3f 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | ?              |
00000110  20 20 21 42 6f 6f 74 20  66 69 6c 65 73 0d 00 46  |  !Boot files..F|
00000120  34 f4 20 56 69 67 61 79  20 56 69 72 75 73 20 20  |4. Vigay Virus  |
00000130  20 20 20 20 20 47 6f 72  64 6f 6e 20 53 69 6e 63  |     Gordon Sinc|
00000140  6c 61 69 72 20 20 21 42  6f 6f 74 20 66 69 6c 65  |lair  !Boot file|
00000150  73 0d 00 50 04 0d 00 5a  15 f4 20 52 65 63 6f 6d  |s..P...Z.. Recom|
00000160  6d 65 6e 64 65 64 20 43  44 3a 0d 00 64 42 f4 20  |mended CD:..dB. |
00000170  42 2d 35 32 27 73 20 22  43 6f 73 6d 69 63 20 54  |B-52's "Cosmic T|
00000180  68 69 6e 67 22 2e 20 57  65 69 72 64 20 61 74 20  |hing". Weird at |
00000190  66 69 72 73 74 2c 20 62  75 74 20 69 74 20 67 72  |first, but it gr|
000001a0  6f 77 73 20 6f 6e 20 79  6f 75 20 21 0d 00 6e 04  |ows on you !..n.|
000001b0  0d 00 78 1b f4 20 47 65  6e 65 72 61 6c 20 65 72  |..x.. General er|
000001c0  72 6f 72 20 74 72 61 70  70 65 72 0d 00 82 14 ee  |ror trapper.....|
000001d0  20 85 20 f2 73 79 73 74  65 6d 65 72 72 6f 72 0d  | . .systemerror.|
000001e0  00 8c 04 0d 00 96 22 71  75 69 74 25 3d a3 3a f4  |......"quit%=.:.|
000001f0  20 4e 6f 74 68 69 6e 67  20 68 61 70 70 65 6e 65  | Nothing happene|
00000200  64 20 79 65 74 0d 00 a0  09 f2 69 6e 69 74 0d 00  |d yet.....init..|
00000210  aa 0e c8 95 20 ac 20 71  75 69 74 25 0d 00 b4 14  |.... . quit%....|
00000220  20 20 20 f2 77 69 6d 70  5f 70 6f 6c 6c 28 b9 29  |   .wimp_poll(.)|
00000230  0d 00 be 05 ce 0d 00 c8  04 0d 00 d2 2a c8 99 20  |............*.. |
00000240  22 58 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |"XWimp_CloseDown|
00000250  22 2c 74 61 73 6b 25 2c  21 74 61 73 6b 63 6f 6e  |",task%,!taskcon|
00000260  73 74 25 0d 00 dc 10 c8  99 20 22 4f 53 5f 45 78  |st%...... "OS_Ex|
00000270  69 74 22 0d 00 e6 04 0d  00 f0 0a dd f2 69 6e 69  |it"..........ini|
00000280  74 0d 00 fa 36 6d 61 78  66 69 6c 65 73 25 3d 31  |t...6maxfiles%=1|
00000290  36 3a f4 20 4e 75 6d 62  65 72 20 6f 66 20 6f 62  |6:. Number of ob|
000002a0  6a 65 63 74 73 20 72 65  61 64 20 69 6e 20 61 74  |jects read in at|
000002b0  20 61 20 74 69 6d 65 0d  01 04 49 6d 61 78 66 73  | a time...Imaxfs|
000002c0  25 3d 31 32 37 3a f4 20  48 69 67 68 65 73 74 20  |%=127:. Highest |
000002d0  6b 6e 6f 77 6e 20 46 53  20 6e 75 6d 62 65 72 20  |known FS number |
000002e0  28 6d 61 79 20 65 76 65  6e 74 75 61 6c 6c 79 20  |(may eventually |
000002f0  6e 65 65 64 20 69 6e 63  72 65 61 73 69 6e 67 29  |need increasing)|
00000300  0d 01 0e 6b 73 69 7a 65  25 3d 6d 61 78 66 69 6c  |...ksize%=maxfil|
00000310  65 73 25 2a 36 34 3a f4  20 4d 61 78 20 66 69 6c  |es%*64:. Max fil|
00000320  65 73 20 70 65 72 20 64  69 72 20 61 6e 64 20 36  |es per dir and 6|
00000330  34 20 62 79 74 65 73 20  70 65 72 20 66 69 6c 65  |4 bytes per file|
00000340  20 69 6e 66 6f 20 28 69  6e 63 72 65 61 73 65 64  | info (increased|
00000350  20 74 6f 20 61 6c 6c 6f  77 20 66 6f 72 20 6c 6f  | to allow for lo|
00000360  6e 67 65 72 20 6e 61 6d  65 73 29 0d 01 18 39 6d  |nger names)...9m|
00000370  61 78 62 6f 6f 74 25 3d  26 31 34 30 30 3a f4 20  |axboot%=&1400:. |
00000380  35 4b 20 69 73 20 6c 61  72 67 65 73 74 20 61 6c  |5K is largest al|
00000390  6c 6f 77 65 64 20 73 69  7a 65 20 66 6f 72 20 21  |lowed size for !|
000003a0  42 6f 6f 74 0d 01 22 1e  de 20 62 75 66 66 25 20  |Boot..".. buff% |
000003b0  6d 61 78 62 6f 6f 74 25  2c 66 62 75 66 66 25 20  |maxboot%,fbuff% |
000003c0  31 32 0d 01 2c 29 de 20  69 6e 62 75 66 66 25 20  |12..,). inbuff% |
000003d0  32 30 2c 6f 75 74 62 75  66 66 25 20 32 30 2c 73  |20,outbuff% 20,s|
000003e0  65 65 6b 62 75 66 66 25  20 32 30 0d 01 36 29 f7  |eekbuff% 20..6).|
000003f0  20 8d 64 66 4f 3a e3 20  78 25 3d 30 20 b8 20 31  | .dfO:. x%=0 . 1|
00000400  36 20 88 20 34 3a f3 20  78 25 21 69 6e 62 75 66  |6 . 4:. x%!inbuf|
00000410  66 25 3a ed 0d 01 40 31  69 63 6f 6e 24 3d 22 49  |f%:...@1icon$="I|
00000420  63 6f 6e 53 70 72 69 74  65 73 20 3c 4f 62 65 79  |conSprites <Obey|
00000430  24 44 69 72 3e 2e 21 53  70 72 69 74 65 73 22 2b  |$Dir>.!Sprites"+|
00000440  bd 28 26 41 29 0d 01 4a  15 69 63 6f 6e 6c 65 6e  |.(&A)..J.iconlen|
00000450  25 3d a9 28 69 63 6f 6e  24 29 0d 01 54 5a 70 72  |%=.(icon$)..TZpr|
00000460  6f 74 65 63 74 24 3d 22  7c 20 54 68 69 73 20 66  |otect$="| This f|
00000470  69 6c 65 20 68 61 73 20  62 65 65 6e 20 69 6e 6e  |ile has been inn|
00000480  6f 63 75 6c 61 74 65 64  20 61 67 61 69 6e 73 74  |oculated against|
00000490  20 74 68 65 20 45 78 74  65 6e 64 20 56 69 72 75  | the Extend Viru|
000004a0  73 22 2b bd 28 26 41 29  2b 22 7c 7c 22 2b bd 28  |s"+.(&A)+"||"+.(|
000004b0  26 46 46 29 0d 01 5e 18  70 72 6f 74 6c 65 6e 25  |&FF)..^.protlen%|
000004c0  3d a9 28 70 72 6f 74 65  63 74 24 29 0d 01 68 37  |=.(protect$)..h7|
000004d0  65 78 74 65 6e 64 68 65  6c 70 24 3d 22 45 78 74  |extendhelp$="Ext|
000004e0  65 6e 64 22 2b bd 28 39  29 2b bd 28 39 29 2b 22  |end"+.(9)+.(9)+"|
000004f0  31 2e 35 36 20 28 30 38  20 4a 75 6c 20 31 39 38  |1.56 (08 Jul 198|
00000500  39 29 22 0d 01 72 55 63  65 62 69 74 68 65 6c 70  |9)"..rUcebithelp|
00000510  24 3d 22 54 6c 6f 64 4d  6f 64 22 2b bd 28 39 29  |$="TlodMod"+.(9)|
00000520  2b bd 28 39 29 2b 22 31  2e 31 31 20 28 31 31 20  |+.(9)+"1.11 (11 |
00000530  4e 6f 76 20 31 39 39 30  29 20 62 79 20 44 65 76  |Nov 1990) by Dev|
00000540  69 6c 20 74 68 65 20 4c  4f 52 44 20 4f 46 20 44  |il the LORD OF D|
00000550  41 52 4b 4e 45 53 53 22  0d 01 7c 37 63 65 62 69  |ARKNESS"..|7cebi|
00000560  74 6f 62 65 79 24 3d 22  72 6d 65 2e 20 54 6c 6f  |tobey$="rme. Tlo|
00000570  64 4d 6f 64 20 30 20 72  6d 6c 2e 20 3c 4f 62 65  |dMod 0 rml. <Obe|
00000580  79 24 44 69 72 3e 2e 54  6c 6f 64 4d 6f 64 22 0d  |y$Dir>.TlodMod".|
00000590  01 86 2b 76 69 67 61 79  6f 62 65 79 24 3d 22 52  |..+vigayobey$="R|
000005a0  55 4e 20 22 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |UN ""<Obey$Dir>.|
000005b0  64 61 74 61 64 71 6d 22  22 22 0d 01 90 2e 63 65  |datadqm"""....ce|
000005c0  62 69 74 6f 66 66 25 3d  26 34 43 34 3a f4 20 4f  |bitoff%=&4C4:. O|
000005d0  66 66 73 65 74 20 6f 66  20 69 6e 66 65 63 74 69  |ffset of infecti|
000005e0  6f 6e 20 63 6f 75 6e 74  0d 01 9a 2d 61 72 63 68  |on count...-arch|
000005f0  73 69 7a 65 25 3d 26 33  39 38 3a f4 20 53 69 7a  |size%=&398:. Siz|
00000600  65 20 6f 66 20 41 72 63  68 69 65 56 69 72 75 73  |e of ArchieVirus|
00000610  20 63 6f 64 65 0d 01 a4  29 64 65 66 66 73 24 3d  | code...)deffs$=|
00000620  22 61 64 66 73 22 3a f4  20 44 65 66 61 75 6c 74  |"adfs":. Default|
00000630  20 66 69 6c 69 6e 67 20  73 79 73 74 65 6d 0d 01  | filing system..|
00000640  ae 2e 6f 6c 64 61 70 70  69 63 6f 6e 24 3d 22 22  |..oldappicon$=""|
00000650  3a f4 20 50 72 65 76 69  6f 75 73 20 61 70 70 6c  |:. Previous appl|
00000660  69 63 61 74 69 6f 6e 20  69 63 6f 6e 0d 01 b8 2c  |ication icon...,|
00000670  69 6e 66 65 63 74 25 3d  a3 3a 73 74 69 6c 6c 25  |infect%=.:still%|
00000680  3d a3 3a f4 20 4e 6f 20  76 69 72 75 73 20 63 68  |=.:. No virus ch|
00000690  65 63 6b 73 20 79 65 74  0d 01 c2 41 6e 75 6d 6d  |ecks yet...Anumm|
000006a0  65 6d 25 3d 30 3a 6e 75  6d 64 69 73 6b 25 3d 30  |em%=0:numdisk%=0|
000006b0  3a 6e 75 6d 69 6e 6e 6f  63 25 3d 30 3a 6e 75 6d  |:numinnoc%=0:num|
000006c0  73 63 61 6e 73 25 3d 30  3a f4 20 52 65 73 65 74  |scans%=0:. Reset|
000006d0  20 63 6f 75 6e 74 65 72  73 0d 01 cc 37 66 73 79  | counters...7fsy|
000006e0  73 6e 75 6d 25 3d 30 3a  66 73 79 73 24 3d 22 22  |snum%=0:fsys$=""|
000006f0  3a f4 20 4e 6f 74 20 63  68 65 63 6b 65 64 20 66  |:. Not checked f|
00000700  69 6c 69 6e 67 20 73 79  73 74 65 6d 20 79 65 74  |iling system yet|
00000710  0d 01 d6 2a 69 6e 6e 6f  63 25 3d a3 3a f4 20 4e  |...*innoc%=.:. N|
00000720  6f 74 20 69 6e 6e 6f 63  75 6c 61 74 69 6e 67 20  |ot innoculating |
00000730  62 79 20 64 65 66 61 75  6c 74 0d 01 e0 27 6c 6f  |by default...'lo|
00000740  67 67 69 6e 67 25 3d a3  3a f4 20 4e 6f 74 20 6c  |gging%=.:. Not l|
00000750  6f 67 67 69 6e 67 20 62  79 20 64 65 66 61 75 6c  |ogging by defaul|
00000760  74 0d 01 ea 2b 6f 70 65  6e 65 64 25 3d a3 3a f4  |t...+opened%=.:.|
00000770  20 44 69 61 6c 6f 67 75  65 20 62 6f 78 20 6e 6f  | Dialogue box no|
00000780  74 20 6f 70 65 6e 65 64  20 79 65 74 0d 01 f4 04  |t opened yet....|
00000790  0d 01 fe 1b f4 20 41 70  70 6c 69 63 61 74 69 6f  |..... Applicatio|
000007a0  6e 20 43 6f 6e 73 74 61  6e 74 73 0d 02 08 32 70  |n Constants...2p|
000007b0  72 6f 67 24 3d 22 56 4b  69 6c 6c 65 72 22 3a f4  |rog$="VKiller":.|
000007c0  20 45 6e 67 6c 69 73 68  20 74 65 78 74 20 6e 61  | English text na|
000007d0  6d 65 20 6f 66 20 70 72  6f 67 72 61 6d 0d 02 12  |me of program...|
000007e0  48 f4 20 43 68 61 6e 67  65 20 6e 65 78 74 20 6c  |H. Change next l|
000007f0  69 6e 65 20 74 6f 20 64  61 74 65 24 3d 4d 49 44  |ine to date$=MID|
00000800  24 28 54 49 4d 45 24 2c  35 2c 31 31 29 20 74 6f  |$(TIME$,5,11) to|
00000810  20 67 65 74 20 74 68 65  20 63 75 72 72 65 6e 74  | get the current|
00000820  20 64 61 74 65 0d 02 1c  38 64 61 74 65 24 3d 22  | date...8date$="|
00000830  31 31 20 41 70 72 20 31  39 39 31 22 3a f4 20 43  |11 Apr 1991":. C|
00000840  75 72 72 65 6e 74 20 64  61 74 65 20 61 73 20 61  |urrent date as a|
00000850  20 66 69 78 65 64 20 73  74 72 69 6e 67 0d 02 26  | fixed string..&|
00000860  3e 76 6b 69 6c 6c 76 61  72 24 3d 22 3c 56 4b 69  |>vkillvar$="<VKi|
00000870  6c 6c 65 72 24 44 69 72  3e 22 3a f4 20 56 4b 69  |ller$Dir>":. VKi|
00000880  6c 6c 65 72 20 65 6e 76  69 72 6f 6e 6d 65 6e 74  |ller environment|
00000890  61 6c 20 76 61 72 69 61  62 6c 65 0d 02 30 4a 69  |al variable..0Ji|
000008a0  63 6f 6e 62 61 72 74 79  70 65 25 3d 2d 31 3a f4  |conbartype%=-1:.|
000008b0  20 2d 31 20 3d 20 55 74  69 6c 69 74 79 20 28 52  | -1 = Utility (R|
000008c0  48 53 20 6f 66 20 62 61  72 29 2c 20 2d 32 20 3d  |HS of bar), -2 =|
000008d0  20 53 65 72 76 69 63 65  20 28 4c 48 53 20 6f 66  | Service (LHS of|
000008e0  20 62 61 72 29 0d 02 3a  3e 77 69 6e 64 6d 61 6e  | bar)..:>windman|
000008f0  25 3d 32 30 30 3a f4 20  45 78 70 65 63 74 20 61  |%=200:. Expect a|
00000900  74 20 4c 45 41 53 54 20  56 32 2e 30 30 20 6f 66  |t LEAST V2.00 of|
00000910  20 74 68 65 20 57 69 6e  64 6f 77 20 4d 61 6e 61  | the Window Mana|
00000920  67 65 72 0d 02 44 32 62  6c 24 3d bd 28 30 29 3a  |ger..D2bl$=.(0):|
00000930  f4 20 4e 55 4c 4c 20 63  68 61 72 20 75 73 65 64  |. NULL char used|
00000940  20 74 6f 20 74 65 72 6d  69 6e 61 74 65 20 73 74  | to terminate st|
00000950  72 69 6e 67 73 0d 02 4e  32 64 69 72 73 63 61 6e  |rings..N2dirscan|
00000960  25 3d 31 31 3a f4 20 44  69 72 65 63 74 6f 72 79  |%=11:. Directory|
00000970  20 73 70 65 63 20 67 6f  65 73 20 69 6e 20 74 68  | spec goes in th|
00000980  69 73 20 69 63 6f 6e 0d  02 58 30 73 74 61 74 75  |is icon..X0statu|
00000990  73 25 3d 31 32 3a f4 20  53 74 61 74 75 73 20 6d  |s%=12:. Status m|
000009a0  65 73 73 61 67 65 73 20  67 6f 20 69 6e 20 74 68  |essages go in th|
000009b0  69 73 20 69 63 6f 6e 0d  02 62 22 61 70 70 69 63  |is icon..b"appic|
000009c0  6f 6e 25 3d 31 38 3a f4  20 41 70 70 6c 69 63 61  |on%=18:. Applica|
000009d0  74 69 6f 6e 20 69 63 6f  6e 0d 02 6c 1c 69 63 6f  |tion icon..l.ico|
000009e0  6e 6e 61 6d 65 25 3d 32  32 3a f4 20 49 63 6f 6e  |nname%=22:. Icon|
000009f0  20 6e 61 6d 65 0d 02 76  22 66 69 6c 65 69 63 6f  | name..v"fileico|
00000a00  6e 25 3d 32 35 3a f4 20  46 69 6c 65 20 74 6f 74  |n%=25:. File tot|
00000a10  61 6c 20 69 63 6f 6e 0d  02 80 26 64 69 72 69 63  |al icon...&diric|
00000a20  6f 6e 25 3d 32 36 3a f4  20 44 69 72 65 63 74 6f  |on%=26:. Directo|
00000a30  72 79 20 74 6f 74 61 6c  20 69 63 6f 6e 0d 02 8a  |ry total icon...|
00000a40  34 69 63 6f 6e 62 61 72  25 3d 31 33 36 3a f4 20  |4iconbar%=136:. |
00000a50  45 78 74 65 72 6e 61 6c  20 63 6f 6f 72 64 20 68  |External coord h|
00000a60  65 69 67 68 74 20 6f 66  20 69 63 6f 6e 20 62 61  |eight of icon ba|
00000a70  72 0d 02 94 04 0d 02 9e  1f f4 20 57 6f 72 6b 73  |r......... Works|
00000a80  70 61 63 65 20 66 6f 72  20 61 70 70 6c 69 63 61  |pace for applica|
00000a90  74 69 6f 6e 0d 02 a8 39  de 20 76 6b 69 6c 6c 77  |tion...9. vkillw|
00000aa0  69 6e 64 25 20 26 45 30  30 2c 69 6e 66 6f 77 69  |ind% &E00,infowi|
00000ab0  6e 64 25 20 26 45 30 30  3a f4 20 54 65 6d 70 6c  |nd% &E00:. Templ|
00000ac0  61 74 65 20 77 6f 72 6b  73 70 61 63 65 0d 02 b2  |ate workspace...|
00000ad0  25 de 20 70 6f 6c 6c 25  20 32 35 36 3a f4 20 57  |%. poll% 256:. W|
00000ae0  69 6d 70 5f 50 6f 6c 6c  20 77 6f 72 6b 73 70 61  |imp_Poll workspa|
00000af0  63 65 0d 02 bc 28 de 20  69 63 6f 6e 25 20 34 38  |ce...(. icon% 48|
00000b00  3a f4 20 49 63 6f 6e 20  62 61 72 20 69 63 6f 6e  |:. Icon bar icon|
00000b10  20 77 6f 72 6b 73 70 61  63 65 0d 02 c6 40 de 20  | workspace...@. |
00000b20  74 61 73 6b 63 6f 6e 73  74 25 20 38 3a 24 74 61  |taskconst% 8:$ta|
00000b30  73 6b 63 6f 6e 73 74 25  3d 22 54 41 53 4b 22 3a  |skconst%="TASK":|
00000b40  f4 20 53 74 6f 72 65 20  54 61 73 6b 20 63 6f 6e  |. Store Task con|
00000b50  73 74 61 6e 74 20 68 65  72 65 0d 02 d0 39 de 20  |stant here...9. |
00000b60  69 63 6f 6e 64 61 74 61  25 20 32 35 36 3a f4 20  |icondata% 256:. |
00000b70  54 65 6d 70 20 77 6f 72  6b 73 70 61 63 65 20 74  |Temp workspace t|
00000b80  6f 20 67 65 74 2f 70 75  74 20 69 63 6f 6e 20 64  |o get/put icon d|
00000b90  61 74 61 0d 02 da 04 0d  02 e4 15 f4 20 49 6e 69  |ata......... Ini|
00000ba0  74 69 61 6c 69 73 65 20  57 49 4d 50 0d 02 ee 4a  |tialise WIMP...J|
00000bb0  c8 99 20 22 58 57 69 6d  70 5f 49 6e 69 74 69 61  |.. "XWimp_Initia|
00000bc0  6c 69 73 65 22 2c 77 69  6e 64 6d 61 6e 25 2c 21  |lise",windman%,!|
00000bd0  74 61 73 6b 63 6f 6e 73  74 25 2c 70 72 6f 67 24  |taskconst%,prog$|
00000be0  2b 62 6c 24 20 b8 20 77  69 6e 64 76 65 72 73 25  |+bl$ . windvers%|
00000bf0  2c 74 61 73 6b 25 0d 02  f8 65 e7 20 77 69 6e 64  |,task%...e. wind|
00000c00  76 65 72 73 25 3c 77 69  6e 64 6d 61 6e 25 20 8c  |vers%<windman% .|
00000c10  20 f2 66 61 74 61 6c 28  70 72 6f 67 24 2b 22 20  | .fatal(prog$+" |
00000c20  72 65 71 75 69 72 65 73  20 57 69 6e 64 6f 77 20  |requires Window |
00000c30  4d 61 6e 61 67 65 72 20  56 22 2b a4 66 72 61 63  |Manager V"+.frac|
00000c40  74 69 6f 6e 28 77 69 6e  64 6d 61 6e 25 29 2b 22  |tion(windman%)+"|
00000c50  20 6f 72 20 6c 61 74 65  72 22 29 0d 03 02 04 0d  | or later").....|
00000c60  03 0c 1d f2 6d 65 6e 75  5f 69 6e 69 74 69 61 6c  |....menu_initial|
00000c70  69 73 65 28 32 35 36 2c  32 35 36 29 0d 03 16 32  |ise(256,256)...2|
00000c80  f2 67 65 74 74 65 6d 70  6c 61 74 65 73 3a f4 20  |.gettemplates:. |
00000c90  47 65 74 20 77 69 6e 64  6f 77 20 74 65 6d 70 6c  |Get window templ|
00000ca0  61 74 65 73 20 66 72 6f  6d 20 66 69 6c 65 0d 03  |ates from file..|
00000cb0  20 24 f2 6d 61 6b 65 69  63 6f 6e 3a f4 20 43 72  | $.makeicon:. Cr|
00000cc0  65 61 74 65 20 69 63 6f  6e 20 62 61 72 20 69 63  |eate icon bar ic|
00000cd0  6f 6e 0d 03 2a 13 f2 62  75 69 6c 64 5f 66 73 5f  |on..*..build_fs_|
00000ce0  6e 61 6d 65 73 0d 03 34  11 f2 63 68 6f 6f 73 65  |names..4..choose|
00000cf0  5f 66 73 28 30 29 0d 03  3e 0f f2 66 69 6e 69 73  |_fs(0)..>..finis|
00000d00  68 73 63 61 6e 0d 03 48  19 f2 73 74 61 74 75 73  |hscan..H..status|
00000d10  69 6e 66 6f 72 6d 28 22  49 64 6c 65 22 29 0d 03  |inform("Idle")..|
00000d20  52 1e f2 73 63 61 6e 52  4d 41 28 a4 67 65 74 74  |R..scanRMA(.gett|
00000d30  61 73 6b 68 61 6e 64 28  22 22 29 29 0d 03 5c 43  |askhand(""))..\C|
00000d40  68 61 6e 64 25 3d a4 67  65 74 74 61 73 6b 68 61  |hand%=.gettaskha|
00000d50  6e 64 28 22 54 61 73 6b  4d 61 6e 61 67 65 72 22  |nd("TaskManager"|
00000d60  29 3a e7 20 68 61 6e 64  25 3a f2 76 69 67 61 79  |):. hand%:.vigay|
00000d70  5f 72 75 6e 6e 69 6e 67  28 68 61 6e 64 25 29 0d  |_running(hand%).|
00000d80  03 66 05 e1 0d 03 70 04  0d 03 7a 1c dd a4 67 65  |.f....p...z...ge|
00000d90  74 74 61 73 6b 68 61 6e  64 28 74 61 73 6b 6e 61  |ttaskhand(taskna|
00000da0  6d 65 24 29 0d 03 84 2f  f4 20 54 68 69 73 20 72  |me$).../. This r|
00000db0  6f 75 74 69 6e 65 20 69  73 20 75 6e 69 6e 74 65  |outine is uninte|
00000dc0  6e 74 69 6f 6e 61 6c 6c  79 20 62 6c 61 6e 6b 20  |ntionally blank |
00000dd0  3a 2d 28 0d 03 8e 49 f4  20 41 6c 74 68 6f 75 67  |:-(...I. Althoug|
00000de0  68 20 69 74 20 69 73 20  70 6f 73 73 69 62 6c 65  |h it is possible|
00000df0  20 74 6f 20 67 65 74 20  74 68 65 20 6e 61 6d 65  | to get the name|
00000e00  20 6f 66 20 61 20 74 61  73 6b 20 67 69 76 65 6e  | of a task given|
00000e10  20 69 74 73 20 68 61 6e  64 6c 65 2c 0d 03 98 4a  | its handle,...J|
00000e20  f4 20 74 68 65 72 65 20  61 70 70 65 61 72 73 20  |. there appears |
00000e30  74 6f 20 62 65 20 6e 6f  20 77 61 79 20 74 6f 20  |to be no way to |
00000e40  67 65 74 20 74 68 65 20  72 65 76 65 72 73 65 20  |get the reverse |
00000e50  28 54 61 73 6b 20 4d 61  6e 61 67 65 72 20 63 68  |(Task Manager ch|
00000e60  65 61 74 73 20 2d 0d 03  a2 47 f4 20 69 74 20 72  |eats -...G. it r|
00000e70  75 6e 73 20 66 69 72 73  74 20 6f 66 20 61 6c 6c  |uns first of all|
00000e80  20 61 6e 64 20 70 69 63  6b 73 20 75 70 20 57 69  | and picks up Wi|
00000e90  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 20 68 61  |mp_Initialise ha|
00000ea0  6e 64 6c 65 73 2f 6e 61  6d 65 73 29 2e 0d 03 ac  |ndles/names)....|
00000eb0  48 f4 20 43 61 6e 20 61  6e 79 6f 6e 65 20 6f 75  |H. Can anyone ou|
00000ec0  74 20 74 68 65 72 65 20  63 6f 6d 70 6c 65 74 65  |t there complete|
00000ed0  20 74 68 69 73 20 72 6f  75 74 69 6e 65 20 74 6f  | this routine to|
00000ee0  20 72 65 74 75 72 6e 20  61 20 74 61 73 6b 20 68  | return a task h|
00000ef0  61 6e 64 6c 65 0d 03 b6  26 f4 20 67 69 76 65 6e  |andle...&. given|
00000f00  20 69 74 73 20 6e 61 6d  65 20 3f 20 50 72 65 74  | its name ? Pret|
00000f10  74 79 20 70 6c 65 61 73  65 20 3f 0d 03 c0 06 3d  |ty please ?....=|
00000f20  30 0d 03 ca 04 0d 03 d4  1b dd f2 70 6c 6f 74 61  |0..........plota|
00000f30  70 70 69 63 6f 6e 28 73  70 72 6e 61 6d 65 24 29  |ppicon(sprname$)|
00000f40  0d 03 de 1d 73 70 72 6e  61 6d 65 24 3d a4 6c 6f  |....sprname$=.lo|
00000f50  77 65 72 28 73 70 72 6e  61 6d 65 24 29 0d 03 e8  |wer(sprname$)...|
00000f60  1d e7 20 73 70 72 6e 61  6d 65 24 3c 3e 6f 6c 64  |.. sprname$<>old|
00000f70  61 70 70 69 63 6f 6e 24  20 8c 0d 03 f2 28 20 20  |appicon$ ....(  |
00000f80  20 f2 70 75 74 64 61 74  61 28 61 70 70 69 63 6f  | .putdata(appico|
00000f90  6e 25 2c 22 53 22 2b 73  70 72 6e 61 6d 65 24 2c  |n%,"S"+sprname$,|
00000fa0  a3 29 0d 03 fc 1b 20 20  20 6f 6c 64 61 70 70 69  |.)....   oldappi|
00000fb0  63 6f 6e 24 3d 73 70 72  6e 61 6d 65 24 0d 04 06  |con$=sprname$...|
00000fc0  05 cd 0d 04 10 05 e1 0d  04 1a 04 0d 04 24 1a dd  |.............$..|
00000fd0  f2 63 68 65 63 6b 28 64  69 72 24 2c 6c 65 61 66  |.check(dir$,leaf|
00000fe0  64 69 72 24 29 0d 04 2e  74 ea 20 6f 66 66 25 2c  |dir$)...t. off%,|
00000ff0  62 61 73 65 25 2c 6e 75  6d 25 2c 6c 6f 6f 70 25  |base%,num%,loop%|
00001000  2c 61 64 64 72 25 2c 6e  61 6d 65 24 2c 66 75 6c  |,addr%,name$,ful|
00001010  6c 6e 61 6d 65 24 2c 6c  65 6e 25 2c 67 6f 74 62  |lname$,len%,gotb|
00001020  6f 6f 74 25 2c 74 79 70  65 25 2c 66 6c 61 67 73  |oot%,type%,flags|
00001030  25 2c 65 72 72 62 6c 6b  25 2c 67 6f 74 61 70 70  |%,errblk%,gotapp|
00001040  69 63 6f 6e 25 2c 69 63  6f 6e 5f 6e 61 6d 65 24  |icon%,icon_name$|
00001050  2c 6c 6f 77 6e 61 6d 65  24 0d 04 38 2b f2 77 69  |,lowname$..8+.wi|
00001060  6d 70 5f 70 6f 6c 6c 28  b9 29 3a e7 20 71 75 69  |mp_poll(.):. qui|
00001070  74 25 3d b9 20 84 20 73  63 61 6e 6e 69 6e 67 25  |t%=. . scanning%|
00001080  3d a3 3a e1 0d 04 42 1a  62 61 73 65 25 3d a4 63  |=.:...B.base%=.c|
00001090  6c 61 69 6d 52 4d 41 28  73 69 7a 65 25 29 0d 04  |laimRMA(size%)..|
000010a0  4c 0f e7 20 62 61 73 65  25 3d 30 20 8c 0d 04 56  |L.. base%=0 ...V|
000010b0  3e 20 20 20 f2 73 74 61  74 75 73 5f 6c 6f 67 28  |>   .status_log(|
000010c0  22 22 2c 22 49 6e 73 75  66 66 69 63 69 65 6e 74  |"","Insufficient|
000010d0  20 52 4d 41 20 2d 20 73  6b 69 70 70 69 6e 67 20  | RMA - skipping |
000010e0  64 65 65 70 65 72 22 2c  22 22 29 0d 04 60 08 20  |deeper","")..`. |
000010f0  20 20 e1 0d 04 6a 05 cd  0d 04 74 14 e7 20 6c 65  |  ...j....t.. le|
00001100  61 66 64 69 72 24 3c 3e  22 22 20 8c 0d 04 7e 19  |afdir$<>"" ...~.|
00001110  20 20 20 64 69 72 24 2b  3d 22 2e 22 2b 6c 65 61  |   dir$+="."+lea|
00001120  66 64 69 72 24 0d 04 88  19 20 20 20 e7 20 97 28  |fdir$....   . .(|
00001130  6c 65 61 66 64 69 72 24  29 3d 33 33 20 8c 0d 04  |leafdir$)=33 ...|
00001140  92 38 20 20 20 20 20 20  f4 20 69 73 20 74 68 65  |.8      . is the|
00001150  20 61 70 70 6c 69 63 61  74 69 6f 6e 20 73 70 72  | application spr|
00001160  69 74 65 20 61 6c 72 65  61 64 79 20 69 6e 20 6d  |ite already in m|
00001170  65 6d 6f 72 79 3f 0d 04  9c 34 20 20 20 20 20 20  |emory?...4      |
00001180  c8 99 20 22 58 57 69 6d  70 5f 53 70 72 69 74 65  |.. "XWimp_Sprite|
00001190  4f 70 22 2c 34 30 2c 2c  6c 65 61 66 64 69 72 24  |Op",40,,leafdir$|
000011a0  20 b8 20 3b 66 6c 61 67  73 25 0d 04 a6 45 20 20  | . ;flags%...E  |
000011b0  20 20 20 20 e7 20 66 6c  61 67 73 25 20 80 20 31  |    . flags% . 1|
000011c0  3a 69 63 6f 6e 5f 6e 61  6d 65 24 3d 22 61 70 70  |:icon_name$="app|
000011d0  6c 69 63 61 74 69 6f 6e  22 20 8b 20 69 63 6f 6e  |lication" . icon|
000011e0  5f 6e 61 6d 65 24 3d 6c  65 61 66 64 69 72 24 0d  |_name$=leafdir$.|
000011f0  04 b0 08 20 20 20 cc 0d  04 ba 20 20 20 20 20 20  |...   ....      |
00001200  20 69 63 6f 6e 5f 6e 61  6d 65 24 3d 22 64 69 72  | icon_name$="dir|
00001210  65 63 74 6f 72 79 22 0d  04 c4 08 20 20 20 cd 0d  |ectory"....   ..|
00001220  04 ce 25 20 20 20 f2 70  75 74 64 61 74 61 28 69  |..%   .putdata(i|
00001230  63 6f 6e 6e 61 6d 65 25  2c 6c 65 61 66 64 69 72  |conname%,leafdir|
00001240  24 2c a3 29 0d 04 d8 1f  20 20 20 f2 70 6c 6f 74  |$,.)....   .plot|
00001250  61 70 70 69 63 6f 6e 28  69 63 6f 6e 5f 6e 61 6d  |appicon(icon_nam|
00001260  65 24 29 0d 04 e2 05 cd  0d 04 ec 1d f2 70 75 74  |e$)..........put|
00001270  64 61 74 61 28 64 69 72  73 63 61 6e 25 2c 64 69  |data(dirscan%,di|
00001280  72 24 2c b9 29 0d 04 f6  23 6f 66 66 25 3d 30 3a  |r$,.)...#off%=0:|
00001290  67 6f 74 62 6f 6f 74 25  3d a3 3a 67 6f 74 61 70  |gotboot%=.:gotap|
000012a0  70 69 63 6f 6e 25 3d a3  0d 05 00 05 f5 0d 05 0a  |picon%=.........|
000012b0  14 20 20 20 f2 77 69 6d  70 5f 70 6f 6c 6c 28 b9  |.   .wimp_poll(.|
000012c0  29 0d 05 14 20 20 20 20  e7 20 71 75 69 74 25 3d  |)...    . quit%=|
000012d0  b9 20 84 20 73 63 61 6e  6e 69 6e 67 25 3d a3 20  |. . scanning%=. |
000012e0  8c 0d 05 1e 10 20 20 20  20 20 20 6e 75 6d 25 3d  |.....      num%=|
000012f0  30 0d 05 28 08 20 20 20  cc 0d 05 32 15 20 20 20  |0..(.   ...2.   |
00001300  20 20 20 61 64 64 72 25  3d 62 61 73 65 25 0d 05  |   addr%=base%..|
00001310  3c 65 20 20 20 20 20 20  c8 99 20 22 58 4f 53 5f  |<e      .. "XOS_|
00001320  47 42 50 42 22 2c 31 30  2c 64 69 72 24 2b bd 28  |GBPB",10,dir$+.(|
00001330  30 29 2c 61 64 64 72 25  2c 6d 61 78 66 69 6c 65  |0),addr%,maxfile|
00001340  73 25 2c 6f 66 66 25 2c  73 69 7a 65 25 2c 22 2a  |s%,off%,size%,"*|
00001350  22 2b bd 28 30 29 20 b8  20 65 72 72 62 6c 6b 25  |"+.(0) . errblk%|
00001360  2c 2c 2c 6e 75 6d 25 2c  6f 66 66 25 3b 66 6c 61  |,,,num%,off%;fla|
00001370  67 73 25 0d 05 46 18 20  20 20 20 20 20 e7 20 66  |gs%..F.      . f|
00001380  6c 61 67 73 25 20 80 20  31 20 8c 0d 05 50 30 20  |lags% . 1 ...P0 |
00001390  20 20 20 20 20 20 20 20  f2 73 74 61 74 75 73 5f  |        .status_|
000013a0  6c 6f 67 28 22 22 2c a4  72 74 6f 7a 28 65 72 72  |log("",.rtoz(err|
000013b0  62 6c 6b 25 2b 34 29 2c  22 22 29 0d 05 5a 2a 20  |blk%+4),"")..Z* |
000013c0  20 20 20 20 20 20 20 20  6e 75 6d 25 3d 30 3a 73  |        num%=0:s|
000013d0  63 61 6e 6e 69 6e 67 25  3d a3 3a 62 61 64 73 63  |canning%=.:badsc|
000013e0  61 6e 25 3d b9 0d 05 64  0b 20 20 20 20 20 20 cd  |an%=...d.      .|
000013f0  0d 05 6e 08 20 20 20 cd  0d 05 78 0f 20 20 20 e7  |..n.   ...x.   .|
00001400  20 6e 75 6d 25 20 8c 0d  05 82 1c 20 20 20 20 20  | num% .....     |
00001410  20 e3 20 6c 6f 6f 70 25  3d 30 20 b8 20 6e 75 6d  | . loop%=0 . num|
00001420  25 2d 31 0d 05 8c 1a 20  20 20 20 20 20 20 20 20  |%-1....         |
00001430  6f 62 6a 25 3d 61 64 64  72 25 21 31 36 0d 05 96  |obj%=addr%!16...|
00001440  33 20 20 20 20 20 20 20  20 20 6c 65 6e 25 3d 61  |3         len%=a|
00001450  64 64 72 25 21 38 3a 74  79 70 65 25 3d 28 21 61  |ddr%!8:type%=(!a|
00001460  64 64 72 25 3e 3e 3e 38  29 20 80 20 26 46 46 46  |ddr%>>>8) . &FFF|
00001470  0d 05 a0 2e 20 20 20 20  20 20 20 20 20 61 64 64  |....         add|
00001480  72 25 2b 3d 32 30 3a 6e  61 6d 65 24 3d a4 67 65  |r%+=20:name$=.ge|
00001490  74 73 74 72 69 6e 67 28  61 64 64 72 25 29 0d 05  |tstring(addr%)..|
000014a0  aa 37 20 20 20 20 20 20  20 20 20 61 64 64 72 25  |.7         addr%|
000014b0  3d 28 61 64 64 72 25 2b  34 29 20 81 20 34 2a 34  |=(addr%+4) . 4*4|
000014c0  3a f4 20 41 6c 69 67 6e  20 74 6f 20 6e 65 78 74  |:. Align to next|
000014d0  20 77 6f 72 64 0d 05 b4  17 20 20 20 20 20 20 20  | word....       |
000014e0  20 20 e7 20 6f 62 6a 25  3d 32 20 8c 0d 05 be 25  |  . obj%=2 ....%|
000014f0  20 20 20 20 20 20 20 20  20 20 20 20 6e 75 6d 64  |            numd|
00001500  69 72 73 25 2b 3d 31 3a  f2 64 69 72 63 6f 75 6e  |irs%+=1:.dircoun|
00001510  74 0d 05 c8 22 20 20 20  20 20 20 20 20 20 20 20  |t..."           |
00001520  20 f2 63 68 65 63 6b 28  64 69 72 24 2c 6e 61 6d  | .check(dir$,nam|
00001530  65 24 29 0d 05 d2 0e 20  20 20 20 20 20 20 20 20  |e$)....         |
00001540  cc 0d 05 dc 27 20 20 20  20 20 20 20 20 20 20 20  |....'           |
00001550  20 6e 75 6d 66 69 6c 65  73 25 2b 3d 31 3a f2 66  | numfiles%+=1:.f|
00001560  69 6c 65 63 6f 75 6e 74  0d 05 e6 26 20 20 20 20  |ilecount...&    |
00001570  20 20 20 20 20 20 20 20  6c 6f 77 6e 61 6d 65 24  |        lowname$|
00001580  3d a4 6c 6f 77 65 72 28  6e 61 6d 65 24 29 0d 05  |=.lower(name$)..|
00001590  f0 24 20 20 20 20 20 20  20 20 20 20 20 20 e7 20  |.$            . |
000015a0  6c 6f 77 6e 61 6d 65 24  3d 22 21 62 6f 6f 74 22  |lowname$="!boot"|
000015b0  20 8c 0d 05 fa 1d 20 20  20 20 20 20 20 20 20 20  | .....          |
000015c0  20 20 20 20 20 67 6f 74  62 6f 6f 74 25 3d b9 0d  |     gotboot%=..|
000015d0  06 04 46 20 20 20 20 20  20 20 20 20 20 20 20 20  |..F             |
000015e0  20 20 e7 20 74 79 70 65  25 3d 26 46 45 42 3a f2  |  . type%=&FEB:.|
000015f0  63 68 65 63 6b 5f 66 6f  72 5f 62 6f 6f 74 5f 76  |check_for_boot_v|
00001600  69 72 75 73 28 64 69 72  24 2c 6e 61 6d 65 24 2c  |irus(dir$,name$,|
00001610  6c 65 6e 25 29 0d 06 0e  11 20 20 20 20 20 20 20  |len%)....       |
00001620  20 20 20 20 20 cd 0d 06  18 1a 20 20 20 20 20 20  |     .....      |
00001630  20 20 20 20 20 20 c8 8e  20 74 79 70 65 25 20 ca  |      .. type% .|
00001640  0d 06 22 35 20 20 20 20  20 20 20 20 20 20 20 20  |.."5            |
00001650  c9 20 26 46 46 38 3a e7  20 6c 65 6e 25 3e 3d 61  |. &FF8:. len%>=a|
00001660  72 63 68 73 69 7a 65 25  20 84 20 69 6e 6e 6f 63  |rchsize% . innoc|
00001670  25 3d b9 20 8c 0d 06 2c  42 20 20 20 20 20 20 20  |%=. ...,B       |
00001680  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001690  20 20 f2 63 68 65 63 6b  5f 66 6f 72 5f 61 62 73  |  .check_for_abs|
000016a0  5f 76 69 72 75 73 28 64  69 72 24 2c 6e 61 6d 65  |_virus(dir$,name|
000016b0  24 2c 6c 65 6e 25 29 0d  06 36 1b 20 20 20 20 20  |$,len%)..6.     |
000016c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000016d0  20 cd 0d 06 40 3a 20 20  20 20 20 20 20 20 20 20  | ...@:          |
000016e0  20 20 c9 20 26 46 46 39  3a e7 20 6c 6f 77 6e 61  |  . &FF9:. lowna|
000016f0  6d 65 24 3d 22 21 73 70  72 69 74 65 73 22 3a 67  |me$="!sprites":g|
00001700  6f 74 61 70 70 69 63 6f  6e 25 3d b9 0d 06 4a 3c  |otappicon%=...J<|
00001710  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 26 46  |            . &F|
00001720  46 41 3a f2 63 68 65 63  6b 5f 66 6f 72 5f 6d 6f  |FA:.check_for_mo|
00001730  64 5f 76 69 72 75 73 28  64 69 72 24 2c 6e 61 6d  |d_virus(dir$,nam|
00001740  65 24 2c 6c 65 6e 25 29  0d 06 54 39 20 20 20 20  |e$,len%)..T9    |
00001750  20 20 20 20 20 20 20 20  c9 20 26 46 46 42 3a f2  |        . &FFB:.|
00001760  63 68 65 63 6b 5f 66 6f  72 5f 42 41 53 49 43 5f  |check_for_BASIC_|
00001770  76 69 72 75 73 28 64 69  72 24 2c 6e 61 6d 65 24  |virus(dir$,name$|
00001780  29 0d 06 5e 11 20 20 20  20 20 20 20 20 20 20 20  |)..^.           |
00001790  20 cb 0d 06 68 0e 20 20  20 20 20 20 20 20 20 cd  | ...h.         .|
000017a0  0d 06 72 0b 20 20 20 20  20 20 ed 0d 06 7c 07 20  |..r.      ...|. |
000017b0  20 cd 0d 06 86 25 fd 20  6f 66 66 25 3d 2d 31 20  | ....%. off%=-1 |
000017c0  84 20 71 75 69 74 25 3d  b9 20 84 20 73 63 61 6e  |. quit%=. . scan|
000017d0  6e 69 6e 67 25 3d a3 0d  06 90 46 e7 20 67 6f 74  |ning%=....F. got|
000017e0  62 6f 6f 74 25 3d a3 20  80 20 97 28 6c 65 61 66  |boot%=. . .(leaf|
000017f0  64 69 72 24 29 3d 33 33  20 80 20 69 6e 6e 6f 63  |dir$)=33 . innoc|
00001800  25 3d b9 20 80 20 71 75  69 74 25 3d a3 20 80 20  |%=. . quit%=. . |
00001810  73 63 61 6e 6e 69 6e 67  25 3d b9 20 8c 0d 06 9a  |scanning%=. ....|
00001820  36 20 20 20 e7 20 a4 65  78 74 65 6e 64 5f 69 6e  |6   . .extend_in|
00001830  6e 6f 63 62 6f 6f 74 28  64 69 72 24 2c 62 61 73  |nocboot(dir$,bas|
00001840  65 25 2c 30 2c 67 6f 74  61 70 70 69 63 6f 6e 25  |e%,0,gotappicon%|
00001850  29 20 8c 0d 06 a4 3c 20  20 20 20 20 20 f2 73 74  |) ....<      .st|
00001860  61 74 75 73 5f 6c 6f 67  28 64 69 72 24 2c 22 21  |atus_log(dir$,"!|
00001870  42 6f 6f 74 20 63 72 65  61 74 65 64 20 26 20 69  |Boot created & i|
00001880  6e 6e 6f 63 75 6c 61 74  65 64 22 2c 22 22 29 0d  |nnoculated","").|
00001890  06 ae 08 20 20 20 cd 0d  06 b8 05 cd 0d 06 c2 16  |...   ..........|
000018a0  f2 72 65 6c 65 61 73 65  52 4d 41 28 62 61 73 65  |.releaseRMA(base|
000018b0  25 29 0d 06 cc 05 e1 0d  06 d6 04 0d 06 e0 0e dd  |%)..............|
000018c0  f2 6e 65 77 69 6e 6e 6f  63 0d 06 ea 2c 6e 75 6d  |.newinnoc...,num|
000018d0  69 6e 6e 6f 63 25 2b 3d  31 3a f2 70 75 74 64 61  |innoc%+=1:.putda|
000018e0  74 61 28 31 35 2c c3 28  6e 75 6d 69 6e 6e 6f 63  |ta(15,.(numinnoc|
000018f0  25 29 2c a3 29 0d 06 f4  05 e1 0d 06 fe 04 0d 07  |%),.)...........|
00001900  08 19 dd f2 75 6e 73 75  70 70 6f 72 74 65 64 28  |....unsupported(|
00001910  76 69 72 75 73 24 29 0d  07 12 aa f2 77 61 72 6e  |virus$).....warn|
00001920  28 76 69 72 75 73 24 2b  22 20 64 65 74 65 63 74  |(virus$+" detect|
00001930  65 64 20 69 6e 20 52 4d  41 20 2d 20 74 68 65 20  |ed in RMA - the |
00001940  63 75 72 72 65 6e 74 20  72 65 6c 65 61 73 65 20  |current release |
00001950  6f 66 20 22 2b 70 72 6f  67 24 2b 22 20 63 61 6e  |of "+prog$+" can|
00001960  6e 6f 74 20 72 65 6d 6f  76 65 20 69 74 20 66 72  |not remove it fr|
00001970  6f 6d 20 52 4d 41 2e 20  50 6c 65 61 73 65 20 68  |om RMA. Please h|
00001980  61 72 64 20 72 65 73 65  74 2c 20 72 65 2d 72 75  |ard reset, re-ru|
00001990  6e 20 22 2b 70 72 6f 67  24 2b 22 20 4f 4e 4c 59  |n "+prog$+" ONLY|
000019a0  20 61 6e 64 20 72 65 2d  73 63 61 6e 20 61 6c 6c  | and re-scan all|
000019b0  20 73 75 73 70 65 63 74  20 64 69 73 6b 73 2e 22  | suspect disks."|
000019c0  29 0d 07 1c 17 71 75 69  74 25 3d b9 3a 73 63 61  |)....quit%=.:sca|
000019d0  6e 6e 69 6e 67 25 3d a3  0d 07 26 05 e1 0d 07 30  |nning%=...&....0|
000019e0  04 0d 07 3a 2c dd f2 6e  6f 74 69 66 79 76 69 72  |...:,..notifyvir|
000019f0  75 73 28 6d 65 73 73 31  24 2c 6d 65 73 73 32 24  |us(mess1$,mess2$|
00001a00  2c 63 6f 75 6e 74 25 2c  72 6d 61 25 29 0d 07 44  |,count%,rma%)..D|
00001a10  0c e7 20 72 6d 61 25 20  8c 0d 07 4e 3d 20 20 20  |.. rma% ...N=   |
00001a20  6e 75 6d 6d 65 6d 25 2b  3d 31 3a f2 70 75 74 64  |nummem%+=1:.putd|
00001a30  61 74 61 28 31 33 2c c3  28 6e 75 6d 6d 65 6d 25  |ata(13,.(nummem%|
00001a40  29 2c a3 29 3a 6d 65 73  73 31 24 2b 3d 22 20 69  |),.):mess1$+=" i|
00001a50  6e 20 52 4d 41 22 0d 07  58 05 cc 0d 07 62 2d 20  |n RMA"..X....b- |
00001a60  20 20 6e 75 6d 64 69 73  6b 25 2b 3d 31 3a f2 70  |  numdisk%+=1:.p|
00001a70  75 74 64 61 74 61 28 31  34 2c c3 28 6e 75 6d 64  |utdata(14,.(numd|
00001a80  69 73 6b 25 29 2c a3 29  0d 07 6c 05 cd 0d 07 76  |isk%),.)..l....v|
00001a90  41 e7 20 6d 65 73 73 32  24 3c 3e 22 22 3a f2 70  |A. mess2$<>"":.p|
00001aa0  75 74 64 61 74 61 28 64  69 72 73 63 61 6e 25 2c  |utdata(dirscan%,|
00001ab0  6d 65 73 73 32 24 2b 22  20 43 6f 75 6e 74 3a 20  |mess2$+" Count: |
00001ac0  22 2b c3 28 63 6f 75 6e  74 25 29 2c a3 29 0d 07  |"+.(count%),.)..|
00001ad0  80 19 69 6e 66 65 63 74  25 3d b9 3a f2 6f 70 65  |..infect%=.:.ope|
00001ae0  6e 77 69 6e 64 6f 77 0d  07 8a 28 f2 73 74 61 74  |nwindow...(.stat|
00001af0  75 73 5f 6c 6f 67 28 22  22 2c 6d 65 73 73 31 24  |us_log("",mess1$|
00001b00  2b 22 20 66 6f 75 6e 64  20 21 22 2c 22 22 29 0d  |+" found !","").|
00001b10  07 94 0e f2 68 6f 6c 64  69 74 28 31 29 0d 07 9e  |....holdit(1)...|
00001b20  05 e1 0d 07 a8 04 0d 07  b2 13 dd f2 68 6f 6c 64  |............hold|
00001b30  69 74 28 73 65 63 73 25  29 0d 07 bc 17 ea 20 74  |it(secs%)..... t|
00001b40  25 3a 74 25 3d 91 2b 73  65 63 73 25 2a 31 30 30  |%:t%=.+secs%*100|
00001b50  0d 07 c6 05 f5 0d 07 d0  14 20 20 20 f2 77 69 6d  |.........   .wim|
00001b60  70 5f 70 6f 6c 6c 28 a3  29 0d 07 da 12 fd 20 91  |p_poll(.)..... .|
00001b70  3e 74 25 20 84 20 71 75  69 74 25 0d 07 e4 05 e1  |>t% . quit%.....|
00001b80  0d 07 ee 04 0d 07 f8 17  dd f2 64 65 6c 66 69 6c  |..........delfil|
00001b90  65 28 6d 24 2c 74 79 70  65 24 29 0d 08 02 1e e7  |e(m$,type$).....|
00001ba0  20 a4 6f 73 63 6c 69 28  22 44 65 6c 65 74 65 22  | .oscli("Delete"|
00001bb0  2c 6d 24 2c 22 22 29 20  8c 0d 08 0c 29 20 20 f2  |,m$,"") ....)  .|
00001bc0  73 74 61 74 75 73 5f 6c  6f 67 28 22 22 2c 74 79  |status_log("",ty|
00001bd0  70 65 24 2b 22 20 64 65  6c 65 74 65 64 22 2c 6d  |pe$+" deleted",m|
00001be0  24 29 0d 08 16 05 cc 0d  08 20 31 20 20 f2 73 74  |$)....... 1  .st|
00001bf0  61 74 75 73 5f 6c 6f 67  28 22 22 2c 22 43 6f 75  |atus_log("","Cou|
00001c00  6c 64 6e 27 74 20 64 65  6c 65 74 65 20 22 2b 74  |ldn't delete "+t|
00001c10  79 70 65 24 2c 6d 24 29  0d 08 2a 05 cd 0d 08 34  |ype$,m$)..*....4|
00001c20  05 e1 0d 08 3e 04 0d 08  48 15 dd a4 6f 73 63 6c  |....>...H...oscl|
00001c30  69 28 6c 24 2c 6d 24 2c  72 24 29 0d 08 52 20 ea  |i(l$,m$,r$)..R .|
00001c40  20 66 6c 61 67 73 25 2c  61 67 61 69 6e 25 2c 65  | flags%,again%,e|
00001c50  72 72 62 6c 6b 25 2c 6f  73 63 24 0d 08 5c 28 6f  |rrblk%,osc$..\(o|
00001c60  73 63 24 3d 6c 24 2b 22  20 22 2b 6d 24 2b 22 20  |sc$=l$+" "+m$+" |
00001c70  22 2b 72 24 2b 22 20 7b  20 3e 20 6e 75 6c 6c 3a  |"+r$+" { > null:|
00001c80  20 7d 22 0d 08 66 05 f5  0d 08 70 16 20 20 20 e7  | }"..f....p.   .|
00001c90  20 6c 24 3d 22 52 4d 4b  69 6c 6c 22 20 8c 0d 08  | l$="RMKill" ...|
00001ca0  7a 34 20 20 20 20 20 20  c8 99 20 22 58 57 69 6d  |z4      .. "XWim|
00001cb0  70 5f 53 74 61 72 74 54  61 73 6b 22 2c 6f 73 63  |p_StartTask",osc|
00001cc0  24 20 b8 20 65 72 72 62  6c 6b 25 3b 66 6c 61 67  |$ . errblk%;flag|
00001cd0  73 25 0d 08 84 08 20 20  20 cc 0d 08 8e 2c 20 20  |s%....   ....,  |
00001ce0  20 20 20 20 c8 99 20 22  58 4f 53 5f 43 4c 49 22  |    .. "XOS_CLI"|
00001cf0  2c 6f 73 63 24 20 b8 20  65 72 72 62 6c 6b 25 3b  |,osc$ . errblk%;|
00001d00  66 6c 61 67 73 25 0d 08  98 08 20 20 20 cd 0d 08  |flags%....   ...|
00001d10  a2 0f 20 20 20 61 67 61  69 6e 25 3d a3 0d 08 ac  |..   again%=....|
00001d20  15 20 20 20 e7 20 66 6c  61 67 73 25 20 80 20 31  |.   . flags% . 1|
00001d30  20 8c 0d 08 b6 17 20 20  20 20 20 20 c8 8e 20 21  | .....      .. !|
00001d40  65 72 72 62 6c 6b 25 20  ca 0d 08 c0 13 20 20 20  |errblk% .....   |
00001d50  20 20 20 c9 20 26 31 30  38 43 39 3a 0d 08 ca 47  |   . &108C9:...G|
00001d60  20 20 20 20 20 20 20 20  20 61 67 61 69 6e 25 3d  |         again%=|
00001d70  a4 79 65 73 6e 6f 28 22  57 72 69 74 65 2d 70 72  |.yesno("Write-pr|
00001d80  6f 74 65 63 74 65 64 20  64 69 73 6b 20 2d 20 72  |otected disk - r|
00001d90  65 74 72 79 20 64 69 73  6b 20 77 72 69 74 65 20  |etry disk write |
00001da0  3f 22 29 0d 08 d4 32 20  20 20 20 20 20 c9 20 26  |?")...2      . &|
00001db0  31 30 38 43 33 3a 61 67  61 69 6e 25 3d a4 6f 73  |108C3:again%=.os|
00001dc0  63 6c 69 28 22 41 63 63  65 73 73 22 2c 6d 24 2c  |cli("Access",m$,|
00001dd0  22 57 52 22 29 0d 08 de  0b 20 20 20 20 20 20 cb  |"WR")....      .|
00001de0  0d 08 e8 1d 20 20 20 20  20 20 e7 20 61 67 61 69  |....      . agai|
00001df0  6e 25 3d a3 3a 73 74 69  6c 6c 25 3d b9 0d 08 f2  |n%=.:still%=....|
00001e00  08 20 20 20 cd 0d 08 fc  0e fd 20 61 67 61 69 6e  |.   ...... again|
00001e10  25 3d a3 0d 09 06 15 3d  28 28 66 6c 61 67 73 25  |%=.....=((flags%|
00001e20  20 80 20 31 29 3d 30 29  0d 09 10 04 0d 09 1a 1c  | . 1)=0)........|
00001e30  dd a4 77 69 6d 70 65 72  72 6f 72 28 6d 65 73 73  |..wimperror(mess|
00001e40  24 2c 6d 61 73 6b 25 29  0d 09 24 0c ea 20 63 6c  |$,mask%)..$.. cl|
00001e50  69 63 6b 25 0d 09 2e 51  c8 99 20 22 58 57 69 6d  |ick%...Q.. "XWim|
00001e60  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c c4  |p_ReportError",.|
00001e70  34 2c 62 6c 24 29 2b 6d  65 73 73 24 2b 62 6c 24  |4,bl$)+mess$+bl$|
00001e80  2c 6d 61 73 6b 25 2c 70  72 6f 67 24 2b 22 20 57  |,mask%,prog$+" W|
00001e90  61 72 6e 69 6e 67 22 2b  62 6c 24 20 b8 20 2c 63  |arning"+bl$ . ,c|
00001ea0  6c 69 63 6b 25 0d 09 38  0b 3d 63 6c 69 63 6b 25  |lick%..8.=click%|
00001eb0  0d 09 42 04 0d 09 4c 2f  dd a4 79 65 73 6e 6f 28  |..B...L/..yesno(|
00001ec0  6d 65 73 73 24 29 3d 28  a4 77 69 6d 70 65 72 72  |mess$)=(.wimperr|
00001ed0  6f 72 28 6d 65 73 73 24  2c 25 31 30 30 31 31 29  |or(mess$,%10011)|
00001ee0  3d 31 29 0d 09 56 04 0d  09 60 11 dd f2 77 61 72  |=1)..V...`...war|
00001ef0  6e 28 6d 65 73 73 24 29  0d 09 6a 0c ea 20 63 6c  |n(mess$)..j.. cl|
00001f00  69 63 6b 25 0d 09 74 23  63 6c 69 63 6b 25 3d a4  |ick%..t#click%=.|
00001f10  77 69 6d 70 65 72 72 6f  72 28 6d 65 73 73 24 2c  |wimperror(mess$,|
00001f20  25 31 30 30 30 31 29 0d  09 7e 05 e1 0d 09 88 04  |%10001)..~......|
00001f30  0d 09 92 14 dd f2 73 63  61 6e 52 4d 41 28 68 61  |......scanRMA(ha|
00001f40  6e 64 25 29 0d 09 9c 13  ea 20 73 74 61 72 74 25  |nd%)..... start%|
00001f50  2c 66 6c 61 67 73 25 0d  09 a6 23 e7 20 a4 6d 6f  |,flags%...#. .mo|
00001f60  64 65 78 69 73 74 73 28  22 45 78 74 65 6e 64 22  |dexists("Extend"|
00001f70  2c 73 74 61 72 74 25 29  20 8c 0d 09 b0 2f 20 20  |,start%) ..../  |
00001f80  20 e7 20 a4 72 74 6f 7a  28 73 74 61 72 74 25 2b  | . .rtoz(start%+|
00001f90  73 74 61 72 74 25 21 26  31 34 29 3d 65 78 74 65  |start%!&14)=exte|
00001fa0  6e 64 68 65 6c 70 24 20  8c 0d 09 ba 26 20 20 20  |ndhelp$ ....&   |
00001fb0  20 20 20 f2 65 78 74 65  6e 64 5f 69 6e 5f 52 4d  |   .extend_in_RM|
00001fc0  41 28 68 61 6e 64 25 2c  73 74 61 72 74 25 29 0d  |A(hand%,start%).|
00001fd0  09 c4 08 20 20 20 cd 0d  09 ce 05 cd 0d 09 d8 24  |...   .........$|
00001fe0  e7 20 a4 6d 6f 64 65 78  69 73 74 73 28 22 54 6c  |. .modexists("Tl|
00001ff0  6f 64 4d 6f 64 22 2c 73  74 61 72 74 25 29 20 8c  |odMod",start%) .|
00002000  0d 09 e2 2e 20 20 20 e7  20 a4 72 74 6f 7a 28 73  |....   . .rtoz(s|
00002010  74 61 72 74 25 2b 73 74  61 72 74 25 21 26 31 34  |tart%+start%!&14|
00002020  29 3d 63 65 62 69 74 68  65 6c 70 24 20 8c 0d 09  |)=cebithelp$ ...|
00002030  ec 1f 20 20 20 20 20 20  f2 63 65 62 69 74 5f 69  |..      .cebit_i|
00002040  6e 5f 52 4d 41 28 73 74  61 72 74 25 29 0d 09 f6  |n_RMA(start%)...|
00002050  08 20 20 20 cd 0d 0a 00  05 cd 0d 0a 0a 48 f4 20  |.   .........H. |
00002060  4e 6f 74 65 20 2d 20 74  68 69 73 20 77 69 6c 6c  |Note - this will|
00002070  20 62 65 20 69 6d 70 72  6f 76 65 64 20 69 6e 20  | be improved in |
00002080  6c 61 74 65 72 20 76 65  72 73 69 6f 6e 73 2c 20  |later versions, |
00002090  6f 6e 63 65 20 73 6f 6d  65 6f 6e 65 20 74 65 6c  |once someone tel|
000020a0  6c 73 0d 0a 14 41 f4 20  6d 65 20 68 6f 77 20 74  |ls...A. me how t|
000020b0  6f 20 66 69 6e 64 20 6f  75 74 20 74 68 65 20 6c  |o find out the l|
000020c0  69 73 74 20 6f 66 20 72  6f 75 74 69 6e 65 73 20  |ist of routines |
000020d0  74 68 61 74 20 68 61 76  65 20 63 6c 61 69 6d 65  |that have claime|
000020e0  64 20 61 0d 0a 1e 46 f4  20 70 61 72 74 69 63 75  |d a...F. particu|
000020f0  6c 61 72 20 76 65 63 74  6f 72 2e 20 54 68 69 73  |lar vector. This|
00002100  20 61 70 70 65 61 72 73  20 74 6f 20 62 65 20 69  | appears to be i|
00002110  6d 70 6f 73 73 69 62 6c  65 20 74 6f 20 64 65 74  |mpossible to det|
00002120  65 72 6d 69 6e 65 20 69  6e 0d 0a 28 13 f4 20 52  |ermine in..(.. R|
00002130  49 53 43 20 4f 53 20 32  2e 30 30 2e 0d 0a 32 47  |ISC OS 2.00...2G|
00002140  c8 99 20 22 58 4f 53 5f  46 69 6c 65 22 2c 33 36  |.. "XOS_File",36|
00002150  20 b8 20 3b 66 6c 61 67  73 25 3a f4 20 4c 69 6b  | . ;flags%:. Lik|
00002160  65 6c 79 20 74 6f 20 63  72 61 73 68 20 64 75 65  |ely to crash due|
00002170  20 74 6f 20 41 72 63 68  69 65 56 69 72 75 73 20  | to ArchieVirus |
00002180  3a 2d 28 0d 0a 3c 23 e7  20 28 66 6c 61 67 73 25  |:-(..<#. (flags%|
00002190  20 80 20 31 29 3d 30 3a  f2 61 72 63 68 69 65 5f  | . 1)=0:.archie_|
000021a0  69 6e 5f 52 4d 41 0d 0a  46 05 e1 0d 0a 50 04 0d  |in_RMA..F....P..|
000021b0  0a 5a 1d dd a4 6d 6f 64  65 78 69 73 74 73 28 6d  |.Z...modexists(m|
000021c0  6f 64 24 2c f8 20 61 64  64 72 25 29 0d 0a 64 0c  |od$,. addr%)..d.|
000021d0  ea 20 66 6c 61 67 73 25  0d 0a 6e 2d c8 99 20 22  |. flags%..n-.. "|
000021e0  58 4f 53 5f 4d 6f 64 75  6c 65 22 2c 31 38 2c 6d  |XOS_Module",18,m|
000021f0  6f 64 24 20 b8 20 2c 2c  2c 61 64 64 72 25 3b 66  |od$ . ,,,addr%;f|
00002200  6c 61 67 73 25 0d 0a 78  15 3d 28 28 66 6c 61 67  |lags%..x.=((flag|
00002210  73 25 20 80 20 31 29 3d  30 29 0d 0a 82 04 0d 0a  |s% . 1)=0)......|
00002220  8c 21 dd f2 65 78 74 65  6e 64 5f 69 6e 5f 52 4d  |.!..extend_in_RM|
00002230  41 28 68 61 6e 64 25 2c  73 74 61 72 74 25 29 0d  |A(hand%,start%).|
00002240  0a 96 0d e7 20 68 61 6e  64 25 20 8c 0d 0a a0 37  |.... hand% ....7|
00002250  20 20 20 f4 20 54 68 69  73 20 69 73 20 61 20 62  |   . This is a b|
00002260  75 67 2d 66 69 78 20 3a  2d 29 20 49 74 20 61 6c  |ug-fix :-) It al|
00002270  6c 6f 77 73 20 74 68 65  20 76 69 72 75 73 20 74  |lows the virus t|
00002280  61 73 6b 0d 0a aa 3f 20  20 20 f4 20 74 6f 20 73  |ask...?   . to s|
00002290  68 75 74 64 6f 77 6e 20  70 72 6f 70 65 72 6c 79  |hutdown properly|
000022a0  20 77 69 74 68 6f 75 74  20 63 72 61 73 68 69 6e  | without crashin|
000022b0  67 20 74 68 65 20 54 61  73 6b 20 4d 61 6e 61 67  |g the Task Manag|
000022c0  65 72 0d 0a b4 2a 20 20  20 73 74 61 72 74 25 21  |er...*   start%!|
000022d0  26 34 30 3d 68 61 6e 64  25 3a f4 20 53 61 76 65  |&40=hand%:. Save|
000022e0  20 74 61 73 6b 20 68 61  6e 64 6c 65 0d 0a be 14  | task handle....|
000022f0  20 20 20 50 25 3d 73 74  61 72 74 25 2b 26 37 30  |   P%=start%+&70|
00002300  0d 0a c8 0d 20 20 20 5b  4f 50 54 20 30 0d 0a d2  |....   [OPT 0...|
00002310  35 20 20 20 4c 44 52 20  52 32 2c 73 74 61 72 74  |5   LDR R2,start|
00002320  25 2b 26 36 34 3a 43 4d  50 20 52 32 2c 23 31 3a  |%+&64:CMP R2,#1:|
00002330  53 57 49 47 54 20 22 58  4f 53 5f 4d 6f 64 75 6c  |SWIGT "XOS_Modul|
00002340  65 22 0d 0a dc 2a 20 20  20 4c 44 52 20 52 30 2c  |e"...*   LDR R0,|
00002350  73 74 61 72 74 25 2b 26  34 30 3a 4c 44 52 20 52  |start%+&40:LDR R|
00002360  31 2c 73 74 61 72 74 25  2b 26 35 34 0d 0a e6 08  |1,start%+&54....|
00002370  20 20 20 5d 0d 0a f0 05  cc 0d 0a fa 38 20 20 20  |   ]........8   |
00002380  f2 77 61 72 6e 28 22 54  61 73 6b 20 4d 61 6e 61  |.warn("Task Mana|
00002390  67 65 72 20 69 73 20 75  6e 73 74 61 62 6c 65 20  |ger is unstable |
000023a0  2d 20 64 6f 20 6e 6f 74  20 75 73 65 20 69 74 22  |- do not use it"|
000023b0  29 0d 0b 04 05 cd 0d 0b  0e 39 f2 6e 6f 74 69 66  |)........9.notif|
000023c0  79 76 69 72 75 73 28 22  45 78 74 65 6e 64 20 56  |yvirus("Extend V|
000023d0  69 72 75 73 22 2c 22 45  78 65 63 75 74 69 6f 6e  |irus","Execution|
000023e0  22 2c 73 74 61 72 74 25  21 26 33 34 2c b9 29 0d  |",start%!&34,.).|
000023f0  0b 18 28 f2 6b 69 6c 6c  6d 6f 64 75 6c 65 28 22  |..(.killmodule("|
00002400  45 78 74 65 6e 64 22 2c  22 45 78 74 65 6e 64 20  |Extend","Extend |
00002410  56 69 72 75 73 22 29 0d  0b 22 05 e1 0d 0b 2c 04  |Virus").."....,.|
00002420  0d 0b 36 1a dd f2 63 65  62 69 74 5f 69 6e 5f 52  |..6...cebit_in_R|
00002430  4d 41 28 73 74 61 72 74  25 29 0d 0b 40 3e f2 6e  |MA(start%)..@>.n|
00002440  6f 74 69 66 79 76 69 72  75 73 28 22 43 65 42 69  |otifyvirus("CeBi|
00002450  74 20 56 69 72 75 73 22  2c 22 49 6e 66 65 63 74  |t Virus","Infect|
00002460  69 6f 6e 22 2c 73 74 61  72 74 25 21 63 65 62 69  |ion",start%!cebi|
00002470  74 6f 66 66 25 2c b9 29  0d 0b 4a 48 f4 20 4e 65  |toff%,.)..JH. Ne|
00002480  78 74 20 6c 69 6e 65 20  64 65 76 69 6f 75 73 6c  |xt line deviousl|
00002490  79 20 66 6c 69 70 73 20  55 70 43 61 6c 6c 20 74  |y flips UpCall t|
000024a0  72 61 70 20 74 6f 20 52  45 4c 45 41 53 45 20 76  |rap to RELEASE v|
000024b0  65 63 74 6f 72 20 69 6e  73 74 65 61 64 2e 2e 2e  |ector instead...|
000024c0  0d 0b 54 2c 50 25 3d 73  74 61 72 74 25 2b 26 46  |..T,P%=start%+&F|
000024d0  43 3a 5b 4f 50 54 20 30  3a 53 57 49 20 22 58 4f  |C:[OPT 0:SWI "XO|
000024e0  53 5f 52 65 6c 65 61 73  65 22 3a 5d 0d 0b 5e 3b  |S_Release":]..^;|
000024f0  73 74 61 72 74 25 21 38  3d 26 45 43 3a f4 20 50  |start%!8=&EC:. P|
00002500  6f 69 6e 74 20 66 69 6e  61 6c 69 73 61 74 69 6f  |oint finalisatio|
00002510  6e 20 74 6f 20 6d 6f 64  69 66 69 65 64 20 74 72  |n to modified tr|
00002520  61 70 20 63 6f 64 65 0d  0b 68 28 f2 6b 69 6c 6c  |ap code..h(.kill|
00002530  6d 6f 64 75 6c 65 28 22  54 6c 6f 64 4d 6f 64 22  |module("TlodMod"|
00002540  2c 22 43 65 42 69 74 20  56 69 72 75 73 22 29 0d  |,"CeBit Virus").|
00002550  0b 72 05 e1 0d 0b 7c 04  0d 0b 86 1c dd f2 6b 69  |.r....|.......ki|
00002560  6c 6c 6d 6f 64 75 6c 65  28 6d 6f 64 24 2c 6e 61  |llmodule(mod$,na|
00002570  6d 65 24 29 0d 0b 90 20  e7 20 a4 6f 73 63 6c 69  |me$)... . .oscli|
00002580  28 22 52 4d 4b 69 6c 6c  22 2c 6d 6f 64 24 2c 22  |("RMKill",mod$,"|
00002590  22 29 20 8c 0d 0b 9a 32  20 20 20 f2 73 74 61 74  |") ....2   .stat|
000025a0  75 73 5f 6c 6f 67 28 22  22 2c 6e 61 6d 65 24 2b  |us_log("",name$+|
000025b0  22 20 6b 69 6c 6c 65 64  20 66 72 6f 6d 20 52 4d  |" killed from RM|
000025c0  41 22 2c 22 22 29 0d 0b  a4 05 cc 0d 0b ae 3c 20  |A","")........< |
000025d0  20 20 f2 73 74 61 74 75  73 5f 6c 6f 67 28 22 22  |  .status_log(""|
000025e0  2c 22 43 6f 75 6c 64 6e  27 74 20 6b 69 6c 6c 20  |,"Couldn't kill |
000025f0  22 2b 6e 61 6d 65 24 2b  22 20 66 72 6f 6d 20 52  |"+name$+" from R|
00002600  4d 41 22 2c 22 22 29 0d  0b b8 0f 20 20 20 73 74  |MA","")....   st|
00002610  69 6c 6c 25 3d b9 0d 0b  c2 05 cd 0d 0b cc 05 e1  |ill%=...........|
00002620  0d 0b d6 04 0d 0b e0 13  dd f2 61 72 63 68 69 65  |..........archie|
00002630  5f 69 6e 5f 52 4d 41 0d  0b ea 26 f2 6e 6f 74 69  |_in_RMA...&.noti|
00002640  66 79 76 69 72 75 73 28  22 41 72 63 68 69 65 56  |fyvirus("ArchieV|
00002650  69 72 75 73 22 2c 22 22  2c 30 2c b9 29 0d 0b f4  |irus","",0,.)...|
00002660  1f f2 75 6e 73 75 70 70  6f 72 74 65 64 28 22 41  |..unsupported("A|
00002670  72 63 68 69 65 56 69 72  75 73 22 29 0d 0b fe 05  |rchieVirus")....|
00002680  e1 0d 0c 08 04 0d 0c 12  19 dd a4 65 78 69 73 74  |...........exist|
00002690  73 28 66 69 6c 65 24 2c  74 79 70 65 25 29 0d 0c  |s(file$,type%)..|
000026a0  1c 13 ea 20 66 6f 75 6e  64 25 2c 66 74 79 70 65  |... found%,ftype|
000026b0  25 0d 0c 26 2a c8 99 20  22 58 4f 53 5f 46 69 6c  |%..&*.. "XOS_Fil|
000026c0  65 22 2c 35 2c 66 69 6c  65 24 20 b8 20 66 6f 75  |e",5,file$ . fou|
000026d0  6e 64 25 2c 2c 66 74 79  70 65 25 0d 0c 30 1e 66  |nd%,,ftype%..0.f|
000026e0  74 79 70 65 25 3d 28 66  74 79 70 65 25 3e 3e 3e  |type%=(ftype%>>>|
000026f0  38 29 20 80 20 26 46 46  46 0d 0c 3a 1e 3d 28 66  |8) . &FFF..:.=(f|
00002700  6f 75 6e 64 25 3d 31 20  80 20 74 79 70 65 25 3d  |ound%=1 . type%=|
00002710  66 74 79 70 65 25 29 0d  0c 44 04 0d 0c 4e 2a dd  |ftype%)..D...N*.|
00002720  a4 75 70 70 65 72 28 73  24 29 3d a4 66 6c 69 70  |.upper(s$)=.flip|
00002730  73 74 72 28 73 24 2c 97  22 61 22 2c 97 22 7a 22  |str(s$,."a",."z"|
00002740  2c 2d 33 32 29 0d 0c 58  04 0d 0c 62 29 dd a4 6c  |,-32)..X...b)..l|
00002750  6f 77 65 72 28 73 24 29  3d a4 66 6c 69 70 73 74  |ower(s$)=.flipst|
00002760  72 28 73 24 2c 97 22 41  22 2c 97 22 5a 22 2c 33  |r(s$,."A",."Z",3|
00002770  32 29 0d 0c 6c 04 0d 0c  76 1a dd a4 66 6c 69 70  |2)..l...v...flip|
00002780  73 74 72 28 73 24 2c 6c  25 2c 68 25 2c 64 25 29  |str(s$,l%,h%,d%)|
00002790  0d 0c 80 17 ea 20 6c 6f  6f 70 25 2c 6e 24 2c 63  |..... loop%,n$,c|
000027a0  25 3a 6e 24 3d 22 22 0d  0c 8a 15 e3 20 6c 6f 6f  |%:n$=""..... loo|
000027b0  70 25 3d 31 20 b8 20 a9  28 73 24 29 0d 0c 94 17  |p%=1 . .(s$)....|
000027c0  20 20 20 63 25 3d 97 28  c1 73 24 2c 6c 6f 6f 70  |   c%=.(.s$,loop|
000027d0  25 29 29 0d 0c 9e 1f 20  20 20 e7 20 63 25 3e 3d  |%))....   . c%>=|
000027e0  6c 25 20 80 20 63 25 3c  3d 68 25 3a 63 25 2b 3d  |l% . c%<=h%:c%+=|
000027f0  64 25 0d 0c a8 10 20 20  20 6e 24 2b 3d bd 28 63  |d%....   n$+=.(c|
00002800  25 29 0d 0c b2 05 ed 0d  0c bc 07 3d 6e 24 0d 0c  |%).........=n$..|
00002810  c6 04 0d 0c d0 18 dd a4  67 65 74 73 74 72 69 6e  |........getstrin|
00002820  67 28 f8 20 61 64 64 72  25 29 0d 0c da 0e ea 20  |g(. addr%)..... |
00002830  73 24 3a 73 24 3d 22 22  0d 0c e4 2d c8 95 20 3f  |s$:s$=""...-.. ?|
00002840  61 64 64 72 25 3c 3e 30  3a 73 24 2b 3d bd 28 3f  |addr%<>0:s$+=.(?|
00002850  61 64 64 72 25 29 3a 61  64 64 72 25 2b 3d 31 3a  |addr%):addr%+=1:|
00002860  ce 3a 3d 73 24 0d 0c ee  04 0d 0c f8 17 dd f2 77  |.:=s$..........w|
00002870  69 6d 70 5f 70 6f 6c 6c  28 63 68 65 63 6b 25 29  |imp_poll(check%)|
00002880  0d 0d 02 0d ea 20 72 65  61 73 6f 6e 25 0d 0d 0c  |..... reason%...|
00002890  25 c8 99 20 22 58 57 69  6d 70 5f 50 6f 6c 6c 22  |%.. "XWimp_Poll"|
000028a0  2c 30 2c 70 6f 6c 6c 25  20 b8 20 72 65 61 73 6f  |,0,poll% . reaso|
000028b0  6e 25 0d 0d 16 10 c8 8e  20 72 65 61 73 6f 6e 25  |n%...... reason%|
000028c0  20 ca 0d 0d 20 28 c9 20  30 3a e7 20 63 68 65 63  | ... (. 0:. chec|
000028d0  6b 25 3a f2 63 68 65 63  6b 63 75 72 66 73 3a f2  |k%:.checkcurfs:.|
000028e0  73 63 61 6e 52 4d 41 28  30 29 0d 0d 2a 37 c9 20  |scanRMA(0)..*7. |
000028f0  32 3a c8 99 20 22 58 57  69 6d 70 5f 4f 70 65 6e  |2:.. "XWimp_Open|
00002900  57 69 6e 64 6f 77 22 2c  2c 70 6f 6c 6c 25 3a f4  |Window",,poll%:.|
00002910  20 49 6e 66 6f 20 77 69  6e 64 6f 77 20 64 72 61  | Info window dra|
00002920  67 0d 0d 34 14 c9 20 33  3a f2 63 6c 6f 73 65 77  |g..4.. 3:.closew|
00002930  69 6e 64 6f 77 0d 0d 3e  13 c9 20 36 3a f2 6d 6f  |indow..>.. 6:.mo|
00002940  75 73 65 63 6c 69 63 6b  0d 0d 48 13 c9 20 39 3a  |useclick..H.. 9:|
00002950  f2 6d 65 6e 75 73 65 6c  65 63 74 0d 0d 52 18 c9  |.menuselect..R..|
00002960  20 31 37 2c 31 38 3a f2  77 69 6d 70 6d 65 73 73  | 17,18:.wimpmess|
00002970  61 67 65 0d 0d 5c 19 c9  20 31 39 3a 20 f2 61 63  |age..\.. 19: .ac|
00002980  6b 77 69 6d 70 6d 65 73  73 61 67 65 0d 0d 66 05  |kwimpmessage..f.|
00002990  cb 0d 0d 70 05 e1 0d 0d  7a 04 0d 0d 84 10 dd f2  |...p....z.......|
000029a0  63 68 65 63 6b 63 75 72  66 73 0d 0d 8e 1f e7 20  |checkcurfs..... |
000029b0  a4 67 65 74 66 73 6e 61  6d 65 28 66 73 79 73 6e  |.getfsname(fsysn|
000029c0  75 6d 25 29 3d 22 22 20  8c 0d 0d 98 49 20 20 20  |um%)="" ....I   |
000029d0  f2 77 61 72 6e 28 66 73  79 73 24 2b 22 20 68 61  |.warn(fsys$+" ha|
000029e0  73 20 62 65 65 6e 20 64  69 73 61 62 6c 65 64 20  |s been disabled |
000029f0  2d 20 63 61 6e 6e 6f 74  20 73 63 61 6e 20 74 68  |- cannot scan th|
00002a00  61 74 20 66 69 6c 69 6e  67 20 73 79 73 74 65 6d  |at filing system|
00002a10  22 29 0d 0d a2 16 20 20  20 f2 62 75 69 6c 64 5f  |")....   .build_|
00002a20  66 73 5f 6e 61 6d 65 73  0d 0d ac 14 20 20 20 f2  |fs_names....   .|
00002a30  63 68 6f 6f 73 65 5f 66  73 28 30 29 0d 0d b6 1d  |choose_fs(0)....|
00002a40  20 20 20 73 63 61 6e 6e  69 6e 67 25 3d a3 3a 62  |   scanning%=.:b|
00002a50  61 64 73 63 61 6e 25 3d  b9 0d 0d c0 05 cd 0d 0d  |adscan%=........|
00002a60  ca 05 e1 0d 0d d4 04 0d  0d de 11 dd f2 63 6c 6f  |.............clo|
00002a70  73 65 77 69 6e 64 6f 77  0d 0d e8 37 c8 99 20 22  |sewindow...7.. "|
00002a80  58 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |XWimp_CloseWindo|
00002a90  77 22 2c 2c 76 6b 69 6c  6c 77 69 6e 64 25 3a f4  |w",,vkillwind%:.|
00002aa0  20 45 76 61 6c 20 63 6c  6f 73 65 20 62 6f 78 0d  | Eval close box.|
00002ab0  0d f2 05 e1 0d 0d fc 04  0d 0e 06 10 dd f2 6d 6f  |..............mo|
00002ac0  75 73 65 63 6c 69 63 6b  0d 0e 10 10 c8 8e 20 70  |useclick...... p|
00002ad0  6f 6c 6c 25 21 38 20 ca  0d 0e 1a 15 20 20 20 c9  |oll%!8 .....   .|
00002ae0  20 31 2c 34 3a f2 73 74  61 72 74 75 70 0d 0e 24  | 1,4:.startup..$|
00002af0  19 20 20 20 c9 20 20 20  32 3a f2 73 68 6f 77 6e  |.   .   2:.shown|
00002b00  65 77 6d 65 6e 75 0d 0e  2e 05 cb 0d 0e 38 05 e1  |ewmenu.......8..|
00002b10  0d 0e 42 04 0d 0e 4c 11  dd f2 73 68 6f 77 6e 65  |..B...L...showne|
00002b20  77 6d 65 6e 75 0d 0e 56  08 ea 20 79 25 0d 0e 60  |wmenu..V.. y%..`|
00002b30  13 e7 20 70 6f 6c 6c 25  21 31 32 3d 2d 32 20 8c  |.. poll%!12=-2 .|
00002b40  0d 0e 6a 0f 20 79 25 3d  39 36 2b 34 34 2a 32 0d  |..j. y%=96+44*2.|
00002b50  0e 74 13 20 f2 62 75 69  6c 64 5f 6d 65 6e 75 28  |.t. .build_menu(|
00002b60  31 29 0d 0e 7e 05 cc 0d  0e 88 12 20 79 25 3d 70  |1)..~...... y%=p|
00002b70  6f 6c 6c 25 21 34 2b 31  36 0d 0e 92 13 20 e7 73  |oll%!4+16.... .s|
00002b80  63 61 6e 6e 69 6e 67 25  3d a3 20 8c 0d 0e 9c 13  |canning%=. .....|
00002b90  20 20 c8 8e 20 70 6f 6c  6c 25 21 31 36 20 ca 0d  |  .. poll%!16 ..|
00002ba0  0e a6 1c 20 20 c9 20 37  2c 20 39 3a 20 f2 62 75  |...  . 7, 9: .bu|
00002bb0  69 6c 64 5f 6d 65 6e 75  28 32 29 0d 0e b0 1c 20  |ild_menu(2).... |
00002bc0  20 c9 20 38 2c 31 30 3a  20 f2 62 75 69 6c 64 5f  | . 8,10: .build_|
00002bd0  6d 65 6e 75 28 33 29 0d  0e ba 17 20 20 7f 3a 20  |menu(3)....  .: |
00002be0  f2 62 75 69 6c 64 5f 6d  65 6e 75 28 31 29 0d 0e  |.build_menu(1)..|
00002bf0  c4 07 20 20 cb 0d 0e ce  06 20 cc 0d 0e d8 14 20  |..  ..... ..... |
00002c00  20 f2 62 75 69 6c 64 5f  6d 65 6e 75 28 31 29 0d  | .build_menu(1).|
00002c10  0e e2 06 20 cd 0d 0e ec  05 cd 0d 0e f6 29 6f 6c  |... .........)ol|
00002c20  64 78 25 3d 21 70 6f 6c  6c 25 2d 36 34 3a 6f 6c  |dx%=!poll%-64:ol|
00002c30  64 79 25 3d 79 25 3a f2  73 68 6f 77 6f 6c 64 6d  |dy%=y%:.showoldm|
00002c40  65 6e 75 0d 0f 00 05 e1  0d 0f 0a 04 0d 0f 14 11  |enu.............|
00002c50  dd f2 73 68 6f 77 6f 6c  64 6d 65 6e 75 0d 0f 1e  |..showoldmenu...|
00002c60  2c c8 99 20 22 58 57 69  6d 70 5f 43 72 65 61 74  |,.. "XWimp_Creat|
00002c70  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 25 2c 6f 6c  |eMenu",,menu%,ol|
00002c80  64 78 25 2c 6f 6c 64 79  25 0d 0f 28 05 e1 0d 0f  |dx%,oldy%..(....|
00002c90  32 04 0d 0f 3c 10 dd f2  6f 70 65 6e 77 69 6e 64  |2...<...openwind|
00002ca0  6f 77 0d 0f 46 13 ea 20  78 25 2c 79 25 2c 73 78  |ow..F.. x%,y%,sx|
00002cb0  25 2c 73 79 25 0d 0f 50  29 c8 99 20 22 58 57 69  |%,sy%..P).. "XWi|
00002cc0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00002cd0  65 22 2c 2c 76 6b 69 6c  6c 77 69 6e 64 25 0d 0f  |e",,vkillwind%..|
00002ce0  5a 11 e7 20 6f 70 65 6e  65 64 25 3d a3 20 8c 0d  |Z.. opened%=. ..|
00002cf0  0f 64 49 20 20 20 f4 20  41 75 74 6f 2d 63 65 6e  |.dI   . Auto-cen|
00002d00  74 72 65 20 77 69 6e 64  6f 77 20 28 62 75 74 20  |tre window (but |
00002d10  6f 6e 6c 79 20 66 6f 72  20 74 68 65 20 76 65 72  |only for the ver|
00002d20  79 20 66 69 72 73 74 20  74 69 6d 65 20 69 74 20  |y first time it |
00002d30  69 73 20 6f 70 65 6e 29  0d 0f 6e 31 20 20 20 c8  |is open)..n1   .|
00002d40  99 20 22 58 4f 53 5f 52  65 61 64 56 64 75 56 61  |. "XOS_ReadVduVa|
00002d50  72 69 61 62 6c 65 73 22  2c 69 6e 62 75 66 66 25  |riables",inbuff%|
00002d60  2c 6f 75 74 62 75 66 66  25 0d 0f 78 27 20 20 20  |,outbuff%..x'   |
00002d70  78 25 3d 6f 75 74 62 75  66 66 25 21 38 2b 31 3a  |x%=outbuff%!8+1:|
00002d80  78 25 3d 78 25 3c 3c 21  6f 75 74 62 75 66 66 25  |x%=x%<<!outbuff%|
00002d90  0d 0f 82 29 20 20 20 79  25 3d 6f 75 74 62 75 66  |...)   y%=outbuf|
00002da0  66 25 21 31 32 2b 31 3a  79 25 3d 79 25 3c 3c 6f  |f%!12+1:y%=y%<<o|
00002db0  75 74 62 75 66 66 25 21  34 0d 0f 8c 25 20 20 20  |utbuff%!4...%   |
00002dc0  73 78 25 3d 76 6b 69 6c  6c 77 69 6e 64 25 21 31  |sx%=vkillwind%!1|
00002dd0  32 2d 76 6b 69 6c 6c 77  69 6e 64 25 21 34 0d 0f  |2-vkillwind%!4..|
00002de0  96 25 20 20 20 73 79 25  3d 76 6b 69 6c 6c 77 69  |.%   sy%=vkillwi|
00002df0  6e 64 25 21 31 36 2d 76  6b 69 6c 6c 77 69 6e 64  |nd%!16-vkillwind|
00002e00  25 21 38 0d 0f a0 3d 20  20 20 76 6b 69 6c 6c 77  |%!8...=   vkillw|
00002e10  69 6e 64 25 21 34 3d 28  78 25 2d 73 78 25 29 2f  |ind%!4=(x%-sx%)/|
00002e20  32 3a 76 6b 69 6c 6c 77  69 6e 64 25 21 31 32 3d  |2:vkillwind%!12=|
00002e30  76 6b 69 6c 6c 77 69 6e  64 25 21 34 2b 73 78 25  |vkillwind%!4+sx%|
00002e40  0d 0f aa 48 20 20 20 76  6b 69 6c 6c 77 69 6e 64  |...H   vkillwind|
00002e50  25 21 38 3d 28 79 25 2d  73 79 25 2b 69 63 6f 6e  |%!8=(y%-sy%+icon|
00002e60  62 61 72 25 2f 32 29 2f  32 3a 76 6b 69 6c 6c 77  |bar%/2)/2:vkillw|
00002e70  69 6e 64 25 21 31 36 3d  76 6b 69 6c 6c 77 69 6e  |ind%!16=vkillwin|
00002e80  64 25 21 38 2b 73 79 25  0d 0f b4 10 20 20 20 6f  |d%!8+sy%....   o|
00002e90  70 65 6e 65 64 25 3d b9  0d 0f be 05 cd 0d 0f c8  |pened%=.........|
00002ea0  33 76 6b 69 6c 6c 77 69  6e 64 25 21 32 38 3d 2d  |3vkillwind%!28=-|
00002eb0  31 3a f4 20 4f 70 65 6e  20 6f 6e 20 74 6f 70 20  |1:. Open on top |
00002ec0  6f 66 20 65 76 65 72 79  6f 6e 65 20 65 6c 73 65  |of everyone else|
00002ed0  0d 0f d2 25 c8 99 20 22  58 57 69 6d 70 5f 4f 70  |...%.. "XWimp_Op|
00002ee0  65 6e 57 69 6e 64 6f 77  22 2c 2c 76 6b 69 6c 6c  |enWindow",,vkill|
00002ef0  77 69 6e 64 25 0d 0f dc  05 e1 0d 0f e6 12 dc 20  |wind%.......... |
00002f00  34 2c 35 2c 31 31 2c 31  32 2c 2d 31 0d 0f f0 04  |4,5,11,12,-1....|
00002f10  0d 0f fa 0d dd f2 73 74  61 72 74 75 70 0d 10 04  |......startup...|
00002f20  11 c8 8e 20 70 6f 6c 6c  25 21 31 32 20 ca 0d 10  |... poll%!12 ...|
00002f30  0e 17 20 20 20 c9 20 2d  32 3a f2 6f 70 65 6e 77  |..   . -2:.openw|
00002f40  69 6e 64 6f 77 0d 10 18  14 20 20 20 c9 20 76 6b  |indow....   . vk|
00002f50  69 6c 6c 68 61 6e 64 25  3a 0d 10 22 17 20 20 20  |illhand%:..".   |
00002f60  20 20 20 c8 8e 20 70 6f  6c 6c 25 21 31 36 20 ca  |   .. poll%!16 .|
00002f70  0d 10 2c 22 20 20 20 20  20 20 c9 20 37 2c 38 2c  |..,"      . 7,8,|
00002f80  39 2c 31 30 3a 20 f2 73  68 6f 77 6e 65 77 6d 65  |9,10: .shownewme|
00002f90  6e 75 0d 10 36 33 20 20  20 20 20 20 c9 20 31 39  |nu..63      . 19|
00002fa0  3a e7 20 73 63 61 6e 6e  69 6e 67 25 3a f2 66 69  |:. scanning%:.fi|
00002fb0  6e 69 73 68 73 63 61 6e  20 8b 20 f2 73 74 61 72  |nishscan . .star|
00002fc0  74 73 63 61 6e 0d 10 40  0b 20 20 20 20 20 20 cb  |tscan..@.      .|
00002fd0  0d 10 4a 05 cb 0d 10 54  05 e1 0d 10 5e 04 0d 10  |..J....T....^...|
00002fe0  68 10 dd f2 6d 65 6e 75  73 65 6c 65 63 74 0d 10  |h...menuselect..|
00002ff0  72 12 ea 20 6d 6f 75 73  65 25 2c 69 74 65 6d 25  |r.. mouse%,item%|
00003000  0d 10 7c 12 69 74 65 6d  25 3d 21 70 6f 6c 6c 25  |..|.item%=!poll%|
00003010  2b 31 0d 10 86 33 c8 99  20 22 58 57 69 6d 70 5f  |+1...3.. "XWimp_|
00003020  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00003030  2c 70 6f 6c 6c 25 3a 6d  6f 75 73 65 25 3d 70 6f  |,poll%:mouse%=po|
00003040  6c 6c 25 21 38 0d 10 90  13 c8 8e 20 6d 65 6e 75  |ll%!8...... menu|
00003050  62 75 69 6c 74 25 20 ca  0d 10 9a 13 c9 20 31 3a  |built% ...... 1:|
00003060  20 c8 8e 20 69 74 65 6d  25 20 ca 0d 10 a4 33 20  | .. item% ....3 |
00003070  20 20 20 20 20 20 20 20  c9 20 6e 75 6d 69 74 65  |        . numite|
00003080  6d 73 25 3a 71 75 69 74  25 3d b9 3a f4 20 4c 61  |ms%:quit%=.:. La|
00003090  73 74 20 49 74 65 6d 20  3d 20 51 75 69 74 0d 10  |st Item = Quit..|
000030a0  ae 0d 20 20 20 20 20 20  20 20 cb 0d 10 b8 2c c9  |..        ....,.|
000030b0  20 32 3a 20 f2 74 69 63  6b 5f 6f 70 74 69 6f 6e  | 2: .tick_option|
000030c0  28 6d 65 6e 75 25 2c 66  73 5f 6e 61 6d 65 73 24  |(menu%,fs_names$|
000030d0  2c 66 73 79 73 24 29 0d  10 c2 1f 20 20 20 20 20  |,fsys$)....     |
000030e0  20 20 20 f2 63 68 6f 6f  73 65 5f 66 73 28 69 74  |   .choose_fs(it|
000030f0  65 6d 25 2d 31 29 0d 10  cc 2f 20 20 20 20 20 20  |em%-1).../      |
00003100  20 20 f2 74 69 63 6b 5f  6f 70 74 69 6f 6e 28 6d  |  .tick_option(m|
00003110  65 6e 75 25 2c 66 73 5f  6e 61 6d 65 73 24 2c 66  |enu%,fs_names$,f|
00003120  73 79 73 24 29 0d 10 d6  31 c9 20 33 3a 20 f2 74  |sys$)...1. 3: .t|
00003130  69 63 6b 5f 6f 70 74 69  6f 6e 28 6d 65 6e 75 25  |ick_option(menu%|
00003140  2c 66 73 5f 64 65 76 69  63 65 73 24 2c 66 64 65  |,fs_devices$,fde|
00003150  76 69 63 65 24 29 0d 10  e0 23 20 20 20 20 20 20  |vice$)...#      |
00003160  20 20 f2 63 68 6f 6f 73  65 5f 64 65 76 69 63 65  |  .choose_device|
00003170  28 69 74 65 6d 25 2d 31  29 0d 10 ea 34 20 20 20  |(item%-1)...4   |
00003180  20 20 20 20 20 f2 74 69  63 6b 5f 6f 70 74 69 6f  |     .tick_optio|
00003190  6e 28 6d 65 6e 75 25 2c  66 73 5f 64 65 76 69 63  |n(menu%,fs_devic|
000031a0  65 73 24 2c 66 64 65 76  69 63 65 24 29 0d 10 f4  |es$,fdevice$)...|
000031b0  05 cb 0d 10 fe 1b e7 20  6d 6f 75 73 65 25 3d 31  |....... mouse%=1|
000031c0  3a f2 73 68 6f 77 6f 6c  64 6d 65 6e 75 0d 11 08  |:.showoldmenu...|
000031d0  05 e1 0d 11 12 04 0d 11  1c 11 dd f2 77 69 6d 70  |............wimp|
000031e0  6d 65 73 73 61 67 65 0d  11 26 11 c8 8e 20 70 6f  |message..&... po|
000031f0  6c 6c 25 21 31 36 20 ca  0d 11 30 45 20 20 20 c9  |ll%!16 ...0E   .|
00003200  20 20 20 20 20 20 30 3a  71 75 69 74 25 3d b9 3a  |      0:quit%=.:|
00003210  f4 20 53 68 75 74 20 64  6f 77 6e 20 28 44 65 73  |. Shut down (Des|
00003220  6b 74 6f 70 20 45 78 69  74 2c 20 54 61 73 6b 20  |ktop Exit, Task |
00003230  4d 61 6e 61 67 65 72 20  51 75 69 74 29 0d 11 3a  |Manager Quit)..:|
00003240  19 20 20 20 c9 20 26 34  30 30 43 32 3a f2 61 70  |.   . &400C2:.ap|
00003250  70 73 74 61 72 74 0d 11  44 05 cb 0d 11 4e 05 e1  |pstart..D....N..|
00003260  0d 11 58 04 0d 11 62 14  dd f2 61 63 6b 77 69 6d  |..X...b...ackwim|
00003270  70 6d 65 73 73 61 67 65  0d 11 6c 12 e7 20 70 6f  |pmessage..l.. po|
00003280  6c 6c 25 21 31 36 3d 35  20 8c 0d 11 76 21 20 f4  |ll%!16=5 ...v! .|
00003290  20 6e 6f 20 65 64 69 74  6f 72 20 6c 6f 61 64 65  | no editor loade|
000032a0  64 20 2d 20 72 75 6e 20  69 74 21 0d 11 80 28 20  |d - run it!...( |
000032b0  c8 99 22 58 57 69 6d 70  5f 53 74 61 72 74 54 61  |.."XWimp_StartTa|
000032c0  73 6b 22 2c 22 52 75 6e  20 22 2b 6c 6f 67 6e 61  |sk","Run "+logna|
000032d0  6d 65 24 0d 11 8a 05 cd  0d 11 94 05 e1 0d 11 9e  |me$.............|
000032e0  04 0d 11 a8 0e dd f2 61  70 70 73 74 61 72 74 0d  |.......appstart.|
000032f0  11 b2 4a f4 20 55 6e 6c  69 6b 65 2c 20 61 68 65  |..J. Unlike, ahe|
00003300  6d 2c 20 63 65 72 74 61  69 6e 20 41 63 6f 72 6e  |m, certain Acorn|
00003310  20 61 70 70 6c 69 63 61  74 69 6f 6e 73 20 77 65  | applications we|
00003320  20 63 6f 75 6c 64 20 6d  65 6e 74 69 6f 6e 2c 20  | could mention, |
00003330  69 74 20 72 65 61 6c 6c  79 0d 11 bc 46 f4 20 69  |it really...F. i|
00003340  73 20 6e 69 63 65 20 74  6f 20 6d 61 6b 65 20 73  |s nice to make s|
00003350  75 72 65 20 6f 6e 6c 79  20 6f 6e 65 20 69 6e 76  |ure only one inv|
00003360  6f 63 61 74 69 6f 6e 20  6f 66 20 74 68 65 20 70  |ocation of the p|
00003370  72 6f 67 72 61 6d 20 68  61 73 20 62 65 65 6e 0d  |rogram has been.|
00003380  11 c6 43 f4 20 61 63 74  69 76 61 74 65 64 20 2d  |..C. activated -|
00003390  20 74 68 69 73 20 69 73  20 64 6f 6e 65 20 62 79  | this is done by|
000033a0  20 63 68 65 63 6b 69 6e  67 20 61 20 6e 65 77 20  | checking a new |
000033b0  74 61 73 6b 27 73 20 6e  61 6d 65 2f 68 61 6e 64  |task's name/hand|
000033c0  6c 65 0d 11 d0 19 ea 20  68 61 6e 64 25 3a 68 61  |le..... hand%:ha|
000033d0  6e 64 25 3d 70 6f 6c 6c  25 21 34 0d 11 da 14 e7  |nd%=poll%!4.....|
000033e0  20 68 61 6e 64 25 3c 3e  74 61 73 6b 25 20 8c 0d  | hand%<>task% ..|
000033f0  11 e4 1b 20 20 20 c8 8e  20 a4 72 74 6f 7a 28 70  |...   .. .rtoz(p|
00003400  6f 6c 6c 25 2b 32 38 29  20 ca 0d 11 ee 16 20 20  |oll%+28) .....  |
00003410  20 c9 20 70 72 6f 67 24  3a 71 75 69 74 25 3d b9  | . prog$:quit%=.|
00003420  0d 11 f8 1b 20 20 20 c9  20 22 22 3a f2 73 63 61  |....   . "":.sca|
00003430  6e 52 4d 41 28 68 61 6e  64 25 29 0d 12 02 2c 20  |nRMA(hand%)..., |
00003440  20 20 c9 20 22 54 61 73  6b 4d 61 6e 61 67 65 72  |  . "TaskManager|
00003450  22 3a f2 76 69 67 61 79  5f 72 75 6e 6e 69 6e 67  |":.vigay_running|
00003460  28 68 61 6e 64 25 29 0d  12 0c 08 20 20 20 cb 0d  |(hand%)....   ..|
00003470  12 16 05 cd 0d 12 20 05  e1 0d 12 2a 04 0d 12 34  |...... ....*...4|
00003480  18 dd f2 73 74 61 74 75  73 65 72 72 6f 72 28 6d  |...statuserror(m|
00003490  65 73 73 24 29 0d 12 3e  1d f2 70 75 74 64 61 74  |ess$)..>..putdat|
000034a0  61 28 73 74 61 74 75 73  25 2c 6d 65 73 73 24 2c  |a(status%,mess$,|
000034b0  a3 29 0d 12 48 0e f2 68  6f 6c 64 69 74 28 31 29  |.)..H..holdit(1)|
000034c0  0d 12 52 05 e1 0d 12 5c  04 0d 12 66 19 dd f2 73  |..R....\...f...s|
000034d0  74 61 74 75 73 69 6e 66  6f 72 6d 28 6d 65 73 73  |tatusinform(mess|
000034e0  24 29 0d 12 70 1d f2 70  75 74 64 61 74 61 28 73  |$)..p..putdata(s|
000034f0  74 61 74 75 73 25 2c 6d  65 73 73 24 2c a3 29 0d  |tatus%,mess$,.).|
00003500  12 7a 11 f2 77 69 6d 70  5f 70 6f 6c 6c 28 a3 29  |.z..wimp_poll(.)|
00003510  0d 12 84 05 e1 0d 12 8e  04 0d 12 98 1a dd a4 69  |...............i|
00003520  63 6f 6e 5f 73 65 6c 65  63 74 65 64 28 69 63 6f  |con_selected(ico|
00003530  6e 25 29 0d 12 a2 2b 21  69 63 6f 6e 64 61 74 61  |n%)...+!icondata|
00003540  25 3d 76 6b 69 6c 6c 68  61 6e 64 25 3a 69 63 6f  |%=vkillhand%:ico|
00003550  6e 64 61 74 61 25 21 34  3d 69 63 6f 6e 25 0d 12  |ndata%!4=icon%..|
00003560  ac 25 c8 99 22 58 57 69  6d 70 5f 47 65 74 49 63  |.%.."XWimp_GetIc|
00003570  6f 6e 53 74 61 74 65 22  2c 2c 69 63 6f 6e 64 61  |onState",,iconda|
00003580  74 61 25 0d 12 b6 27 3d  28 28 69 63 6f 6e 64 61  |ta%...'=((iconda|
00003590  74 61 25 21 32 34 20 80  20 28 31 3c 3c 32 31 29  |ta%!24 . (1<<21)|
000035a0  29 3d 28 31 3c 3c 32 31  29 29 0d 12 c0 04 0d 12  |)=(1<<21))......|
000035b0  ca 20 dd f2 70 75 74 64  61 74 61 28 69 63 6f 6e  |. ..putdata(icon|
000035c0  25 2c 6d 65 73 73 24 2c  70 61 74 68 25 29 0d 12  |%,mess$,path%)..|
000035d0  d4 2d f4 20 43 68 61 6e  67 65 20 69 63 6f 6e 20  |.-. Change icon |
000035e0  27 69 63 6f 6e 25 27 20  74 6f 20 74 68 65 20 73  |'icon%' to the s|
000035f0  74 72 69 6e 67 20 6d 65  73 73 24 0d 12 de 3b f4  |tring mess$...;.|
00003600  20 4e 6f 74 65 20 74 68  61 74 20 74 68 69 73 20  | Note that this |
00003610  61 73 73 75 6d 65 73 20  61 6e 20 69 6e 64 69 72  |assumes an indir|
00003620  65 63 74 65 64 20 69 63  6f 6e 20 6f 66 20 63 6f  |ected icon of co|
00003630  75 72 73 65 20 21 0d 12  e8 0f ea 20 6f 66 66 25  |urse !..... off%|
00003640  2c 6c 65 6e 25 0d 12 f2  2b 21 69 63 6f 6e 64 61  |,len%...+!iconda|
00003650  74 61 25 3d 76 6b 69 6c  6c 68 61 6e 64 25 3a 69  |ta%=vkillhand%:i|
00003660  63 6f 6e 64 61 74 61 25  21 34 3d 69 63 6f 6e 25  |condata%!4=icon%|
00003670  0d 12 fc 26 c8 99 20 22  58 57 69 6d 70 5f 47 65  |...&.. "XWimp_Ge|
00003680  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 69 63 6f  |tIconState",,ico|
00003690  6e 64 61 74 61 25 0d 13  06 16 e7 20 69 63 6f 6e  |ndata%..... icon|
000036a0  25 3d 61 70 70 69 63 6f  6e 25 20 8c 0d 13 10 0e  |%=appicon% .....|
000036b0  20 20 20 6f 66 66 25 3d  33 32 0d 13 1a 05 cc 0d  |   off%=32......|
000036c0  13 24 22 20 20 20 6f 66  66 25 3d 32 38 3a 6c 65  |.$"   off%=28:le|
000036d0  6e 25 3d 69 63 6f 6e 64  61 74 61 25 21 33 36 2d  |n%=icondata%!36-|
000036e0  31 0d 13 2e 10 20 20 20  e7 20 70 61 74 68 25 20  |1....   . path% |
000036f0  8c 0d 13 38 20 20 20 20  20 20 20 6d 65 73 73 24  |...8       mess$|
00003700  3d c1 6d 65 73 73 24 2c  70 72 65 66 6c 65 6e 25  |=.mess$,preflen%|
00003710  29 0d 13 42 34 20 20 20  20 20 20 e7 20 a9 28 6d  |)..B4      . .(m|
00003720  65 73 73 24 29 3e 6c 65  6e 25 3a 6d 65 73 73 24  |ess$)>len%:mess$|
00003730  3d 22 2e 2e 2e 22 2b c2  6d 65 73 73 24 2c 6c 65  |="..."+.mess$,le|
00003740  6e 25 2d 33 29 0d 13 4c  08 20 20 20 cc 0d 13 56  |n%-3)..L.   ...V|
00003750  1c 20 20 20 20 20 20 6d  65 73 73 24 3d c0 6d 65  |.      mess$=.me|
00003760  73 73 24 2c 6c 65 6e 25  29 0d 13 60 08 20 20 20  |ss$,len%)..`.   |
00003770  cd 0d 13 6a 05 cd 0d 13  74 1b 24 28 69 63 6f 6e  |...j....t.$(icon|
00003780  64 61 74 61 25 21 6f 66  66 25 29 3d 6d 65 73 73  |data%!off%)=mess|
00003790  24 0d 13 7e 20 69 63 6f  6e 64 61 74 61 25 21 38  |$..~ icondata%!8|
000037a0  3d 30 3a 69 63 6f 6e 64  61 74 61 25 21 31 32 3d  |=0:icondata%!12=|
000037b0  30 0d 13 88 41 c8 99 20  22 58 57 69 6d 70 5f 53  |0...A.. "XWimp_S|
000037c0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 69 63  |etIconState",,ic|
000037d0  6f 6e 64 61 74 61 25 3a  f4 20 50 68 69 6c 70 20  |ondata%:. Philp |
000037e0  43 6f 6c 6d 65 72 20 69  6d 70 72 6f 76 65 6d 65  |Colmer improveme|
000037f0  6e 74 0d 13 92 05 e1 0d  13 9c 04 0d 13 a6 0e dd  |nt..............|
00003800  f2 6d 61 6b 65 69 63 6f  6e 0d 13 b0 3f 50 25 3d  |.makeicon...?P%=|
00003810  69 63 6f 6e 25 3a f4 20  55 73 65 20 62 75 69 6c  |icon%:. Use buil|
00003820  74 20 69 6e 20 61 73 73  65 6d 62 6c 65 72 20 2d  |t in assembler -|
00003830  20 65 61 73 69 65 72 20  74 6f 20 73 65 65 20 73  | easier to see s|
00003840  74 72 75 63 74 75 72 65  0d 13 ba 0a 5b 4f 50 54  |tructure....[OPT|
00003850  20 30 0d 13 c4 45 20 20  20 20 20 20 20 20 20 20  | 0...E          |
00003860  20 20 20 20 20 20 45 51  55 44 20 20 20 20 69 63  |      EQUD    ic|
00003870  6f 6e 62 61 72 74 79 70  65 25 20 20 20 20 3b 20  |onbartype%    ; |
00003880  49 63 6f 6e 20 62 61 72  20 27 75 74 69 6c 69 74  |Icon bar 'utilit|
00003890  79 27 20 66 6c 61 67 0d  13 ce 3b 20 20 20 20 20  |y' flag...;     |
000038a0  20 20 20 20 20 20 20 20  20 20 20 45 51 55 44 20  |           EQUD |
000038b0  20 20 20 30 20 20 20 20  20 20 20 20 20 20 20 20  |   0            |
000038c0  20 20 20 3b 20 42 6f 74  74 6f 6d 20 6c 65 66 74  |   ; Bottom left|
000038d0  20 58 0d 13 d8 3b 20 20  20 20 20 20 20 20 20 20  | X...;          |
000038e0  20 20 20 20 20 20 45 51  55 44 20 20 20 20 30 20  |      EQUD    0 |
000038f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00003900  42 6f 74 74 6f 6d 20 6c  65 66 74 20 59 0d 13 e2  |Bottom left Y...|
00003910  39 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9               |
00003920  20 45 51 55 44 20 20 20  20 36 39 20 20 20 20 20  | EQUD    69     |
00003930  20 20 20 20 20 20 20 20  20 3b 20 54 6f 70 20 72  |         ; Top r|
00003940  69 67 68 74 20 58 0d 13  ec 39 20 20 20 20 20 20  |ight X...9      |
00003950  20 20 20 20 20 20 20 20  20 20 45 51 55 44 20 20  |          EQUD  |
00003960  20 20 36 38 20 20 20 20  20 20 20 20 20 20 20 20  |  68            |
00003970  20 20 3b 20 54 6f 70 20  72 69 67 68 74 20 59 0d  |  ; Top right Y.|
00003980  13 f6 3e 20 20 20 20 20  20 20 20 20 20 20 20 20  |..>             |
00003990  20 20 20 45 51 55 42 20  20 20 20 25 30 30 30 30  |   EQUB    %0000|
000039a0  30 30 31 30 20 20 20 20  20 20 20 3b 20 49 63 6f  |0010       ; Ico|
000039b0  6e 20 69 73 20 61 20 73  70 72 69 74 65 0d 14 00  |n is a sprite...|
000039c0  47 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |G               |
000039d0  20 45 51 55 42 20 20 20  20 25 30 30 31 31 30 30  | EQUB    %001100|
000039e0  30 31 20 20 20 20 20 20  20 3b 20 43 6c 69 63 6b  |01       ; Click|
000039f0  20 6e 6f 74 69 66 69 65  73 2f 49 6e 64 69 72 65  | notifies/Indire|
00003a00  63 74 65 64 0d 14 0a 48  20 20 20 20 20 20 20 20  |cted...H        |
00003a10  20 20 20 20 20 20 20 20  45 51 55 42 20 20 20 20  |        EQUB    |
00003a20  25 30 30 30 30 30 30 30  30 20 20 20 20 20 20 20  |%00000000       |
00003a30  3b 20 4e 6f 74 68 69 6e  67 20 73 70 65 63 69 61  |; Nothing specia|
00003a40  6c 20 61 62 6f 75 74 20  69 63 6f 6e 0d 14 14 46  |l about icon...F|
00003a50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003a60  45 51 55 42 20 20 20 20  25 30 30 30 30 30 30 30  |EQUB    %0000000|
00003a70  31 20 20 20 20 20 20 20  3b 20 46 6f 72 65 63 6f  |1       ; Foreco|
00003a80  6c 20 3d 20 31 2c 20 42  61 63 6b 63 6f 6c 20 3d  |l = 1, Backcol =|
00003a90  20 30 0d 14 1e 44 2e 70  6f 6b 65 73 70 6e 61 6d  | 0...D.pokespnam|
00003aa0  65 20 20 20 20 20 45 51  55 44 20 20 20 20 70 6f  |e     EQUD    po|
00003ab0  6b 65 73 70 6e 61 6d 65  2b 31 32 20 20 20 3b 20  |kespname+12   ; |
00003ac0  50 6f 69 6e 74 65 72 20  74 6f 20 73 70 72 69 74  |Pointer to sprit|
00003ad0  65 20 6e 61 6d 65 0d 14  28 45 20 20 20 20 20 20  |e name..(E      |
00003ae0  20 20 20 20 20 20 20 20  20 20 45 51 55 44 20 20  |          EQUD  |
00003af0  20 20 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |  1             |
00003b00  20 20 3b 20 50 6f 69 6e  74 65 72 20 74 6f 20 57  |  ; Pointer to W|
00003b10  49 4d 50 20 73 70 72 69  74 65 73 0d 14 32 43 20  |IMP sprites..2C |
00003b20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 45  |               E|
00003b30  51 55 44 20 20 20 20 31  32 20 20 20 20 20 20 20  |QUD    12       |
00003b40  20 20 20 20 20 20 20 3b  20 4c 65 6e 67 74 68 20  |       ; Length |
00003b50  6f 66 20 73 70 72 69 74  65 20 6e 61 6d 65 0d 14  |of sprite name..|
00003b60  3c 3c 2e 73 70 72 69 74  65 6e 61 6d 65 20 20 20  |<<.spritename   |
00003b70  20 20 45 51 55 53 20 20  20 20 22 21 76 6b 69 6c  |  EQUS    "!vkil|
00003b80  6c 65 72 22 2b c4 34 2c  62 6c 24 29 20 3b 20 53  |ler"+.4,bl$) ; S|
00003b90  70 72 69 74 65 20 6e 61  6d 65 0d 14 46 05 5d 0d  |prite name..F.].|
00003ba0  14 50 2c c8 99 20 22 58  57 69 6d 70 5f 43 72 65  |.P,.. "XWimp_Cre|
00003bb0  61 74 65 49 63 6f 6e 22  2c 2c 69 63 6f 6e 25 20  |ateIcon",,icon% |
00003bc0  b8 20 69 63 6f 6e 68 61  6e 64 25 0d 14 5a 05 e1  |. iconhand%..Z..|
00003bd0  0d 14 64 04 0d 14 6e 12  dd f2 67 65 74 74 65 6d  |..d...n...gettem|
00003be0  70 6c 61 74 65 73 0d 14  78 13 ea 20 66 6c 61 67  |plates..x.. flag|
00003bf0  73 25 2c 64 75 6d 6d 79  25 0d 14 82 3d c8 99 20  |s%,dummy%...=.. |
00003c00  22 58 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  |"XWimp_OpenTempl|
00003c10  61 74 65 22 2c 2c 76 6b  69 6c 6c 76 61 72 24 2b  |ate",,vkillvar$+|
00003c20  22 2e 54 65 6d 70 6c 61  74 65 73 22 20 b8 20 3b  |".Templates" . ;|
00003c30  66 6c 61 67 73 25 0d 14  8c 3c e7 20 66 6c 61 67  |flags%...<. flag|
00003c40  73 25 20 80 20 31 3a f2  66 61 74 61 6c 28 22 4d  |s% . 1:.fatal("M|
00003c50  69 73 73 69 6e 67 20 54  65 6d 70 6c 61 74 65 73  |issing Templates|
00003c60  20 66 69 6c 65 20 66 6f  72 20 22 2b 70 72 6f 67  | file for "+prog|
00003c70  24 29 0d 14 96 36 76 6b  69 6c 6c 68 61 6e 64 25  |$)...6vkillhand%|
00003c80  3d a4 6c 6f 61 64 74 65  6d 70 6c 61 74 65 28 76  |=.loadtemplate(v|
00003c90  6b 69 6c 6c 77 69 6e 64  25 2c 22 56 4b 69 6c 6c  |killwind%,"VKill|
00003ca0  57 69 6e 64 6f 77 22 29  0d 14 a0 29 69 6e 66 6f  |Window")...)info|
00003cb0  25 3d a4 6c 6f 61 64 74  65 6d 70 6c 61 74 65 28  |%=.loadtemplate(|
00003cc0  69 6e 66 6f 77 69 6e 64  25 2c 22 49 6e 66 6f 22  |infowind%,"Info"|
00003cd0  29 0d 14 aa 1c c8 99 20  22 58 57 69 6d 70 5f 43  |)...... "XWimp_C|
00003ce0  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 14 b4  |loseTemplate"...|
00003cf0  05 e1 0d 14 be 04 0d 14  c8 1f dd a4 6c 6f 61 64  |............load|
00003d00  74 65 6d 70 6c 61 74 65  28 61 64 64 72 25 2c 77  |template(addr%,w|
00003d10  69 6e 64 24 29 0d 14 d2  47 f4 20 4e 6f 74 65 20  |ind$)...G. Note |
00003d20  74 68 65 20 2b 34 20 6f  6e 20 74 68 65 20 61 64  |the +4 on the ad|
00003d30  64 72 65 73 73 20 2d 20  74 68 69 73 20 61 6c 6c  |dress - this all|
00003d40  6f 77 73 20 74 68 65 20  70 6f 6b 69 6e 67 20 6f  |ows the poking o|
00003d50  66 20 74 68 65 20 68 61  6e 64 6c 65 0d 14 dc 18  |f the handle....|
00003d60  ea 20 77 69 6e 64 68 61  6e 64 25 2c 77 69 6e 64  |. windhand%,wind|
00003d70  70 74 72 25 0d 14 e6 56  c8 99 20 22 58 57 69 6d  |ptr%...V.. "XWim|
00003d80  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00003d90  2c 61 64 64 72 25 2b 34  2c 61 64 64 72 25 2b 26  |,addr%+4,addr%+&|
00003da0  37 30 30 2c 61 64 64 72  25 2b 26 45 30 30 2c 2d  |700,addr%+&E00,-|
00003db0  31 2c 77 69 6e 64 24 2c  30 20 b8 20 2c 2c 2c 2c  |1,wind$,0 . ,,,,|
00003dc0  2c 2c 77 69 6e 64 70 74  72 25 0d 14 f0 53 e7 20  |,,windptr%...S. |
00003dd0  77 69 6e 64 70 74 72 25  3d 30 3a f2 66 61 74 61  |windptr%=0:.fata|
00003de0  6c 28 22 4d 69 73 73 69  6e 67 20 22 2b 77 69 6e  |l("Missing "+win|
00003df0  64 24 2b 22 20 77 69 6e  64 6f 77 20 66 72 6f 6d  |d$+" window from|
00003e00  20 22 2b 70 72 6f 67 24  2b 22 27 73 20 54 65 6d  | "+prog$+"'s Tem|
00003e10  70 6c 61 74 65 73 20 66  69 6c 65 22 29 0d 14 fa  |plates file")...|
00003e20  30 c8 99 20 22 58 57 69  6d 70 5f 43 72 65 61 74  |0.. "XWimp_Creat|
00003e30  65 57 69 6e 64 6f 77 22  2c 2c 61 64 64 72 25 2b  |eWindow",,addr%+|
00003e40  34 20 b8 20 77 69 6e 64  68 61 6e 64 25 0d 15 04  |4 . windhand%...|
00003e50  48 21 61 64 64 72 25 3d  77 69 6e 64 68 61 6e 64  |H!addr%=windhand|
00003e60  25 3a f4 20 53 74 6f 72  65 20 77 69 6e 64 6f 77  |%:. Store window|
00003e70  20 68 61 6e 64 6c 65 20  62 65 63 61 75 73 65 20  | handle because |
00003e80  6e 65 65 64 65 64 20 62  79 20 6c 61 74 65 72 20  |needed by later |
00003e90  63 61 6c 6c 73 0d 15 0e  0e 3d 77 69 6e 64 68 61  |calls....=windha|
00003ea0  6e 64 25 0d 15 18 04 0d  15 22 11 dd f2 73 79 73  |nd%......"...sys|
00003eb0  74 65 6d 65 72 72 6f 72  0d 15 2c 41 f4 20 57 68  |temerror..,A. Wh|
00003ec0  79 20 64 6f 20 49 20 6e  65 65 64 20 74 68 69 73  |y do I need this|
00003ed0  20 70 72 6f 63 20 3f 20  57 65 6c 6c 2c 20 74 68  | proc ? Well, th|
00003ee0  65 20 57 69 6d 70 20 64  6f 65 73 6e 27 74 20 72  |e Wimp doesn't r|
00003ef0  65 70 6f 72 74 20 74 68  65 0d 15 36 29 f4 20 6f  |eport the..6). o|
00003f00  66 66 65 6e 64 69 6e 67  20 6c 69 6e 65 20 6e 75  |ffending line nu|
00003f10  6d 62 65 72 20 6f 66 20  61 6e 20 65 72 72 6f 72  |mber of an error|
00003f20  20 21 0d 15 40 0a ea 20  65 72 72 24 0d 15 4a 27  | !..@.. err$..J'|
00003f30  e7 20 9f 3a 65 72 72 24  3d 22 20 61 74 20 6c 69  |. .:err$=" at li|
00003f40  6e 65 20 22 2b c3 28 9e  29 20 8b 20 65 72 72 24  |ne "+.(.) . err$|
00003f50  3d 22 22 0d 15 54 09 ee  20 85 20 87 0d 15 5e 13  |=""..T.. . ...^.|
00003f60  f2 66 61 74 61 6c 28 f6  24 2b 65 72 72 24 29 0d  |.fatal(.$+err$).|
00003f70  15 68 05 e1 0d 15 72 04  0d 15 7c 13 dd f2 66 61  |.h....r...|...fa|
00003f80  74 61 6c 28 65 72 72 6f  72 24 29 0d 15 86 16 ff  |tal(error$).....|
00003f90  22 45 72 72 6f 72 20 30  20 22 2b 65 72 72 6f 72  |"Error 0 "+error|
00003fa0  24 0d 15 90 05 e1 0d 15  9a 04 0d 15 a4 17 dd a4  |$...............|
00003fb0  67 65 74 66 73 6e 61 6d  65 28 66 73 6e 75 6d 25  |getfsname(fsnum%|
00003fc0  29 0d 15 ae 14 ea 20 66  73 6e 61 6d 65 25 2c 66  |)..... fsname%,f|
00003fd0  6e 61 6d 65 24 0d 15 b8  36 c8 99 20 22 58 4f 53  |name$...6.. "XOS|
00003fe0  5f 46 53 43 6f 6e 74 72  6f 6c 22 2c 33 33 2c 66  |_FSControl",33,f|
00003ff0  73 6e 75 6d 25 2c 66 62  75 66 66 25 2c 31 32 20  |snum%,fbuff%,12 |
00004000  b8 20 2c 2c 66 73 6e 61  6d 65 25 0d 15 c2 10 e7  |. ,,fsname%.....|
00004010  20 3f 66 73 6e 61 6d 65  25 20 8c 0d 15 cc 21 20  | ?fsname% ....! |
00004020  20 20 66 6e 61 6d 65 24  3d a4 67 65 74 73 74 72  |  fname$=.getstr|
00004030  69 6e 67 28 66 73 6e 61  6d 65 25 29 0d 15 d6 12  |ing(fsname%)....|
00004040  20 20 20 c8 8e 20 66 6e  61 6d 65 24 20 ca 0d 15  |   .. fname$ ...|
00004050  e0 7e 20 20 20 c9 20 22  6e 75 6c 6c 22 2c 22 70  |.~   . "null","p|
00004060  72 69 6e 74 65 72 22 2c  22 73 65 72 69 61 6c 22  |rinter","serial"|
00004070  2c 22 76 64 75 22 2c 22  72 61 77 76 64 75 22 2c  |,"vdu","rawvdu",|
00004080  22 6b 62 64 22 2c 22 72  61 77 6b 62 64 22 2c 22  |"kbd","rawkbd","|
00004090  64 65 73 6b 66 73 22 2c  22 6d 73 64 6f 73 22 2c  |deskfs","msdos",|
000040a0  22 6e 65 74 70 72 69 6e  74 22 2c 22 70 69 70 65  |"netprint","pipe|
000040b0  22 3a 66 6e 61 6d 65 24  3d 22 22 3a f4 20 4e 6f  |":fname$="":. No|
000040c0  74 20 69 6e 66 65 63 74  61 62 6c 65 0d 15 ea 08  |t infectable....|
000040d0  20 20 20 cb 0d 15 f4 05  cc 0d 15 fe 10 20 20 20  |   ..........   |
000040e0  66 6e 61 6d 65 24 3d 22  22 0d 16 08 05 cd 0d 16  |fname$="".......|
000040f0  12 0b 3d 66 6e 61 6d 65  24 0d 16 1c 04 0d 16 26  |..=fname$......&|
00004100  17 dd a4 46 53 70 72 65  66 69 78 28 70 72 65 66  |...FSprefix(pref|
00004110  69 78 24 29 0d 16 30 25  3d a4 63 68 65 63 6b 73  |ix$)..0%=.checks|
00004120  77 69 28 22 58 22 2b 70  72 65 66 69 78 24 2b 22  |wi("X"+prefix$+"|
00004130  5f 44 72 69 76 65 73 22  29 0d 16 3a 04 0d 16 44  |_Drives")..:...D|
00004140  14 dd a4 63 68 65 63 6b  73 77 69 28 73 77 69 24  |...checkswi(swi$|
00004150  29 0d 16 4e 11 ea 20 73  77 69 25 2c 66 6c 61 67  |)..N.. swi%,flag|
00004160  73 25 0d 16 58 34 c8 99  20 22 58 4f 53 5f 53 57  |s%..X4.. "XOS_SW|
00004170  49 4e 75 6d 62 65 72 46  72 6f 6d 53 74 72 69 6e  |INumberFromStrin|
00004180  67 22 2c 2c 73 77 69 24  20 b8 20 73 77 69 25 3b  |g",,swi$ . swi%;|
00004190  66 6c 61 67 73 25 0d 16  62 15 3d 28 28 66 6c 61  |flags%..b.=((fla|
000041a0  67 73 25 20 80 20 31 29  3d 30 29 0d 16 6c 04 0d  |gs% . 1)=0)..l..|
000041b0  16 76 22 dd f2 68 61 63  6b 66 6c 61 67 73 28 69  |.v"..hackflags(i|
000041c0  63 6f 6e 25 2c 65 6f 72  25 2c 63 6c 65 61 72 25  |con%,eor%,clear%|
000041d0  29 0d 16 80 19 21 69 63  6f 6e 64 61 74 61 25 3d  |)....!icondata%=|
000041e0  76 6b 69 6c 6c 68 61 6e  64 25 0d 16 8a 15 69 63  |vkillhand%....ic|
000041f0  6f 6e 64 61 74 61 25 21  34 3d 69 63 6f 6e 25 0d  |ondata%!4=icon%.|
00004200  16 94 14 69 63 6f 6e 64  61 74 61 25 21 38 3d 65  |...icondata%!8=e|
00004210  6f 72 25 0d 16 9e 17 69  63 6f 6e 64 61 74 61 25  |or%....icondata%|
00004220  21 31 32 3d 63 6c 65 61  72 25 0d 16 a8 26 c8 99  |!12=clear%...&..|
00004230  20 22 58 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  | "XWimp_SetIconS|
00004240  74 61 74 65 22 2c 2c 69  63 6f 6e 64 61 74 61 25  |tate",,icondata%|
00004250  0d 16 b2 05 e1 0d 16 bc  04 0d 16 c6 19 dd f2 68  |...............h|
00004260  69 6c 69 74 65 28 69 63  6f 6e 25 2c 62 6f 6f 6c  |ilite(icon%,bool|
00004270  25 29 0d 16 d0 2e f2 68  61 63 6b 66 6c 61 67 73  |%).....hackflags|
00004280  28 69 63 6f 6e 25 2c 28  28 2d 62 6f 6f 6c 25 29  |(icon%,((-bool%)|
00004290  3c 3c 32 31 29 2c 26 30  30 32 30 30 30 30 30 29  |<<21),&00200000)|
000042a0  0d 16 da 05 e1 0d 16 e4  04 0d 16 ee 0e dd f2 69  |...............i|
000042b0  6e 69 74 5f 6c 6f 67 0d  16 f8 15 ea 20 66 25 2c  |nit_log..... f%,|
000042c0  66 6c 61 67 73 25 2c 70  25 2c 66 24 0d 17 02 12  |flags%,p%,f$....|
000042d0  e7 20 6c 6f 67 67 69 6e  67 25 3d a3 3a e1 0d 17  |. logging%=.:...|
000042e0  0c 1e 66 24 3d 22 58 52  61 6d 46 53 5f 46 72 65  |..f$="XRamFS_Fre|
000042f0  65 53 70 61 63 65 22 3a  66 25 3d 30 0d 17 16 3d  |eSpace":f%=0...=|
00004300  e7 20 a4 63 68 65 63 6b  73 77 69 28 66 24 29 3a  |. .checkswi(f$):|
00004310  c8 99 20 66 24 2c 22 3a  30 22 20 b8 20 2c 66 25  |.. f$,":0" . ,f%|
00004320  3b 66 6c 61 67 73 25 3a  e7 20 66 6c 61 67 73 25  |;flags%:. flags%|
00004330  20 80 20 31 3a 66 25 3d  30 0d 17 20 49 e7 20 66  | . 1:f%=0.. I. f|
00004340  25 3c 33 32 37 36 38 3a  6c 6f 67 6e 61 6d 65 24  |%<32768:logname$|
00004350  3d 22 3c 56 4b 69 6c 6c  65 72 24 44 69 72 3e 2e  |="<VKiller$Dir>.|
00004360  4c 6f 67 22 20 8b 20 6c  6f 67 6e 61 6d 65 24 3d  |Log" . logname$=|
00004370  22 52 41 4d 3a 24 2e 56  4b 69 6c 6c 65 72 4c 6f  |"RAM:$.VKillerLo|
00004380  67 22 0d 17 2a 29 c8 99  22 58 4f 53 5f 46 69 6c  |g"..*).."XOS_Fil|
00004390  65 22 2c 31 31 2c 6c 6f  67 6e 61 6d 65 24 2c 26  |e",11,logname$,&|
000043a0  46 46 46 20 b8 20 70 25  3b 66 25 0d 17 34 1a e7  |FFF . p%;f%..4..|
000043b0  20 66 25 20 80 20 31 3a  f2 73 74 6f 70 5f 6c 6f  | f% . 1:.stop_lo|
000043c0  67 28 70 25 29 0d 17 3e  05 e1 0d 17 48 04 0d 17  |g(p%)..>....H...|
000043d0  52 13 dd f2 73 74 6f 70  5f 6c 6f 67 28 65 62 25  |R...stop_log(eb%|
000043e0  29 0d 17 5c 3a f2 77 61  72 6e 28 22 4c 6f 67 67  |)..\:.warn("Logg|
000043f0  69 6e 67 20 6f 66 20 61  63 74 69 76 69 74 69 65  |ing of activitie|
00004400  73 20 64 69 73 61 62 6c  65 64 3a 20 22 2b a4 72  |s disabled: "+.r|
00004410  74 6f 7a 28 65 62 25 2b  34 29 29 0d 17 66 0e 6c  |toz(eb%+4))..f.l|
00004420  6f 67 67 69 6e 67 25 3d  a3 0d 17 70 05 e1 0d 17  |ogging%=...p....|
00004430  7a 04 0d 17 84 0d dd f2  6c 6f 67 28 73 24 29 0d  |z.......log(s$).|
00004440  17 8e 0b ea 20 63 25 2c  66 25 0d 17 98 12 e7 20  |.... c%,f%..... |
00004450  6c 6f 67 67 69 6e 67 25  3d a3 20 e1 0d 17 a2 25  |logging%=. ....%|
00004460  c8 99 22 58 4f 53 5f 46  69 6e 64 22 2c 26 43 30  |.."XOS_Find",&C0|
00004470  2c 6c 6f 67 6e 61 6d 65  24 20 b8 20 63 25 3b 66  |,logname$ . c%;f|
00004480  25 0d 17 ac 1c e7 20 66  25 20 80 20 31 3a f2 73  |%..... f% . 1:.s|
00004490  74 6f 70 5f 6c 6f 67 28  63 25 29 3a e1 0d 17 b6  |top_log(c%):....|
000044a0  0c e7 63 25 3c 3e 30 20  8c 0d 17 c0 0e 20 cf 23  |..c%<>0 ..... .#|
000044b0  63 25 3d a2 23 63 25 0d  17 ca 0c 20 d5 23 63 25  |c%=.#c%.... .#c%|
000044c0  2c 73 24 0d 17 d4 09 20  d9 23 63 25 0d 17 de 05  |,s$.... .#c%....|
000044d0  cd 0d 17 e8 05 e1 0d 17  f2 04 0d 17 fc 23 dd f2  |.............#..|
000044e0  69 6e 66 65 63 74 5f 6c  6f 67 28 70 61 74 68 24  |infect_log(path$|
000044f0  2c 6d 65 73 73 24 2c 73  75 66 66 24 29 0d 18 06  |,mess$,suff$)...|
00004500  16 73 74 69 6c 6c 25 3d  b9 3a 69 6e 66 65 63 74  |.still%=.:infect|
00004510  25 3d b9 0d 18 10 22 f2  73 74 61 74 75 73 5f 6c  |%=....".status_l|
00004520  6f 67 28 70 61 74 68 24  2c 6d 65 73 73 24 2c 73  |og(path$,mess$,s|
00004530  75 66 66 24 29 0d 18 1a  05 e1 0d 18 24 04 0d 18  |uff$).......$...|
00004540  2e 23 dd f2 73 74 61 74  75 73 5f 6c 6f 67 28 70  |.#..status_log(p|
00004550  61 74 68 24 2c 6d 65 73  73 24 2c 73 75 66 66 24  |ath$,mess$,suff$|
00004560  29 0d 18 38 24 e7 20 73  75 66 66 24 3c 3e 22 22  |)..8$. suff$<>""|
00004570  3a 73 75 66 66 24 3d 22  20 28 22 2b 73 75 66 66  |:suff$=" ("+suff|
00004580  24 2b 22 29 22 0d 18 42  10 e7 20 70 61 74 68 24  |$+")"..B.. path$|
00004590  3d 22 22 20 8c 0d 18 4c  18 20 20 20 f2 6c 6f 67  |="" ...L.   .log|
000045a0  28 6d 65 73 73 24 2b 73  75 66 66 24 29 0d 18 56  |(mess$+suff$)..V|
000045b0  1b 20 20 20 f2 73 74 61  74 75 73 69 6e 66 6f 72  |.   .statusinfor|
000045c0  6d 28 6d 65 73 73 24 29  0d 18 60 05 cc 0d 18 6a  |m(mess$)..`....j|
000045d0  22 20 20 20 f2 6c 6f 67  28 70 61 74 68 24 2b 22  |"   .log(path$+"|
000045e0  2e 22 2b 6d 65 73 73 24  2b 73 75 66 66 24 29 0d  |."+mess$+suff$).|
000045f0  18 74 2f 20 20 20 f2 73  74 61 74 75 73 69 6e 66  |.t/   .statusinf|
00004600  6f 72 6d 28 a4 61 70 70  6e 61 6d 65 28 70 61 74  |orm(.appname(pat|
00004610  68 24 29 2b 22 2e 22 2b  6d 65 73 73 24 29 0d 18  |h$)+"."+mess$)..|
00004620  7e 05 cd 0d 18 88 05 e1  0d 18 92 04 0d 18 9c 14  |~...............|
00004630  dd a4 61 70 70 6e 61 6d  65 28 70 61 74 68 24 29  |..appname(path$)|
00004640  0d 18 a6 14 ea 20 6c 25  3a 6c 25 3d a9 28 70 61  |..... l%:l%=.(pa|
00004650  74 68 24 29 0d 18 b0 27  c8 95 20 6c 25 3e 30 20  |th$)...'.. l%>0 |
00004660  80 20 c1 70 61 74 68 24  2c 6c 25 2c 31 29 3c 3e  |. .path$,l%,1)<>|
00004670  22 2e 22 3a 6c 25 2d 3d  31 3a ce 0d 18 ba 11 3d  |".":l%-=1:.....=|
00004680  c1 70 61 74 68 24 2c 6c  25 2b 31 29 0d 18 c4 04  |.path$,l%+1)....|
00004690  0d 18 ce 0f dd f2 66 69  6c 65 63 6f 75 6e 74 0d  |......filecount.|
000046a0  18 d8 26 f2 70 75 74 64  61 74 61 28 66 69 6c 65  |..&.putdata(file|
000046b0  69 63 6f 6e 25 2c c3 28  6e 75 6d 66 69 6c 65 73  |icon%,.(numfiles|
000046c0  25 29 2c a3 29 0d 18 e2  05 e1 0d 18 ec 04 0d 18  |%),.)...........|
000046d0  f6 0e dd f2 64 69 72 63  6f 75 6e 74 0d 19 00 24  |....dircount...$|
000046e0  f2 70 75 74 64 61 74 61  28 64 69 72 69 63 6f 6e  |.putdata(diricon|
000046f0  25 2c c3 28 6e 75 6d 64  69 72 73 25 29 2c a3 29  |%,.(numdirs%),.)|
00004700  0d 19 0a 05 e1 0d 19 14  04 0d 19 1e 10 dd f2 66  |...............f|
00004710  69 6e 69 73 68 73 63 61  6e 0d 19 28 1f f2 70 75  |inishscan..(..pu|
00004720  74 64 61 74 61 28 31 39  2c 22 53 74 61 72 74 20  |tdata(19,"Start |
00004730  73 63 61 6e 22 2c a3 29  0d 19 32 1f f2 70 75 74  |scan",.)..2..put|
00004740  64 61 74 61 28 64 69 72  73 63 61 6e 25 2c 22 49  |data(dirscan%,"I|
00004750  64 6c 65 22 2c a3 29 0d  19 3c 20 f2 70 75 74 64  |dle",.)..< .putd|
00004760  61 74 61 28 69 63 6f 6e  6e 61 6d 65 25 2c 22 49  |ata(iconname%,"I|
00004770  64 6c 65 22 2c a3 29 0d  19 46 1b f2 70 6c 6f 74  |dle",.)..F..plot|
00004780  61 70 70 69 63 6f 6e 28  22 21 22 2b 70 72 6f 67  |appicon("!"+prog|
00004790  24 29 0d 19 50 0f 73 63  61 6e 6e 69 6e 67 25 3d  |$)..P.scanning%=|
000047a0  a3 0d 19 5a 05 e1 0d 19  64 04 0d 19 6e 0f dd f2  |...Z....d...n...|
000047b0  73 74 61 72 74 73 63 61  6e 0d 19 78 0d ea 20 70  |startscan..x.. p|
000047c0  72 65 66 69 78 24 0d 19  82 1d 69 6e 6e 6f 63 25  |refix$....innoc%|
000047d0  3d a4 69 63 6f 6e 5f 73  65 6c 65 63 74 65 64 28  |=.icon_selected(|
000047e0  32 30 29 0d 19 8c 1f 6c  6f 67 67 69 6e 67 25 3d  |20)....logging%=|
000047f0  a4 69 63 6f 6e 5f 73 65  6c 65 63 74 65 64 28 32  |.icon_selected(2|
00004800  31 29 0d 19 96 1e f2 70  75 74 64 61 74 61 28 31  |1).....putdata(1|
00004810  39 2c 22 53 74 6f 70 20  73 63 61 6e 22 2c a3 29  |9,"Stop scan",.)|
00004820  0d 19 a0 2d 73 63 61 6e  6e 69 6e 67 25 3d b9 3a  |...-scanning%=.:|
00004830  69 6e 66 65 63 74 25 3d  a3 3a 73 74 69 6c 6c 25  |infect%=.:still%|
00004840  3d a3 3a 62 61 64 73 63  61 6e 25 3d a3 0d 19 aa  |=.:badscan%=....|
00004850  2f 6e 75 6d 64 69 72 73  25 3d 30 3a 6e 75 6d 66  |/numdirs%=0:numf|
00004860  69 6c 65 73 25 3d 30 3a  f2 66 69 6c 65 63 6f 75  |iles%=0:.filecou|
00004870  6e 74 3a f2 64 69 72 63  6f 75 6e 74 0d 19 b4 2b  |nt:.dircount...+|
00004880  70 72 65 66 69 78 24 3d  a4 62 75 69 6c 64 5f 70  |prefix$=.build_p|
00004890  61 74 68 3a 70 72 65 66  6c 65 6e 25 3d a9 28 70  |ath:preflen%=.(p|
000048a0  72 65 66 69 78 24 29 0d  19 be 10 e7 20 70 72 65  |refix$)..... pre|
000048b0  66 6c 65 6e 25 20 8c 0d  19 c8 0e 20 f2 69 6e 69  |flen% ..... .ini|
000048c0  74 5f 6c 6f 67 0d 19 d2  2f 20 f2 6c 6f 67 28 22  |t_log.../ .log("|
000048d0  53 63 61 6e 20 6f 66 20  22 2b 70 72 65 66 69 78  |Scan of "+prefix|
000048e0  24 2b 22 20 73 74 61 72  74 65 64 20 6f 6e 20 22  |$+" started on "|
000048f0  2b 91 24 29 0d 19 dc 22  20 f2 73 74 61 74 75 73  |+.$)..." .status|
00004900  69 6e 66 6f 72 6d 28 22  53 63 61 6e 20 73 74 61  |inform("Scan sta|
00004910  72 74 65 64 22 29 0d 19  e6 17 20 f2 63 68 65 63  |rted").... .chec|
00004920  6b 28 70 72 65 66 69 78  24 2c 22 22 29 0d 19 f0  |k(prefix$,"")...|
00004930  12 20 f2 68 69 6c 69 74  65 28 32 33 2c a3 29 0d  |. .hilite(23,.).|
00004940  19 fa 12 20 e7 20 73 63  61 6e 6e 69 6e 67 25 20  |... . scanning% |
00004950  8c 0d 1a 04 33 20 20 20  20 f2 6c 6f 67 28 22 53  |....3    .log("S|
00004960  63 61 6e 20 6f 66 20 22  2b 70 72 65 66 69 78 24  |can of "+prefix$|
00004970  2b 22 20 66 69 6e 69 73  68 65 64 20 6f 6e 20 22  |+" finished on "|
00004980  2b 91 24 29 0d 1a 0e 30  20 20 20 20 6e 75 6d 73  |+.$)...0    nums|
00004990  63 61 6e 73 25 2b 3d 31  3a f2 70 75 74 64 61 74  |cans%+=1:.putdat|
000049a0  61 28 31 37 2c c3 28 6e  75 6d 73 63 61 6e 73 25  |a(17,.(numscans%|
000049b0  29 2c a3 29 0d 1a 18 13  20 20 20 20 e7 20 69 6e  |),.)....    . in|
000049c0  66 65 63 74 25 20 8c 0d  1a 22 15 20 20 20 20 20  |fect% ...".     |
000049d0  20 20 e7 20 73 74 69 6c  6c 25 20 8c 0d 1a 2c 41  |  . still% ...,A|
000049e0  20 20 20 20 20 20 20 20  20 20 f2 73 74 61 74 75  |          .statu|
000049f0  73 5f 6c 6f 67 28 22 22  2c 22 44 65 76 69 63 65  |s_log("","Device|
00004a00  20 6d 61 79 20 73 74 69  6c 6c 20 62 65 20 69 6e  | may still be in|
00004a10  66 65 63 74 65 64 20 21  22 2c 22 22 29 0d 1a 36  |fected !","")..6|
00004a20  0c 20 20 20 20 20 20 20  cc 0d 1a 40 45 20 20 20  |.       ...@E   |
00004a30  20 20 20 20 20 20 20 f2  73 74 61 74 75 73 5f 6c  |       .status_l|
00004a40  6f 67 28 22 22 2c 22 44  65 76 69 63 65 20 77 61  |og("","Device wa|
00004a50  73 20 69 6e 66 65 63 74  65 64 2c 20 62 75 74 20  |s infected, but |
00004a60  6e 6f 77 20 63 6c 65 61  6e 22 2c 22 22 29 0d 1a  |now clean","")..|
00004a70  4a 0c 20 20 20 20 20 20  20 cd 0d 1a 54 09 20 20  |J.       ...T.  |
00004a80  20 20 cc 0d 1a 5e 3f 20  20 20 20 20 20 20 f2 73  |  ...^?       .s|
00004a90  74 61 74 75 73 5f 6c 6f  67 28 22 22 2c 22 44 65  |tatus_log("","De|
00004aa0  76 69 63 65 20 69 73 20  63 6c 65 61 6e 20 2d 20  |vice is clean - |
00004ab0  6e 6f 20 69 6e 66 65 63  74 69 6f 6e 73 22 2c 22  |no infections","|
00004ac0  22 29 0d 1a 68 09 20 20  20 20 cd 0d 1a 72 06 20  |")..h.    ...r. |
00004ad0  cc 0d 1a 7c 16 20 20 20  20 e7 20 62 61 64 73 63  |...|.    . badsc|
00004ae0  61 6e 25 3d a3 20 8c 0d  1a 86 35 20 20 20 20 20  |an%=. ....5     |
00004af0  20 20 f2 73 74 61 74 75  73 5f 6c 6f 67 28 22 22  |  .status_log(""|
00004b00  2c 22 53 63 61 6e 20 6d  61 6e 75 61 6c 6c 79 20  |,"Scan manually |
00004b10  61 62 6f 72 74 65 64 22  2c 22 22 29 0d 1a 90 09  |aborted","")....|
00004b20  20 20 20 20 cd 0d 1a 9a  06 20 cd 0d 1a a4 10 20  |    ..... ..... |
00004b30  f2 6f 70 65 6e 77 69 6e  64 6f 77 0d 1a ae 30 20  |.openwindow...0 |
00004b40  f4 20 6e 6f 77 20 61 73  6b 20 61 6e 20 65 64 69  |. now ask an edi|
00004b50  74 6f 72 20 74 6f 20 70  69 63 6b 20 75 70 20 74  |tor to pick up t|
00004b60  68 65 20 6c 6f 67 20 66  69 6c 65 0d 1a b8 10 20  |he log file.... |
00004b70  e7 6c 6f 67 67 69 6e 67  25 20 8c 0d 1a c2 1e 20  |.logging% ..... |
00004b80  20 21 70 6f 6c 6c 25 3d  28 34 38 2b a9 6c 6f 67  | !poll%=(48+.log|
00004b90  6e 61 6d 65 24 29 80 ac  33 0d 1a cc 10 20 20 70  |name$)..3....  p|
00004ba0  6f 6c 6c 25 21 31 32 3d  30 0d 1a d6 10 20 20 70  |oll%!12=0....  p|
00004bb0  6f 6c 6c 25 21 31 36 3d  35 0d 1a e0 11 20 20 70  |oll%!16=5....  p|
00004bc0  6f 6c 6c 25 21 33 36 3d  2d 32 0d 1a ea 13 20 20  |oll%!36=-2....  |
00004bd0  70 6f 6c 6c 25 21 34 30  3d 26 46 46 46 0d 1a f4  |poll%!40=&FFF...|
00004be0  1d 20 20 24 28 70 6f 6c  6c 25 2b 34 34 29 3d 6c  |.  $(poll%+44)=l|
00004bf0  6f 67 6e 61 6d 65 24 2b  bd 30 0d 1a fe 26 20 20  |ogname$+.0...&  |
00004c00  c8 99 22 58 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.."XWimp_SendMes|
00004c10  73 61 67 65 22 2c 31 38  2c 70 6f 6c 6c 25 2c 30  |sage",18,poll%,0|
00004c20  0d 1b 08 2d 20 20 f4 20  61 6e 64 20 67 69 76 65  |...-  . and give|
00004c30  20 74 68 65 20 65 64 69  74 6f 72 20 61 20 63 68  | the editor a ch|
00004c40  61 6e 63 65 20 74 6f 20  64 6f 20 73 6f 0d 1b 12  |ance to do so...|
00004c50  13 20 20 f2 77 69 6d 70  5f 70 6f 6c 6c 28 a3 29  |.  .wimp_poll(.)|
00004c60  0d 1b 1c 06 20 cd 0d 1b  26 05 cd 0d 1b 30 0f f2  |.... ...&....0..|
00004c70  66 69 6e 69 73 68 73 63  61 6e 0d 1b 3a 05 e1 0d  |finishscan..:...|
00004c80  1b 44 04 0d 1b 4e 1c dd  a4 6d 61 6b 65 73 74 72  |.D...N...makestr|
00004c90  69 6e 67 28 61 64 64 72  25 2c 6c 65 6e 25 29 0d  |ing(addr%,len%).|
00004ca0  1b 58 14 ea 20 6c 6f 6f  70 25 2c 73 24 3a 73 24  |.X.. loop%,s$:s$|
00004cb0  3d 22 22 0d 1b 62 31 e3  20 6c 6f 6f 70 25 3d 30  |=""..b1. loop%=0|
00004cc0  20 b8 20 6c 65 6e 25 2d  31 3a 73 24 3d 73 24 2b  | . len%-1:s$=s$+|
00004cd0  bd 28 6c 6f 6f 70 25 3f  61 64 64 72 25 29 3a ed  |.(loop%?addr%):.|
00004ce0  3a 3d 73 24 0d 1b 6c 04  0d 1b 76 14 dd f2 62 75  |:=s$..l...v...bu|
00004cf0  69 6c 64 5f 66 73 5f 6e  61 6d 65 73 0d 1b 80 41  |ild_fs_names...A|
00004d00  f4 20 74 68 69 73 20 70  72 6f 63 65 64 75 72 65  |. this procedure|
00004d10  20 73 63 61 6e 73 20 66  6f 72 20 61 6c 6c 20 6f  | scans for all o|
00004d20  66 20 74 68 65 20 70 6f  73 73 69 62 6c 65 20 66  |f the possible f|
00004d30  69 6c 69 6e 67 20 73 79  73 74 65 6d 73 0d 1b 8a  |iling systems...|
00004d40  38 f4 20 61 6e 64 20 62  75 69 6c 64 73 20 61 20  |8. and builds a |
00004d50  6d 65 6e 75 20 73 74 72  75 63 74 75 72 65 20 73  |menu structure s|
00004d60  74 72 69 6e 67 20 66 72  6f 6d 20 74 68 65 20 72  |tring from the r|
00004d70  65 73 75 6c 74 0d 1b 94  08 ea 20 69 25 0d 1b 9e  |esult..... i%...|
00004d80  1c 66 73 5f 6e 61 6d 65  73 24 3d 22 23 46 69 6c  |.fs_names$="#Fil|
00004d90  69 6e 67 20 53 79 73 2c  22 0d 1b a8 12 e3 69 25  |ing Sys,".....i%|
00004da0  3d 31 20 b8 20 6d 61 78  66 73 25 0d 1b b2 25 20  |=1 . maxfs%...% |
00004db0  f4 20 61 64 64 20 74 68  69 73 20 46 53 20 6e 61  |. add this FS na|
00004dc0  6d 65 20 74 6f 20 74 68  65 20 73 74 72 69 6e 67  |me to the string|
00004dd0  0d 1b bc 22 20 66 73 5f  6e 61 6d 65 73 24 2b 3d  |..." fs_names$+=|
00004de0  a4 67 65 74 66 73 6e 61  6d 65 28 69 25 29 2b 22  |.getfsname(i%)+"|
00004df0  2c 22 0d 1b c6 3a 20 f4  20 69 66 20 74 68 65 72  |,"...: . if ther|
00004e00  65 20 77 61 73 6e 27 74  20 61 20 6e 61 6d 65 20  |e wasn't a name |
00004e10  74 68 65 72 65 2c 20 72  65 6d 6f 76 65 20 74 68  |there, remove th|
00004e20  65 20 6c 61 73 74 20 63  6f 6d 6d 61 0d 1b d0 2e  |e last comma....|
00004e30  20 e7 c2 66 73 5f 6e 61  6d 65 73 24 2c 32 29 3d  | ..fs_names$,2)=|
00004e40  22 2c 2c 22 20 66 73 5f  6e 61 6d 65 73 24 3d c0  |",," fs_names$=.|
00004e50  66 73 5f 6e 61 6d 65 73  24 29 0d 1b da 05 ed 0d  |fs_names$)......|
00004e60  1b e4 22 f4 20 61 6c 77  61 79 73 20 72 65 6d 6f  |..". always remo|
00004e70  76 65 20 74 68 65 20 6c  61 73 74 20 63 6f 6d 6d  |ve the last comm|
00004e80  61 0d 1b ee 19 66 73 5f  6e 61 6d 65 73 24 3d c0  |a....fs_names$=.|
00004e90  66 73 5f 6e 61 6d 65 73  24 29 0d 1b f8 05 e1 0d  |fs_names$)......|
00004ea0  1c 02 04 0d 1c 0c 13 dd  f2 63 68 6f 6f 73 65 5f  |.........choose_|
00004eb0  66 73 28 73 25 29 0d 1c  16 0e ea 20 69 25 2c 6a  |fs(s%)..... i%,j|
00004ec0  25 2c 73 24 0d 1c 20 33  f4 20 67 65 74 20 74 68  |%,s$.. 3. get th|
00004ed0  65 20 73 25 20 65 6e 74  72 79 20 66 72 6f 6d 20  |e s% entry from |
00004ee0  66 73 5f 6e 61 6d 65 73  24 20 61 6e 64 20 73 61  |fs_names$ and sa|
00004ef0  76 65 20 74 68 61 74 0d  1c 2a 10 73 24 3d 66 73  |ve that..*.s$=fs|
00004f00  5f 6e 61 6d 65 73 24 0d  1c 34 0e e3 69 25 3d 30  |_names$..4..i%=0|
00004f10  20 b8 20 73 25 0d 1c 3e  10 20 6a 25 3d a7 73 24  | . s%..>. j%=.s$|
00004f20  2c 22 2c 22 29 0d 1c 48  0c 20 e7 6a 25 3d 30 20  |,",")..H. .j%=0 |
00004f30  8c 0d 1c 52 39 20 20 f2  77 61 72 6e 28 22 43 61  |...R9  .warn("Ca|
00004f40  6e 6e 6f 74 20 66 69 6e  64 20 46 53 20 22 2b c3  |nnot find FS "+.|
00004f50  28 73 25 29 2b 22 20 2d  20 61 62 6f 72 74 69 6e  |(s%)+" - abortin|
00004f60  67 20 22 2b 70 72 6f 67  24 29 0d 1c 5c 0d 20 20  |g "+prog$)..\.  |
00004f70  71 75 69 74 25 3d b9 0d  1c 66 11 20 20 73 63 61  |quit%=...f.  sca|
00004f80  6e 6e 69 6e 67 25 3d a3  0d 1c 70 07 20 20 e1 0d  |nning%=...p.  ..|
00004f90  1c 7a 06 20 cd 0d 1c 84  11 20 73 24 3d c1 73 24  |.z. ..... s$=.s$|
00004fa0  2c 6a 25 2b 31 29 0d 1c  8e 05 ed 0d 1c 98 20 69  |,j%+1)........ i|
00004fb0  25 3d a7 73 24 2c 22 2c  22 29 3a e7 69 25 3d 30  |%=.s$,","):.i%=0|
00004fc0  20 69 25 3d a9 28 73 24  29 2b 31 0d 1c a2 13 66  | i%=.(s$)+1....f|
00004fd0  73 79 73 24 3d c0 73 24  2c 69 25 2d 31 29 0d 1c  |sys$=.s$,i%-1)..|
00004fe0  ac 22 f4 20 67 65 74 20  74 68 65 20 66 69 6c 69  |.". get the fili|
00004ff0  6e 67 20 73 79 73 74 65  6d 20 6e 75 6d 62 65 72  |ng system number|
00005000  0d 1c b6 31 c8 99 22 58  4f 53 5f 46 53 43 6f 6e  |...1.."XOS_FSCon|
00005010  74 72 6f 6c 22 2c 31 33  2c 66 73 79 73 24 2b bd  |trol",13,fsys$+.|
00005020  28 30 29 2c 30 20 b8 20  2c 66 73 79 73 6e 75 6d  |(0),0 . ,fsysnum|
00005030  25 0d 1c c0 17 f2 70 75  74 64 61 74 61 28 37 2c  |%.....putdata(7,|
00005040  66 73 79 73 24 2c a3 29  0d 1c ca 22 f4 20 6e 6f  |fsys$,.)...". no|
00005050  77 20 72 65 62 75 69 6c  64 20 74 68 65 20 64 65  |w rebuild the de|
00005060  76 69 63 65 73 20 6c 69  73 74 0d 1c d4 17 f2 62  |vices list.....b|
00005070  75 69 6c 64 5f 64 65 76  69 63 65 73 5f 6c 69 73  |uild_devices_lis|
00005080  74 0d 1c de 15 f2 63 68  6f 6f 73 65 5f 64 65 76  |t.....choose_dev|
00005090  69 63 65 28 30 29 0d 1c  e8 05 e1 0d 1c f2 04 0d  |ice(0)..........|
000050a0  1c fc 18 dd f2 62 75 69  6c 64 5f 64 65 76 69 63  |.....build_devic|
000050b0  65 73 5f 6c 69 73 74 0d  1d 06 20 ea 20 69 25 2c  |es_list... . i%,|
000050c0  6a 25 2c 6e 75 6d 66 6c  6f 70 25 2c 6e 75 6d 68  |j%,numflop%,numh|
000050d0  61 72 64 25 2c 73 24 0d  1d 10 1b 66 73 5f 64 65  |ard%,s$....fs_de|
000050e0  76 69 63 65 73 24 3d 22  23 44 65 76 69 63 65 73  |vices$="#Devices|
000050f0  2c 22 0d 1d 1a 2b f4 20  74 68 69 73 20 69 73 20  |,"...+. this is |
00005100  67 6f 69 6e 67 20 74 6f  20 62 65 20 52 45 41 4c  |going to be REAL|
00005110  4c 59 20 74 61 63 6b 79  20 63 6f 64 65 0d 1d 24  |LY tacky code..$|
00005120  38 f4 20 66 69 72 73 74  20 6f 66 20 61 6c 6c 2c  |8. first of all,|
00005130  20 77 65 20 6e 65 65 64  20 74 6f 20 67 65 74 20  | we need to get |
00005140  72 69 64 20 6f 66 20 74  68 65 20 65 78 63 65 70  |rid of the excep|
00005150  74 69 6f 6e 73 0d 1d 2e  05 f4 0d 1d 38 0c f4 20  |tions.......8.. |
00005160  45 63 6f 6e 65 74 0d 1d  42 0c f4 20 7e 7e 7e 7e  |Econet..B.. ~~~~|
00005170  7e 7e 0d 1d 4c 2f f4 20  42 75 69 6c 64 20 61 20  |~~..L/. Build a |
00005180  6c 69 73 74 20 6f 66 20  6c 6f 67 67 65 64 20 6f  |list of logged o|
00005190  6e 2d 74 6f 20 66 69 6c  65 20 73 65 72 76 65 72  |n-to file server|
000051a0  73 0d 1d 56 12 e7 66 73  79 73 24 3d 22 6e 65 74  |s..V..fsys$="net|
000051b0  22 20 8c 0d 1d 60 09 20  69 25 3d 30 0d 1d 6a 06  |" ...`. i%=0..j.|
000051c0  20 f5 0d 1d 74 4b 20 20  f4 20 77 65 27 6c 6c 20  | ...tK  . we'll |
000051d0  6c 6f 61 64 20 74 68 65  20 69 6e 66 6f 20 69 6e  |load the info in|
000051e0  74 6f 20 62 75 66 66 20  2e 2e 2e 20 69 74 20 69  |to buff ... it i|
000051f0  73 6e 27 74 20 62 65 69  6e 67 20 75 73 65 64 20  |sn't being used |
00005200  61 74 20 74 68 69 73 20  74 69 6d 65 21 0d 1d 7e  |at this time!..~|
00005210  39 20 20 c8 99 22 4e 65  74 46 53 5f 45 6e 75 6d  |9  .."NetFS_Enum|
00005220  65 72 61 74 65 46 53 22  2c 69 25 2c 62 75 66 66  |erateFS",i%,buff|
00005230  25 2c 6d 61 78 62 6f 6f  74 25 2c 31 20 b8 20 69  |%,maxboot%,1 . i|
00005240  25 2c 2c 2c 6a 25 0d 1d  88 0d 20 20 e7 6a 25 3d  |%,,,j%....  .j%=|
00005250  31 20 8c 0d 1d 92 22 20  20 20 66 73 5f 64 65 76  |1 ...."   fs_dev|
00005260  69 63 65 73 24 2b 3d a4  72 74 6f 7a 28 62 75 66  |ices$+=.rtoz(buf|
00005270  66 25 2b 33 29 0d 1d 9c  1b 20 20 20 c8 95 20 c2  |f%+3)....   .. .|
00005280  66 73 5f 64 65 76 69 63  65 73 24 29 3d 22 20 22  |fs_devices$)=" "|
00005290  0d 1d a6 21 20 20 20 20  66 73 5f 64 65 76 69 63  |...!    fs_devic|
000052a0  65 73 24 3d c0 66 73 5f  64 65 76 69 63 65 73 24  |es$=.fs_devices$|
000052b0  29 0d 1d b0 08 20 20 20  ce 0d 1d ba 17 20 20 20  |)....   .....   |
000052c0  66 73 5f 64 65 76 69 63  65 73 24 2b 3d 22 2c 22  |fs_devices$+=","|
000052d0  0d 1d c4 07 20 20 cd 0d  1d ce 0c 20 fd 20 69 25  |....  ..... . i%|
000052e0  3d 2d 31 0d 1d d8 1f 20  e7 66 73 5f 64 65 76 69  |=-1.... .fs_devi|
000052f0  63 65 73 24 3d 22 23 44  65 76 69 63 65 73 2c 22  |ces$="#Devices,"|
00005300  20 8c 0d 1d e2 1b 20 20  66 73 5f 64 65 76 69 63  | .....  fs_devic|
00005310  65 73 24 2b 3d 22 28 4e  6f 6e 65 29 22 0d 1d ec  |es$+="(None)"...|
00005320  06 20 cc 0d 1d f6 1f 20  20 66 73 5f 64 65 76 69  |. .....  fs_devi|
00005330  63 65 73 24 3d c0 66 73  5f 64 65 76 69 63 65 73  |ces$=.fs_devices|
00005340  24 29 0d 1e 00 06 20 cd  0d 1e 0a 06 20 e1 0d 1e  |$).... ..... ...|
00005350  14 05 cd 0d 1e 1e 05 f4  0d 1e 28 09 f4 20 4e 46  |..........(.. NF|
00005360  53 0d 1e 32 09 f4 20 7e  7e 7e 0d 1e 3c 20 f4 20  |S..2.. ~~~..< . |
00005370  42 75 69 6c 64 20 61 20  6c 69 73 74 20 6f 66 20  |Build a list of |
00005380  4e 46 53 20 6d 6f 75 6e  74 73 0d 1e 46 12 e7 66  |NFS mounts..F..f|
00005390  73 79 73 24 3d 22 6e 66  73 22 20 8c 0d 1e 50 09  |sys$="nfs" ...P.|
000053a0  20 69 25 3d 30 0d 1e 5a  06 20 f5 0d 1e 64 22 20  | i%=0..Z. ...d" |
000053b0  20 c8 99 22 4e 46 53 5f  4d 6f 75 6e 74 4c 69 73  | .."NFS_MountLis|
000053c0  74 22 2c 30 2c 69 25 20  b8 20 2c 69 25 0d 1e 6e  |t",0,i% . ,i%..n|
000053d0  0e 20 20 e7 69 25 3c 3e  30 20 8c 0d 1e 78 21 20  |.  .i%<>0 ...x! |
000053e0  20 20 66 73 5f 64 65 76  69 63 65 73 24 2b 3d a4  |  fs_devices$+=.|
000053f0  72 74 6f 7a 28 69 25 29  2b 22 2c 22 0d 1e 82 07  |rtoz(i%)+","....|
00005400  20 20 cd 0d 1e 8c 0b 20  fd 20 69 25 3d 30 0d 1e  |  ..... . i%=0..|
00005410  96 1f 20 e7 66 73 5f 64  65 76 69 63 65 73 24 3d  |.. .fs_devices$=|
00005420  22 23 44 65 76 69 63 65  73 2c 22 20 8c 0d 1e a0  |"#Devices," ....|
00005430  1b 20 20 66 73 5f 64 65  76 69 63 65 73 24 2b 3d  |.  fs_devices$+=|
00005440  22 28 4e 6f 6e 65 29 22  0d 1e aa 06 20 cc 0d 1e  |"(None)".... ...|
00005450  b4 1f 20 20 66 73 5f 64  65 76 69 63 65 73 24 3d  |..  fs_devices$=|
00005460  c0 66 73 5f 64 65 76 69  63 65 73 24 29 0d 1e be  |.fs_devices$)...|
00005470  06 20 cd 0d 1e c8 06 20  e1 0d 1e d2 05 cd 0d 1e  |. ..... ........|
00005480  dc 05 f4 0d 1e e6 23 f4  20 46 69 6c 65 43 6f 72  |......#. FileCor|
00005490  65 20 62 61 73 65 64 20  66 69 6c 69 6e 67 20 73  |e based filing s|
000054a0  79 73 74 65 6d 73 0d 1e  f0 23 f4 20 7e 7e 7e 7e  |ystems...#. ~~~~|
000054b0  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |~~~~~~~~~~~~~~~~|
000054c0  7e 7e 7e 7e 7e 7e 7e 7e  7e 0d 1e fa 36 f4 20 54  |~~~~~~~~~...6. T|
000054d0  72 79 20 74 6f 20 64 65  74 65 72 6d 69 6e 65 20  |ry to determine |
000054e0  77 68 69 63 68 20 22 64  72 69 76 65 73 22 20 74  |which "drives" t|
000054f0  68 69 73 20 46 53 20 73  75 70 70 6f 72 74 73 0d  |his FS supports.|
00005500  1f 04 12 e7 66 73 79 73  24 3d 22 72 61 6d 22 20  |....fsys$="ram" |
00005510  8c 0d 1f 0e 0f 20 73 24  3d 22 52 61 6d 46 53 22  |..... s$="RamFS"|
00005520  0d 1f 18 05 cc 0d 1f 22  18 20 e7 a4 46 53 70 72  |.......". ..FSpr|
00005530  65 66 69 78 28 66 73 79  73 24 29 20 8c 0d 1f 2c  |efix(fsys$) ...,|
00005540  0e 20 20 73 24 3d 66 73  79 73 24 0d 1f 36 06 20  |.  s$=fsys$..6. |
00005550  cc 0d 1f 40 16 20 20 73  24 3d a4 75 70 70 65 72  |...@.  s$=.upper|
00005560  28 66 73 79 73 24 29 0d  1f 4a 18 20 20 e7 a4 46  |(fsys$)..J.  ..F|
00005570  53 70 72 65 66 69 78 28  73 24 29 3d a3 20 8c 0d  |Sprefix(s$)=. ..|
00005580  1f 54 0f 20 20 20 73 24  2b 3d 22 46 53 22 0d 1f  |.T.   s$+="FS"..|
00005590  5e 19 20 20 20 e7 a4 46  53 70 72 65 66 69 78 28  |^.   ..FSprefix(|
000055a0  73 24 29 3d a3 20 8c 0d  1f 68 1d 20 20 20 20 66  |s$)=. ...h.    f|
000055b0  73 5f 64 65 76 69 63 65  73 24 2b 3d 22 28 4e 6f  |s_devices$+="(No|
000055c0  6e 65 29 22 0d 1f 72 09  20 20 20 20 e1 0d 1f 7c  |ne)"..r.    ...||
000055d0  08 20 20 20 cd 0d 1f 86  07 20 20 cd 0d 1f 90 06  |.   .....  .....|
000055e0  20 cd 0d 1f 9a 05 cd 0d  1f a4 33 f4 20 4f 4b 2c  | .........3. OK,|
000055f0  20 77 65 20 68 61 76 65  20 61 20 46 69 6c 65 43  | we have a FileC|
00005600  6f 72 65 20 46 53 2e 20  4e 6f 77 20 62 75 69 6c  |ore FS. Now buil|
00005610  64 20 74 68 65 20 6c 69  73 74 0d 1f ae 2c c8 99  |d the list...,..|
00005620  20 22 58 22 2b 73 24 2b  22 5f 44 72 69 76 65 73  | "X"+s$+"_Drives|
00005630  22 20 b8 20 2c 6e 75 6d  66 6c 6f 70 25 2c 6e 75  |" . ,numflop%,nu|
00005640  6d 68 61 72 64 25 0d 1f  b8 12 e7 6e 75 6d 66 6c  |mhard%.....numfl|
00005650  6f 70 25 3c 3e 30 20 8c  0d 1f c2 17 20 e3 69 25  |op%<>0 ..... .i%|
00005660  3d 30 20 b8 20 6e 75 6d  66 6c 6f 70 25 2d 31 0d  |=0 . numflop%-1.|
00005670  1f cc 1c 20 20 66 73 5f  64 65 76 69 63 65 73 24  |...  fs_devices$|
00005680  2b 3d c3 28 69 25 29 2b  22 2c 22 0d 1f d6 06 20  |+=.(i%)+",".... |
00005690  ed 0d 1f e0 05 cd 0d 1f  ea 12 e7 6e 75 6d 68 61  |...........numha|
000056a0  72 64 25 3c 3e 30 20 8c  0d 1f f4 17 20 e3 69 25  |rd%<>0 ..... .i%|
000056b0  3d 30 20 b8 20 6e 75 6d  68 61 72 64 25 2d 31 0d  |=0 . numhard%-1.|
000056c0  1f fe 1e 20 20 66 73 5f  64 65 76 69 63 65 73 24  |...  fs_devices$|
000056d0  2b 3d c3 28 69 25 2b 34  29 2b 22 2c 22 0d 20 08  |+=.(i%+4)+",". .|
000056e0  06 20 ed 0d 20 12 05 cd  0d 20 1c 1d 66 73 5f 64  |. .. .... ..fs_d|
000056f0  65 76 69 63 65 73 24 3d  c0 66 73 5f 64 65 76 69  |evices$=.fs_devi|
00005700  63 65 73 24 29 0d 20 26  05 e1 0d 20 30 04 0d 20  |ces$). &... 0.. |
00005710  3a 1d dd a4 72 74 6f 7a  28 70 25 29 3d a4 67 65  |:...rtoz(p%)=.ge|
00005720  74 73 74 72 69 6e 67 28  70 25 29 0d 20 44 04 0d  |tstring(p%). D..|
00005730  20 4e 17 dd f2 63 68 6f  6f 73 65 5f 64 65 76 69  | N...choose_devi|
00005740  63 65 28 73 25 29 0d 20  58 0e ea 20 69 25 2c 6a  |ce(s%). X.. i%,j|
00005750  25 2c 73 24 0d 20 62 33  f4 20 67 65 74 20 74 68  |%,s$. b3. get th|
00005760  65 20 73 25 20 65 6e 74  72 79 20 66 72 6f 6d 20  |e s% entry from |
00005770  66 73 5f 6e 61 6d 65 73  24 20 61 6e 64 20 73 61  |fs_names$ and sa|
00005780  76 65 20 74 68 61 74 0d  20 6c 12 73 24 3d 66 73  |ve that. l.s$=fs|
00005790  5f 64 65 76 69 63 65 73  24 0d 20 76 0e e3 69 25  |_devices$. v..i%|
000057a0  3d 30 20 b8 20 73 25 0d  20 80 10 20 6a 25 3d a7  |=0 . s%. .. j%=.|
000057b0  73 24 2c 22 2c 22 29 0d  20 8a 0c 20 e7 6a 25 3d  |s$,","). .. .j%=|
000057c0  30 20 8c 0d 20 94 33 20  20 85 20 31 2c 20 22 44  |0 .. .3  . 1, "D|
000057d0  65 76 69 63 65 20 6d 65  6e 75 20 68 61 73 20 6e  |evice menu has n|
000057e0  6f 74 20 62 65 65 6e 20  63 6c 65 61 6e 6c 79 20  |ot been cleanly |
000057f0  62 75 69 6c 74 22 0d 20  9e 06 20 cc 0d 20 a8 12  |built". .. .. ..|
00005800  20 20 73 24 3d c1 73 24  2c 6a 25 2b 31 29 0d 20  |  s$=.s$,j%+1). |
00005810  b2 06 20 cd 0d 20 bc 05  ed 0d 20 c6 20 69 25 3d  |.. .. .... . i%=|
00005820  a7 73 24 2c 22 2c 22 29  3a e7 69 25 3d 30 20 69  |.s$,","):.i%=0 i|
00005830  25 3d a9 28 73 24 29 2b  31 0d 20 d0 16 66 64 65  |%=.(s$)+1. ..fde|
00005840  76 69 63 65 24 3d c0 73  24 2c 69 25 2d 31 29 0d  |vice$=.s$,i%-1).|
00005850  20 da 1a f2 70 75 74 64  61 74 61 28 38 2c 66 64  | ...putdata(8,fd|
00005860  65 76 69 63 65 24 2c a3  29 0d 20 e4 05 e1 0d 20  |evice$,.). .... |
00005870  ee 04 0d 20 f8 10 dd a4  62 75 69 6c 64 5f 70 61  |... ....build_pa|
00005880  74 68 0d 21 02 47 f4 20  74 68 69 73 20 70 72 6f  |th.!.G. this pro|
00005890  63 65 64 75 72 65 20 62  75 69 6c 64 73 20 61 20  |cedure builds a |
000058a0  76 61 6c 69 64 20 70 61  74 68 20 64 65 70 65 6e  |valid path depen|
000058b0  64 69 6e 67 20 6f 6e 20  74 68 65 20 66 69 6c 69  |ding on the fili|
000058c0  6e 67 20 73 79 73 74 65  6d 0d 21 0c 4a f4 20 61  |ng system.!.J. a|
000058d0  73 20 77 69 74 68 20 62  75 69 6c 64 69 6e 67 20  |s with building |
000058e0  74 68 65 20 64 65 76 69  63 65 73 20 6c 69 73 74  |the devices list|
000058f0  2c 20 77 65 20 64 65 61  6c 20 77 69 74 68 20 74  |, we deal with t|
00005900  68 65 20 74 61 63 6b 79  20 6f 6e 65 73 20 66 69  |he tacky ones fi|
00005910  72 73 74 0d 21 16 13 e7  20 66 73 79 73 24 3d 22  |rst.!... fsys$="|
00005920  6e 65 74 22 20 8c 0d 21  20 1a 20 e7 20 66 64 65  |net" ..! . . fde|
00005930  76 69 63 65 24 3d 22 28  4e 6f 6e 65 29 22 20 8c  |vice$="(None)" .|
00005940  0d 21 2a 29 20 20 f2 73  74 61 74 75 73 69 6e 66  |.!*)  .statusinf|
00005950  6f 72 6d 28 22 57 68 69  63 68 20 66 69 6c 65 20  |orm("Which file |
00005960  73 65 72 76 65 72 3f 22  29 0d 21 34 09 20 20 3d  |server?").!4.  =|
00005970  22 22 0d 21 3e 06 20 cc  0d 21 48 1b 20 20 3d 22  |"".!>. ..!H.  ="|
00005980  6e 65 74 23 22 2b 66 64  65 76 69 63 65 24 2b 22  |net#"+fdevice$+"|
00005990  3a 26 22 0d 21 52 06 20  cd 0d 21 5c 05 cd 0d 21  |:&".!R. ..!\...!|
000059a0  66 13 e7 20 66 73 79 73  24 3d 22 6e 66 73 22 20  |f.. fsys$="nfs" |
000059b0  8c 0d 21 70 1a 20 e7 20  66 64 65 76 69 63 65 24  |..!p. . fdevice$|
000059c0  3d 22 28 4e 6f 6e 65 29  22 20 8c 0d 21 7a 27 20  |="(None)" ..!z' |
000059d0  20 f2 73 74 61 74 75 73  69 6e 66 6f 72 6d 28 22  | .statusinform("|
000059e0  57 68 69 63 68 20 4e 46  53 20 6d 6f 75 6e 74 3f  |Which NFS mount?|
000059f0  22 29 0d 21 84 09 20 20  3d 22 22 0d 21 8e 06 20  |").!..  ="".!.. |
00005a00  cc 0d 21 98 1c 20 20 3d  22 4e 46 53 3a 3a 22 2b  |..!..  ="NFS::"+|
00005a10  66 64 65 76 69 63 65 24  2b 22 2e 24 22 0d 21 a2  |fdevice$+".$".!.|
00005a20  06 20 cd 0d 21 ac 05 cd  0d 21 b6 18 e7 66 64 65  |. ..!....!...fde|
00005a30  76 69 63 65 24 3d 22 28  4e 6f 6e 65 29 22 20 8c  |vice$="(None)" .|
00005a40  0d 21 c0 10 20 3d 66 73  79 73 24 2b 22 3a 24 22  |.!.. =fsys$+":$"|
00005a50  0d 21 ca 05 cd 0d 21 d4  1d 3d 66 73 79 73 24 2b  |.!....!..=fsys$+|
00005a60  22 3a 3a 22 2b 66 64 65  76 69 63 65 24 2b 22 2e  |"::"+fdevice$+".|
00005a70  24 22 0d 21 de 04 0d 21  e8 14 dd f2 62 75 69 6c  |$".!...!....buil|
00005a80  64 5f 6d 65 6e 75 28 69  25 29 0d 21 f2 11 6d 65  |d_menu(i%).!..me|
00005a90  6e 75 62 75 69 6c 74 25  3d 69 25 0d 21 fc 0b c8  |nubuilt%=i%.!...|
00005aa0  8e 20 69 25 20 ca 0d 22  06 18 c9 20 31 3a 20 f4  |. i% .."... 1: .|
00005ab0  20 69 63 6f 6e 20 62 61  72 20 6d 65 6e 75 0d 22  | icon bar menu."|
00005ac0  10 36 20 20 20 20 20 20  20 20 6d 65 6e 75 25 3d  |.6        menu%=|
00005ad0  a4 63 72 65 61 74 65 5f  6d 65 6e 75 28 22 23 22  |.create_menu("#"|
00005ae0  2b 70 72 6f 67 24 2b 22  2c 49 6e 66 6f 2c 51 75  |+prog$+",Info,Qu|
00005af0  69 74 22 29 0d 22 1a 27  20 20 20 20 20 20 20 20  |it").".'        |
00005b00  f2 6d 65 6e 75 5f 61 74  74 61 63 68 28 6d 65 6e  |.menu_attach(men|
00005b10  75 25 2c 30 2c 69 6e 66  6f 25 29 0d 22 24 17 20  |u%,0,info%)."$. |
00005b20  20 20 20 20 20 20 20 6e  75 6d 69 74 65 6d 73 25  |       numitems%|
00005b30  3d 32 0d 22 2e 1e c9 20  32 3a 20 f4 20 66 69 6c  |=2."... 2: . fil|
00005b40  69 6e 67 20 73 79 73 74  65 6d 73 20 6d 65 6e 75  |ing systems menu|
00005b50  0d 22 38 1b 20 20 20 20  20 20 20 20 f2 62 75 69  |."8.        .bui|
00005b60  6c 64 5f 66 73 5f 6e 61  6d 65 73 0d 22 42 29 20  |ld_fs_names."B) |
00005b70  20 20 20 20 20 20 20 6d  65 6e 75 25 3d a4 63 72  |       menu%=.cr|
00005b80  65 61 74 65 5f 6d 65 6e  75 28 66 73 5f 6e 61 6d  |eate_menu(fs_nam|
00005b90  65 73 24 29 0d 22 4c 2f  20 20 20 20 20 20 20 20  |es$)."L/        |
00005ba0  f2 74 69 63 6b 5f 6f 70  74 69 6f 6e 28 6d 65 6e  |.tick_option(men|
00005bb0  75 25 2c 66 73 5f 6e 61  6d 65 73 24 2c 66 73 79  |u%,fs_names$,fsy|
00005bc0  73 24 29 0d 22 56 20 c9  20 33 3a 20 f4 20 66 69  |s$)."V . 3: . fi|
00005bd0  6c 69 6e 67 20 73 79 73  74 65 6d 20 64 65 76 69  |ling system devi|
00005be0  63 65 73 0d 22 60 1f 20  20 20 20 20 20 20 20 f2  |ces."`.        .|
00005bf0  62 75 69 6c 64 5f 64 65  76 69 63 65 73 5f 6c 69  |build_devices_li|
00005c00  73 74 0d 22 6a 2b 20 20  20 20 20 20 20 20 6d 65  |st."j+        me|
00005c10  6e 75 25 3d a4 63 72 65  61 74 65 5f 6d 65 6e 75  |nu%=.create_menu|
00005c20  28 66 73 5f 64 65 76 69  63 65 73 24 29 0d 22 74  |(fs_devices$)."t|
00005c30  34 20 20 20 20 20 20 20  20 f2 74 69 63 6b 5f 6f  |4        .tick_o|
00005c40  70 74 69 6f 6e 28 6d 65  6e 75 25 2c 66 73 5f 64  |ption(menu%,fs_d|
00005c50  65 76 69 63 65 73 24 2c  66 64 65 76 69 63 65 24  |evices$,fdevice$|
00005c60  29 0d 22 7e 05 cb 0d 22  88 05 e1 0d 22 92 04 0d  |)."~..."...."...|
00005c70  22 9c 24 dd f2 74 69 63  6b 5f 6f 70 74 69 6f 6e  |".$..tick_option|
00005c80  28 6d 65 6e 75 25 2c 6c  69 73 74 24 2c 69 74 65  |(menu%,list$,ite|
00005c90  6d 24 29 0d 22 a6 0b ea  20 69 25 2c 6a 25 0d 22  |m$)."... i%,j%."|
00005ca0  b0 23 f4 20 6c 6f 73 65  20 74 68 65 20 68 65 61  |.#. lose the hea|
00005cb0  64 65 72 20 66 72 6f 6d  20 74 68 65 20 6c 69 73  |der from the lis|
00005cc0  74 0d 22 ba 25 69 25 3d  a7 6c 69 73 74 24 2c 22  |t.".%i%=.list$,"|
00005cd0  2c 22 29 3a 6c 69 73 74  24 3d c1 6c 69 73 74 24  |,"):list$=.list$|
00005ce0  2c 69 25 2b 31 29 0d 22  c4 10 c8 95 20 6c 69 73  |,i%+1).".... lis|
00005cf0  74 24 3c 3e 22 22 0d 22  ce 27 20 69 25 3d a7 6c  |t$<>"".".' i%=.l|
00005d00  69 73 74 24 2c 22 2c 22  29 3a e7 69 25 3d 30 20  |ist$,","):.i%=0 |
00005d10  69 25 3d a9 28 6c 69 73  74 24 29 2b 31 0d 22 d8  |i%=.(list$)+1.".|
00005d20  1a 20 e7 69 74 65 6d 24  3d c0 6c 69 73 74 24 2c  |. .item$=.list$,|
00005d30  69 25 2d 31 29 20 8c 0d  22 e2 1a 20 20 f2 6d 65  |i%-1) .."..  .me|
00005d40  6e 75 5f 74 69 63 6b 28  6d 65 6e 75 25 2c 6a 25  |nu_tick(menu%,j%|
00005d50  29 0d 22 ec 0e 20 20 6c  69 73 74 24 3d 22 22 0d  |)."..  list$="".|
00005d60  22 f6 06 20 cc 0d 23 00  18 20 20 6c 69 73 74 24  |".. ..#..  list$|
00005d70  3d c1 6c 69 73 74 24 2c  69 25 2b 31 29 0d 23 0a  |=.list$,i%+1).#.|
00005d80  0b 20 20 6a 25 2b 3d 31  0d 23 14 06 20 cd 0d 23  |.  j%+=1.#.. ..#|
00005d90  1e 05 ce 0d 23 28 05 e1  0d 23 32 04 0d 23 3c 26  |....#(...#2..#<&|
00005da0  dd f2 6d 65 6e 75 5f 69  6e 69 74 69 61 6c 69 73  |..menu_initialis|
00005db0  65 28 6d 65 6e 5f 77 73  25 2c 6d 65 6e 5f 64 66  |e(men_ws%,men_df|
00005dc0  25 29 0d 23 46 2b 6d 65  6e 75 5f 6d 61 78 5f 77  |%).#F+menu_max_w|
00005dd0  73 25 3d 6d 65 6e 5f 77  73 25 3a de 20 6d 65 6e  |s%=men_ws%:. men|
00005de0  75 5f 77 73 25 20 6d 65  6e 5f 77 73 25 0d 23 50  |u_ws% men_ws%.#P|
00005df0  2b 6d 65 6e 75 5f 6d 61  78 5f 64 66 25 3d 6d 65  |+menu_max_df%=me|
00005e00  6e 5f 64 66 25 3a de 20  6d 65 6e 75 5f 64 66 25  |n_df%:. menu_df%|
00005e10  20 6d 65 6e 5f 64 66 25  0d 23 5a 1e 6d 65 6e 75  | men_df%.#Z.menu|
00005e20  5f 65 6e 64 25 3d 6d 65  6e 75 5f 64 66 25 2b 6d  |_end%=menu_df%+m|
00005e30  65 6e 5f 64 66 25 0d 23  64 18 6d 65 6e 75 5f 63  |en_df%.#d.menu_c|
00005e40  75 72 77 73 25 3d 6d 65  6e 75 5f 77 73 25 0d 23  |urws%=menu_ws%.#|
00005e50  6e 05 e1 0d 23 78 04 0d  23 82 18 dd a4 63 72 65  |n...#x..#....cre|
00005e60  61 74 65 5f 6d 65 6e 75  28 6d 65 6e 75 24 29 0d  |ate_menu(menu$).|
00005e70  23 8c 1d ea 20 4d 25 2c  6d 24 2c 49 25 2c 6d 65  |#... M%,m$,I%,me|
00005e80  6e 75 70 74 72 25 2c 6d  61 78 78 25 0d 23 96 3c  |nuptr%,maxx%.#.<|
00005e90  f4 20 69 6e 20 74 68 69  73 20 70 61 72 74 69 63  |. in this partic|
00005ea0  75 6c 61 72 20 61 70 70  6c 69 63 61 74 69 6f 6e  |ular application|
00005eb0  2c 20 74 68 65 72 65 20  61 72 65 20 6e 6f 20 73  |, there are no s|
00005ec0  75 62 20 6d 65 6e 75 73  0d 23 a0 3c f4 20 61 6e  |ub menus.#.<. an|
00005ed0  64 20 6f 6e 6c 79 20 6f  6e 65 20 61 63 74 69 76  |d only one activ|
00005ee0  65 6c 79 20 63 72 65 61  74 65 64 20 6d 65 6e 75  |ely created menu|
00005ef0  2c 20 73 6f 20 69 74 20  69 73 20 50 45 52 46 45  |, so it is PERFE|
00005f00  43 54 4c 59 0d 23 aa 25  f4 20 73 61 66 65 20 74  |CTLY.#.%. safe t|
00005f10  6f 20 72 65 73 65 74 20  74 68 65 20 6d 65 6e 75  |o reset the menu|
00005f20  20 70 6f 69 6e 74 65 72  73 0d 23 b4 23 6d 65 6e  | pointers.#.#men|
00005f30  75 5f 64 66 25 3d 6d 65  6e 75 5f 65 6e 64 25 2d  |u_df%=menu_end%-|
00005f40  6d 65 6e 75 5f 6d 61 78  5f 64 66 25 0d 23 be 18  |menu_max_df%.#..|
00005f50  6d 65 6e 75 5f 63 75 72  77 73 25 3d 6d 65 6e 75  |menu_curws%=menu|
00005f60  5f 77 73 25 0d 23 c8 65  e7 20 28 6d 65 6e 75 5f  |_ws%.#.e. (menu_|
00005f70  64 66 25 2b 32 38 3e 6d  65 6e 75 5f 65 6e 64 25  |df%+28>menu_end%|
00005f80  29 20 85 20 31 2c 20 22  4f 75 74 20 6f 66 20 6d  |) . 1, "Out of m|
00005f90  65 6e 75 20 77 6f 72 6b  73 70 61 63 65 20 2d 20  |enu workspace - |
00005fa0  69 6e 63 72 65 61 73 65  20 32 6e 64 20 70 61 72  |increase 2nd par|
00005fb0  61 6d 65 74 65 72 20 74  6f 20 69 6e 69 74 69 61  |ameter to initia|
00005fc0  6c 69 73 61 74 69 6f 6e  22 0d 23 d2 15 6d 65 6e  |lisation".#..men|
00005fd0  75 70 74 72 25 3d 6d 65  6e 75 5f 64 66 25 0d 23  |uptr%=menu_df%.#|
00005fe0  dc 08 49 25 3d 30 0d 23  e6 15 e7 20 c0 6d 65 6e  |..I%=0.#... .men|
00005ff0  75 24 2c 31 29 3d 22 23  22 20 8c 0d 23 f0 09 20  |u$,1)="#" ..#.. |
00006000  49 25 3d 31 0d 23 fa 27  20 6d 65 6e 75 74 69 74  |I%=1.#.' menutit|
00006010  6c 65 24 3d a4 6d 65 6e  75 5f 70 61 72 28 6d 65  |le$=.menu_par(me|
00006020  6e 75 24 2c 22 2c 22 2c  49 25 29 0d 24 04 05 cc  |nu$,",",I%).$...|
00006030  0d 24 0e 12 20 6d 65 6e  75 74 69 74 6c 65 24 3d  |.$.. menutitle$=|
00006040  22 22 0d 24 18 05 cd 0d  24 22 1d 24 6d 65 6e 75  |"".$....$".$menu|
00006050  70 74 72 25 3d c0 6d 65  6e 75 74 69 74 6c 65 24  |ptr%=.menutitle$|
00006060  2c 31 32 29 0d 24 2c 11  6d 65 6e 75 70 74 72 25  |,12).$,.menuptr%|
00006070  3f 31 32 3d 37 0d 24 36  11 6d 65 6e 75 70 74 72  |?12=7.$6.menuptr|
00006080  25 3f 31 33 3d 32 0d 24  40 11 6d 65 6e 75 70 74  |%?13=2.$@.menupt|
00006090  72 25 3f 31 34 3d 37 0d  24 4a 11 6d 65 6e 75 70  |r%?14=7.$J.menup|
000060a0  74 72 25 3f 31 35 3d 30  0d 24 54 13 6d 65 6e 75  |tr%?15=0.$T.menu|
000060b0  70 74 72 25 21 31 36 3d  31 39 36 0d 24 5e 12 6d  |ptr%!16=196.$^.m|
000060c0  65 6e 75 70 74 72 25 21  32 30 3d 34 34 0d 24 68  |enuptr%!20=44.$h|
000060d0  11 6d 65 6e 75 70 74 72  25 21 32 34 3d 30 0d 24  |.menuptr%!24=0.$|
000060e0  72 10 6d 65 6e 75 70 74  72 25 2b 3d 32 38 0d 24  |r.menuptr%+=28.$|
000060f0  7c 17 6d 61 78 78 25 3d  a9 6d 65 6e 75 74 69 74  ||.maxx%=.menutit|
00006100  6c 65 24 2d 33 0d 24 86  05 f5 0d 24 90 22 20 69  |le$-3.$....$." i|
00006110  74 65 6d 24 3d a4 6d 65  6e 75 5f 70 61 72 28 6d  |tem$=.menu_par(m|
00006120  65 6e 75 24 2c 22 2c 22  2c 49 25 29 0d 24 9a 25  |enu$,",",I%).$.%|
00006130  20 f2 6d 65 6e 75 5f 69  74 65 6d 28 69 74 65 6d  | .menu_item(item|
00006140  24 2c 6d 61 78 78 25 2c  6d 65 6e 75 70 74 72 25  |$,maxx%,menuptr%|
00006150  29 0d 24 a4 0e fd 20 69  74 65 6d 24 3d 22 22 0d  |).$... item$="".|
00006160  24 ae 0f 4d 25 3d 6d 65  6e 75 5f 64 66 25 0d 24  |$..M%=menu_df%.$|
00006170  b8 17 4d 25 21 31 36 3d  28 6d 61 78 78 25 2a 38  |..M%!16=(maxx%*8|
00006180  2b 36 29 2a 32 0d 24 c2  15 6d 65 6e 75 5f 64 66  |+6)*2.$..menu_df|
00006190  25 3d 6d 65 6e 75 70 74  72 25 0d 24 cc 07 3d 4d  |%=menuptr%.$..=M|
000061a0  25 0d 24 d6 05 3a 0d 24  e0 22 dd f2 6d 65 6e 75  |%.$..:.$."..menu|
000061b0  5f 74 69 63 6b 28 6d 65  6e 75 68 61 6e 64 6c 65  |_tick(menuhandle|
000061c0  25 2c 69 74 65 6d 25 29  0d 24 ea 3a 6d 65 6e 75  |%,item%).$.:menu|
000061d0  68 61 6e 64 6c 65 25 21  28 32 38 2b 32 34 2a 69  |handle%!(28+24*i|
000061e0  74 65 6d 25 29 3d 6d 65  6e 75 68 61 6e 64 6c 65  |tem%)=menuhandle|
000061f0  25 21 28 32 38 2b 32 34  2a 69 74 65 6d 25 29 82  |%!(28+24*item%).|
00006200  20 31 0d 24 f4 05 e1 0d  24 fe 05 3a 0d 25 08 1f  | 1.$....$..:.%..|
00006210  dd a4 6d 65 6e 75 5f 70  61 72 28 6d 65 6e 75 24  |..menu_par(menu$|
00006220  2c 73 65 70 24 2c f8 20  49 25 29 0d 25 12 08 ea  |,sep$,. I%).%...|
00006230  20 4c 25 0d 25 1c 0b 4c  25 3d 49 25 2b 31 0d 25  | L%.%..L%=I%+1.%|
00006240  26 1b 49 25 3d a7 6d 65  6e 75 24 2b 73 65 70 24  |&.I%=.menu$+sep$|
00006250  2c 73 65 70 24 2c 4c 25  29 0d 25 30 15 3d c1 6d  |,sep$,L%).%0.=.m|
00006260  65 6e 75 24 2c 4c 25 2c  49 25 2d 4c 25 29 0d 25  |enu$,L%,I%-L%).%|
00006270  3a 05 3a 0d 25 44 29 dd  f2 6d 65 6e 75 5f 69 74  |:.:.%D)..menu_it|
00006280  65 6d 28 74 65 78 74 24  2c f8 20 6d 61 78 78 25  |em(text$,. maxx%|
00006290  2c f8 20 6d 65 6e 75 70  74 72 25 29 0d 25 4e 0e  |,. menuptr%).%N.|
000062a0  ea 20 49 25 2c 46 25 2c  4c 25 0d 25 58 31 e7 20  |. I%,F%,L%.%X1. |
000062b0  74 65 78 74 24 3d 22 22  20 6d 65 6e 75 70 74 72  |text$="" menuptr|
000062c0  25 21 2d 32 34 3d 28 6d  65 6e 75 70 74 72 25 21  |%!-24=(menuptr%!|
000062d0  2d 32 34 29 84 20 26 38  30 3a e1 0d 25 62 65 e7  |-24). &80:..%be.|
000062e0  20 28 6d 65 6e 75 70 74  72 25 2b 32 34 3e 6d 65  | (menuptr%+24>me|
000062f0  6e 75 5f 65 6e 64 25 29  20 85 20 31 2c 20 22 4f  |nu_end%) . 1, "O|
00006300  75 74 20 6f 66 20 6d 65  6e 75 20 77 6f 72 6b 73  |ut of menu works|
00006310  70 61 63 65 20 2d 20 69  6e 63 72 65 61 73 65 20  |pace - increase |
00006320  32 6e 64 20 70 61 72 61  6d 65 74 65 72 20 74 6f  |2nd parameter to|
00006330  20 69 6e 69 74 69 61 6c  69 73 61 74 69 6f 6e 22  | initialisation"|
00006340  0d 25 6c 0a 46 25 3d 26  30 30 0d 25 76 44 e7 20  |.%l.F%=&00.%vD. |
00006350  c2 74 65 78 74 24 2c 31  29 3d 22 23 22 20 74 65  |.text$,1)="#" te|
00006360  78 74 24 3d c0 74 65 78  74 24 29 3a 46 25 2b 3d  |xt$=.text$):F%+=|
00006370  26 30 32 3a f4 20 64 6f  74 74 65 64 20 6c 69 6e  |&02:. dotted lin|
00006380  65 20 66 6f 6c 6c 6f 77  73 20 69 74 65 6d 0d 25  |e follows item.%|
00006390  80 43 e7 20 c2 74 65 78  74 24 2c 31 29 3d 22 40  |.C. .text$,1)="@|
000063a0  22 20 74 65 78 74 24 3d  c0 74 65 78 74 24 29 3a  |" text$=.text$):|
000063b0  46 25 2b 3d 26 30 38 3a  f4 20 67 65 6e 65 72 61  |F%+=&08:. genera|
000063c0  74 65 20 61 20 6d 65 6e  75 20 77 61 72 6e 69 6e  |te a menu warnin|
000063d0  67 0d 25 8a 11 6d 65 6e  75 70 74 72 25 21 30 3d  |g.%..menuptr%!0=|
000063e0  46 25 0d 25 94 11 6d 65  6e 75 70 74 72 25 21 34  |F%.%..menuptr%!4|
000063f0  3d 2d 31 0d 25 9e 18 6d  65 6e 75 70 74 72 25 21  |=-1.%..menuptr%!|
00006400  38 3d 26 30 37 30 30 30  30 32 31 0d 25 a8 15 e7  |8=&07000021.%...|
00006410  20 c0 74 65 78 74 24 2c  31 29 3d 22 24 22 20 8c  | .text$,1)="$" .|
00006420  0d 25 b2 49 20 21 6d 65  6e 75 70 74 72 25 2b 3d  |.%.I !menuptr%+=|
00006430  26 30 34 20 20 20 20 20  20 20 20 20 20 20 20 20  |&04             |
00006440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006450  20 20 20 20 20 3a f4 20  69 74 65 6d 20 69 73 20  |     :. item is |
00006460  77 72 69 74 65 61 62 6c  65 0d 25 bc 13 20 74 65  |writeable.%.. te|
00006470  78 74 24 3d c4 31 32 2c  22 20 22 29 0d 25 c6 05  |xt$=.12," ").%..|
00006480  cc 0d 25 d0 13 20 e7 20  a9 74 65 78 74 24 3c 3d  |..%.. . .text$<=|
00006490  31 32 20 8c 0d 25 da 1a  20 20 24 28 6d 65 6e 75  |12 ..%..  $(menu|
000064a0  70 74 72 25 2b 31 32 29  3d 74 65 78 74 24 0d 25  |ptr%+12)=text$.%|
000064b0  e4 06 20 cc 0d 25 ee 2c  20 20 49 25 3d a4 6d 65  |.. ..%.,  I%=.me|
000064c0  6e 75 5f 77 6f 72 6b 73  70 61 63 65 28 a9 74 65  |nu_workspace(.te|
000064d0  78 74 24 2b 31 29 3a 24  49 25 3d 74 65 78 74 24  |xt$+1):$I%=text$|
000064e0  0d 25 f8 38 20 20 6d 65  6e 75 70 74 72 25 21 31  |.%.8  menuptr%!1|
000064f0  32 3d 49 25 3a 6d 65 6e  75 70 74 72 25 21 31 36  |2=I%:menuptr%!16|
00006500  3d 2d 31 3a 6d 65 6e 75  70 74 72 25 21 32 30 3d  |=-1:menuptr%!20=|
00006510  a9 74 65 78 74 24 2b 31  0d 26 02 21 20 20 6d 65  |.text$+1.&.!  me|
00006520  6e 75 70 74 72 25 21 38  3d 6d 65 6e 75 70 74 72  |nuptr%!8=menuptr|
00006530  25 21 38 84 20 26 31 30  30 0d 26 0c 06 20 cd 0d  |%!8. &100.&.. ..|
00006540  26 16 05 cd 0d 26 20 1f  e7 20 a9 74 65 78 74 24  |&....& .. .text$|
00006550  3e 6d 61 78 78 25 20 6d  61 78 78 25 3d a9 74 65  |>maxx% maxx%=.te|
00006560  78 74 24 0d 26 2a 10 6d  65 6e 75 70 74 72 25 2b  |xt$.&*.menuptr%+|
00006570  3d 32 34 0d 26 34 05 e1  0d 26 3e 05 3a 0d 26 48  |=24.&4...&>.:.&H|
00006580  23 dd f2 6d 65 6e 75 5f  61 74 74 61 63 68 28 6d  |#..menu_attach(m|
00006590  65 6e 75 25 2c 69 74 65  6d 25 2c 70 74 72 25 29  |enu%,item%,ptr%)|
000065a0  0d 26 52 16 6d 65 6e 75  25 2b 3d 32 38 2b 69 74  |.&R.menu%+=28+it|
000065b0  65 6d 25 2a 32 34 0d 26  5c 10 6d 65 6e 75 25 21  |em%*24.&\.menu%!|
000065c0  34 3d 70 74 72 25 0d 26  66 05 e1 0d 26 70 05 3a  |4=ptr%.&f...&p.:|
000065d0  0d 26 7a 18 dd a4 6d 65  6e 75 5f 77 6f 72 6b 73  |.&z...menu_works|
000065e0  70 61 63 65 28 4c 25 29  0d 26 84 7c e7 20 6d 65  |pace(L%).&.|. me|
000065f0  6e 75 5f 63 75 72 77 73  25 2b 4c 25 3e 6d 65 6e  |nu_curws%+L%>men|
00006600  75 5f 77 73 25 2b 6d 65  6e 75 5f 6d 61 78 5f 77  |u_ws%+menu_max_w|
00006610  73 25 20 85 20 74 61 73  6b 5f 66 61 74 61 6c 25  |s% . task_fatal%|
00006620  2c 20 22 4f 75 74 20 6f  66 20 6d 65 6e 75 20 77  |, "Out of menu w|
00006630  6f 72 6b 73 70 61 63 65  20 2d 20 69 6e 63 72 65  |orkspace - incre|
00006640  61 73 65 20 31 73 74 20  70 61 72 61 6d 65 74 65  |ase 1st paramete|
00006650  72 20 74 6f 20 69 6e 69  74 69 61 6c 69 73 61 74  |r to initialisat|
00006660  69 6f 6e 22 0d 26 8e 13  6d 65 6e 75 5f 63 75 72  |ion".&..menu_cur|
00006670  77 73 25 2b 3d 4c 25 0d  26 98 13 3d 6d 65 6e 75  |ws%+=L%.&..=menu|
00006680  5f 63 75 72 77 73 25 2d  4c 25 0d 26 a2 05 3a 0d  |_curws%-L%.&..:.|
00006690  26 ac 51 f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |&.Q. -----------|
000066a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000066e0  0d 26 b6 27 f4 20 56 69  72 75 73 20 63 68 65 63  |.&.'. Virus chec|
000066f0  6b 69 6e 67 20 63 6f 64  65 20 67 6f 65 73 20 68  |king code goes h|
00006700  65 72 65 20 2e 2e 2e 0d  26 c0 51 f4 20 2d 2d 2d  |ere ....&.Q. ---|
00006710  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00006750  2d 2d 2d 2d 2d 2d 2d 2d  0d 26 ca 05 3a 0d 26 d4  |--------.&..:.&.|
00006760  2a dd f2 63 68 65 63 6b  5f 66 6f 72 5f 6d 6f 64  |*..check_for_mod|
00006770  5f 76 69 72 75 73 28 64  69 72 24 2c 6e 61 6d 65  |_virus(dir$,name|
00006780  24 2c 6c 65 6e 25 29 0d  26 de 16 c8 8e 20 a4 6c  |$,len%).&.... .l|
00006790  6f 77 65 72 28 6e 61 6d  65 24 29 20 ca 0d 26 e8  |ower(name$) ..&.|
000067a0  0f c9 20 22 74 6c 6f 64  6d 6f 64 22 0d 26 f2 14  |.. "tlodmod".&..|
000067b0  20 20 20 e7 20 6c 65 6e  25 3d 31 32 34 30 20 8c  |   . len%=1240 .|
000067c0  0d 26 fc 49 20 20 20 20  20 20 f2 66 69 78 5f 6d  |.&.I      .fix_m|
000067d0  6f 64 75 6c 65 28 64 69  72 24 2b 22 2e 22 2b 6e  |odule(dir$+"."+n|
000067e0  61 6d 65 24 2c 22 43 65  42 69 74 20 56 69 72 75  |ame$,"CeBit Viru|
000067f0  73 22 2c 22 49 6e 66 65  63 74 69 6f 6e 22 2c 63  |s","Infection",c|
00006800  65 62 69 74 6f 66 66 25  29 0d 27 06 08 20 20 20  |ebitoff%).'..   |
00006810  cd 0d 27 10 58 c9 20 22  6d 6f 6e 69 74 6f 72 72  |..'.X. "monitorr|
00006820  6d 22 2c 22 63 68 65 63  6b 6d 6f 64 22 2c 22 65  |m","checkmod","e|
00006830  78 74 65 6e 64 72 6d 22  2c 22 6f 73 65 78 74 65  |xtendrm","osexte|
00006840  6e 64 22 2c 22 63 6f 6c  6f 75 72 72 6d 22 2c 22  |nd","colourrm","|
00006850  66 61 73 74 6d 6f 64 22  2c 22 63 6f 64 65 72 6d  |fastmod","coderm|
00006860  22 2c 22 6d 65 6d 72 6d  22 0d 27 1a 13 20 20 20  |","memrm".'..   |
00006870  e7 20 6c 65 6e 25 3d 39  34 30 20 8c 0d 27 24 44  |. len%=940 ..'$D|
00006880  20 20 20 20 20 20 f2 66  69 78 5f 6d 6f 64 75 6c  |      .fix_modul|
00006890  65 28 64 69 72 24 2b 22  2e 22 2b 6e 61 6d 65 24  |e(dir$+"."+name$|
000068a0  2c 22 45 78 74 65 6e 64  20 56 69 72 75 73 22 2c  |,"Extend Virus",|
000068b0  22 45 78 65 63 75 74 69  6f 6e 22 2c 26 33 34 29  |"Execution",&34)|
000068c0  0d 27 2e 08 20 20 20 cd  0d 27 38 05 cb 0d 27 42  |.'..   ..'8...'B|
000068d0  05 e1 0d 27 4c 04 0d 27  56 2a dd f2 66 69 78 5f  |...'L..'V*..fix_|
000068e0  6d 6f 64 75 6c 65 28 6d  6f 64 24 2c 6e 61 6d 65  |module(mod$,name|
000068f0  24 2c 74 79 70 65 24 2c  6f 66 66 73 65 74 25 29  |$,type$,offset%)|
00006900  0d 27 60 0c ea 20 63 6f  75 6e 74 25 0d 27 6a 41  |.'`.. count%.'jA|
00006910  e7 20 a4 6f 73 63 6c 69  28 22 4c 6f 61 64 22 2c  |. .oscli("Load",|
00006920  6d 6f 64 24 2c c3 7e 62  75 66 66 25 29 3a 63 6f  |mod$,.~buff%):co|
00006930  75 6e 74 25 3d 62 75 66  66 25 21 6f 66 66 73 65  |unt%=buff%!offse|
00006940  74 25 20 8b 20 63 6f 75  6e 74 25 3d 30 0d 27 74  |t% . count%=0.'t|
00006950  19 6e 61 6d 65 24 3d 6e  61 6d 65 24 2b 22 20 6d  |.name$=name$+" m|
00006960  6f 64 75 6c 65 22 0d 27  7e 26 f2 6e 6f 74 69 66  |odule".'~&.notif|
00006970  79 76 69 72 75 73 28 6e  61 6d 65 24 2c 74 79 70  |yvirus(name$,typ|
00006980  65 24 2c 63 6f 75 6e 74  25 2c a3 29 0d 27 88 18  |e$,count%,.).'..|
00006990  f2 64 65 6c 66 69 6c 65  28 6d 6f 64 24 2c 6e 61  |.delfile(mod$,na|
000069a0  6d 65 24 29 0d 27 92 05  e1 0d 27 9c 05 3a 0d 27  |me$).'....'..:.'|
000069b0  a6 2a dd f2 63 68 65 63  6b 5f 66 6f 72 5f 62 6f  |.*..check_for_bo|
000069c0  6f 74 5f 76 69 72 75 73  28 70 61 74 68 24 2c 6e  |ot_virus(path$,n|
000069d0  61 6d 65 24 2c 6c 25 29  0d 27 b0 30 ea 20 64 6f  |ame$,l%).'.0. do|
000069e0  69 6e 6e 6f 63 25 2c 73  25 2c 74 25 2c 75 25 2c  |innoc%,s%,t%,u%,|
000069f0  73 24 2c 63 6f 72 65 24  2c 73 63 72 61 74 63 68  |s$,core$,scratch|
00006a00  25 2c 66 6f 72 63 65 25  0d 27 ba 14 e7 20 6c 25  |%,force%.'... l%|
00006a10  3e 3d 6d 61 78 62 6f 6f  74 25 20 8c 0d 27 c4 3a  |>=maxboot% ..'.:|
00006a20  20 20 20 f2 69 6e 66 65  63 74 5f 6c 6f 67 28 70  |   .infect_log(p|
00006a30  61 74 68 24 2c 22 21 42  6f 6f 74 20 74 6f 6f 20  |ath$,"!Boot too |
00006a40  62 69 67 20 2d 20 6e 6f  74 20 73 63 61 6e 6e 65  |big - not scanne|
00006a50  64 22 2c 22 22 29 0d 27  ce 08 20 20 20 e1 0d 27  |d","").'..   ..'|
00006a60  d8 05 cd 0d 27 e2 32 64  6f 69 6e 6e 6f 63 25 3d  |....'.2doinnoc%=|
00006a70  69 6e 6e 6f 63 25 3a 63  6f 72 65 24 3d a4 61 70  |innoc%:core$=.ap|
00006a80  70 6e 61 6d 65 28 70 61  74 68 24 29 2b 22 2e 21  |pname(path$)+".!|
00006a90  42 6f 6f 74 22 0d 27 ec  17 73 63 72 61 74 63 68  |Boot".'..scratch|
00006aa0  25 3d a3 3a 66 6f 72 63  65 25 3d a3 0d 27 f6 2e  |%=.:force%=..'..|
00006ab0  e7 20 a4 6f 73 63 6c 69  28 22 4c 6f 61 64 22 2c  |. .oscli("Load",|
00006ac0  70 61 74 68 24 2b 22 2e  22 2b 6e 61 6d 65 24 2c  |path$+"."+name$,|
00006ad0  c3 7e 62 75 66 66 25 29  20 8c 0d 28 00 0c 20 20  |.~buff%) ..(..  |
00006ae0  20 73 25 3d 2d 31 0d 28  0a 08 20 20 20 f5 0d 28  | s%=-1.(..   ..(|
00006af0  14 11 20 20 20 20 20 20  74 25 3d 73 25 2b 31 0d  |..      t%=s%+1.|
00006b00  28 1e 0b 20 20 20 20 20  20 f5 0d 28 28 1e 20 20  |(..      ..((.  |
00006b10  20 20 20 20 20 20 20 73  25 2b 3d 31 3a 75 25 3d  |       s%+=1:u%=|
00006b20  62 75 66 66 25 3f 73 25  0d 28 32 23 20 20 20 20  |buff%?s%.(2#    |
00006b30  20 20 fd 20 75 25 3c 33  32 20 84 20 75 25 3e 31  |  . u%<32 . u%>1|
00006b40  32 36 20 84 20 73 25 3e  3d 6c 25 0d 28 3c 13 20  |26 . s%>=l%.(<. |
00006b50  20 20 20 20 20 e7 20 73  25 3c 6c 25 20 8c 0d 28  |     . s%<l% ..(|
00006b60  46 33 20 20 20 20 20 20  20 20 20 62 75 66 66 25  |F3         buff%|
00006b70  3f 73 25 3d 26 44 3a 73  24 3d 24 28 62 75 66 66  |?s%=&D:s$=$(buff|
00006b80  25 2b 74 25 29 3a 62 75  66 66 25 3f 73 25 3d 75  |%+t%):buff%?s%=u|
00006b90  25 0d 28 50 14 20 20 20  20 20 20 20 20 20 c8 8e  |%.(P.         ..|
00006ba0  20 73 24 20 ca 0d 28 5a  19 20 20 20 20 20 20 20  | s$ ..(Z.       |
00006bb0  20 20 c9 20 63 65 62 69  74 6f 62 65 79 24 0d 28  |  . cebitobey$.(|
00006bc0  64 3c 20 20 20 20 20 20  20 20 20 20 20 20 f2 6e  |d<            .n|
00006bd0  6f 74 69 66 79 76 69 72  75 73 28 22 43 65 42 69  |otifyvirus("CeBi|
00006be0  74 20 56 69 72 75 73 20  69 6e 20 22 2b 63 6f 72  |t Virus in "+cor|
00006bf0  65 24 2c 22 22 2c 30 2c  a3 29 0d 28 6e 36 20 20  |e$,"",0,.).(n6  |
00006c00  20 20 20 20 20 20 20 20  20 20 75 25 3d 62 75 66  |          u%=buf|
00006c10  66 25 3f 28 74 25 2d 32  29 3a 6c 25 3d 74 25 2b  |f%?(t%-2):l%=t%+|
00006c20  28 75 25 3d 26 46 46 29  2b 28 75 25 3d 26 41 29  |(u%=&FF)+(u%=&A)|
00006c30  0d 28 78 23 20 20 20 20  20 20 20 20 20 20 20 20  |.(x#            |
00006c40  64 6f 69 6e 6e 6f 63 25  3d b9 3a 66 6f 72 63 65  |doinnoc%=.:force|
00006c50  25 3d b9 0d 28 82 19 20  20 20 20 20 20 20 20 20  |%=..(..         |
00006c60  c9 20 76 69 67 61 79 6f  62 65 79 24 0d 28 8c 3c  |. vigayobey$.(.<|
00006c70  20 20 20 20 20 20 20 20  20 20 20 20 f2 6e 6f 74  |            .not|
00006c80  69 66 79 76 69 72 75 73  28 22 56 69 67 61 79 20  |ifyvirus("Vigay |
00006c90  56 69 72 75 73 20 69 6e  20 22 2b 63 6f 72 65 24  |Virus in "+core$|
00006ca0  2c 22 22 2c 30 2c a3 29  0d 28 96 2a 20 20 20 20  |,"",0,.).(.*    |
00006cb0  20 20 20 20 20 20 20 20  6c 25 3d 30 3a 64 6f 69  |        l%=0:doi|
00006cc0  6e 6e 6f 63 25 3d b9 3a  73 63 72 61 74 63 68 25  |nnoc%=.:scratch%|
00006cd0  3d b9 0d 28 a0 0e 20 20  20 20 20 20 20 20 20 cb  |=..(..         .|
00006ce0  0d 28 aa 0b 20 20 20 20  20 20 cd 0d 28 b4 0f 20  |.(..      ..(.. |
00006cf0  20 20 fd 20 73 25 3e 3d  6c 25 0d 28 be 0d 20 20  |  . s%>=l%.(..  |
00006d00  20 e7 20 6c 25 20 8c 0d  28 c8 1b 20 20 20 20 20  | . l% ..(..     |
00006d10  20 c8 8e 20 62 75 66 66  25 3f 28 6c 25 2d 31 29  | .. buff%?(l%-1)|
00006d20  20 ca 0d 28 d2 18 20 20  20 20 20 20 c9 20 26 46  | ..(..      . &F|
00006d30  46 3a e7 20 6c 25 3e 34  20 8c 0d 28 dc 27 20 20  |F:. l%>4 ..(.'  |
00006d40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006d50  c8 8e 20 62 75 66 66 25  3f 28 6c 25 2d 34 29 20  |.. buff%?(l%-4) |
00006d60  ca 0d 28 e6 1a 20 20 20  20 20 20 20 20 20 20 20  |..(..           |
00006d70  20 20 20 20 20 20 20 c9  20 31 33 0d 28 f0 46 20  |       . 13.(.F |
00006d80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006d90  20 20 20 20 f2 6e 6f 74  69 66 79 76 69 72 75 73  |    .notifyvirus|
00006da0  28 22 45 78 74 65 6e 64  20 56 69 72 75 73 20 69  |("Extend Virus i|
00006db0  6e 20 22 2b 63 6f 72 65  24 2c 22 22 2c 30 2c a3  |n "+core$,"",0,.|
00006dc0  29 0d 28 fa 2b 20 20 20  20 20 20 20 20 20 20 20  |).(.+           |
00006dd0  20 20 20 20 20 20 20 20  20 20 6c 25 3d 6c 25 2d  |          l%=l%-|
00006de0  34 3a 64 6f 69 6e 6e 6f  63 25 3d b9 0d 29 04 3d  |4:doinnoc%=..).=|
00006df0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006e00  20 20 20 20 20 c8 95 20  6c 25 3e 30 20 80 20 62  |     .. l%>0 . b|
00006e10  75 66 66 25 3f 28 6c 25  2d 31 29 3c 3e 26 44 3a  |uff%?(l%-1)<>&D:|
00006e20  6c 25 3d 6c 25 2d 31 3a  ce 0d 29 0e 28 20 20 20  |l%=l%-1:..).(   |
00006e30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006e40  20 20 62 75 66 66 25 3f  28 6c 25 2d 31 29 3d 26  |  buff%?(l%-1)=&|
00006e50  41 0d 29 18 1a 20 20 20  20 20 20 20 20 20 20 20  |A.)..           |
00006e60  20 20 20 20 20 20 20 c9  20 31 30 0d 29 22 23 20  |       . 10.)"# |
00006e70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006e80  20 20 20 20 e7 20 66 6f  72 63 65 25 20 8c 0d 29  |    . force% ..)|
00006e90  2c 28 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |,(              |
00006ea0  20 20 20 20 20 20 20 20  20 20 6c 25 2d 3d 70 72  |          l%-=pr|
00006eb0  6f 74 6c 65 6e 25 0d 29  36 1a 20 20 20 20 20 20  |otlen%.)6.      |
00006ec0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 cc  |               .|
00006ed0  0d 29 40 26 20 20 20 20  20 20 20 20 20 20 20 20  |.)@&            |
00006ee0  20 20 20 20 20 20 20 20  20 20 20 20 64 6f 69 6e  |            doin|
00006ef0  6e 6f 63 25 3d a3 0d 29  4a 61 20 20 20 20 20 20  |noc%=..)Ja      |
00006f00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006f10  20 20 f2 73 74 61 74 75  73 5f 6c 6f 67 28 70 61  |  .status_log(pa|
00006f20  74 68 24 2c 22 21 42 6f  6f 74 20 61 6c 72 65 61  |th$,"!Boot alrea|
00006f30  64 79 20 69 6e 6e 6f 63  75 6c 61 74 65 64 22 2c  |dy innoculated",|
00006f40  22 61 67 61 69 6e 73 74  20 45 78 74 65 6e 64 20  |"against Extend |
00006f50  56 69 72 75 73 22 29 0d  29 54 1a 20 20 20 20 20  |Virus").)T.     |
00006f60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006f70  cd 0d 29 5e 27 20 20 20  20 20 20 20 20 20 20 20  |..)^'           |
00006f80  20 20 20 20 20 20 20 7f  20 64 6f 69 6e 6e 6f 63  |       . doinnoc|
00006f90  25 3d 66 6f 72 63 65 25  0d 29 68 17 20 20 20 20  |%=force%.)h.    |
00006fa0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 cb 0d  |              ..|
00006fb0  29 72 14 20 20 20 20 20  20 20 20 20 20 20 20 20  |)r.             |
00006fc0  20 20 cd 0d 29 7c 23 20  20 20 20 20 20 c9 20 26  |  ..)|#      . &|
00006fd0  30 41 3a f4 20 4e 6f 72  6d 61 6c 20 74 65 72 6d  |0A:. Normal term|
00006fe0  69 6e 61 74 6f 72 0d 29  86 2d 20 20 20 20 20 20  |inator.).-      |
00006ff0  7f 20 62 75 66 66 25 3f  6c 25 3d 26 41 3a 6c 25  |. buff%?l%=&A:l%|
00007000  2b 3d 31 3a f4 20 41 64  64 20 4c 46 20 6f 6e 20  |+=1:. Add LF on |
00007010  65 6e 64 0d 29 90 0b 20  20 20 20 20 20 cb 0d 29  |end.)..      ..)|
00007020  9a 08 20 20 20 cc 0d 29  a4 32 20 20 20 20 20 20  |..   ..).2      |
00007030  73 63 72 61 74 63 68 25  3d a4 65 78 69 73 74 73  |scratch%=.exists|
00007040  28 70 61 74 68 24 2b 22  2e 21 53 70 72 69 74 65  |(path$+".!Sprite|
00007050  73 22 2c 26 46 46 39 29  0d 29 b8 08 20 20 20 cd  |s",&FF9).)..   .|
00007060  0d 29 c2 05 cc 0d 29 cc  11 20 20 20 64 6f 69 6e  |.)....)..   doin|
00007070  6e 6f 63 25 3d a3 0d 29  d6 38 20 20 20 f2 69 6e  |noc%=..).8   .in|
00007080  66 65 63 74 5f 6c 6f 67  28 70 61 74 68 24 2c 22  |fect_log(path$,"|
00007090  21 42 6f 6f 74 20 63 6f  75 6c 64 20 6e 6f 74 20  |!Boot could not |
000070a0  62 65 20 6c 6f 61 64 65  64 22 2c 22 22 29 0d 29  |be loaded","").)|
000070b0  e0 05 cd 0d 29 ea 10 e7  20 64 6f 69 6e 6e 6f 63  |....)... doinnoc|
000070c0  25 20 8c 0d 29 f4 21 20  20 20 e7 20 6c 25 2b 70  |% ..).!   . l%+p|
000070d0  72 6f 74 6c 65 6e 25 2b  31 3e 6d 61 78 62 6f 6f  |rotlen%+1>maxboo|
000070e0  74 25 20 8c 0d 29 fe 55  20 20 20 20 20 20 f2 69  |t% ..).U      .i|
000070f0  6e 66 65 63 74 5f 6c 6f  67 28 70 61 74 68 24 2c  |nfect_log(path$,|
00007100  22 21 42 6f 6f 74 20 74  6f 6f 20 62 69 67 20 2d  |"!Boot too big -|
00007110  20 6e 6f 74 20 69 6e 6e  6f 63 75 6c 61 74 65 64  | not innoculated|
00007120  22 2c 22 61 67 61 69 6e  73 74 20 45 78 74 65 6e  |","against Exten|
00007130  64 20 56 69 72 75 73 22  29 0d 2a 08 08 20 20 20  |d Virus").*..   |
00007140  cc 0d 2a 12 38 20 20 20  20 20 20 e7 20 a4 65 78  |..*.8      . .ex|
00007150  74 65 6e 64 5f 69 6e 6e  6f 63 62 6f 6f 74 28 70  |tend_innocboot(p|
00007160  61 74 68 24 2c 62 75 66  66 25 2c 6c 25 2c 73 63  |ath$,buff%,l%,sc|
00007170  72 61 74 63 68 25 29 20  8c 0d 2a 1c 51 20 20 20  |ratch%) ..*.Q   |
00007180  20 20 20 20 20 20 f2 73  74 61 74 75 73 5f 6c 6f  |      .status_lo|
00007190  67 28 70 61 74 68 24 2c  22 21 42 6f 6f 74 20 69  |g(path$,"!Boot i|
000071a0  73 20 6e 6f 77 20 69 6e  6e 6f 63 75 6c 61 74 65  |s now innoculate|
000071b0  64 22 2c 22 61 67 61 69  6e 73 74 20 45 78 74 65  |d","against Exte|
000071c0  6e 64 20 56 69 72 75 73  22 29 0d 2a 26 0b 20 20  |nd Virus").*&.  |
000071d0  20 20 20 20 cd 0d 2a 30  08 20 20 20 cd 0d 2a 3a  |    ..*0.   ..*:|
000071e0  05 cd 0d 2a 44 05 e1 0d  2a 4e 05 3a 0d 2a 58 2d  |...*D...*N.:.*X-|
000071f0  dd a4 65 78 74 65 6e 64  5f 69 6e 6e 6f 63 62 6f  |..extend_innocbo|
00007200  6f 74 28 64 69 72 24 2c  61 25 2c 6c 65 6e 25 2c  |ot(dir$,a%,len%,|
00007210  61 64 64 69 63 6f 6e 25  29 0d 2a 62 27 ea 20 67  |addicon%).*b'. g|
00007220  6f 6f 64 25 2c 6e 24 3a  67 6f 6f 64 25 3d a3 3a  |ood%,n$:good%=.:|
00007230  6e 24 3d 64 69 72 24 2b  22 2e 21 42 6f 6f 74 22  |n$=dir$+".!Boot"|
00007240  0d 2a 6c 2e e7 20 61 64  64 69 63 6f 6e 25 3a 24  |.*l.. addicon%:$|
00007250  28 61 25 2b 6c 65 6e 25  29 3d 69 63 6f 6e 24 3a  |(a%+len%)=icon$:|
00007260  6c 65 6e 25 2b 3d 69 63  6f 6e 6c 65 6e 25 0d 2a  |len%+=iconlen%.*|
00007270  76 17 24 28 61 25 2b 6c  65 6e 25 29 3d 70 72 6f  |v.$(a%+len%)=pro|
00007280  74 65 63 74 24 0d 2a 80  37 e7 20 a4 6f 73 63 6c  |tect$.*.7. .oscl|
00007290  69 28 22 53 61 76 65 22  2c 6e 24 2c c3 7e 61 25  |i("Save",n$,.~a%|
000072a0  2b 22 20 22 2b c3 7e 28  61 25 2b 6c 65 6e 25 2b  |+" "+.~(a%+len%+|
000072b0  70 72 6f 74 6c 65 6e 25  29 29 20 8c 0d 2a 8a 36  |protlen%)) ..*.6|
000072c0  20 20 20 e7 20 a4 6f 73  63 6c 69 28 22 53 65 74  |   . .oscli("Set|
000072d0  54 79 70 65 22 2c 6e 24  2c 22 4f 62 65 79 22 29  |Type",n$,"Obey")|
000072e0  3a 67 6f 6f 64 25 3d b9  3a f2 6e 65 77 69 6e 6e  |:good%=.:.newinn|
000072f0  6f 63 0d 2a 94 05 cd 0d  2a 9e 43 e7 20 67 6f 6f  |oc.*....*.C. goo|
00007300  64 25 3d a3 3a f2 69 6e  66 65 63 74 5f 6c 6f 67  |d%=.:.infect_log|
00007310  28 64 69 72 24 2c 22 21  42 6f 6f 74 20 63 6f 75  |(dir$,"!Boot cou|
00007320  6c 64 20 6e 6f 74 20 62  65 20 69 6e 6e 6f 63 75  |ld not be innocu|
00007330  6c 61 74 65 64 22 2c 22  22 29 0d 2a a8 0a 3d 67  |lated","").*..=g|
00007340  6f 6f 64 25 0d 2a b2 05  3a 0d 2a bc 25 dd f2 63  |ood%.*..:.*.%..c|
00007350  68 65 63 6b 5f 66 6f 72  5f 61 62 73 5f 76 69 72  |heck_for_abs_vir|
00007360  75 73 28 64 69 72 24 2c  6e 24 2c 6c 25 29 0d 2a  |us(dir$,n$,l%).*|
00007370  c6 39 ea 20 64 6f 69 6e  6e 6f 63 25 2c 68 61 6e  |.9. doinnoc%,han|
00007380  64 6c 65 25 2c 66 6c 61  67 73 25 2c 63 61 6e 63  |dle%,flags%,canc|
00007390  65 6c 25 2c 72 65 70 6c  61 63 65 25 2c 65 6e 64  |el%,replace%,end|
000073a0  24 2c 6e 61 6d 65 24 0d  2a d0 15 6e 61 6d 65 24  |$,name$.*..name$|
000073b0  3d 64 69 72 24 2b 22 2e  22 2b 6e 24 0d 2a da 0e  |=dir$+"."+n$.*..|
000073c0  72 65 70 6c 61 63 65 25  3d a3 0d 2a e4 13 68 61  |replace%=..*..ha|
000073d0  6e 64 6c 65 25 3d 8e 20  6e 61 6d 65 24 0d 2a ee  |ndle%=. name$.*.|
000073e0  0f e7 20 68 61 6e 64 6c  65 25 20 8c 0d 2a f8 16  |.. handle% ..*..|
000073f0  20 20 20 64 6f 69 6e 6e  6f 63 25 3d 69 6e 6e 6f  |   doinnoc%=inno|
00007400  63 25 0d 2b 02 36 20 20  20 e7 20 a4 61 62 73 5f  |c%.+.6   . .abs_|
00007410  72 65 61 64 70 74 72 28  68 61 6e 64 6c 65 25 2c  |readptr(handle%,|
00007420  6c 25 2d 31 36 2c 31 36  2c 65 6e 64 24 2c 64 69  |l%-16,16,end$,di|
00007430  72 24 2c 6e 24 29 20 8c  0d 2b 0c 21 20 20 20 20  |r$,n$) ..+.!    |
00007440  20 20 e7 20 c2 65 6e 64  24 2c 38 29 3d 22 48 79  |  . .end$,8)="Hy|
00007450  70 6f 31 32 31 30 22 20  8c 0d 2b 16 17 20 20 20  |po1210" ..+..   |
00007460  20 20 20 20 20 20 64 6f  69 6e 6e 6f 63 25 3d a3  |      doinnoc%=.|
00007470  0d 2b 20 4e 20 20 20 20  20 20 20 20 20 f2 73 74  |.+ N         .st|
00007480  61 74 75 73 5f 6c 6f 67  28 64 69 72 24 2c 6e 24  |atus_log(dir$,n$|
00007490  2b 22 20 61 6c 72 65 61  64 79 20 69 6e 6e 6f 63  |+" already innoc|
000074a0  75 6c 61 74 65 64 22 2c  22 61 67 61 69 6e 73 74  |ulated","against|
000074b0  20 41 72 63 68 69 65 56  69 72 75 73 22 29 0d 2b  | ArchieVirus").+|
000074c0  2a 0b 20 20 20 20 20 20  cc 0d 2b 34 20 20 20 20  |*.      ..+4    |
000074d0  20 20 20 20 20 20 e7 20  c2 65 6e 64 24 2c 34 29  |      . .end$,4)|
000074e0  3d 22 31 32 31 30 22 20  8c 0d 2b 3e 5e 20 20 20  |="1210" ..+>^   |
000074f0  20 20 20 20 20 20 20 20  20 f2 6e 6f 74 69 66 79  |         .notify|
00007500  76 69 72 75 73 28 22 41  72 63 68 69 65 56 69 72  |virus("ArchieVir|
00007510  75 73 20 69 6e 20 22 2b  a4 61 70 70 6e 61 6d 65  |us in "+.appname|
00007520  28 64 69 72 24 29 2b 22  2e 22 2b 6e 24 2c 22 44  |(dir$)+"."+n$,"D|
00007530  65 63 72 65 6d 65 6e 74  22 2c 21 73 65 65 6b 62  |ecrement",!seekb|
00007540  75 66 66 25 2c a3 29 0d  2b 48 25 20 20 20 20 20  |uff%,.).+H%     |
00007550  20 20 20 20 20 20 20 64  6f 69 6e 6e 6f 63 25 3d  |       doinnoc%=|
00007560  b9 3a 72 65 70 6c 61 63  65 25 3d b9 0d 2b 52 0e  |.:replace%=..+R.|
00007570  20 20 20 20 20 20 20 20  20 cd 0d 2b 5c 0b 20 20  |         ..+\.  |
00007580  20 20 20 20 cd 0d 2b 66  08 20 20 20 cc 0d 2b 70  |    ..+f.   ..+p|
00007590  14 20 20 20 20 20 20 64  6f 69 6e 6e 6f 63 25 3d  |.      doinnoc%=|
000075a0  a3 0d 2b 7a 08 20 20 20  cd 0d 2b 84 2b 20 20 20  |..+z.   ..+.+   |
000075b0  c8 99 20 22 58 4f 53 5f  46 69 6e 64 22 2c 30 2c  |.. "XOS_Find",0,|
000075c0  68 61 6e 64 6c 65 25 3a  f4 20 43 6c 6f 73 65 20  |handle%:. Close |
000075d0  66 69 6c 65 0d 2b 8e 05  cc 0d 2b 98 11 20 20 20  |file.+....+..   |
000075e0  64 6f 69 6e 6e 6f 63 25  3d a3 0d 2b a2 05 cd 0d  |doinnoc%=..+....|
000075f0  2b ac 10 e7 20 64 6f 69  6e 6e 6f 63 25 20 8c 0d  |+... doinnoc% ..|
00007600  2b b6 10 20 20 20 68 61  6e 64 6c 65 25 3d 30 0d  |+..   handle%=0.|
00007610  2b c0 44 20 20 20 f4 20  59 65 73 2c 20 32 20 2a  |+.D   . Yes, 2 *|
00007620  41 63 63 65 73 73 27 73  20 6e 65 65 64 65 64 20  |Access's needed |
00007630  28 6e 6f 20 49 2f 4f 20  69 66 20 61 6c 72 65 61  |(no I/O if alrea|
00007640  64 79 20 73 65 74 20 74  6f 2c 20 73 61 79 2c 20  |dy set to, say, |
00007650  57 52 29 0d 2b ca 26 20  20 20 e7 20 a4 6f 73 63  |WR).+.&   . .osc|
00007660  6c 69 28 22 41 63 63 65  73 73 22 2c 6e 61 6d 65  |li("Access",name|
00007670  24 2c 22 52 4c 22 29 20  8c 0d 2b d4 29 20 20 20  |$,"RL") ..+.)   |
00007680  20 20 20 e7 20 a4 6f 73  63 6c 69 28 22 41 63 63  |   . .oscli("Acc|
00007690  65 73 73 22 2c 6e 61 6d  65 24 2c 22 57 52 22 29  |ess",name$,"WR")|
000076a0  20 8c 0d 2b de 1c 20 20  20 20 20 20 20 20 20 68  | ..+..         h|
000076b0  61 6e 64 6c 65 25 3d ad  20 6e 61 6d 65 24 0d 2b  |andle%=. name$.+|
000076c0  e8 18 20 20 20 20 20 20  20 20 20 e7 20 68 61 6e  |..         . han|
000076d0  64 6c 65 25 20 8c 0d 2b  f2 1c 20 20 20 20 20 20  |dle% ..+..      |
000076e0  20 20 20 20 20 20 e7 20  72 65 70 6c 61 63 65 25  |      . replace%|
000076f0  20 8c 0d 2b fc 47 20 20  20 20 20 20 20 20 20 20  | ..+.G          |
00007700  20 20 20 20 20 64 6f 69  6e 6e 6f 63 25 3d a4 61  |     doinnoc%=.a|
00007710  62 73 5f 77 72 69 74 65  70 74 72 28 68 61 6e 64  |bs_writeptr(hand|
00007720  6c 65 25 2c 30 2c c1 65  6e 64 24 2c 35 2c 34 29  |le%,0,.end$,5,4)|
00007730  2c 64 69 72 24 2c 6e 24  29 0d 2c 06 42 20 20 20  |,dir$,n$).,.B   |
00007740  20 20 20 20 20 20 20 20  20 20 20 20 e7 20 64 6f  |            . do|
00007750  69 6e 6e 6f 63 25 3a 6c  25 3d 6c 25 2d 61 72 63  |innoc%:l%=l%-arc|
00007760  68 73 69 7a 65 25 3a f4  20 53 68 72 69 6e 6b 20  |hsize%:. Shrink |
00007770  66 69 6c 65 20 6c 65 6e  67 74 68 0d 2c 10 11 20  |file length.,.. |
00007780  20 20 20 20 20 20 20 20  20 20 20 cd 0d 2c 1a 1c  |           ..,..|
00007790  20 20 20 20 20 20 20 20  20 20 20 20 e7 20 64 6f  |            . do|
000077a0  69 6e 6e 6f 63 25 20 8c  0d 2c 24 43 20 20 20 20  |innoc% ..,$C    |
000077b0  20 20 20 20 20 20 20 20  20 20 20 e7 20 a4 61 62  |           . .ab|
000077c0  73 5f 77 72 69 74 65 70  74 72 28 68 61 6e 64 6c  |s_writeptr(handl|
000077d0  65 25 2c 6c 25 2c 22 48  79 70 6f 31 32 31 30 22  |e%,l%,"Hypo1210"|
000077e0  2c 64 69 72 24 2c 6e 24  29 20 8c 0d 2c 2e 46 20  |,dir$,n$) ..,.F |
000077f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00007800  20 a2 23 68 61 6e 64 6c  65 25 3d 6c 25 2b 38 3a  | .#handle%=l%+8:|
00007810  f4 20 54 72 75 6e 63 61  74 65 20 66 69 6c 65 20  |. Truncate file |
00007820  28 61 6c 6c 6f 77 20 66  6f 72 20 69 6e 6e 6f 63  |(allow for innoc|
00007830  29 0d 2c 38 1f 20 20 20  20 20 20 20 20 20 20 20  |).,8.           |
00007840  20 20 20 20 20 20 20 f2  6e 65 77 69 6e 6e 6f 63  |       .newinnoc|
00007850  0d 2c 42 58 20 20 20 20  20 20 20 20 20 20 20 20  |.,BX            |
00007860  20 20 20 20 20 20 f2 73  74 61 74 75 73 5f 6c 6f  |      .status_lo|
00007870  67 28 64 69 72 24 2c 6e  24 2b 22 20 68 61 73 20  |g(dir$,n$+" has |
00007880  62 65 65 6e 20 69 6e 6e  6f 63 75 6c 61 74 65 64  |been innoculated|
00007890  22 2c 22 61 67 61 69 6e  73 74 20 41 72 63 68 69  |","against Archi|
000078a0  65 56 69 72 75 73 22 29  0d 2c 4c 14 20 20 20 20  |eVirus").,L.    |
000078b0  20 20 20 20 20 20 20 20  20 20 20 cd 0d 2c 56 11  |           ..,V.|
000078c0  20 20 20 20 20 20 20 20  20 20 20 20 cd 0d 2c 60  |            ..,`|
000078d0  34 20 20 20 20 20 20 20  20 20 20 20 20 c8 99 20  |4            .. |
000078e0  22 58 4f 53 5f 46 69 6e  64 22 2c 30 2c 68 61 6e  |"XOS_Find",0,han|
000078f0  64 6c 65 25 3a f4 20 43  6c 6f 73 65 20 66 69 6c  |dle%:. Close fil|
00007900  65 0d 2c 6a 0e 20 20 20  20 20 20 20 20 20 cd 0d  |e.,j.         ..|
00007910  2c 74 0b 20 20 20 20 20  20 cd 0d 2c 7e 08 20 20  |,t.      ..,~.  |
00007920  20 cd 0d 2c 88 05 cd 0d  2c 92 11 e7 20 68 61 6e  | ..,....,... han|
00007930  64 6c 65 25 3d 30 20 8c  0d 2c 9c 35 20 20 20 f2  |dle%=0 ..,.5   .|
00007940  69 6e 66 65 63 74 5f 6c  6f 67 28 64 69 72 24 2c  |infect_log(dir$,|
00007950  6e 24 2b 22 20 63 6f 75  6c 64 20 6e 6f 74 20 62  |n$+" could not b|
00007960  65 20 6f 70 65 6e 65 64  22 2c 22 22 29 0d 2c a6  |e opened","").,.|
00007970  05 cd 0d 2c b0 05 e1 0d  2c ba 05 3a 0d 2c c4 27  |...,....,..:.,.'|
00007980  dd f2 63 68 65 63 6b 5f  66 6f 72 5f 42 41 53 49  |..check_for_BASI|
00007990  43 5f 76 69 72 75 73 28  64 69 72 24 2c 6e 61 6d  |C_virus(dir$,nam|
000079a0  65 24 29 0d 2c ce 16 c8  8e 20 a4 6c 6f 77 65 72  |e$).,.... .lower|
000079b0  28 6e 61 6d 65 24 29 20  ca 0d 2c d8 34 c9 20 22  |(name$) ..,.4. "|
000079c0  64 61 74 61 64 71 6d 22  3a e7 20 6c 65 6e 25 3d  |datadqm":. len%=|
000079d0  32 33 31 31 3a f2 76 69  67 61 79 5f 76 69 72 75  |2311:.vigay_viru|
000079e0  73 28 64 69 72 24 2c 6e  61 6d 65 24 29 0d 2c e2  |s(dir$,name$).,.|
000079f0  05 cb 0d 2c ec 05 e1 0d  2c f6 05 3a 0d 2d 00 18  |...,....,..:.-..|
00007a00  dd f2 76 69 67 61 79 5f  76 69 72 75 73 28 64 24  |..vigay_virus(d$|
00007a10  2c 6e 24 29 0d 2d 0a 3e  f2 6e 6f 74 69 66 79 76  |,n$).-.>.notifyv|
00007a20  69 72 75 73 28 22 56 69  67 61 79 20 56 69 72 75  |irus("Vigay Viru|
00007a30  73 20 69 6e 20 22 2b a4  61 70 70 6e 61 6d 65 28  |s in "+.appname(|
00007a40  64 24 29 2b 22 2e 22 2b  6e 24 2c 22 22 2c 30 2c  |d$)+"."+n$,"",0,|
00007a50  a3 29 0d 2d 14 25 f2 64  65 6c 66 69 6c 65 28 64  |.).-.%.delfile(d|
00007a60  24 2b 22 2e 22 2b 6e 24  2c 22 56 69 67 61 79 20  |$+"."+n$,"Vigay |
00007a70  56 69 72 75 73 22 29 0d  2d 1e 05 e1 0d 2d 28 05  |Virus").-....-(.|
00007a80  3a 0d 2d 32 1a dd f2 76  69 67 61 79 5f 72 75 6e  |:.-2...vigay_run|
00007a90  6e 69 6e 67 28 68 61 6e  64 25 29 0d 2d 3c 26 f2  |ning(hand%).-<&.|
00007aa0  6e 6f 74 69 66 79 76 69  72 75 73 28 22 56 69 67  |notifyvirus("Vig|
00007ab0  61 79 20 56 69 72 75 73  22 2c 22 22 2c 30 2c b9  |ay Virus","",0,.|
00007ac0  29 0d 2d 46 2f e7 20 68  61 6e 64 25 3d 30 3a 68  |).-F/. hand%=0:h|
00007ad0  61 6e 64 25 3d a4 67 65  74 74 61 73 6b 68 61 6e  |and%=.gettaskhan|
00007ae0  64 28 22 54 61 73 6b 4d  61 6e 61 67 65 72 22 29  |d("TaskManager")|
00007af0  0d 2d 50 0d e7 20 68 61  6e 64 25 20 8c 0d 2d 5a  |.-P.. hand% ..-Z|
00007b00  26 20 20 20 21 70 6f 6c  6c 25 3d 32 30 3a 70 6f  |&   !poll%=20:po|
00007b10  6c 6c 25 21 31 32 3d 30  3a 70 6f 6c 6c 25 21 31  |ll%!12=0:poll%!1|
00007b20  36 3d 30 0d 2d 64 2c 20  20 20 c8 99 20 22 58 57  |6=0.-d,   .. "XW|
00007b30  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00007b40  2c 31 37 2c 70 6f 6c 6c  25 2c 68 61 6e 64 25 0d  |,17,poll%,hand%.|
00007b50  2d 6e 2e 20 20 20 f2 73  74 61 74 75 73 5f 6c 6f  |-n.   .status_lo|
00007b60  67 28 22 22 2c 22 56 69  67 61 79 20 56 69 72 75  |g("","Vigay Viru|
00007b70  73 20 6b 69 6c 6c 65 64  22 2c 22 22 29 0d 2d 78  |s killed","").-x|
00007b80  05 cc 0d 2d 82 22 20 20  20 f2 75 6e 73 75 70 70  |...-."   .unsupp|
00007b90  6f 72 74 65 64 28 22 56  69 67 61 79 20 56 69 72  |orted("Vigay Vir|
00007ba0  75 73 22 29 0d 2d 8c 05  cd 0d 2d 96 05 e1 0d 2d  |us").-....-....-|
00007bb0  a0 05 3a 0d 2d aa 2f dd  a4 61 62 73 5f 77 72 69  |..:.-./..abs_wri|
00007bc0  74 65 70 74 72 28 66 69  6c 65 25 2c 70 6f 73 25  |teptr(file%,pos%|
00007bd0  2c 6d 65 73 73 24 2c 64  69 72 24 2c 6e 61 6d 65  |,mess$,dir$,name|
00007be0  24 29 0d 2d b4 0f ea 20  66 6c 61 67 73 25 2c 70  |$).-... flags%,p|
00007bf0  25 0d 2d be 14 24 73 65  65 6b 62 75 66 66 25 3d  |%.-..$seekbuff%=|
00007c00  6d 65 73 73 24 0d 2d c8  3d c8 99 20 22 58 4f 53  |mess$.-.=.. "XOS|
00007c10  5f 47 42 50 42 22 2c 31  2c 66 69 6c 65 25 2c 73  |_GBPB",1,file%,s|
00007c20  65 65 6b 62 75 66 66 25  2c a9 28 6d 65 73 73 24  |eekbuff%,.(mess$|
00007c30  29 2c 70 6f 73 25 20 b8  20 70 25 3b 66 6c 61 67  |),pos% . p%;flag|
00007c40  73 25 0d 2d d2 34 3d a4  61 62 73 5f 63 68 65 63  |s%.-.4=.abs_chec|
00007c50  6b 65 72 72 6f 72 28 66  6c 61 67 73 25 2c 64 69  |kerror(flags%,di|
00007c60  72 24 2c 6e 61 6d 65 24  2c 22 77 72 69 74 69 6e  |r$,name$,"writin|
00007c70  67 22 2c 70 25 29 0d 2d  dc 05 3a 0d 2d e6 2f dd  |g",p%).-..:.-./.|
00007c80  a4 61 62 73 5f 72 65 61  64 70 74 72 28 66 69 6c  |.abs_readptr(fil|
00007c90  65 25 2c 70 6f 73 25 2c  6c 65 6e 25 2c f8 20 73  |e%,pos%,len%,. s|
00007ca0  24 2c 64 69 72 24 2c 6e  24 29 0d 2d f0 0f ea 20  |$,dir$,n$).-... |
00007cb0  66 6c 61 67 73 25 2c 70  25 0d 2d fa 39 c8 99 20  |flags%,p%.-.9.. |
00007cc0  22 58 4f 53 5f 47 42 50  42 22 2c 33 2c 66 69 6c  |"XOS_GBPB",3,fil|
00007cd0  65 25 2c 73 65 65 6b 62  75 66 66 25 2c 6c 65 6e  |e%,seekbuff%,len|
00007ce0  25 2c 70 6f 73 25 20 b8  20 70 25 3b 66 6c 61 67  |%,pos% . p%;flag|
00007cf0  73 25 0d 2e 04 22 73 24  3d a4 6d 61 6b 65 73 74  |s%..."s$=.makest|
00007d00  72 69 6e 67 28 73 65 65  6b 62 75 66 66 25 2c 6c  |ring(seekbuff%,l|
00007d10  65 6e 25 29 0d 2e 0e 31  3d a4 61 62 73 5f 63 68  |en%)...1=.abs_ch|
00007d20  65 63 6b 65 72 72 6f 72  28 66 6c 61 67 73 25 2c  |eckerror(flags%,|
00007d30  64 69 72 24 2c 6e 24 2c  22 72 65 61 64 69 6e 67  |dir$,n$,"reading|
00007d40  22 2c 70 25 29 0d 2e 18  05 3a 0d 2e 22 27 dd a4  |",p%)....:.."'..|
00007d50  61 62 73 5f 63 68 65 63  6b 65 72 72 6f 72 28 66  |abs_checkerror(f|
00007d60  25 2c 64 69 72 24 2c 6e  24 2c 6f 70 24 2c 70 25  |%,dir$,n$,op$,p%|
00007d70  29 0d 2e 2c 0e e7 20 66  25 20 80 20 31 20 8c 0d  |)..,.. f% . 1 ..|
00007d80  2e 36 5d 20 20 20 f2 69  6e 66 65 63 74 5f 6c 6f  |.6]   .infect_lo|
00007d90  67 28 64 69 72 24 2c 6e  24 2b 22 20 63 6f 75 6c  |g(dir$,n$+" coul|
00007da0  64 20 6e 6f 74 20 62 65  20 61 63 63 65 73 73 65  |d not be accesse|
00007db0  64 22 2c 22 28 66 6f 72  20 22 2b 6f 70 24 2b 22  |d","(for "+op$+"|
00007dc0  2c 20 72 65 61 73 6f 6e  3a 20 22 2b a4 72 74 6f  |, reason: "+.rto|
00007dd0  7a 28 70 25 2b 34 29 2b  22 29 22 29 0d 2e 40 11  |z(p%+4)+")")..@.|
00007de0  20 20 20 64 6f 69 6e 6e  6f 63 25 3d a3 0d 2e 4a  |   doinnoc%=...J|
00007df0  05 cd 0d 2e 54 11 3d 28  28 66 25 20 80 20 31 29  |....T.=((f% . 1)|
00007e00  3d 30 29 0d 2e 5e 04 0d  2e 68 17 dd a4 63 6c 61  |=0)..^...h...cla|
00007e10  69 6d 52 4d 41 28 61 6d  6f 75 6e 74 25 29 0d 2e  |imRMA(amount%)..|
00007e20  72 12 ea 20 61 64 64 72  25 2c 66 6c 61 67 73 25  |r.. addr%,flags%|
00007e30  0d 2e 7c 30 c8 99 20 22  58 4f 53 5f 4d 6f 64 75  |..|0.. "XOS_Modu|
00007e40  6c 65 22 2c 36 2c 2c 2c  61 6d 6f 75 6e 74 25 20  |le",6,,,amount% |
00007e50  b8 20 2c 2c 61 64 64 72  25 3b 66 6c 61 67 73 25  |. ,,addr%;flags%|
00007e60  0d 2e 86 1c e7 20 66 6c  61 67 73 25 20 80 20 31  |..... flags% . 1|
00007e70  3a 3d 30 20 8b 20 3d 61  64 64 72 25 0d 2e 90 04  |:=0 . =addr%....|
00007e80  0d 2e 9a 17 dd f2 72 65  6c 65 61 73 65 52 4d 41  |......releaseRMA|
00007e90  28 61 64 64 72 25 29 0d  2e a4 1c c8 99 20 22 58  |(addr%)...... "X|
00007ea0  4f 53 5f 4d 6f 64 75 6c  65 22 2c 37 2c 2c 61 64  |OS_Module",7,,ad|
00007eb0  64 72 25 0d 2e ae 05 e1  0d ff                    |dr%.......|
00007eba