# File lbicold.src	12-06-95	SDW
#
# Does old heritage load using GI5
#
#     !GI5 = LBIC to perform for 3, 4, or 5
#

program "@(#) MODULE: lbicold.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/lbicold.src"
descr "lbicold  - loads MDI IP Heritage Programs"

display "Executing procedure: mdifocus"

checkLBIC:
if !GI5 > 2 then
  if !GI5 < 6 then
    goto doLBIC 
  end if
end if

display "Invalid LBIC set in GI5, re-enter (3,4,5) and continue"
ask !GI5 "enter lbic to load: "
goto checkLBIC

doLBIC:
tcblock mbiplbic !GI5 !GI5
wait time 16

tcblock mbpwipon

setstr !LS1 = getdig(mktmsel)

if !LS1 = "2" then
  perform ltlm2old
end if

# set initial camera header

tcblock mbcmhdr1 0x4040 0x4040 0 1 0

# use this if tcgse database not fixed
#
#binary 0x2a87 0x0005 0x4040 0x4040 0x0000 0x0001 0x0000

return

