PDScheme/Atterer/!UnplugRM/!RunImage

Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Extras » PDScheme/Atterer/!UnplugRM/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Extras
Filename:	PDScheme/Atterer/!UnplugRM/!RunImage
Read OK:	✔
File size:	136A bytes
Load address:	0000
Exec address:	0000

File contents

    1REM "UnplugRM" (C) 1995/1996 by Richard Atterer
    2REM This program is Freeware. See documentation for further details.
    3
    4max%=127:REM maximum number of ROM modules allowed
    5print%=FALSE:REM print info
    6
    7ONERROR ERROR EXT 0,REPORT$+" ("+STR$ERL+")":END
    8HIMEM=&B240+16*max%:ptr%=HIMEM
    9
   10SYS"Hourglass_On"
   11DIM name%(max%),size%(max%),sizestr%(max%),swichunk%(max%):swichunk%()=-1
   12SYS"OS_ReadDynamicArea",1 TOrma%,rmaend%:rmaend%+=rma%
   13$ptr%="formatted":ptr%+=10
   14SYS"XOS_Module",19,0,-1 TO,rm%,C%,a$,E%;X%
   15WHILE(X%AND1)=0
   16  rm%-=1
   17  name%(rm%)=ptr%:$ptr%=a$:ptr%+=LENa$+1:sizestr%(rm%)=ptr%:ptr%+=8
   18  CASE E%OF
   19    WHEN-1
   20      SYS"XOS_CLI","RMReInit "+a$TO;V%
   21      IF(V%AND1)THEN
   22        size%(rm%)=&80000001
   23        ELSE
   24        SYS"OS_ReadDynamicArea",1 TOrma%,rmaend%:rmaend%+=rma%
   25        size%(rm%)=FNsize OR1
   26      ENDIF
   27      SYS"XOS_CLI","Unplug "+a$
   28    WHEN1,2:size%(rm%)=FNsize
   29    OTHERWISE
   30      size%(rm%)=&C0000000:REM 'dormant' for anything else
   31  ENDCASE  
   32  SYS"XOS_Module",19,rm%+1,C% TO,rm%,C%,a$,E%;X%
   33ENDWHILE
   34rm%-=1
   35:
   36REM Quicksort / SWI is Territory_Collate
   37FORi%=0TOrm%-1:A%=i%:FORj%=i%+1TOrm%:SYS&4305D,-1,name%(A%),name%(j%),3TOX%:IFX%>0 A%=j%
   38NEXTj%:IFA%<>i%SWAPname%(A%),name%(i%):SWAPsize%(A%),size%(i%):SWAPsizestr%(A%),sizestr%(i%):SWAPswichunk%(A%),swichunk%(i%)
   39NEXTi%
   40SYS"Hourglass_Off"
   41
   42SYS"Wimp_Initialise",310,&4B534154,"UnplugRM",0
   43SYS"XOS_ReadVarVal","UnplugRM$Templates",,-1,0,0 TO,,C%
   44C%=NOT C%:IFC%<255 A%=255 ELSE A%=C%
   45DIMbuf% A%+1:SYS"OS_ReadVarVal","UnplugRM$Templates",buf%,A%,0,0:buf%?C%=0
   46SYS"Wimp_OpenTemplate",,buf%
   47?buf%=1:SYS"OS_Word",14,buf%:IFbuf%?1=&04 ANDbuf%?2=&01 fool%=-1 ELSEfool%=0
   48SYS"Wimp_LoadTemplate",,-1,,,-1,"Unplug",0 TO,B%,C%:ptr%=(ptr%+3)ANDNOT3
   49SYS"Wimp_LoadTemplate",,ptr%,ptr%+B%,ptr%+B%+C%,-1,"Unplug",0
   50windef%=ptr%:icons%=windef%!84:ptr%+=B%+C%
   51swimod%=!(windef%+344+20)
   52IFfool% THEN
   53$(windef%!72)="Harddisc formatter":windef%!80=19
   54$swimod%="Harddisc has been formatted":windef%!372=28
   55$(windef%!396)="Status":windef%!404=7
   56$(windef%!428)="Track number":windef%!436=13
   57FORi%=0TOrm%:size%(i%)=i%<<1:NEXT:name%()=HIMEM
   58OSCLI"Filer_CloseDir :0.$"
   59OSCLI"Filer_CloseDir :4.$"
   60ENDIF
   61norom$=$swimod%:dormant$=$(windef%!(76+(icons%<<5))):caretstr%=!(windef%+312+20)
   62icon1%=windef%+24+(icons%<<5):icon2%=icon1%+32
   63windef%!84-=2:windef%!44=-332-48*rm%:SYS"Wimp_CreateWindow",,windef%TOwinh%
   64icon1%!-4=winh%
   65FORi%=0TOrm%:A%=(icon1%!16)ANDNOT(3<<21)
   66  IF(size%(i%)AND1) A%=A%OR(1<<21)
   67  IFsize%(i%)=&C0000000 ORfool% A%=A%OR(3<<21)
   68  icon1%!16=A%:icon1%!20=name%(i%):icon1%!28=LEN($name%(i%))+1
   69  SYS"Wimp_CreateIcon",7+(i%<<1),icon1%-4
   70  icon1%!4-=48:icon1%!12-=48
   71  icon2%!-4=winh%
   72  $sizestr%(i%)=FNsizestr(size%(i%))
   73  icon2%!20=sizestr%(i%):icon2%!28=LEN($sizestr%(i%))+1
   74  SYS"Wimp_CreateIcon",8+(i%<<1),icon2%-4
   75  icon2%!4-=48:icon2%!12-=48
   76NEXT
   77
   78IF print% PRINT TAB(0,0)"Mem: ";(ptr%-&8000+1023)>>10"k"'"NrOfRMs: ";rm%+1'"HIMEM=&"~HIMEM
   79SYS"Wimp_SlotSize",ptr%-&8000,-1
   80
   81!buf%=winh%:SYS"Wimp_GetWindowState",,buf%
   82SYS"Wimp_OpenWindow",,buf%
   83SYS"Wimp_SetCaretPosition",winh%,7,,,-1,0
   84mask%=%1100000110001
   85
   86REPEAT
   87SYS"Wimp_Poll",mask%,buf%TOevent%,block%
   88CASEevent%OF
   89  WHEN2:SYS"Wimp_OpenWindow",,block%
   90  WHEN3:END
   91  WHEN6
   92    A%=block%!16
   93    IF(A%AND1)=1 ANDA%>icons%-3 AND((block%!8)AND5)>0 THEN
   94      i%=(A%-icons%+2)>>1:a$=$name%(i%)
   95      IFsize%(i%)AND1 THEN
   96        SYS"XOS_CLI","RMReInit "+a$TO;V%
   97        SYS"OS_ReadDynamicArea",1 TOrma%,rmaend%:rmaend%+=rma%
   98        IF(V%AND1)THEN
   99          VDU7:PROCupdate(A%,1<<21)
  100          ELSE
  101          SYS"XOS_Module",18,a$TO,,,,size%(i%)
  102          IFsize%(i%)>=rma%ANDsize%(i%)<rmaend%THEN
  103            SYS"XOS_Heap",6,rma%,size%(i%)TO,,,size%(i%);V%
  104            IF(V%AND1) size%(i%)=&80000000 ELSE size%(i%)=size%(i%)<<1
  105            ELSE
  106            size%(i%)=0
  107          ENDIF
  108        ENDIF
  109        ELSE
  110        SYS"XOS_CLI","Unplug "+a$TO;V%
  111        IF(V%AND1) VDU7:SYS"XOS_CLI","RMReInit "+a$:PROCupdate(A%,1<<21) ELSEsize%(i%)=size%(i%)OR1
  112      ENDIF
  113      $sizestr%(i%)=FNsizestr(size%(i%)):PROCupdate(A%+1,0)
  114      ELSE
  115      IFA%=3 AND((block%!8)AND5) ANDNOTfool% OSCLI"Filer_Run <UnplugRM$Help>"
  116    ENDIF
  117  WHEN8
  118    A%=block%!24
  119    IF?caretstr%<32 C%=-2 ELSE SYS"OS_ReadUnsigned",16,caretstr%TO,,C%:C%=C%ANDNOT63
  120    i%=-1:REPEAT:i%+=1:UNTILi%=rm%+1 ORswichunk%(i%)=C%
  121    IFi%=rm%+1 THEN
  122      IF$swimod%<>norom$ $swimod%=norom$:PROCupdate(8,0)
  123      ELSE
  124      IF$swimod%<>$name%(i%) $swimod%=$name%(i%):PROCupdate(8,0)
  125    ENDIF
  126    IFA%<48 OR A%>102 THEN SYS"Wimp_ProcessKey",A%
  127  WHEN17,18:IFblock%!16=0 END
  128ENDCASE
  129UNTIL FALSE
  130
  131DEFFNsizestr(x%)
  132IFx%=&C0000000 THEN =dormant$
  133IF(x%>>>1)=(1<<30) b$="?"ELSEb$=STR$(x%>>>1)
  134IF(x%AND1)THEN ="("+b$+")" ELSE=b$
  135
  136DEFPROCupdate(x%,i%)
  137!buf%=winh%:buf%!4=x%:buf%!8=i%:buf%!12=0
  138SYS"Wimp_SetIconState",,buf%:ENDPROC
  139
  140DEFFNsize
  141SYS"OS_Module",18,a$TO,,,D%,x%
  142IFD%<>0 AND(D%!&1C)<>0 AND((D%!&1C)AND&FFF2003F)=0 swichunk%(rm%)=D%!&1C
  143IFx%>=rma%ANDx%<rmaend%THEN
  144  SYS"XOS_Heap",6,rma%,x%TO,,,x%;V%
  145  IF(V%AND1) THEN =1<<30 ELSE =x%<<1
  146  ELSE
  147  =0
  148ENDIF

1� "UnplugRM" (C) 1995/1996 by Richard Atterer
F� This program is Freeware. See documentation for further details.

4max%=127:� maximum number of ROM modules allowed
print%=�:� print info

� � � 0,�$+" ("+Þ+")":�
�=&B240+16*max%:ptr%=�
	

ș"Hourglass_On"
K� name%(max%),size%(max%),sizestr%(max%),swichunk%(max%):swichunk%()=-1
8ș"OS_ReadDynamicArea",1 �rma%,rmaend%:rmaend%+=rma%

$ptr%="formatted":ptr%+=10
,ș"XOS_Module",19,0,-1 �,rm%,C%,a$,E%;X%
ȕ(X%�1)=0
  rm%-=1
E  name%(rm%)=ptr%:$ptr%=a$:ptr%+=�a$+1:sizestr%(rm%)=ptr%:ptr%+=8
  Ȏ E%�
    �-1
(      ș"XOS_CLI","RMReInit "+a$�;V%
      �(V%�1)�
         size%(rm%)=&80000001

        �
@        ș"OS_ReadDynamicArea",1 �rma%,rmaend%:rmaend%+=rma%
        size%(rm%)=�size �1
      �
"      ș"XOS_CLI","Unplug "+a$
    �1,2:size%(rm%)=�size
	    
<      size%(rm%)=&C0000000:� 'dormant' for anything else
	  �  
 2  ș"XOS_Module",19,rm%+1,C% �,rm%,C%,a$,E%;X%
!�
"
rm%-=1
#:
$*� Quicksort / SWI is Territory_Collate
%S�i%=0�rm%-1:A%=i%:�j%=i%+1�rm%:ș&4305D,-1,name%(A%),name%(j%),3�X%:�X%>0 A%=j%
&t�j%:�A%<>i%Ȕname%(A%),name%(i%):Ȕsize%(A%),size%(i%):Ȕsizestr%(A%),sizestr%(i%):Ȕswichunk%(A%),swichunk%(i%)
'�i%
(ș"Hourglass_Off"
)
*2ș"Wimp_Initialise",310,&4B534154,"UnplugRM",0
+9ș"XOS_ReadVarVal","UnplugRM$Templates",,-1,0,0 �,,C%
,"C%=� C%:�C%<255 A%=255 � A%=C%
-K�buf% A%+1:ș"OS_ReadVarVal","UnplugRM$Templates",buf%,A%,0,0:buf%?C%=0
.ș"Wimp_OpenTemplate",,buf%
/I?buf%=1:ș"OS_Word",14,buf%:�buf%?1=&04 �buf%?2=&01 fool%=-1 �fool%=0
0Fș"Wimp_LoadTemplate",,-1,,,-1,"Unplug",0 �,B%,C%:ptr%=(ptr%+3)��3
1@ș"Wimp_LoadTemplate",,ptr%,ptr%+B%,ptr%+B%+C%,-1,"Unplug",0
2.windef%=ptr%:icons%=windef%!84:ptr%+=B%+C%
3swimod%=!(windef%+344+20)
4�fool% �
54$(windef%!72)="Harddisc formatter":windef%!80=19
69$swimod%="Harddisc has been formatted":windef%!372=28
7)$(windef%!396)="Status":windef%!404=7
80$(windef%!428)="Track number":windef%!436=13
9)�i%=0�rm%:size%(i%)=i%<<1:�:name%()=�
:�"Filer_CloseDir :0.$"
;�"Filer_CloseDir :4.$"
<�
=Tnorom$=$swimod%:dormant$=$(windef%!(76+(icons%<<5))):caretstr%=!(windef%+312+20)
>2icon1%=windef%+24+(icons%<<5):icon2%=icon1%+32
?Mwindef%!84-=2:windef%!44=-332-48*rm%:ș"Wimp_CreateWindow",,windef%�winh%
@icon1%!-4=winh%
A%�i%=0�rm%:A%=(icon1%!16)��(3<<21)
B"  �(size%(i%)�1) A%=A%�(1<<21)
C/  �size%(i%)=&C0000000 �fool% A%=A%�(3<<21)
D@  icon1%!16=A%:icon1%!20=name%(i%):icon1%!28=�($name%(i%))+1
E,  ș"Wimp_CreateIcon",7+(i%<<1),icon1%-4
F   icon1%!4-=48:icon1%!12-=48
G  icon2%!-4=winh%
H'  $sizestr%(i%)=�sizestr(size%(i%))
I9  icon2%!20=sizestr%(i%):icon2%!28=�($sizestr%(i%))+1
J,  ș"Wimp_CreateIcon",8+(i%<<1),icon2%-4
K   icon2%!4-=48:icon2%!12-=48
L�
M
NR� print% � �0,0)"Mem: ";(ptr%-&8000+1023)>>10"k"'"NrOfRMs: ";rm%+1'"HIMEM=&"~�
O#ș"Wimp_SlotSize",ptr%-&8000,-1
P
Q-!buf%=winh%:ș"Wimp_GetWindowState",,buf%
Rș"Wimp_OpenWindow",,buf%
S,ș"Wimp_SetCaretPosition",winh%,7,,,-1,0
Tmask%=%1100000110001
U
V�
W*ș"Wimp_Poll",mask%,buf%�event%,block%
X
Ȏevent%�
Y$  �2:ș"Wimp_OpenWindow",,block%
Z
  �3:�
[  �6
\    A%=block%!16
]2    �(A%�1)=1 �A%>icons%-3 �((block%!8)�5)>0 �
^+      i%=(A%-icons%+2)>>1:a$=$name%(i%)
_      �size%(i%)�1 �
`*        ș"XOS_CLI","RMReInit "+a$�;V%
a@        ș"OS_ReadDynamicArea",1 �rma%,rmaend%:rmaend%+=rma%
b        �(V%�1)�
c"          �7:�update(A%,1<<21)
d          �
e0          ș"XOS_Module",18,a$�,,,,size%(i%)
f1          �size%(i%)>=rma%�size%(i%)<rmaend%�
g=            ș"XOS_Heap",6,rma%,size%(i%)�,,,size%(i%);V%
hD            �(V%�1) size%(i%)=&80000000 � size%(i%)=size%(i%)<<1
i            �
j            size%(i%)=0
k          �
l
        �
m
        �
n(        ș"XOS_CLI","Unplug "+a$�;V%
oZ        �(V%�1) �7:ș"XOS_CLI","RMReInit "+a$:�update(A%,1<<21) �size%(i%)=size%(i%)�1
p      �
q;      $sizestr%(i%)=�sizestr(size%(i%)):�update(A%+1,0)
r      �
sD      �A%=3 �((block%!8)�5) ��fool% �"Filer_Run <UnplugRM$Help>"
t	    �
u  �8
v    A%=block%!24
wN    �?caretstr%<32 C%=-2 � ș"OS_ReadUnsigned",16,caretstr%�,,C%:C%=C%��63
x1    i%=-1:�:i%+=1:�i%=rm%+1 �swichunk%(i%)=C%
y    �i%=rm%+1 �
z8      �$swimod%<>norom$ $swimod%=norom$:�update(8,0)
{      �
|@      �$swimod%<>$name%(i%) $swimod%=$name%(i%):�update(8,0)
}	    �
~0    �A%<48 � A%>102 � ș"Wimp_ProcessKey",A%
  �17,18:�block%!16=0 �
��
�� �
�
�ݤsizestr(x%)
��x%=&C0000000 � =dormant$
�)�(x%>>>1)=(1<<30) b$="?"�b$=�(x%>>>1)
��(x%�1)� ="("+b$+")" �=b$
�
���update(x%,i%)
�-!buf%=winh%:buf%!4=x%:buf%!8=i%:buf%!12=0
�!ș"Wimp_SetIconState",,buf%:�
�
�
ݤsize
� ș"OS_Module",18,a$�,,,D%,x%
�E�D%<>0 �(D%!&1C)<>0 �((D%!&1C)�&FFF2003F)=0 swichunk%(rm%)=D%!&1C
��x%>=rma%�x%<rmaend%�
�%  ș"XOS_Heap",6,rma%,x%�,,,x%;V%
�  �(V%�1) � =1<<30 � =x%<<1
�  �
�  =0
��
�

00000000  0d 00 01 31 f4 20 22 55  6e 70 6c 75 67 52 4d 22  |...1. "UnplugRM"|
00000010  20 28 43 29 20 31 39 39  35 2f 31 39 39 36 20 62  | (C) 1995/1996 b|
00000020  79 20 52 69 63 68 61 72  64 20 41 74 74 65 72 65  |y Richard Attere|
00000030  72 0d 00 02 46 f4 20 54  68 69 73 20 70 72 6f 67  |r...F. This prog|
00000040  72 61 6d 20 69 73 20 46  72 65 65 77 61 72 65 2e  |ram is Freeware.|
00000050  20 53 65 65 20 64 6f 63  75 6d 65 6e 74 61 74 69  | See documentati|
00000060  6f 6e 20 66 6f 72 20 66  75 72 74 68 65 72 20 64  |on for further d|
00000070  65 74 61 69 6c 73 2e 0d  00 03 04 0d 00 04 34 6d  |etails........4m|
00000080  61 78 25 3d 31 32 37 3a  f4 20 6d 61 78 69 6d 75  |ax%=127:. maximu|
00000090  6d 20 6e 75 6d 62 65 72  20 6f 66 20 52 4f 4d 20  |m number of ROM |
000000a0  6d 6f 64 75 6c 65 73 20  61 6c 6c 6f 77 65 64 0d  |modules allowed.|
000000b0  00 05 19 70 72 69 6e 74  25 3d a3 3a f4 20 70 72  |...print%=.:. pr|
000000c0  69 6e 74 20 69 6e 66 6f  0d 00 06 04 0d 00 07 1d  |int info........|
000000d0  ee 85 20 85 20 a2 20 30  2c f6 24 2b 22 20 28 22  |.. . . 0,.$+" ("|
000000e0  2b c3 9e 2b 22 29 22 3a  e0 0d 00 08 1a d3 3d 26  |+..+")":......=&|
000000f0  42 32 34 30 2b 31 36 2a  6d 61 78 25 3a 70 74 72  |B240+16*max%:ptr|
00000100  25 3d 93 0d 00 09 04 0d  00 0a 14 c8 99 22 48 6f  |%=..........."Ho|
00000110  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 00 0b 4b de  |urglass_On"...K.|
00000120  20 6e 61 6d 65 25 28 6d  61 78 25 29 2c 73 69 7a  | name%(max%),siz|
00000130  65 25 28 6d 61 78 25 29  2c 73 69 7a 65 73 74 72  |e%(max%),sizestr|
00000140  25 28 6d 61 78 25 29 2c  73 77 69 63 68 75 6e 6b  |%(max%),swichunk|
00000150  25 28 6d 61 78 25 29 3a  73 77 69 63 68 75 6e 6b  |%(max%):swichunk|
00000160  25 28 29 3d 2d 31 0d 00  0c 38 c8 99 22 4f 53 5f  |%()=-1...8.."OS_|
00000170  52 65 61 64 44 79 6e 61  6d 69 63 41 72 65 61 22  |ReadDynamicArea"|
00000180  2c 31 20 b8 72 6d 61 25  2c 72 6d 61 65 6e 64 25  |,1 .rma%,rmaend%|
00000190  3a 72 6d 61 65 6e 64 25  2b 3d 72 6d 61 25 0d 00  |:rmaend%+=rma%..|
000001a0  0d 1e 24 70 74 72 25 3d  22 66 6f 72 6d 61 74 74  |..$ptr%="formatt|
000001b0  65 64 22 3a 70 74 72 25  2b 3d 31 30 0d 00 0e 2c  |ed":ptr%+=10...,|
000001c0  c8 99 22 58 4f 53 5f 4d  6f 64 75 6c 65 22 2c 31  |.."XOS_Module",1|
000001d0  39 2c 30 2c 2d 31 20 b8  2c 72 6d 25 2c 43 25 2c  |9,0,-1 .,rm%,C%,|
000001e0  61 24 2c 45 25 3b 58 25  0d 00 0f 0e c8 95 28 58  |a$,E%;X%......(X|
000001f0  25 80 31 29 3d 30 0d 00  10 0c 20 20 72 6d 25 2d  |%.1)=0....  rm%-|
00000200  3d 31 0d 00 11 45 20 20  6e 61 6d 65 25 28 72 6d  |=1...E  name%(rm|
00000210  25 29 3d 70 74 72 25 3a  24 70 74 72 25 3d 61 24  |%)=ptr%:$ptr%=a$|
00000220  3a 70 74 72 25 2b 3d a9  61 24 2b 31 3a 73 69 7a  |:ptr%+=.a$+1:siz|
00000230  65 73 74 72 25 28 72 6d  25 29 3d 70 74 72 25 3a  |estr%(rm%)=ptr%:|
00000240  70 74 72 25 2b 3d 38 0d  00 12 0c 20 20 c8 8e 20  |ptr%+=8....  .. |
00000250  45 25 ca 0d 00 13 0b 20  20 20 20 c9 2d 31 0d 00  |E%.....    .-1..|
00000260  14 28 20 20 20 20 20 20  c8 99 22 58 4f 53 5f 43  |.(      .."XOS_C|
00000270  4c 49 22 2c 22 52 4d 52  65 49 6e 69 74 20 22 2b  |LI","RMReInit "+|
00000280  61 24 b8 3b 56 25 0d 00  15 12 20 20 20 20 20 20  |a$.;V%....      |
00000290  e7 28 56 25 80 31 29 8c  0d 00 16 20 20 20 20 20  |.(V%.1)....     |
000002a0  20 20 20 20 73 69 7a 65  25 28 72 6d 25 29 3d 26  |    size%(rm%)=&|
000002b0  38 30 30 30 30 30 30 31  0d 00 17 0d 20 20 20 20  |80000001....    |
000002c0  20 20 20 20 cc 0d 00 18  40 20 20 20 20 20 20 20  |    ....@       |
000002d0  20 c8 99 22 4f 53 5f 52  65 61 64 44 79 6e 61 6d  | .."OS_ReadDynam|
000002e0  69 63 41 72 65 61 22 2c  31 20 b8 72 6d 61 25 2c  |icArea",1 .rma%,|
000002f0  72 6d 61 65 6e 64 25 3a  72 6d 61 65 6e 64 25 2b  |rmaend%:rmaend%+|
00000300  3d 72 6d 61 25 0d 00 19  1f 20 20 20 20 20 20 20  |=rma%....       |
00000310  20 73 69 7a 65 25 28 72  6d 25 29 3d a4 73 69 7a  | size%(rm%)=.siz|
00000320  65 20 84 31 0d 00 1a 0b  20 20 20 20 20 20 cd 0d  |e .1....      ..|
00000330  00 1b 22 20 20 20 20 20  20 c8 99 22 58 4f 53 5f  |.."      .."XOS_|
00000340  43 4c 49 22 2c 22 55 6e  70 6c 75 67 20 22 2b 61  |CLI","Unplug "+a|
00000350  24 0d 00 1c 1d 20 20 20  20 c9 31 2c 32 3a 73 69  |$....    .1,2:si|
00000360  7a 65 25 28 72 6d 25 29  3d a4 73 69 7a 65 0d 00  |ze%(rm%)=.size..|
00000370  1d 09 20 20 20 20 7f 0d  00 1e 3c 20 20 20 20 20  |..    ....<     |
00000380  20 73 69 7a 65 25 28 72  6d 25 29 3d 26 43 30 30  | size%(rm%)=&C00|
00000390  30 30 30 30 30 3a f4 20  27 64 6f 72 6d 61 6e 74  |00000:. 'dormant|
000003a0  27 20 66 6f 72 20 61 6e  79 74 68 69 6e 67 20 65  |' for anything e|
000003b0  6c 73 65 0d 00 1f 09 20  20 cb 20 20 0d 00 20 32  |lse....  .  .. 2|
000003c0  20 20 c8 99 22 58 4f 53  5f 4d 6f 64 75 6c 65 22  |  .."XOS_Module"|
000003d0  2c 31 39 2c 72 6d 25 2b  31 2c 43 25 20 b8 2c 72  |,19,rm%+1,C% .,r|
000003e0  6d 25 2c 43 25 2c 61 24  2c 45 25 3b 58 25 0d 00  |m%,C%,a$,E%;X%..|
000003f0  21 05 ce 0d 00 22 0a 72  6d 25 2d 3d 31 0d 00 23  |!....".rm%-=1..#|
00000400  05 3a 0d 00 24 2a f4 20  51 75 69 63 6b 73 6f 72  |.:..$*. Quicksor|
00000410  74 20 2f 20 53 57 49 20  69 73 20 54 65 72 72 69  |t / SWI is Terri|
00000420  74 6f 72 79 5f 43 6f 6c  6c 61 74 65 0d 00 25 53  |tory_Collate..%S|
00000430  e3 69 25 3d 30 b8 72 6d  25 2d 31 3a 41 25 3d 69  |.i%=0.rm%-1:A%=i|
00000440  25 3a e3 6a 25 3d 69 25  2b 31 b8 72 6d 25 3a c8  |%:.j%=i%+1.rm%:.|
00000450  99 26 34 33 30 35 44 2c  2d 31 2c 6e 61 6d 65 25  |.&4305D,-1,name%|
00000460  28 41 25 29 2c 6e 61 6d  65 25 28 6a 25 29 2c 33  |(A%),name%(j%),3|
00000470  b8 58 25 3a e7 58 25 3e  30 20 41 25 3d 6a 25 0d  |.X%:.X%>0 A%=j%.|
00000480  00 26 74 ed 6a 25 3a e7  41 25 3c 3e 69 25 c8 94  |.&t.j%:.A%<>i%..|
00000490  6e 61 6d 65 25 28 41 25  29 2c 6e 61 6d 65 25 28  |name%(A%),name%(|
000004a0  69 25 29 3a c8 94 73 69  7a 65 25 28 41 25 29 2c  |i%):..size%(A%),|
000004b0  73 69 7a 65 25 28 69 25  29 3a c8 94 73 69 7a 65  |size%(i%):..size|
000004c0  73 74 72 25 28 41 25 29  2c 73 69 7a 65 73 74 72  |str%(A%),sizestr|
000004d0  25 28 69 25 29 3a c8 94  73 77 69 63 68 75 6e 6b  |%(i%):..swichunk|
000004e0  25 28 41 25 29 2c 73 77  69 63 68 75 6e 6b 25 28  |%(A%),swichunk%(|
000004f0  69 25 29 0d 00 27 07 ed  69 25 0d 00 28 15 c8 99  |i%)..'..i%..(...|
00000500  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00000510  00 29 04 0d 00 2a 32 c8  99 22 57 69 6d 70 5f 49  |.)...*2.."Wimp_I|
00000520  6e 69 74 69 61 6c 69 73  65 22 2c 33 31 30 2c 26  |nitialise",310,&|
00000530  34 42 35 33 34 31 35 34  2c 22 55 6e 70 6c 75 67  |4B534154,"Unplug|
00000540  52 4d 22 2c 30 0d 00 2b  39 c8 99 22 58 4f 53 5f  |RM",0..+9.."XOS_|
00000550  52 65 61 64 56 61 72 56  61 6c 22 2c 22 55 6e 70  |ReadVarVal","Unp|
00000560  6c 75 67 52 4d 24 54 65  6d 70 6c 61 74 65 73 22  |lugRM$Templates"|
00000570  2c 2c 2d 31 2c 30 2c 30  20 b8 2c 2c 43 25 0d 00  |,,-1,0,0 .,,C%..|
00000580  2c 22 43 25 3d ac 20 43  25 3a e7 43 25 3c 32 35  |,"C%=. C%:.C%<25|
00000590  35 20 41 25 3d 32 35 35  20 8b 20 41 25 3d 43 25  |5 A%=255 . A%=C%|
000005a0  0d 00 2d 4b de 62 75 66  25 20 41 25 2b 31 3a c8  |..-K.buf% A%+1:.|
000005b0  99 22 4f 53 5f 52 65 61  64 56 61 72 56 61 6c 22  |."OS_ReadVarVal"|
000005c0  2c 22 55 6e 70 6c 75 67  52 4d 24 54 65 6d 70 6c  |,"UnplugRM$Templ|
000005d0  61 74 65 73 22 2c 62 75  66 25 2c 41 25 2c 30 2c  |ates",buf%,A%,0,|
000005e0  30 3a 62 75 66 25 3f 43  25 3d 30 0d 00 2e 1f c8  |0:buf%?C%=0.....|
000005f0  99 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  |."Wimp_OpenTempl|
00000600  61 74 65 22 2c 2c 62 75  66 25 0d 00 2f 49 3f 62  |ate",,buf%../I?b|
00000610  75 66 25 3d 31 3a c8 99  22 4f 53 5f 57 6f 72 64  |uf%=1:.."OS_Word|
00000620  22 2c 31 34 2c 62 75 66  25 3a e7 62 75 66 25 3f  |",14,buf%:.buf%?|
00000630  31 3d 26 30 34 20 80 62  75 66 25 3f 32 3d 26 30  |1=&04 .buf%?2=&0|
00000640  31 20 66 6f 6f 6c 25 3d  2d 31 20 8b 66 6f 6f 6c  |1 fool%=-1 .fool|
00000650  25 3d 30 0d 00 30 46 c8  99 22 57 69 6d 70 5f 4c  |%=0..0F.."Wimp_L|
00000660  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 2d 31  |oadTemplate",,-1|
00000670  2c 2c 2c 2d 31 2c 22 55  6e 70 6c 75 67 22 2c 30  |,,,-1,"Unplug",0|
00000680  20 b8 2c 42 25 2c 43 25  3a 70 74 72 25 3d 28 70  | .,B%,C%:ptr%=(p|
00000690  74 72 25 2b 33 29 80 ac  33 0d 00 31 40 c8 99 22  |tr%+3)..3..1@.."|
000006a0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000006b0  65 22 2c 2c 70 74 72 25  2c 70 74 72 25 2b 42 25  |e",,ptr%,ptr%+B%|
000006c0  2c 70 74 72 25 2b 42 25  2b 43 25 2c 2d 31 2c 22  |,ptr%+B%+C%,-1,"|
000006d0  55 6e 70 6c 75 67 22 2c  30 0d 00 32 2e 77 69 6e  |Unplug",0..2.win|
000006e0  64 65 66 25 3d 70 74 72  25 3a 69 63 6f 6e 73 25  |def%=ptr%:icons%|
000006f0  3d 77 69 6e 64 65 66 25  21 38 34 3a 70 74 72 25  |=windef%!84:ptr%|
00000700  2b 3d 42 25 2b 43 25 0d  00 33 1d 73 77 69 6d 6f  |+=B%+C%..3.swimo|
00000710  64 25 3d 21 28 77 69 6e  64 65 66 25 2b 33 34 34  |d%=!(windef%+344|
00000720  2b 32 30 29 0d 00 34 0c  e7 66 6f 6f 6c 25 20 8c  |+20)..4..fool% .|
00000730  0d 00 35 34 24 28 77 69  6e 64 65 66 25 21 37 32  |..54$(windef%!72|
00000740  29 3d 22 48 61 72 64 64  69 73 63 20 66 6f 72 6d  |)="Harddisc form|
00000750  61 74 74 65 72 22 3a 77  69 6e 64 65 66 25 21 38  |atter":windef%!8|
00000760  30 3d 31 39 0d 00 36 39  24 73 77 69 6d 6f 64 25  |0=19..69$swimod%|
00000770  3d 22 48 61 72 64 64 69  73 63 20 68 61 73 20 62  |="Harddisc has b|
00000780  65 65 6e 20 66 6f 72 6d  61 74 74 65 64 22 3a 77  |een formatted":w|
00000790  69 6e 64 65 66 25 21 33  37 32 3d 32 38 0d 00 37  |indef%!372=28..7|
000007a0  29 24 28 77 69 6e 64 65  66 25 21 33 39 36 29 3d  |)$(windef%!396)=|
000007b0  22 53 74 61 74 75 73 22  3a 77 69 6e 64 65 66 25  |"Status":windef%|
000007c0  21 34 30 34 3d 37 0d 00  38 30 24 28 77 69 6e 64  |!404=7..80$(wind|
000007d0  65 66 25 21 34 32 38 29  3d 22 54 72 61 63 6b 20  |ef%!428)="Track |
000007e0  6e 75 6d 62 65 72 22 3a  77 69 6e 64 65 66 25 21  |number":windef%!|
000007f0  34 33 36 3d 31 33 0d 00  39 29 e3 69 25 3d 30 b8  |436=13..9).i%=0.|
00000800  72 6d 25 3a 73 69 7a 65  25 28 69 25 29 3d 69 25  |rm%:size%(i%)=i%|
00000810  3c 3c 31 3a ed 3a 6e 61  6d 65 25 28 29 3d 93 0d  |<<1:.:name%()=..|
00000820  00 3a 1a ff 22 46 69 6c  65 72 5f 43 6c 6f 73 65  |.:.."Filer_Close|
00000830  44 69 72 20 3a 30 2e 24  22 0d 00 3b 1a ff 22 46  |Dir :0.$"..;.."F|
00000840  69 6c 65 72 5f 43 6c 6f  73 65 44 69 72 20 3a 34  |iler_CloseDir :4|
00000850  2e 24 22 0d 00 3c 05 cd  0d 00 3d 54 6e 6f 72 6f  |.$"..<....=Tnoro|
00000860  6d 24 3d 24 73 77 69 6d  6f 64 25 3a 64 6f 72 6d  |m$=$swimod%:dorm|
00000870  61 6e 74 24 3d 24 28 77  69 6e 64 65 66 25 21 28  |ant$=$(windef%!(|
00000880  37 36 2b 28 69 63 6f 6e  73 25 3c 3c 35 29 29 29  |76+(icons%<<5)))|
00000890  3a 63 61 72 65 74 73 74  72 25 3d 21 28 77 69 6e  |:caretstr%=!(win|
000008a0  64 65 66 25 2b 33 31 32  2b 32 30 29 0d 00 3e 32  |def%+312+20)..>2|
000008b0  69 63 6f 6e 31 25 3d 77  69 6e 64 65 66 25 2b 32  |icon1%=windef%+2|
000008c0  34 2b 28 69 63 6f 6e 73  25 3c 3c 35 29 3a 69 63  |4+(icons%<<5):ic|
000008d0  6f 6e 32 25 3d 69 63 6f  6e 31 25 2b 33 32 0d 00  |on2%=icon1%+32..|
000008e0  3f 4d 77 69 6e 64 65 66  25 21 38 34 2d 3d 32 3a  |?Mwindef%!84-=2:|
000008f0  77 69 6e 64 65 66 25 21  34 34 3d 2d 33 33 32 2d  |windef%!44=-332-|
00000900  34 38 2a 72 6d 25 3a c8  99 22 57 69 6d 70 5f 43  |48*rm%:.."Wimp_C|
00000910  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |reateWindow",,wi|
00000920  6e 64 65 66 25 b8 77 69  6e 68 25 0d 00 40 13 69  |ndef%.winh%..@.i|
00000930  63 6f 6e 31 25 21 2d 34  3d 77 69 6e 68 25 0d 00  |con1%!-4=winh%..|
00000940  41 25 e3 69 25 3d 30 b8  72 6d 25 3a 41 25 3d 28  |A%.i%=0.rm%:A%=(|
00000950  69 63 6f 6e 31 25 21 31  36 29 80 ac 28 33 3c 3c  |icon1%!16)..(3<<|
00000960  32 31 29 0d 00 42 22 20  20 e7 28 73 69 7a 65 25  |21)..B"  .(size%|
00000970  28 69 25 29 80 31 29 20  41 25 3d 41 25 84 28 31  |(i%).1) A%=A%.(1|
00000980  3c 3c 32 31 29 0d 00 43  2f 20 20 e7 73 69 7a 65  |<<21)..C/  .size|
00000990  25 28 69 25 29 3d 26 43  30 30 30 30 30 30 30 20  |%(i%)=&C0000000 |
000009a0  84 66 6f 6f 6c 25 20 41  25 3d 41 25 84 28 33 3c  |.fool% A%=A%.(3<|
000009b0  3c 32 31 29 0d 00 44 40  20 20 69 63 6f 6e 31 25  |<21)..D@  icon1%|
000009c0  21 31 36 3d 41 25 3a 69  63 6f 6e 31 25 21 32 30  |!16=A%:icon1%!20|
000009d0  3d 6e 61 6d 65 25 28 69  25 29 3a 69 63 6f 6e 31  |=name%(i%):icon1|
000009e0  25 21 32 38 3d a9 28 24  6e 61 6d 65 25 28 69 25  |%!28=.($name%(i%|
000009f0  29 29 2b 31 0d 00 45 2c  20 20 c8 99 22 57 69 6d  |))+1..E,  .."Wim|
00000a00  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 37 2b  |p_CreateIcon",7+|
00000a10  28 69 25 3c 3c 31 29 2c  69 63 6f 6e 31 25 2d 34  |(i%<<1),icon1%-4|
00000a20  0d 00 46 20 20 20 69 63  6f 6e 31 25 21 34 2d 3d  |..F   icon1%!4-=|
00000a30  34 38 3a 69 63 6f 6e 31  25 21 31 32 2d 3d 34 38  |48:icon1%!12-=48|
00000a40  0d 00 47 15 20 20 69 63  6f 6e 32 25 21 2d 34 3d  |..G.  icon2%!-4=|
00000a50  77 69 6e 68 25 0d 00 48  27 20 20 24 73 69 7a 65  |winh%..H'  $size|
00000a60  73 74 72 25 28 69 25 29  3d a4 73 69 7a 65 73 74  |str%(i%)=.sizest|
00000a70  72 28 73 69 7a 65 25 28  69 25 29 29 0d 00 49 39  |r(size%(i%))..I9|
00000a80  20 20 69 63 6f 6e 32 25  21 32 30 3d 73 69 7a 65  |  icon2%!20=size|
00000a90  73 74 72 25 28 69 25 29  3a 69 63 6f 6e 32 25 21  |str%(i%):icon2%!|
00000aa0  32 38 3d a9 28 24 73 69  7a 65 73 74 72 25 28 69  |28=.($sizestr%(i|
00000ab0  25 29 29 2b 31 0d 00 4a  2c 20 20 c8 99 22 57 69  |%))+1..J,  .."Wi|
00000ac0  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 38  |mp_CreateIcon",8|
00000ad0  2b 28 69 25 3c 3c 31 29  2c 69 63 6f 6e 32 25 2d  |+(i%<<1),icon2%-|
00000ae0  34 0d 00 4b 20 20 20 69  63 6f 6e 32 25 21 34 2d  |4..K   icon2%!4-|
00000af0  3d 34 38 3a 69 63 6f 6e  32 25 21 31 32 2d 3d 34  |=48:icon2%!12-=4|
00000b00  38 0d 00 4c 05 ed 0d 00  4d 04 0d 00 4e 52 e7 20  |8..L....M...NR. |
00000b10  70 72 69 6e 74 25 20 f1  20 8a 30 2c 30 29 22 4d  |print% . .0,0)"M|
00000b20  65 6d 3a 20 22 3b 28 70  74 72 25 2d 26 38 30 30  |em: ";(ptr%-&800|
00000b30  30 2b 31 30 32 33 29 3e  3e 31 30 22 6b 22 27 22  |0+1023)>>10"k"'"|
00000b40  4e 72 4f 66 52 4d 73 3a  20 22 3b 72 6d 25 2b 31  |NrOfRMs: ";rm%+1|
00000b50  27 22 48 49 4d 45 4d 3d  26 22 7e 93 0d 00 4f 23  |'"HIMEM=&"~...O#|
00000b60  c8 99 22 57 69 6d 70 5f  53 6c 6f 74 53 69 7a 65  |.."Wimp_SlotSize|
00000b70  22 2c 70 74 72 25 2d 26  38 30 30 30 2c 2d 31 0d  |",ptr%-&8000,-1.|
00000b80  00 50 04 0d 00 51 2d 21  62 75 66 25 3d 77 69 6e  |.P...Q-!buf%=win|
00000b90  68 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |h%:.."Wimp_GetWi|
00000ba0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 75 66 25  |ndowState",,buf%|
00000bb0  0d 00 52 1d c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |..R..."Wimp_Open|
00000bc0  57 69 6e 64 6f 77 22 2c  2c 62 75 66 25 0d 00 53  |Window",,buf%..S|
00000bd0  2c c8 99 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |,.."Wimp_SetCare|
00000be0  74 50 6f 73 69 74 69 6f  6e 22 2c 77 69 6e 68 25  |tPosition",winh%|
00000bf0  2c 37 2c 2c 2c 2d 31 2c  30 0d 00 54 18 6d 61 73  |,7,,,-1,0..T.mas|
00000c00  6b 25 3d 25 31 31 30 30  30 30 30 31 31 30 30 30  |k%=%110000011000|
00000c10  31 0d 00 55 04 0d 00 56  05 f5 0d 00 57 2a c8 99  |1..U...V....W*..|
00000c20  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 6d 61 73 6b  |"Wimp_Poll",mask|
00000c30  25 2c 62 75 66 25 b8 65  76 65 6e 74 25 2c 62 6c  |%,buf%.event%,bl|
00000c40  6f 63 6b 25 0d 00 58 0d  c8 8e 65 76 65 6e 74 25  |ock%..X...event%|
00000c50  ca 0d 00 59 24 20 20 c9  32 3a c8 99 22 57 69 6d  |...Y$  .2:.."Wim|
00000c60  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00000c70  6c 6f 63 6b 25 0d 00 5a  0a 20 20 c9 33 3a e0 0d  |lock%..Z.  .3:..|
00000c80  00 5b 08 20 20 c9 36 0d  00 5c 14 20 20 20 20 41  |.[.  .6..\.    A|
00000c90  25 3d 62 6c 6f 63 6b 25  21 31 36 0d 00 5d 32 20  |%=block%!16..]2 |
00000ca0  20 20 20 e7 28 41 25 80  31 29 3d 31 20 80 41 25  |   .(A%.1)=1 .A%|
00000cb0  3e 69 63 6f 6e 73 25 2d  33 20 80 28 28 62 6c 6f  |>icons%-3 .((blo|
00000cc0  63 6b 25 21 38 29 80 35  29 3e 30 20 8c 0d 00 5e  |ck%!8).5)>0 ...^|
00000cd0  2b 20 20 20 20 20 20 69  25 3d 28 41 25 2d 69 63  |+      i%=(A%-ic|
00000ce0  6f 6e 73 25 2b 32 29 3e  3e 31 3a 61 24 3d 24 6e  |ons%+2)>>1:a$=$n|
00000cf0  61 6d 65 25 28 69 25 29  0d 00 5f 18 20 20 20 20  |ame%(i%).._.    |
00000d00  20 20 e7 73 69 7a 65 25  28 69 25 29 80 31 20 8c  |  .size%(i%).1 .|
00000d10  0d 00 60 2a 20 20 20 20  20 20 20 20 c8 99 22 58  |..`*        .."X|
00000d20  4f 53 5f 43 4c 49 22 2c  22 52 4d 52 65 49 6e 69  |OS_CLI","RMReIni|
00000d30  74 20 22 2b 61 24 b8 3b  56 25 0d 00 61 40 20 20  |t "+a$.;V%..a@  |
00000d40  20 20 20 20 20 20 c8 99  22 4f 53 5f 52 65 61 64  |      .."OS_Read|
00000d50  44 79 6e 61 6d 69 63 41  72 65 61 22 2c 31 20 b8  |DynamicArea",1 .|
00000d60  72 6d 61 25 2c 72 6d 61  65 6e 64 25 3a 72 6d 61  |rma%,rmaend%:rma|
00000d70  65 6e 64 25 2b 3d 72 6d  61 25 0d 00 62 14 20 20  |end%+=rma%..b.  |
00000d80  20 20 20 20 20 20 e7 28  56 25 80 31 29 8c 0d 00  |      .(V%.1)...|
00000d90  63 22 20 20 20 20 20 20  20 20 20 20 ef 37 3a f2  |c"          .7:.|
00000da0  75 70 64 61 74 65 28 41  25 2c 31 3c 3c 32 31 29  |update(A%,1<<21)|
00000db0  0d 00 64 0f 20 20 20 20  20 20 20 20 20 20 cc 0d  |..d.          ..|
00000dc0  00 65 30 20 20 20 20 20  20 20 20 20 20 c8 99 22  |.e0          .."|
00000dd0  58 4f 53 5f 4d 6f 64 75  6c 65 22 2c 31 38 2c 61  |XOS_Module",18,a|
00000de0  24 b8 2c 2c 2c 2c 73 69  7a 65 25 28 69 25 29 0d  |$.,,,,size%(i%).|
00000df0  00 66 31 20 20 20 20 20  20 20 20 20 20 e7 73 69  |.f1          .si|
00000e00  7a 65 25 28 69 25 29 3e  3d 72 6d 61 25 80 73 69  |ze%(i%)>=rma%.si|
00000e10  7a 65 25 28 69 25 29 3c  72 6d 61 65 6e 64 25 8c  |ze%(i%)<rmaend%.|
00000e20  0d 00 67 3d 20 20 20 20  20 20 20 20 20 20 20 20  |..g=            |
00000e30  c8 99 22 58 4f 53 5f 48  65 61 70 22 2c 36 2c 72  |.."XOS_Heap",6,r|
00000e40  6d 61 25 2c 73 69 7a 65  25 28 69 25 29 b8 2c 2c  |ma%,size%(i%).,,|
00000e50  2c 73 69 7a 65 25 28 69  25 29 3b 56 25 0d 00 68  |,size%(i%);V%..h|
00000e60  44 20 20 20 20 20 20 20  20 20 20 20 20 e7 28 56  |D            .(V|
00000e70  25 80 31 29 20 73 69 7a  65 25 28 69 25 29 3d 26  |%.1) size%(i%)=&|
00000e80  38 30 30 30 30 30 30 30  20 8b 20 73 69 7a 65 25  |80000000 . size%|
00000e90  28 69 25 29 3d 73 69 7a  65 25 28 69 25 29 3c 3c  |(i%)=size%(i%)<<|
00000ea0  31 0d 00 69 11 20 20 20  20 20 20 20 20 20 20 20  |1..i.           |
00000eb0  20 cc 0d 00 6a 1b 20 20  20 20 20 20 20 20 20 20  | ...j.          |
00000ec0  20 20 73 69 7a 65 25 28  69 25 29 3d 30 0d 00 6b  |  size%(i%)=0..k|
00000ed0  0f 20 20 20 20 20 20 20  20 20 20 cd 0d 00 6c 0d  |.          ...l.|
00000ee0  20 20 20 20 20 20 20 20  cd 0d 00 6d 0d 20 20 20  |        ...m.   |
00000ef0  20 20 20 20 20 cc 0d 00  6e 28 20 20 20 20 20 20  |     ...n(      |
00000f00  20 20 c8 99 22 58 4f 53  5f 43 4c 49 22 2c 22 55  |  .."XOS_CLI","U|
00000f10  6e 70 6c 75 67 20 22 2b  61 24 b8 3b 56 25 0d 00  |nplug "+a$.;V%..|
00000f20  6f 5a 20 20 20 20 20 20  20 20 e7 28 56 25 80 31  |oZ        .(V%.1|
00000f30  29 20 ef 37 3a c8 99 22  58 4f 53 5f 43 4c 49 22  |) .7:.."XOS_CLI"|
00000f40  2c 22 52 4d 52 65 49 6e  69 74 20 22 2b 61 24 3a  |,"RMReInit "+a$:|
00000f50  f2 75 70 64 61 74 65 28  41 25 2c 31 3c 3c 32 31  |.update(A%,1<<21|
00000f60  29 20 8b 73 69 7a 65 25  28 69 25 29 3d 73 69 7a  |) .size%(i%)=siz|
00000f70  65 25 28 69 25 29 84 31  0d 00 70 0b 20 20 20 20  |e%(i%).1..p.    |
00000f80  20 20 cd 0d 00 71 3b 20  20 20 20 20 20 24 73 69  |  ...q;      $si|
00000f90  7a 65 73 74 72 25 28 69  25 29 3d a4 73 69 7a 65  |zestr%(i%)=.size|
00000fa0  73 74 72 28 73 69 7a 65  25 28 69 25 29 29 3a f2  |str(size%(i%)):.|
00000fb0  75 70 64 61 74 65 28 41  25 2b 31 2c 30 29 0d 00  |update(A%+1,0)..|
00000fc0  72 0b 20 20 20 20 20 20  cc 0d 00 73 44 20 20 20  |r.      ...sD   |
00000fd0  20 20 20 e7 41 25 3d 33  20 80 28 28 62 6c 6f 63  |   .A%=3 .((bloc|
00000fe0  6b 25 21 38 29 80 35 29  20 80 ac 66 6f 6f 6c 25  |k%!8).5) ..fool%|
00000ff0  20 ff 22 46 69 6c 65 72  5f 52 75 6e 20 3c 55 6e  | ."Filer_Run <Un|
00001000  70 6c 75 67 52 4d 24 48  65 6c 70 3e 22 0d 00 74  |plugRM$Help>"..t|
00001010  09 20 20 20 20 cd 0d 00  75 08 20 20 c9 38 0d 00  |.    ...u.  .8..|
00001020  76 14 20 20 20 20 41 25  3d 62 6c 6f 63 6b 25 21  |v.    A%=block%!|
00001030  32 34 0d 00 77 4e 20 20  20 20 e7 3f 63 61 72 65  |24..wN    .?care|
00001040  74 73 74 72 25 3c 33 32  20 43 25 3d 2d 32 20 8b  |tstr%<32 C%=-2 .|
00001050  20 c8 99 22 4f 53 5f 52  65 61 64 55 6e 73 69 67  | .."OS_ReadUnsig|
00001060  6e 65 64 22 2c 31 36 2c  63 61 72 65 74 73 74 72  |ned",16,caretstr|
00001070  25 b8 2c 2c 43 25 3a 43  25 3d 43 25 80 ac 36 33  |%.,,C%:C%=C%..63|
00001080  0d 00 78 31 20 20 20 20  69 25 3d 2d 31 3a f5 3a  |..x1    i%=-1:.:|
00001090  69 25 2b 3d 31 3a fd 69  25 3d 72 6d 25 2b 31 20  |i%+=1:.i%=rm%+1 |
000010a0  84 73 77 69 63 68 75 6e  6b 25 28 69 25 29 3d 43  |.swichunk%(i%)=C|
000010b0  25 0d 00 79 13 20 20 20  20 e7 69 25 3d 72 6d 25  |%..y.    .i%=rm%|
000010c0  2b 31 20 8c 0d 00 7a 38  20 20 20 20 20 20 e7 24  |+1 ...z8      .$|
000010d0  73 77 69 6d 6f 64 25 3c  3e 6e 6f 72 6f 6d 24 20  |swimod%<>norom$ |
000010e0  24 73 77 69 6d 6f 64 25  3d 6e 6f 72 6f 6d 24 3a  |$swimod%=norom$:|
000010f0  f2 75 70 64 61 74 65 28  38 2c 30 29 0d 00 7b 0b  |.update(8,0)..{.|
00001100  20 20 20 20 20 20 cc 0d  00 7c 40 20 20 20 20 20  |      ...|@     |
00001110  20 e7 24 73 77 69 6d 6f  64 25 3c 3e 24 6e 61 6d  | .$swimod%<>$nam|
00001120  65 25 28 69 25 29 20 24  73 77 69 6d 6f 64 25 3d  |e%(i%) $swimod%=|
00001130  24 6e 61 6d 65 25 28 69  25 29 3a f2 75 70 64 61  |$name%(i%):.upda|
00001140  74 65 28 38 2c 30 29 0d  00 7d 09 20 20 20 20 cd  |te(8,0)..}.    .|
00001150  0d 00 7e 30 20 20 20 20  e7 41 25 3c 34 38 20 84  |..~0    .A%<48 .|
00001160  20 41 25 3e 31 30 32 20  8c 20 c8 99 22 57 69 6d  | A%>102 . .."Wim|
00001170  70 5f 50 72 6f 63 65 73  73 4b 65 79 22 2c 41 25  |p_ProcessKey",A%|
00001180  0d 00 7f 1b 20 20 c9 31  37 2c 31 38 3a e7 62 6c  |....  .17,18:.bl|
00001190  6f 63 6b 25 21 31 36 3d  30 20 e0 0d 00 80 05 cb  |ock%!16=0 ......|
000011a0  0d 00 81 07 fd 20 a3 0d  00 82 04 0d 00 83 11 dd  |..... ..........|
000011b0  a4 73 69 7a 65 73 74 72  28 78 25 29 0d 00 84 1d  |.sizestr(x%)....|
000011c0  e7 78 25 3d 26 43 30 30  30 30 30 30 30 20 8c 20  |.x%=&C0000000 . |
000011d0  3d 64 6f 72 6d 61 6e 74  24 0d 00 85 29 e7 28 78  |=dormant$...).(x|
000011e0  25 3e 3e 3e 31 29 3d 28  31 3c 3c 33 30 29 20 62  |%>>>1)=(1<<30) b|
000011f0  24 3d 22 3f 22 8b 62 24  3d c3 28 78 25 3e 3e 3e  |$="?".b$=.(x%>>>|
00001200  31 29 0d 00 86 1d e7 28  78 25 80 31 29 8c 20 3d  |1).....(x%.1). =|
00001210  22 28 22 2b 62 24 2b 22  29 22 20 8b 3d 62 24 0d  |"("+b$+")" .=b$.|
00001220  00 87 04 0d 00 88 13 dd  f2 75 70 64 61 74 65 28  |.........update(|
00001230  78 25 2c 69 25 29 0d 00  89 2d 21 62 75 66 25 3d  |x%,i%)...-!buf%=|
00001240  77 69 6e 68 25 3a 62 75  66 25 21 34 3d 78 25 3a  |winh%:buf%!4=x%:|
00001250  62 75 66 25 21 38 3d 69  25 3a 62 75 66 25 21 31  |buf%!8=i%:buf%!1|
00001260  32 3d 30 0d 00 8a 21 c8  99 22 57 69 6d 70 5f 53  |2=0...!.."Wimp_S|
00001270  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 75  |etIconState",,bu|
00001280  66 25 3a e1 0d 00 8b 04  0d 00 8c 0a dd a4 73 69  |f%:...........si|
00001290  7a 65 0d 00 8d 20 c8 99  22 4f 53 5f 4d 6f 64 75  |ze... .."OS_Modu|
000012a0  6c 65 22 2c 31 38 2c 61  24 b8 2c 2c 2c 44 25 2c  |le",18,a$.,,,D%,|
000012b0  78 25 0d 00 8e 45 e7 44  25 3c 3e 30 20 80 28 44  |x%...E.D%<>0 .(D|
000012c0  25 21 26 31 43 29 3c 3e  30 20 80 28 28 44 25 21  |%!&1C)<>0 .((D%!|
000012d0  26 31 43 29 80 26 46 46  46 32 30 30 33 46 29 3d  |&1C).&FFF2003F)=|
000012e0  30 20 73 77 69 63 68 75  6e 6b 25 28 72 6d 25 29  |0 swichunk%(rm%)|
000012f0  3d 44 25 21 26 31 43 0d  00 8f 19 e7 78 25 3e 3d  |=D%!&1C.....x%>=|
00001300  72 6d 61 25 80 78 25 3c  72 6d 61 65 6e 64 25 8c  |rma%.x%<rmaend%.|
00001310  0d 00 90 25 20 20 c8 99  22 58 4f 53 5f 48 65 61  |...%  .."XOS_Hea|
00001320  70 22 2c 36 2c 72 6d 61  25 2c 78 25 b8 2c 2c 2c  |p",6,rma%,x%.,,,|
00001330  78 25 3b 56 25 0d 00 91  1f 20 20 e7 28 56 25 80  |x%;V%....  .(V%.|
00001340  31 29 20 8c 20 3d 31 3c  3c 33 30 20 8b 20 3d 78  |1) . =1<<30 . =x|
00001350  25 3c 3c 31 0d 00 92 07  20 20 cc 0d 00 93 08 20  |%<<1....  ..... |
00001360  20 3d 30 0d 00 94 05 cd  0d ff                    | =0.......|
0000136a

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .