# File: set_limb.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/set_limb.src"
descr "SET_LIMB - routine to set the limb radius and DPC"
 
menu !LS0 "Values" \
"Central Radius Values 478.2 to 481.7" \
"Central Radius Values 482.2 to 485.7" \
"Central Radius Values 486.2 to 489.7" \
"Central Radius Values 490.2 to 493.7" \
"Central Radius Values 494.2 to 497.7" \
"QUIT"
 
 
if !LS0 = "QUIT" then
    goto done
end if
 
if !LS0 = "Central Radius Values 478.2 to 481.7" then
    menu !LS1 "Central Radius" \
    "478.2" \
    "478.7" \
    "479.2" \
    "479.7" \
    "480.2" \
    "480.7" \
    "481.2" \
    "481.7" \
    "QUIT"
     
    if !LS1 = "QUIT" then
        goto done
    end if
     
     if !LS1 = "478.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3852 3800 \
        296 12 0x8000 0x700b 0 0 1803 0x1685 0xded8
     end if
      
     if !LS1 = "478.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3856 3804 \
        296 12 0x8000 0x700b 0 0 1805 0x1685 0xdedc
     end if
      
     if !LS1 = "479.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3860 3808 \
        296 12 0x8000 0x700b 0 0 1807 0x1685 0xdee0
     end if
      
     if !LS1 = "479.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3864 3812 \
        296 12 0x8000 0x700b 0 0 1809 0x1685 0xdee4
     end if
      
     if !LS1 = "480.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3868 3816 \
        296 12 0x8000 0x700b 0 0 1811 0x1685 0xdee8
     end if
      
     if !LS1 = "480.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3872 3820 \
        296 12 0x8000 0x700b 0 0 1813 0x1685 0xdeec
     end if
      
     if !LS1 = "481.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3876 3824 \
        296 12 0x8000 0x700b 0 0 1815 0x1685 0xdef0
     end if
      
     if !LS1 = "481.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3880 3828 \
        296 12 0x8000 0x700b 0 0 1818 0x1685 0xdef4
     end if
      
 
end if
if !LS0 = "Central Radius Values 482.2 to 485.7" then
    menu !LS1 "Central Radius" \
    "482.2" \
    "482.7" \
    "483.2" \
    "483.7" \
    "484.2" \
    "484.7" \
    "485.2" \
    "485.7" \
    "QUIT"
     
    if !LS1 = "QUIT" then
        goto done
    end if
     
     if !LS1 = "482.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3884 3832 \
        296 12 0x8000 0x700b 0 0 1820 0x1685 0xdef8
     end if
      
     if !LS1 = "482.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3888 3836 \
        296 12 0x8000 0x700b 0 0 1822 0x1685 0xdefc
     end if
      
     if !LS1 = "483.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3892 3840 \
        296 12 0x8000 0x700b 0 0 1824 0x1685 0xdf00
     end if
      
     if !LS1 = "483.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3896 3844 \
        296 12 0x8000 0x700b 0 0 1826 0x1685 0xdf04
     end if
      
     if !LS1 = "484.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3900 3848 \
        296 12 0x8000 0x700b 0 0 1828 0x1685 0xdf08
     end if
      
     if !LS1 = "484.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3904 3852 \
        296 12 0x8000 0x700b 0 0 1830 0x1685 0xdf0c
     end if
      
     if !LS1 = "485.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3908 3856 \
        296 12 0x8000 0x700b 0 0 1832 0x1685 0xdf10
     end if
      
     if !LS1 = "485.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3912 3860 \
        296 12 0x8000 0x700b 0 0 1834 0x1685 0xdf14
     end if
      
 
end if
if !LS0 = "Central Radius Values 486.2 to 489.7" then
    menu !LS1 "Central Radius" \
    "486.2" \
    "486.7" \
    "487.2" \
    "487.7" \
    "488.2" \
    "488.7" \
    "489.2" \
    "489.7" \
    "QUIT"
     
    if !LS1 = "QUIT" then
        goto done
    end if
     
     if !LS1 = "486.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3916 3864 \
        296 12 0x8000 0x700b 0 0 1836 0x1685 0xdf18
     end if
      
     if !LS1 = "486.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3920 3868 \
        296 12 0x8000 0x700b 0 0 1839 0x1685 0xdf1c
     end if
      
     if !LS1 = "487.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3924 3872 \
        296 12 0x8000 0x700b 0 0 1841 0x1685 0xdf20
     end if
      
     if !LS1 = "487.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3928 3876 \
        296 12 0x8000 0x700b 0 0 1843 0x1685 0xdf24
     end if
      
     if !LS1 = "488.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3932 3880 \
        296 12 0x8000 0x700b 0 0 1845 0x1685 0xdf28
     end if
      
     if !LS1 = "488.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3936 3884 \
        296 12 0x8000 0x700b 0 0 1847 0x1685 0xdf2c
     end if
      
     if !LS1 = "489.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3940 3888 \
        296 12 0x8000 0x700b 0 0 1849 0x1685 0xdf30
     end if
      
     if !LS1 = "489.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3944 3892 \
        296 12 0x8000 0x700b 0 0 1851 0x1685 0xdf34
     end if
      
 
end if
if !LS0 = "Central Radius Values 490.2 to 493.7" then
    menu !LS1 "Central Radius" \
    "490.2" \
    "490.7" \
    "491.2" \
    "491.7" \
    "492.2" \
    "492.7" \
    "493.2" \
    "493.7" \
    "QUIT"
     
    if !LS1 = "QUIT" then
        goto done
    end if
     
     if !LS1 = "490.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3948 3896 \
        296 12 0x8000 0x700b 0 0 1853 0x1685 0xdf38
     end if
      
     if !LS1 = "490.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3952 3900 \
        296 12 0x8000 0x700b 0 0 1855 0x1685 0xdf3c
     end if
      
     if !LS1 = "491.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3956 3904 \
        296 12 0x8000 0x700b 0 0 1857 0x1685 0xdf40
     end if
      
     if !LS1 = "491.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3960 3908 \
        296 12 0x8000 0x700b 0 0 1860 0x1685 0xdf44
     end if
      
     if !LS1 = "492.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3964 3912 \
        296 12 0x8000 0x700b 0 0 1862 0x1685 0xdf48
     end if
      
     if !LS1 = "492.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3968 3916 \
        296 12 0x8000 0x700b 0 0 1864 0x1685 0xdf4c
     end if
      
     if !LS1 = "493.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3972 3920 \
        296 12 0x8000 0x700b 0 0 1866 0x1685 0xdf50
     end if
      
     if !LS1 = "493.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3976 3924 \
        296 12 0x8000 0x700b 0 0 1868 0x1685 0xdf54
     end if
      
 
end if
if !LS0 = "Central Radius Values 494.2 to 497.7" then
    menu !LS1 "Central Radius" \
    "494.2" \
    "494.7" \
    "495.2" \
    "495.7" \
    "496.2" \
    "496.7" \
    "497.2" \
    "497.7" \
    "QUIT"
     
    if !LS1 = "QUIT" then
        goto done
    end if
     
     if !LS1 = "494.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3980 3928 \
        296 12 0x8000 0x700b 0 0 1870 0x1685 0xdf58
     end if
      
     if !LS1 = "494.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3984 3932 \
        296 12 0x8000 0x700b 0 0 1872 0x1685 0xdf5c
     end if
      
     if !LS1 = "495.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3988 3936 \
        296 12 0x8000 0x700b 0 0 1874 0x1685 0xdf60
     end if
      
     if !LS1 = "495.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3992 3940 \
        296 12 0x8000 0x700b 0 0 1876 0x1685 0xdf64
     end if
      
     if !LS1 = "496.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3996 3944 \
        296 12 0x8000 0x700b 0 0 1878 0x1685 0xdf68
     end if
      
     if !LS1 = "496.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  4000 3948 \
        296 12 0x8000 0x700b 0 0 1880 0x1685 0xdf6c
     end if
      
     if !LS1 = "497.2" then
      tcblock mbiptbl 4 0x1000 0x7000 0  4004 3952 \
        296 12 0x8000 0x700b 0 0 1883 0x1685 0xdf70
     end if
      
     if !LS1 = "497.7" then
      tcblock mbiptbl 4 0x1000 0x7000 0  4008 3956 \
        296 12 0x8000 0x700b 0 0 1885 0x1685 0xdf74
     end if
      
 
end if
 
done:
