#98=BN 
#99=CP 
BS(32) 
BQ(NOCONFIRM) 
BS(#98) 
WDEL(30) 
WCRE(30,1,BOTTOM) 
repeat(ALL){ 
  BS(32) 
  WA(30) 
  #9=GK("") 
  #2=FSIZE
  if(#9==21317)
    BS(#98) 
    WA(1) 
    GP(#99) 
    Break
  } 
  if (#9==21314){ 
    if(#2>0){
      C(-1) 
      DC(1) 
      U 
      BS(#98) 
      C(-1) 
      U 
    } 
    Continue
  } 
  if(#9==21586){
    BS(#98)
    C(#2)
    Break
  } 
  IC(#9) 
  U
  #2=FSIZE
  RCB(10,0,#2)
  BS(#98) 
  C(-#2) 
  S("|@(10)",NOERR+ADVANCE) 
  if(ERROR_MATCH){
    C(#2) 
    Alert 
    BS(32) 
    WA(30) 
    C(-1) 
    DC(1) 
    U 
    BS(#98)
  } 
  U
} 
WDEL(30) 
BS(#98)