home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / ORACLE10.ZIP / MONOANSI.SQL < prev    next >
Encoding:
Text File  |  1987-08-31  |  2.3 KB  |  54 lines
  1. rem This script enters data for CRT files for IAF products on black & white
  2. rem PC's using ANSI.SYS.  The terminal type is MONOANSI.  Run CRT as follows:
  3. rem
  4. rem       CRT MONOANSI USERNAME/PASSWORD -D
  5. rem
  6. rem Include the "-d" if you want to make this the default CRT definition,
  7. rem in which case the CRT file will be called "DEFAULT.CRT".  Otherwise,
  8. rem the terminal definition file will be "MONOANSI.CRT", and you must indicate
  9. rem to each utility that you wish to use a non-default CRT file (usually,
  10. rem with a "-c" switch:  -C MONOANSI).
  11. rem
  12. rem Note:  the necessary tables must already be part of the database
  13. rem on which this script is to be run.  CRT.SQL is a file that creates
  14. rem these tables.
  15.  
  16. set echo off
  17.  
  18. rem **********************************************************************
  19. rem Enter the master record for the CRT definition
  20. rem **********************************************************************
  21.  
  22. delete from crt where name='MONOANSI';
  23. insert into crt (name, type, base, lines, columns, msgl, modl, clearscreen,
  24.     cleareol, att3, att2_3, att1_2_3,
  25.     backspace, forespace, goto_cl, clearline, tset, att1,
  26.     att2, att1_2, att1_3, attoff, scrup, scrdn, graphon,
  27.     graphoff, cursorup, cursordown)
  28.  values ('MONOANSI', 'CHAR', 1, 25, 80, 24, 25, '\e[0;32m\e[2J',
  29.     '\e[K', '\e[5;31m', '\e[0;7m', '\e[0;7m',
  30.     '\e[D', '\e[C', '\e[\y;\xH', '\e[2K', NULL, '\e[0;34;1m',
  31.     '\e[0;1m', '\e[0;7m', '\e[0;31m', '\e[0;32m', '\eD', '\eM', NULL,
  32.     NULL, '\e[A', '\e[B');
  33.  
  34. rem **********************************************************************
  35. rem Define the box-graphic characters
  36. rem **********************************************************************
  37.  
  38. delete from crtbox where crtname='MONOANSI';
  39. insert into crtbox values ('MONOANSI', 'Y', 'x', 'q', 'a', 'k', 'b', 'j',
  40.     't', 'c', 'w', 'v', 'd', '|', '-', '+', '+', '+', '+', '+', '+', '+',
  41.     '+', '+')
  42. /
  43.  
  44. rem **********************************************************************
  45. rem Define the function keys
  46. rem **********************************************************************
  47.  
  48. DELETE FROM esc WHERE NAME='MONOANSI';
  49. insert into esc select prod_code, 'MONOANSI', func, escseq, comments
  50.                   from esc
  51.                  where name='PCBIOS';
  52.  
  53. commit
  54.