~setup(column_line_depth="9 points",
       column_line_width="0.5 space")
~environment(page_offset="0.0 inches",
             left_margin="0.0 inches",
             right_margin="8.5 inches",
             font_family=Helvetica,
             point_size=9)

~string_macro(left_arrow="~roman(~symbol(172))")
~string_macro(up_arrow="~roman(~symbol(173))")
~string_macro(right_arrow="~roman(~symbol(174))")
~string_macro(down_arrow="~roman(~symbol(175))")
~string_macro(logo="~null(~environment(font_family=avantgarde-book, point_size=20)RATIONAL)")
                                 
~macro(head_font="~null(~environment(point_size=11)~bold(~argument(text)))")
~macro(c="~column_entry(~null(~environment(point_size=11)~bold(~argument(text))))")

~comment("      DEFINE THE KEYMAP FOR AN IBM 101/102 KEYBOARD      ")    
~comment("      =============================================      ")
                                            
~comment("KEYBOARD HAS 6-KEY GROUP BETWEEN QWERTY & NUMERIC KEYPADS")

~begin(table) 
~table_options(line_mode=all_lines,
               print_caption=false,
               print_number=false,
               percentage_sizes=false)
~column_definition(heading_text="~head_font(~<Object~<~ )", heading_mode=c, body_mode=c, width="0.7 inches")
~column_definition(heading_text="~head_font(~<Region~<~ )", heading_mode=c, body_mode=c, width="0.7 inches")
~column_definition(heading_text="~head_font(~<Window~<~ )", heading_mode=c, body_mode=c, width="0.7 inches")
~c(~<Promote~<~ )     ~c(~<Complete~< )     ~c(~<Format~< )
~c(~<~<~ )            ~c(~<~<~ )            ~c(~<~<~ )
~c()                  ~c(~<~up_arrow~<~ )   ~c(~<~<~ )
~c(~<~left_arrow~<~ ) ~c(~<~down_arrow~<~ ) ~c(~<~right_arrow~<~ )
~end(table)                
                                            
~setup(column_line_depth="15 points",
       column_line_width="0.5 space")

~comment("        KEYBOARD HAS NUMERIC KEYPAD ON RIGHT SIDE        ")

~begin(table) 
~table_options(line_mode=all_lines,
               print_caption=false,
               print_number=false,
               percentage_sizes=false)
~column_definition(heading_text="~head_font(~<Image~<~ )", heading_mode=c, body_mode=c, width="0.7 inches")
~column_definition(heading_text="~head_font(~<Line~<~ )", heading_mode=c, body_mode=c, width="0.7 inches")
~column_definition(heading_text="~head_font(~<Word~<~ )", heading_mode=c, body_mode=c, width="0.7 inches")
~column_definition(heading_text="~head_font(~<Mark~<~ )", heading_mode=c, body_mode=c, width="0.7 inches")
~c(~<Begin~ Of~<~ ) ~c(~<~up_arrow~<~ ) ~c(~<End ~ Of ~<~ ) ~c(~<~<~ )
~c(~<~left_arrow~<~ ) ~c(~<~<~ ) ~c(~<~right_arrow~<~ ) ~c(~<~< - )
~c(~<~<~ ) ~c(~<~down_arrow~<~ ) ~c(~<~<~ ) ~c(~<~< )
~c(~<~<~ ) ~c(~<~<~ )  ~c(~<~< . ) ~c(~<Enter~< )
~end(table)                

~set_tab(where="3.0 inches", kind=left) ~>~logo~< ~>Environment Keymap~<
~<~>(for IBM PC/XT/AT with 101/102 keyboard)