Const

  BEL         = ^G;                    { Bell }
  BS          = ^H;                    { Back-space }
  TAB         = ^I;                    { Tab }
  LF          = ^J;                    { Line-feed }
  FF          = ^L;                    { Form-feed }
  CR          = ^M;                    { Carriage return }
  CAN         = ^X;                    { Cancel entry }
  SUB         = ^Z;                    { Ascii end-of-file marker }
  ESC         = #27;                   { Escape }
  SP          = #32;                   { Space }
  RUB         = #127;                  { Rub-out }
  IOerror     : Boolean = False;       { Global for IOCheck routine }
  Mask        = '______________________________________________________________________________';
  Spaces      = '                                                                              ';

Type

  Str1        = String[1];
  Str12       = String[12];
  Str20       = String[20];
  Str41       = String[41];
  Str80       = String[80];
  Str100      = String[100];
  CharSet     = Set of Char;

Var

  InStr       : Str80;                 { Global variables }
  YesNo       : Char;
  Good        : Boolean;