C/C++

					_STRUCTURED PROGRAMMING_
by Jeff Duntemann

[LISTING ONE]

Unit Fields;

INTERFACE


USES Crt;

CONST
  IntChars  = ['0'..'9','-'];
  TextChars = [#0..#255];
  Visible   = True;
  Invisible = False;

TYPE
  String10 = String[10];
  String80 = String[80];
  CharSet  = SET OF Char;

  PositionPtr = ^TextPosition;
  TextPosition =               { ABSTRACT! }
    OBJECT
      X,Y     : ...