! *** PREDECLARED TYPES %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF ! Terminal Capability Pointers for RTL SMG$ facility ! ! Boolean capabilities here - 1 - 220 ! DECLARE LONG CONSTANT SMG$K_ADVANCED_VIDEO = 1 DECLARE LONG CONSTANT SMG$K_ANSI_CRT = 2 DECLARE LONG CONSTANT SMG$K_AUTO_MARGIN = 3 DECLARE LONG CONSTANT SMG$K_BACKSPACE = 4 DECLARE LONG CONSTANT SMG$K_BLOCK_MODE = 5 DECLARE LONG CONSTANT SMG$K_DEC_CRT = 6 DECLARE LONG CONSTANT SMG$K_EDIT = 7 DECLARE LONG CONSTANT SMG$K_EIGHT_BIT = 8 DECLARE LONG CONSTANT SMG$K_FULLDUP = 9 DECLARE LONG CONSTANT SMG$K_IGNORE_NEWLINE = 10 DECLARE LONG CONSTANT SMG$K_INSERT_MODE_NULLS = 11 DECLARE LONG CONSTANT SMG$K_LOWERCASE = 12 DECLARE LONG CONSTANT SMG$K_NO_ERASE = 13 DECLARE LONG CONSTANT SMG$K_NO_SCROLL = 14 DECLARE LONG CONSTANT SMG$K_OVERSTRIKE = 15 DECLARE LONG CONSTANT SMG$K_PRINTER_PORT = 16 DECLARE LONG CONSTANT SMG$K_REGIS = 17 DECLARE LONG CONSTANT SMG$K_SCOPE = 18 DECLARE LONG CONSTANT SMG$K_SIXEL_GRAPHICS = 19 DECLARE LONG CONSTANT SMG$K_SOFT_CHARACTERS = 20 DECLARE LONG CONSTANT SMG$K_PHYSICAL_TABS = 21 DECLARE LONG CONSTANT SMG$K_PHYSICAL_FF = 22 DECLARE LONG CONSTANT SMG$K_UNDERLINE = 23 DECLARE LONG CONSTANT SMG$K_CURSOR_REPORT_ANSI = 24 DECLARE LONG CONSTANT SMG$K_DEC_CRT_2 = 25 DECLARE LONG CONSTANT SMG$K_DEC_CRT_3 = 26 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_COL_ROW = 27 DECLARE LONG CONSTANT SMG$K_TEXT16 = 28 DECLARE LONG CONSTANT SMG$K_DEC_CRT_4 = 29 DECLARE LONG CONSTANT SMG$K_DEC_CRT_5 = 30 DECLARE LONG CONSTANT SMG$K_ANSI_COLOR = 31 ! ! Private capabilities reserved for customer use. ! Put them at the end of the range. ! DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_1 = 211 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_2 = 212 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_3 = 213 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_4 = 214 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_5 = 215 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_6 = 216 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_7 = 217 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_8 = 218 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_9 = 219 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_10 = 220 DECLARE LONG CONSTANT SMG$K_MAX_BOOLEAN_CODE = 220 ! ! Numeric capabilities here - 221 to 440 ! DECLARE LONG CONSTANT SMG$K_COLUMNS = 221 DECLARE LONG CONSTANT SMG$K_CR_FILL = 222 DECLARE LONG CONSTANT SMG$K_FRAME = 223 DECLARE LONG CONSTANT SMG$K_LF_FILL = 224 DECLARE LONG CONSTANT SMG$K_NUMBER_FN_KEYS = 225 DECLARE LONG CONSTANT SMG$K_ROWS = 226 DECLARE LONG CONSTANT SMG$K_VMS_TERMINAL_NUMBER = 227 DECLARE LONG CONSTANT SMG$K_WIDE_SCREEN_COLUMNS = 228 ! ! Private capabilities for customer use. ! Put them at the end of the range. ! DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_1 = 431 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_2 = 432 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_3 = 433 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_4 = 434 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_5 = 435 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_6 = 436 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_7 = 437 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_8 = 438 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_9 = 439 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_10 = 440 DECLARE LONG CONSTANT SMG$K_MAX_NUMERIC_CODE = 440 ! ! String capabilities here - 441 - 660 ! DECLARE LONG CONSTANT SMG$K_BEGIN_ALTERNATE_CHAR = 441 DECLARE LONG CONSTANT SMG$K_BEGIN_BLINK = 442 DECLARE LONG CONSTANT SMG$K_BEGIN_BOLD = 443 DECLARE LONG CONSTANT SMG$K_BEGIN_DELETE_MODE = 444 DECLARE LONG CONSTANT SMG$K_BEGIN_INSERT_MODE = 445 DECLARE LONG CONSTANT SMG$K_BEGIN_LINE_DRAWING_CHAR = 446 DECLARE LONG CONSTANT SMG$K_BEGIN_REVERSE = 447 DECLARE LONG CONSTANT SMG$K_BEGIN_UNDERSCORE = 448 DECLARE LONG CONSTANT SMG$K_BOTTOM_T_CHAR = 449 DECLARE LONG CONSTANT SMG$K_CLEAR_TAB = 450 DECLARE LONG CONSTANT SMG$K_CROSS_CHAR = 451 DECLARE LONG CONSTANT SMG$K_CURSOR_DOWN = 452 DECLARE LONG CONSTANT SMG$K_CURSOR_LEFT = 453 DECLARE LONG CONSTANT SMG$K_CURSOR_RIGHT = 454 DECLARE LONG CONSTANT SMG$K_CURSOR_UP = 455 DECLARE LONG CONSTANT SMG$K_DARK_SCREEN = 456 DECLARE LONG CONSTANT SMG$K_DELETE_CHAR = 457 DECLARE LONG CONSTANT SMG$K_DELETE_LINE = 458 DECLARE LONG CONSTANT SMG$K_DEVICE_ATTRIBUTES = 459 DECLARE LONG CONSTANT SMG$K_DOUBLE_HIGH_BOTTOM = 460 DECLARE LONG CONSTANT SMG$K_DOUBLE_HIGH_TOP = 461 DECLARE LONG CONSTANT SMG$K_DOUBLE_WIDE = 462 DECLARE LONG CONSTANT SMG$K_DUPLICATE = 463 DECLARE LONG CONSTANT SMG$K_END_ALTERNATE_CHAR = 464 DECLARE LONG CONSTANT SMG$K_END_BLINK = 465 DECLARE LONG CONSTANT SMG$K_END_BOLD = 466 DECLARE LONG CONSTANT SMG$K_END_DELETE_MODE = 467 DECLARE LONG CONSTANT SMG$K_END_INSERT_MODE = 468 DECLARE LONG CONSTANT SMG$K_END_LINE_DRAWING_CHAR = 469 DECLARE LONG CONSTANT SMG$K_END_REVERSE = 470 DECLARE LONG CONSTANT SMG$K_END_UNDERSCORE = 471 DECLARE LONG CONSTANT SMG$K_ERASE_TO_END_DISPLAY = 472 DECLARE LONG CONSTANT SMG$K_ERASE_TO_END_LINE = 473 DECLARE LONG CONSTANT SMG$K_ERASE_WHOLE_DISPLAY = 474 DECLARE LONG CONSTANT SMG$K_ERASE_WHOLE_LINE = 475 DECLARE LONG CONSTANT SMG$K_HOME = 476 DECLARE LONG CONSTANT SMG$K_HORIZONTAL_BAR = 477 DECLARE LONG CONSTANT SMG$K_INIT_STRING = 478 DECLARE LONG CONSTANT SMG$K_INSERT_CHAR = 479 DECLARE LONG CONSTANT SMG$K_INSERT_LINE = 480 DECLARE LONG CONSTANT SMG$K_INSERT_PAD = 481 DECLARE LONG CONSTANT SMG$K_KEY_0 = 482 DECLARE LONG CONSTANT SMG$K_KEY_1 = 483 DECLARE LONG CONSTANT SMG$K_KEY_2 = 484 DECLARE LONG CONSTANT SMG$K_KEY_3 = 485 DECLARE LONG CONSTANT SMG$K_KEY_4 = 486 DECLARE LONG CONSTANT SMG$K_KEY_5 = 487 DECLARE LONG CONSTANT SMG$K_KEY_6 = 488 DECLARE LONG CONSTANT SMG$K_KEY_7 = 489 DECLARE LONG CONSTANT SMG$K_KEY_8 = 490 DECLARE LONG CONSTANT SMG$K_KEY_9 = 491 DECLARE LONG CONSTANT SMG$K_KEY_BACKSPACE = 492 DECLARE LONG CONSTANT SMG$K_KEY_COMMA = 493 DECLARE LONG CONSTANT SMG$K_KEY_DOWN_ARROW = 494 DECLARE LONG CONSTANT SMG$K_KEY_E1 = 495 DECLARE LONG CONSTANT SMG$K_KEY_E2 = 496 DECLARE LONG CONSTANT SMG$K_KEY_E3 = 497 DECLARE LONG CONSTANT SMG$K_KEY_E4 = 498 DECLARE LONG CONSTANT SMG$K_KEY_E5 = 499 DECLARE LONG CONSTANT SMG$K_KEY_E6 = 500 DECLARE LONG CONSTANT SMG$K_KEY_ENTER = 501 DECLARE LONG CONSTANT SMG$K_KEY_F1 = 502 DECLARE LONG CONSTANT SMG$K_KEY_F2 = 503 DECLARE LONG CONSTANT SMG$K_KEY_F3 = 504 DECLARE LONG CONSTANT SMG$K_KEY_F4 = 505 DECLARE LONG CONSTANT SMG$K_KEY_F5 = 506 DECLARE LONG CONSTANT SMG$K_KEY_F6 = 507 DECLARE LONG CONSTANT SMG$K_KEY_F7 = 508 DECLARE LONG CONSTANT SMG$K_KEY_F8 = 509 DECLARE LONG CONSTANT SMG$K_KEY_F9 = 510 DECLARE LONG CONSTANT SMG$K_KEY_F10 = 511 DECLARE LONG CONSTANT SMG$K_KEY_F11 = 512 DECLARE LONG CONSTANT SMG$K_KEY_F12 = 513 DECLARE LONG CONSTANT SMG$K_KEY_F13 = 514 DECLARE LONG CONSTANT SMG$K_KEY_F14 = 515 DECLARE LONG CONSTANT SMG$K_KEY_F15 = 516 DECLARE LONG CONSTANT SMG$K_KEY_F16 = 517 DECLARE LONG CONSTANT SMG$K_KEY_F17 = 518 DECLARE LONG CONSTANT SMG$K_KEY_F18 = 519 DECLARE LONG CONSTANT SMG$K_KEY_F19 = 520 DECLARE LONG CONSTANT SMG$K_KEY_F20 = 521 DECLARE LONG CONSTANT SMG$K_KEY_LEFT_ARROW = 522 DECLARE LONG CONSTANT SMG$K_KEY_MINUS = 523 DECLARE LONG CONSTANT SMG$K_KEY_PERIOD = 524 DECLARE LONG CONSTANT SMG$K_KEY_PF1 = 525 DECLARE LONG CONSTANT SMG$K_KEY_PF2 = 526 DECLARE LONG CONSTANT SMG$K_KEY_PF3 = 527 DECLARE LONG CONSTANT SMG$K_KEY_PF4 = 528 DECLARE LONG CONSTANT SMG$K_KEY_RIGHT_ARROW = 529 DECLARE LONG CONSTANT SMG$K_KEY_UP_ARROW = 530 DECLARE LONG CONSTANT SMG$K_LABEL_F1 = 531 DECLARE LONG CONSTANT SMG$K_LABEL_F2 = 532 DECLARE LONG CONSTANT SMG$K_LABEL_F3 = 533 DECLARE LONG CONSTANT SMG$K_LABEL_F4 = 534 DECLARE LONG CONSTANT SMG$K_LABEL_F5 = 535 DECLARE LONG CONSTANT SMG$K_LABEL_F6 = 536 DECLARE LONG CONSTANT SMG$K_LABEL_F7 = 537 DECLARE LONG CONSTANT SMG$K_LABEL_F8 = 538 DECLARE LONG CONSTANT SMG$K_LABEL_F9 = 539 DECLARE LONG CONSTANT SMG$K_LABEL_F10 = 540 DECLARE LONG CONSTANT SMG$K_LABEL_F11 = 541 DECLARE LONG CONSTANT SMG$K_LABEL_F12 = 542 DECLARE LONG CONSTANT SMG$K_LABEL_F13 = 543 DECLARE LONG CONSTANT SMG$K_LABEL_F14 = 544 DECLARE LONG CONSTANT SMG$K_LABEL_F15 = 545 DECLARE LONG CONSTANT SMG$K_LABEL_F16 = 546 DECLARE LONG CONSTANT SMG$K_LABEL_F17 = 547 DECLARE LONG CONSTANT SMG$K_LABEL_F18 = 548 DECLARE LONG CONSTANT SMG$K_LABEL_F19 = 549 DECLARE LONG CONSTANT SMG$K_LABEL_F20 = 550 DECLARE LONG CONSTANT SMG$K_LEFT_T_CHAR = 551 DECLARE LONG CONSTANT SMG$K_LIGHT_SCREEN = 552 DECLARE LONG CONSTANT SMG$K_LOWER_LEFT_CORNER = 553 DECLARE LONG CONSTANT SMG$K_LOWER_RIGHT_CORNER = 554 DECLARE LONG CONSTANT SMG$K_NAME = 555 DECLARE LONG CONSTANT SMG$K_NEWLINE_CHAR = 556 DECLARE LONG CONSTANT SMG$K_PAD_CHAR = 557 DECLARE LONG CONSTANT SMG$K_RESTORE_CURSOR = 558 DECLARE LONG CONSTANT SMG$K_RIGHT_T_CHAR = 559 DECLARE LONG CONSTANT SMG$K_SAVE_CURSOR = 560 DECLARE LONG CONSTANT SMG$K_SCROLL_FORWARD = 561 DECLARE LONG CONSTANT SMG$K_SCROLL_REVERSE = 562 DECLARE LONG CONSTANT SMG$K_SEL_ERASE_TO_END_DISPLAY = 563 DECLARE LONG CONSTANT SMG$K_SEL_ERASE_TO_END_LINE = 564 DECLARE LONG CONSTANT SMG$K_SEL_ERASE_WHOLE_DISPLAY = 565 DECLARE LONG CONSTANT SMG$K_SEL_ERASE_WHOLE_LINE = 566 DECLARE LONG CONSTANT SMG$K_SET_APPLICATION_KEYPAD = 567 DECLARE LONG CONSTANT SMG$K_SET_CHAR_NOT_SEL_ERASE = 568 DECLARE LONG CONSTANT SMG$K_SET_CHAR_SEL_ERASE = 569 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_ABS = 570 DECLARE LONG CONSTANT SMG$K_SET_NUMERIC_KEYPAD = 571 DECLARE LONG CONSTANT SMG$K_SET_SCROLL_REGION = 572 DECLARE LONG CONSTANT SMG$K_SET_TAB = 573 DECLARE LONG CONSTANT SMG$K_SINGLE_HIGH = 574 DECLARE LONG CONSTANT SMG$K_TAB_CHAR = 575 DECLARE LONG CONSTANT SMG$K_TOP_T_CHAR = 576 DECLARE LONG CONSTANT SMG$K_UNDERLINE_CHAR = 577 DECLARE LONG CONSTANT SMG$K_UPPER_LEFT_CORNER = 578 DECLARE LONG CONSTANT SMG$K_UPPER_RIGHT_CORNER = 579 DECLARE LONG CONSTANT SMG$K_VERTICAL_BAR = 580 DECLARE LONG CONSTANT SMG$K_WIDTH_NARROW = 581 DECLARE LONG CONSTANT SMG$K_WIDTH_WIDE = 582 DECLARE LONG CONSTANT SMG$K_CURSOR_POSITION_REPORT = 583 DECLARE LONG CONSTANT SMG$K_REQUEST_CURSOR_POSITION = 584 DECLARE LONG CONSTANT SMG$K_CR_GRAPHIC = 585 DECLARE LONG CONSTANT SMG$K_FF_GRAPHIC = 586 DECLARE LONG CONSTANT SMG$K_LF_GRAPHIC = 587 DECLARE LONG CONSTANT SMG$K_HT_GRAPHIC = 588 DECLARE LONG CONSTANT SMG$K_VT_GRAPHIC = 589 DECLARE LONG CONSTANT SMG$K_TRUNCATION_ICON = 590 DECLARE LONG CONSTANT SMG$K_CURSOR_NEXT_LINE = 591 DECLARE LONG CONSTANT SMG$K_CURSOR_PRECEDING_LINE = 592 DECLARE LONG CONSTANT SMG$K_INDEX = 593 DECLARE LONG CONSTANT SMG$K_REVERSE_INDEX = 594 DECLARE LONG CONSTANT SMG$K_BEGIN_NORMAL_RENDITION = 595 DECLARE LONG CONSTANT SMG$K_BEGIN_AUTOWRAP_MODE = 596 DECLARE LONG CONSTANT SMG$K_END_AUTOWRAP_MODE = 597 DECLARE LONG CONSTANT SMG$K_BEGIN_AUTOREPEAT_MODE = 598 DECLARE LONG CONSTANT SMG$K_END_AUTOREPEAT_MODE = 599 DECLARE LONG CONSTANT SMG$K_SET_ORIGIN_RELATIVE = 600 DECLARE LONG CONSTANT SMG$K_SET_ORIGIN_ABSOLUTE = 601 DECLARE LONG CONSTANT SMG$K_ERASE_LINE_TO_CURSOR = 602 DECLARE LONG CONSTANT SMG$K_NEXT_LINE = 603 DECLARE LONG CONSTANT SMG$K_BEGIN_AUTOPRINT_MODE = 604 DECLARE LONG CONSTANT SMG$K_END_AUTOPRINT_MODE = 605 DECLARE LONG CONSTANT SMG$K_PRINT_SCREEN = 606 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_ON = 607 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_OFF = 608 DECLARE LONG CONSTANT SMG$K_SET_PRINTER_OUTPUT = 609 DECLARE LONG CONSTANT SMG$K_SET_SCREEN_OUTPUT = 610 DECLARE LONG CONSTANT SMG$K_ERASE_DISPLAY_TO_CURSOR = 611 DECLARE LONG CONSTANT SMG$K_REQUEST_PRINTER_STATUS = 612 DECLARE LONG CONSTANT SMG$K_PRINTER_READY = 613 DECLARE LONG CONSTANT SMG$K_PRINTER_NOT_READY = 614 DECLARE LONG CONSTANT SMG$K_NO_PRINTER = 615 DECLARE LONG CONSTANT SMG$K_SET_JUMP_SCROLL = 616 DECLARE LONG CONSTANT SMG$K_SET_SMOOTH_SCROLL = 617 DECLARE LONG CONSTANT SMG$K_ERROR_ICON = 618 DECLARE LONG CONSTANT SMG$K_PAGE_LENGTH = 619 ! ! Private capabilities reserved for customer use. ! Put them at the end of the range. ! DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_1 = 651 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_2 = 652 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_3 = 653 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_4 = 654 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_5 = 655 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_6 = 656 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_7 = 657 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_8 = 658 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_9 = 659 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_10 = 660 DECLARE LONG CONSTANT SMG$K_MAX_STRING_CODE = 660 ! ! Second string capabilities here - 661 - 880 ! DECLARE LONG CONSTANT SMG$K_BEGIN_USER1 = 661 DECLARE LONG CONSTANT SMG$K_BEGIN_USER2 = 662 DECLARE LONG CONSTANT SMG$K_BEGIN_USER3 = 663 DECLARE LONG CONSTANT SMG$K_BEGIN_USER4 = 664 DECLARE LONG CONSTANT SMG$K_BEGIN_USER5 = 665 DECLARE LONG CONSTANT SMG$K_BEGIN_USER6 = 666 DECLARE LONG CONSTANT SMG$K_BEGIN_USER7 = 667 DECLARE LONG CONSTANT SMG$K_BEGIN_USER8 = 668 DECLARE LONG CONSTANT SMG$K_END_USER1 = 669 DECLARE LONG CONSTANT SMG$K_END_USER2 = 670 DECLARE LONG CONSTANT SMG$K_END_USER3 = 671 DECLARE LONG CONSTANT SMG$K_END_USER4 = 672 DECLARE LONG CONSTANT SMG$K_END_USER5 = 673 DECLARE LONG CONSTANT SMG$K_END_USER6 = 674 DECLARE LONG CONSTANT SMG$K_END_USER7 = 675 DECLARE LONG CONSTANT SMG$K_END_USER8 = 676 DECLARE LONG CONSTANT SMG$K_BLACK_SCREEN = 677 DECLARE LONG CONSTANT SMG$K_BLUE_SCREEN = 678 DECLARE LONG CONSTANT SMG$K_CYAN_SCREEN = 679 DECLARE LONG CONSTANT SMG$K_MAGENTA_SCREEN = 680 DECLARE LONG CONSTANT SMG$K_GREEN_SCREEN = 681 DECLARE LONG CONSTANT SMG$K_RED_SCREEN = 682 DECLARE LONG CONSTANT SMG$K_WHITE_SCREEN = 683 DECLARE LONG CONSTANT SMG$K_YELLOW_SCREEN = 684 DECLARE LONG CONSTANT SMG$K_USER1_SCREEN = 685 DECLARE LONG CONSTANT SMG$K_USER2_SCREEN = 686 DECLARE LONG CONSTANT SMG$K_BEGIN_STATUS_LINE = 687 DECLARE LONG CONSTANT SMG$K_END_STATUS_LINE = 688 DECLARE LONG CONSTANT SMG$K_BEGIN_LOCATOR = 689 DECLARE LONG CONSTANT SMG$K_END_LOCATOR = 690 DECLARE LONG CONSTANT SMG$K_KEY_FIRST_DOWN = 691 DECLARE LONG CONSTANT SMG$K_KEY_SECOND_DOWN = 692 DECLARE LONG CONSTANT SMG$K_KEY_THIRD_DOWN = 693 DECLARE LONG CONSTANT SMG$K_KEY_FOURTH_DOWN = 694 DECLARE LONG CONSTANT SMG$K_KEY_FIRST_UP = 695 DECLARE LONG CONSTANT SMG$K_KEY_SECOND_UP = 696 DECLARE LONG CONSTANT SMG$K_KEY_THIRD_UP = 697 DECLARE LONG CONSTANT SMG$K_KEY_FOURTH_UP = 698 DECLARE LONG CONSTANT SMG$K_USER3_SCREEN = 699 DECLARE LONG CONSTANT SMG$K_USER4_SCREEN = 700 DECLARE LONG CONSTANT SMG$K_USER5_SCREEN = 701 DECLARE LONG CONSTANT SMG$K_USER6_SCREEN = 702 DECLARE LONG CONSTANT SMG$K_USER7_SCREEN = 703 DECLARE LONG CONSTANT SMG$K_USER8_SCREEN = 704 DECLARE LONG CONSTANT SMG$K_SET_ASCII = 705 DECLARE LONG CONSTANT SMG$K_SET_SPEC_GRAPHICS = 706 DECLARE LONG CONSTANT SMG$K_SET_SUPPLEMENTAL = 707 DECLARE LONG CONSTANT SMG$K_SET_JIS_KANA = 708 DECLARE LONG CONSTANT SMG$K_SET_KANJI = 709 DECLARE LONG CONSTANT SMG$K_SET_JIS_ROMAN = 710 DECLARE LONG CONSTANT SMG$K_SET_HANZI = 711 DECLARE LONG CONSTANT SMG$K_SET_HANYU = 712 DECLARE LONG CONSTANT SMG$K_SET_HANGUL = 713 DECLARE LONG CONSTANT SMG$K_SET_KS_ROMAN = 714 DECLARE LONG CONSTANT SMG$K_MAX_STRING2_CODE = 880