.key source/a,image/a,opt1,opt2,disk

if exists <source><image>
  GIFtoTMP <source><image> <image>.tmp
  if warn
    skip UNLACEIT
  endif
  if not exists <image>.tmp
    echo "GIFtoTMP <source><image> <image>.tmp   failed"
    quit 20
  endif
else
  if exists <source><image>.gif
    GIFtoTMP <source><image>.gif <image>.tmp
    if warn
      skip UNLACEIT
    endif
    if not exists <image>.tmp
      echo "GIFtoTMP <source><image>.gif <image>.tmp --- failed"
      quit 20
    endif
  else
    echo "Can't find <source><image> or <source><image>.gif"
    quit 20
  endif
endif

TMPtoIFF <image>.tmp <image>.pic <opt1> <opt2>
if exists <image>.pic
  echo "Success"
  quit 0
else
  echo "TMPtoIFF <image>.tmp <image>.pic <opt1> <opt2> --- failed"
endif
quit 20

LAB UNLACEIT
Unlace <image>.tmp <image>.ltmp
if exists <image>.ltmp
  TMPtoIFF <image>.ltmp <image>.pic <opt1> <opt2>
  if exists <image>.pic
    echo "Success"
    quit 0
  else
    echo "TMPtoIFF <image>.ltmp <image>.pic <opt1> <opt2> --- failed"
    quit 20
  endif
else
  echo "Unlace <image>.tmp <image>.ltmp --- failed"
endif
quit 20