home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 09 / modula / lib.arc / ASCII.DEF next >
Encoding:
Modula Definition  |  1987-06-30  |  1.6 KB  |  43 lines
  1. DEFINITION MODULE ASCII;
  2.  
  3. (* (C) Copyright 1987 Fitted Software Tools. All rights reserved. *)
  4.  
  5.  
  6. CONST
  7.     (* standard ASCII control character names *)
  8.     nul = 00C;  soh = 01C;  stx = 02C;  etx = 03C;
  9.     eot = 04C;  enq = 05C;  ack = 06C;  bel = 07C;
  10.     bs  = 10C;  ht  = 11C;  lf  = 12C;  vt  = 13C;
  11.     ff  = 14C;  cr  = 15C;  so  = 16C;  si  = 17C;
  12.     dle = 20C;  dc1 = 21C;  dc2 = 22C;  dc3 = 23C;
  13.     dc4 = 24C;  nak = 25C;  syn = 26C;  etb = 27C;
  14.     can = 30C;  em  = 31C;  sub = 32C;  esc = 33C;
  15.     fs  = 34C;  gs  = 35C;  rs  = 36C;  us  = 37C;
  16.     del = 177C;
  17.  
  18.     NUL = 00C;  SOH = 01C;  STX = 02C;  ETX = 03C;
  19.     EOT = 04C;  ENQ = 05C;  ACK = 06C;  BEL = 07C;
  20.     BS  = 10C;  HT  = 11C;  LF  = 12C;  VT  = 13C;
  21.     FF  = 14C;  CR  = 15C;  SO  = 16C;  SI  = 17C;
  22.     DLE = 20C;  DC1 = 21C;  DC2 = 22C;  DC3 = 23C;
  23.     DC4 = 24C;  NAK = 25C;  SYN = 26C;  ETB = 27C;
  24.     CAN = 30C;  EM  = 31C;  SUB = 32C;  ESC = 33C;
  25.     FS  = 34C;  GS  = 35C;  RS  = 36C;  US  = 37C;
  26.     DEL = 177C;
  27.  
  28.     (* what the control character combinations generate *)
  29.                   CtrlA = 01C;  CtrlB = 02C;  CtrlC = 03C;
  30.     CtrlD = 04C;  CtrlE = 05C;  CtrlF = 06C;  CtrlG = 07C;
  31.     CtrlH = 10C;  CtrlI = 11C;  CtrlJ = 12C;  CtrlK = 13C;
  32.     CtrlL = 14C;  CtrlM = 15C;  CtrlN = 16C;  CtrlO = 17C;
  33.     CtrlP = 20C;  CtrlQ = 21C;  CtrlR = 22C;  CtrlS = 23C;
  34.     CtrlT = 24C;  CtrlU = 25C;  CtrlV = 26C;  CtrlW = 27C;
  35.     CtrlX = 30C;  CtrlY = 31C;  CtrlZ = 32C;
  36.  
  37.     (* Modula-2 end-of-line character *)
  38.     EOL = 36C;
  39.  
  40.     (* end-of-file character for text files *)
  41.     EOF = CtrlZ;
  42.  
  43. END ASCII.