home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / ORACLE10.ZIP / NUBLUBIO.SQL < prev    next >
Encoding:
Text File  |  1987-08-29  |  1.4 KB  |  38 lines
  1. set echo OFF
  2.  
  3. rem **********************************************************************
  4. rem Enter the master record for the CRT definition
  5. rem **********************************************************************
  6.  
  7. delete from crt where name='NUBLUBIO';
  8. insert into crt (name, type, base, lines, columns, msgl, modl, clearscreen,
  9.     backspace, forespace, goto_cl, offset, clearline, tset, att1,
  10.     att2, att1_2, att1_3, attoff, scrup, scrdn, graphon,
  11.     graphoff)
  12.  values ('NUBLUBIO', 'CHAR', 1, 25, 80, 24, 25, '\eC\eL\027',
  13.     '\eB', '\eA', '\eK\y\x', 0, '\eE\eF', '\eS\027', '\eL\161',
  14.     '\eL\025', '\eL\107', '\eL\037', '\eL\027', '\eG', '\eH', NULL,
  15.     NULL)
  16. /
  17.  
  18. rem **********************************************************************
  19. rem Define the box-graphic characters
  20. rem **********************************************************************
  21.  
  22. delete from crtbox where crtname='NUBLUBIO';
  23. insert into crtbox values ('NUBLUBIO', 'Y', '│', '─', '┌', '┐', '└', '┘',
  24.     '├', '┤', '┬', '┴', '┼', '|', '-', '+', '+', '+', '+', '+', '+', '+',
  25.     '+', '+');
  26.  
  27. rem **********************************************************************
  28. rem Define the function keys
  29. rem **********************************************************************
  30.  
  31.  
  32.  
  33. DELETE FROM esc WHERE NAME='NUBLUBIO';
  34. insert into esc select prod_code, 'NUBLUBIO', func, escseq, comments
  35.                   from esc
  36.                  where name='NEWBIOS';
  37. commit
  38.