home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / ORACLE11.ZIP / VT100.SQL < prev   
Encoding:
Text File  |  1987-04-27  |  6.7 KB  |  118 lines
  1. rem **********************************************************************
  2. rem VT100.SQL
  3. rem for SQL*Forms 2.0.18
  4. rem **********************************************************************
  5. set echo on
  6.  
  7. rem **********************************************************************
  8. rem Enter the master record for the CRT definition
  9. rem **********************************************************************
  10. set term on
  11. delete from crt where name='VT100';
  12.  
  13. INSERT INTO CRT VALUES ('VT100', 'CHAR', NULL, 1, NULL, 24, 80, 23, 24,'\e[2J',
  14. '\010', '\e[1C', '\e[\y;\xH', '\e[2K',
  15. '\e<\e=\e[?1h\e[?6l\e(B\e)0\017','\e[?1l\e>',
  16. '\e[7m', NULL, '\e[7m', '\e[m',
  17. '\e[\t;\br', '\eD', '\eM', '\016','\017', NULL, NULL,
  18. '\e[K','\e[1A','\e[1B','\e#3','\e#4',
  19. '\e[m', '\e[7m', NULL, '\e[7m',
  20. '\e[1m','\e[5m','\e[7m','\e[4m' );
  21.  
  22.  
  23.  
  24. rem **********************************************************************
  25. rem Define the box-graphic characters
  26. rem **********************************************************************
  27.  
  28. delete from crtbox where crtname='VT100';
  29.  
  30. INSERT INTO crtbox VALUES ('VT100', 'Y', 'x', 'q', 'l', 'k', 'm', 'j',
  31.      't', 'u', 'w', 'v', 'n', '|', '-', '*', '*',
  32.      '*', '*', '*', '*', '*', '*', '+');
  33.  
  34. rem **********************************************************************
  35. rem Define the function keys
  36. rem **********************************************************************
  37.  
  38. DELETE FROM esc WHERE NAME='VT100';
  39.  
  40. INSERT INTO esc VALUES ('IAP', 'VT100',   'R',  '*\er',       'Escape r');
  41. INSERT INTO esc VALUES ('IAP', 'VT100',   'PF', '\010',       'BACK SPACE');
  42. INSERT INTO esc VALUES ('IAP', 'VT100',   'NF', '\015',       'RETURN');
  43. INSERT INTO esc VALUES ('IAP', 'VT100',   'NF', '\011',       'TAB');
  44. INSERT INTO esc VALUES ('IAP', 'VT100',   'NK', '\e\011',     'Escape TAB');
  45. INSERT INTO esc VALUES ('IAP', 'VT100',   'DB', '\177',       'DELETE');
  46. INSERT INTO esc VALUES ('IAP', 'VT100',   'X',  '\eOS',       'PF4');
  47. INSERT INTO esc VALUES ('IAP', 'VT100',   'X',  '\032',       '^Z');
  48. INSERT INTO esc VALUES ('IAP', 'VT100',   'Q',  '\eOP',       'PF1');
  49. INSERT INTO esc VALUES ('IAP', 'VT100',   'CR', '\eOQ',       'PF2');
  50. INSERT INTO esc VALUES ('IAP', 'VT100',   'CT', '\eOR',       'PF3');
  51. INSERT INTO esc VALUES ('IAP', 'VT100',   'NF', '\eOw',       '7');
  52. INSERT INTO esc VALUES ('IAP', 'VT100',   'PF', '\eOx',       '8');
  53. INSERT INTO esc VALUES ('IAP', 'VT100',   'CF', '\eOy',       '9');
  54. INSERT INTO esc VALUES ('IAP', 'VT100',   'R',  '\eOm',       '-');
  55. INSERT INTO esc VALUES ('IAP', 'VT100',   'NR', '\eOB',       'Down Arrow');
  56. INSERT INTO esc VALUES ('IAP', 'VT100',   'PR', '\eOA',       'Up Arrow');
  57. INSERT INTO esc VALUES ('IAP', 'VT100',   'NR', '\eOt',       '4');
  58. INSERT INTO esc VALUES ('IAP', 'VT100',   'PR', '\eOu',       '5');
  59. INSERT INTO esc VALUES ('IAP', 'VT100',   'RR', '\eOv',       '6');
  60. INSERT INTO esc VALUES ('IAP', 'VT100',   'DE', '\eOl',       ',');
  61. INSERT INTO esc VALUES ('IAP', 'VT100',   'NB', '\eOq',       '1');
  62. INSERT INTO esc VALUES ('IAP', 'VT100',   'PB', '\eOr',       '2');
  63. INSERT INTO esc VALUES ('IAP', 'VT100',   'CB', '\eOs',       '3');
  64. INSERT INTO esc VALUES ('IAP', 'VT100',   'H',  '\eOp',       '0');
  65. INSERT INTO esc VALUES ('IAP', 'VT100',   'CM', '\eOn',       '.');
  66. INSERT INTO esc VALUES ('IAP', 'VT100',   'ML', '\eOD',       '<-');
  67. INSERT INTO esc VALUES ('IAP', 'VT100',   'MR', '\eOC',       '->');
  68. INSERT INTO esc VALUES ('IAP', 'VT100',   'EQ', '\eOM',       'ENTER');
  69. INSERT INTO esc VALUES ('IAP', 'VT100',   'D',  '*\ed',       'Escape d');
  70. INSERT INTO esc VALUES ('IAP', 'VT100',   'P',  '*\ep',       'Escape p');
  71. INSERT INTO esc VALUES ('IAP', 'VT100',   'DK', '*\ek',       'Escape k');
  72. INSERT INTO esc VALUES ('IAP', 'VT100',   'NS', '*\es',       'Escape s');
  73. INSERT INTO esc VALUES ('IAP', 'VT100',   'CA', '*\ec',       'Escape c');
  74. INSERT INTO esc VALUES ('IAP', 'VT100',   'BM', '*\eb',       'Escape b');
  75. INSERT INTO esc VALUES ('IAP', 'VT100',   'LV', '*\ev',       'Escape v');
  76. INSERT INTO esc VALUES ('IAP', 'VT100',   'DF', '*\e1',       'Escape 1');
  77. INSERT INTO esc VALUES ('IAP', 'VT100',   'DR', '*\e2',       'Escape 2');
  78. INSERT INTO esc VALUES ('IAP', 'VT100',   'CQ', '*\e4',       'Escape 4');
  79. INSERT INTO esc VALUES ('IAP', 'VT100',   'SL', '\e\eOD',     'Escape <-');
  80. INSERT INTO esc VALUES ('IAP', 'VT100',   'SR', '\e\eOC',     'Escape ->');
  81.  
  82. INSERT INTO esc VALUES ('IAD', 'VT100',   'R',  '*\er',       'Escape r');
  83. INSERT INTO esc VALUES ('IAD', 'VT100',   'PF', '\010',       'BACK SPACE');
  84. INSERT INTO esc VALUES ('IAD', 'VT100',   'NF', '\015',       'RETURN');
  85. INSERT INTO esc VALUES ('IAD', 'VT100',   'NF', '\011',       'TAB');
  86. INSERT INTO esc VALUES ('IAD', 'VT100',   'DB', '\177',       'DELETE');
  87. INSERT INTO esc VALUES ('IAD', 'VT100',   'X',  '\eOS',       'PF4');
  88. INSERT INTO esc VALUES ('IAD', 'VT100',   'X',  '\032',       '^Z');
  89. INSERT INTO esc VALUES ('IAD', 'VT100',   'D',  '\eOP',       'PF1');
  90. INSERT INTO esc VALUES ('IAD', 'VT100',   'CR', '\eOQ',       'PF2');
  91. INSERT INTO esc VALUES ('IAD', 'VT100',   'A',  '\eOR',       'PF3');
  92. INSERT INTO esc VALUES ('IAD', 'VT100',   'NF', '\eOw',       '7');
  93. INSERT INTO esc VALUES ('IAD', 'VT100',   'PF', '\eOx',       '8');
  94. INSERT INTO esc VALUES ('IAD', 'VT100',   'CF', '\eOy',       '9');
  95. INSERT INTO esc VALUES ('IAD', 'VT100',   'R',  '\eOm',       '-');
  96. INSERT INTO esc VALUES ('IAD', 'VT100',   'MD', '\eOB',       'Down Arrow');
  97. INSERT INTO esc VALUES ('IAD', 'VT100',   'MU', '\eOA',       'Up Arrow');
  98. INSERT INTO esc VALUES ('IAD', 'VT100',   'MD', '\eOt',       '4');
  99. INSERT INTO esc VALUES ('IAD', 'VT100',   'MU', '\eOu',       '5');
  100. INSERT INTO esc VALUES ('IAD', 'VT100',   'UN', '\eOv',       '6');
  101. INSERT INTO esc VALUES ('IAD', 'VT100',   'SB', '\eOq',       '1');
  102. INSERT INTO esc VALUES ('IAD', 'VT100',   'BL', '\eOr',       '2');
  103. INSERT INTO esc VALUES ('IAD', 'VT100',   'RF', '\eOs',       '3');
  104. INSERT INTO esc VALUES ('IAD', 'VT100',   'CM', '\eOn',       '.');
  105. INSERT INTO esc VALUES ('IAD', 'VT100',   'ML', '\eOD',       '<-');
  106. INSERT INTO esc VALUES ('IAD', 'VT100',   'MR', '\eOC',       '->');
  107. INSERT INTO esc VALUES ('IAD', 'VT100',   'S',  '\eOM',       'ENTER');
  108. INSERT INTO esc VALUES ('IAD', 'VT100',   'CU',  '*\ed',       'Escape d');
  109. INSERT INTO esc VALUES ('IAD', 'VT100',   'P',  '*\ep',       'Escape p');
  110. INSERT INTO esc VALUES ('IAD', 'VT100',   'DK', '*\ek',       'Escape k');
  111. INSERT INTO esc VALUES ('IAD', 'VT100',   'PA', '*\ec',       'Escape c');
  112. INSERT INTO esc VALUES ('IAD', 'VT100',   'RO', '*\eb',       'Escape b');
  113. INSERT INTO esc VALUES ('IAD', 'VT100',   'MO', '*\e1',       'Escape 1');
  114. INSERT INTO esc VALUES ('IAD', 'VT100',   'CO', '*\e2',       'Escape 2');
  115.  
  116.  
  117. commit
  118.