Topspeed_JPI/TS/MODBASE/DBSCREEN.DEF

DEFINITION MODULE DBScreen;
(*
 *  ModBase
 *  Release 3.0
 *  By Don Fletcher & John McMonagle
 *  (c) Copyright 1986 - 1991 PMI
 *  P.O. Box 8402
 *  Green Bay WI 54308
 *  All Rights Reserved
 *
 *)

IMPORT SmartScreen; (* from Repertoire *)
FROM ModBase3 IMPORT DBFile, DBFieldDescriptor;

TYPE
  Direction = (Ahead, Nowhere, Back, Escape);

VAR
  readattr, writeattr:
    RECORD
      fore, back: SmartScreen.Colors;
      MonoAttr: SmartScreen.TextAttribute;
    END;

  lastdirection: Direction;

  PROCEDURE CreateDBF(dbfilename: ARRAY OF CHAR; VAR
      alias: DBFile);

  PROCEDURE GetDescriptors(VAR fields: ARRAY OF
      DBFieldDescriptor);

  PROCEDURE ModifyDBStruc(VAR alias: DBFile);

  PROCEDURE Say(row, col: CARDINAL; s: ARRAY OF CHAR);

  PROCEDURE Get(row, col: CARDINAL; VAR s: ARRAY OF
      CHAR);

  PROCEDURE ReadGets;

  PROCEDURE Row(): CARDINAL;

  PROCEDURE Col(): CARDINAL;

END DBScreen.