$compile exe
$lib all -
$error all -
$string 1

defwrd a-z
? "OK!"
d&=setmem(-640000)
popup multiplex &HAE00,&HFFFF
popup sleep

do
 if reg(1)=&HAE00 AND reg(4)=&HFFFF then
  sgm=reg(8):ofs=reg(5)
  if ofs<0 then incr ofs,65536
  def seg=sgm
  c$=peek$(ofs+1,peek(ofs))
  def seg
  select case c$
   case "DEL","ERASE","DELTREE","MOVE","REN","DLOCK","DL_"
    popup multiplex &HAE01,&HFFFF
    reg 1,&HAEFF
   case else
    reg 1,0
  end select
 elseif reg(1)=&HAE01 AND reg(4)=&HFFFF then
  select case c$
   case "DEL","ERASE","DELTREE","MOVE","REN","DLOCK" : ? "Locked!"
  end select
  sgm=reg(8):ofs=reg(5)
  if ofs<0 then incr ofs,65536
  def seg=sgm
  poke ofs,0
  if peek$(ofs+1,3)="DL_" then
   popd 5
  else
   popup multiplex &HAE00,&HFFFF
  end if
  def seg
 end if
 popup sleep
loop until 0

sub popd(sec?)
? "TSR entfernen..";
popup timer 18
do while z?<sec?
 popup sleep
 if popup(1) then
  ? "OK!":END
 end if
 incr z?
loop
? "NICHT m”glich!"
end sub