>ModFind " Copyright 1996 Steven Singer = Permission is granted to distribute this program freely ) on the condition it is not changed.   block% 1024 ( f%=-1 2 < error F Poffset%=&8000 Z end%= d =+10240 n mem%= x namehead%=0  name_next%=0 name_inst%=4 name_high%=8 name_name%=12 name_len%=13  inst_next%=0 inst_version%=4 inst_file%=8 inst_len%=9  "Scanning"; scandir("@")  "done."  ,n%=namehead% 6modprint%= J ȕ n%<>0 @ i%=n%!name_inst% h ȕ i%<>0 r- i%!inst_version%<>n%!name_high% |h "Out of date copy (";i%!inst_version%/100;") of ";$(n%+name_name%);" at ";$(i%+inst_file%)  modprint%=   i%=i%!inst_next%   i%=n%!name_inst%  ȕ i%<>0 modprint% , i%!inst_version%=n%!name_high% _ "An up to date copy (";i%!inst_version%/100;") can be found at ";$(i%+inst_file%)  modprint%=   i%=i%!inst_next%   n%=n%!name_next%    scandir(dir$)  more%,leaf$  "."; 7ș"OS_GBPB",10,dir$,block%,1,0,1024,"*" ,,,,more% ȕ more%<>-1 & Ȏ block%!16 0 1 :Q (block%!0>>8 &FFF)=&FFA checkmodule(dir$+"."+string(block%+20)) D 2,3 N/ scandir(dir$+"."+string(block%+20)) X b> ș"OS_GBPB",10,dir$,block%,1,more%,1024,"*" ,,,,more% l v  checkmodule(name$) i%,m$,v%,n% f%=(name$)  #f%=20  i%=#f% i%+=#f%<<8 i%+=#f%<<16  i%+=#f%<<24  i%<24 i%>#f%  #f%=i%  m$="" * 4 i%=#f% > i%=9 H R i%=#f% \ i%<>9 f p m$+=(i%) z i%=#f%  i%<46 i%=47 i%>57 v%=(m$)*100  #f%=16  i%=#f% i%+=#f%<<8 i%+=#f%<<16 i%+=#f%<<24  i%<24 i%>#f%  #f%=i%  m$=""   i%=#f%  i%>31 m$+=(i%)  i%<32 3(13);m$;" version ";v%/100;" found at ";name$ #f%  f%=-1 $n%=0 .i%=namehead% 8 ȕi%<>0 B $(i%+name_name%)=m$ L n%=i% V i%=0 ` j i%=i%!name_next% t ~  n%=0 " i%=malloc((m$)+name_len%)  i%!name_next%=namehead%  namehead%=i%  i%!name_inst%=0  i%!name_high%=0  $(i%+name_name%)=m$  n%=i%  "i%=malloc((name$)+inst_len%) i%!inst_next%=n%!name_inst% n%!name_inst%=i% i%!inst_version%=v%  ) v%>n%!name_high% n%!name_high%=v% $(i%+inst_file%)=name$  ( 2ݤstring(p%) < a$ F a$="" P ȕ ?p%>31 Z a$+=(?p%) d p%+=1 n x=a$  shutdown  f%<>-1 #f%    error   shutdown $;" at line ";   ݤmalloc(len%)  x%,pos% % (len% 3) len%+=4-(len% 3) # extendworkspace(mem%+len%)  pos%=mem% " mem%+=len% , =pos% 6 @"Out of memory" J shutdown T ^ hݤextendworkspace(newend%) r x% | newend%<=end% = 0ș "Wimp_SlotSize",newend%-offset%,-1 end% end%+=offset% =(newend%<=end%)