home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / ORACLE10.ZIP / BWBIOS.SQL < prev    next >
Encoding:
Text File  |  1987-08-31  |  2.2 KB  |  55 lines
  1. rem This script enters data for CRT files for products on black & white
  2. rem PC's using BIOS screen control.  The terminal type is BWBIOS.  Run
  3. rem CRT as follows:
  4. rem
  5. rem       CRT BWBIOS USERNAME/PASSWORD -D
  6. rem
  7. rem Include the "-d" if you want to make this the default CRT definition,
  8. rem in which case the CRT file will be called "DEFAULT.CRT".  Otherwise,
  9. rem the terminal definition file will be "BWBIOS.CRT", and you must indicate
  10. rem to each utility that you wish to use a non-default CRT file (usually,
  11. rem with a "-c" switch:  -c BWBIOS).
  12. rem
  13. rem Note:  the necessary tables must already be part of the database
  14. rem on which this script is to be run.  CRT.SQL is a file that creates
  15. rem these tables.
  16.  
  17. set echo OFF
  18.  
  19. rem **********************************************************************
  20. rem Enter the master record for the CRT definition
  21. rem **********************************************************************
  22.  
  23. delete from crt where name='BWBIOS';
  24. insert into crt (name, type, base, lines, columns, msgl, modl, clearscreen,
  25.     cleareol, att3, att2_3, att1_2_3,
  26.     backspace, forespace, goto_cl, offset, clearline, att1,
  27.     att2, att1_2, att1_3, attoff, scrup, scrdn, graphon,
  28.     graphoff, cursorup, cursordown)
  29.  values ('BWBIOS', 'CHAR', 1, 25, 80, 24, 25, '\eC\eL\007',
  30.     '\eE', '\eL\207', '\eL\160', '\eL\160',
  31.     '\eB', '\eA', '\eK\y\x', 0, '\eE\eF', '\eL\160',
  32.     '\eL\017', '\eL\160', '\eL\017', '\eL\007', '\eG', '\eH', NULL,
  33.     NULL, '\eU', '\eT')
  34. /
  35.  
  36. rem **********************************************************************
  37. rem Define the box-graphic characters
  38. rem **********************************************************************
  39.  
  40. delete from crtbox where crtname='BWBIOS';
  41. insert into crtbox values ('BWBIOS', 'Y', '│', '─', '┌', '┐', '└', '┘',
  42.     '├', '┤', '┬', '┴', '┼', '|', '-', '+', '+', '+', '+', '+', '+', '+',
  43.     '+', '+');
  44.  
  45. rem **********************************************************************
  46. rem Define the function keys
  47. rem **********************************************************************
  48.  
  49. DELETE FROM esc WHERE NAME='BWBIOS';
  50. insert into esc select prod_code, 'BWBIOS', func, escseq, comments
  51.                   from esc
  52.                  where name='PCBIOS';
  53.  
  54. commit
  55.