{ -------------------------------------------------- }
{ Subscript.Inc                                      }
{                                                    }
{ This file contains the structure definitions for   }
{ the WaterGate Area & User subscription linkage     }
{ database. (SUBSCRIP.TDB)                           }
{                                                    }
{ (c) 1994 WaterLine Software Development            }

{$IFNDEF Wtr_SubScript}
{$DEFINE Wtr_SubScript}

{$I Globals}

TYPE SubscriptBaseRecord = RECORD
                                 NextSegmentRecordNr : SubscriptBaseRecordNrType;

                                 CASE INTEGER OF
                                      0 : (UserList : ARRAY[1..MaxSubscrBaseElements] OF UserBaseRecordNrType);
                                      1 : (AreaList : ARRAY[1..MaxSubscrBaseElements] OF AreaBaseRecordNrType);
                           END;

{$ENDIF}
