# File: set_limb.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "set_limb.src"
descr "SET_LIMB - routine to set the limb radius and DPC"
 
menu !LS0 "Values" \
"Central Radius Values 478.5 to 482.0" \
"Central Radius Values 482.5 to 486.0" \
"Central Radius Values 486.5 to 490.0" \
"Central Radius Values 490.5 to 494.0" \
"Central Radius Values 494.5 to 498.0" \
"QUIT"
 
 
if !LS0 = "QUIT" then
    goto done
end if
 
if !LS0 = "Central Radius Values 478.5 to 482.0" then
    menu !LS1 "Central Radius" \
    "478.5" \
    "479.0" \
    "479.5" \
    "480.0" \
    "480.5" \
    "481.0" \
    "481.5" \
    "482.0" \
    "QUIT"
     
    if !LS1 = "QUIT" then
        goto done
    end if
     
     if !LS1 = "478.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3856 3800 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xeed8
     end if
      
     if !LS1 = "479.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3860 3804 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xeedc
     end if
      
     if !LS1 = "479.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3864 3808 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xeee0
     end if
      
     if !LS1 = "480.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3868 3812 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xeee4
     end if
      
     if !LS1 = "480.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3872 3816 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xeee8
     end if
      
     if !LS1 = "481.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3876 3820 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xeeec
     end if
      
     if !LS1 = "481.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3880 3824 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xeef0
     end if
      
     if !LS1 = "482.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3884 3828 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xeef4
     end if
      
 
end if
if !LS0 = "Central Radius Values 482.5 to 486.0" then
    menu !LS1 "Central Radius" \
    "482.5" \
    "483.0" \
    "483.5" \
    "484.0" \
    "484.5" \
    "485.0" \
    "485.5" \
    "486.0" \
    "QUIT"
     
    if !LS1 = "QUIT" then
        goto done
    end if
     
     if !LS1 = "482.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3888 3832 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xeef8
     end if
      
     if !LS1 = "483.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3892 3836 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xeefc
     end if
      
     if !LS1 = "483.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3896 3840 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef00
     end if
      
     if !LS1 = "484.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3900 3844 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef04
     end if
      
     if !LS1 = "484.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3904 3848 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef08
     end if
      
     if !LS1 = "485.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3908 3852 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef0c
     end if
      
     if !LS1 = "485.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3912 3856 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef10
     end if
      
     if !LS1 = "486.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3916 3860 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef14
     end if
      
 
end if
if !LS0 = "Central Radius Values 486.5 to 490.0" then
    menu !LS1 "Central Radius" \
    "486.5" \
    "487.0" \
    "487.5" \
    "488.0" \
    "488.5" \
    "489.0" \
    "489.5" \
    "490.0" \
    "QUIT"
     
    if !LS1 = "QUIT" then
        goto done
    end if
     
     if !LS1 = "486.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3920 3864 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef18
     end if
      
     if !LS1 = "487.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3924 3868 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef1c
     end if
      
     if !LS1 = "487.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3928 3872 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef20
     end if
      
     if !LS1 = "488.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3932 3876 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef24
     end if
      
     if !LS1 = "488.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3936 3880 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef28
     end if
      
     if !LS1 = "489.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3940 3884 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef2c
     end if
      
     if !LS1 = "489.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3944 3888 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef30
     end if
      
     if !LS1 = "490.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3948 3892 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef34
     end if
      
 
end if
if !LS0 = "Central Radius Values 490.5 to 494.0" then
    menu !LS1 "Central Radius" \
    "490.5" \
    "491.0" \
    "491.5" \
    "492.0" \
    "492.5" \
    "493.0" \
    "493.5" \
    "494.0" \
    "QUIT"
     
    if !LS1 = "QUIT" then
        goto done
    end if
     
     if !LS1 = "490.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3952 3896 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef38
     end if
      
     if !LS1 = "491.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3956 3900 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef3c
     end if
      
     if !LS1 = "491.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3960 3904 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef40
     end if
      
     if !LS1 = "492.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3964 3908 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef44
     end if
      
     if !LS1 = "492.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3968 3912 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef48
     end if
      
     if !LS1 = "493.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3972 3916 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef4c
     end if
      
     if !LS1 = "493.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3976 3920 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef50
     end if
      
     if !LS1 = "494.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3980 3924 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef54
     end if
      
 
end if
if !LS0 = "Central Radius Values 494.5 to 498.0" then
    menu !LS1 "Central Radius" \
    "494.5" \
    "495.0" \
    "495.5" \
    "496.0" \
    "496.5" \
    "497.0" \
    "497.5" \
    "498.0" \
    "QUIT"
     
    if !LS1 = "QUIT" then
        goto done
    end if
     
     if !LS1 = "494.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3984 3928 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef58
     end if
      
     if !LS1 = "495.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3988 3932 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef5c
     end if
      
     if !LS1 = "495.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3992 3936 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef60
     end if
      
     if !LS1 = "496.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  3996 3940 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef64
     end if
      
     if !LS1 = "496.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  4000 3944 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef68
     end if
      
     if !LS1 = "497.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  4004 3948 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef6c
     end if
      
     if !LS1 = "497.5" then
      tcblock mbiptbl 4 0x1000 0x7000 0  4008 3952 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef70
     end if
      
     if !LS1 = "498.0" then
      tcblock mbiptbl 4 0x1000 0x7000 0  4012 3956 \
        296 12 0x8000 0x700b 0 0 1975 0x1685 0xef74
     end if
      
 
end if
 
done:
