# File: lfload_cf58.src
#
# Loads Limb Figure List 
#
#---------------------------------------------------------------------

program "@(#) MODULE: mkobstbl.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/lfload_cf58_v01.src"
descr "  lfload_cf58 - Loads Limb figure list"

display "Executing procedure lfload_cf58."

# Load the geometry
tcblock mbiptbl 0x10 4032 3968 4096 4096 1024
wait time 10

# Load the Limb Figure List
tcblock mbiptbl 4 0x1000 0x7000 0 3976 3928 \
                296 12 0x8000 0x700B 0 0 1490 0x1180 0xCF58
wait time 15

display "Finished procedure lfload_cf58: %s" !TIME

return

