home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / def.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  5.2 KB  |  144 lines
  1. unit Def;
  2.  
  3. interface
  4. const
  5.    MaxList            =     4500;
  6.    SubDivisionTop     =       26;
  7.    DivisionTop        =       26;
  8.    MostPrinters       =        9;
  9.    FinalLine          =       12;
  10.    MaxSortDiff        =        1;
  11.    max_copies         =       25;
  12.    MostPhone     =     4500;
  13.    LinesOnPage  =       58;
  14.    high_record    =    32000;
  15.    MailLine      =        5;
  16.    ZipLine       =        8;
  17.    Phone1Line    =        9;
  18.    Phone2Line    =       10;
  19.    BeginBlock    =        1;
  20.    DisplayLines      =       14;
  21.    PrintBlock    =      254;
  22.    DriveDefault  =     'A:';
  23.    Restrict1     =     9730;
  24.    Restrict2     =      278;
  25.    LastDescription    =       11;
  26.    MaxFieldLine       =        5;
  27.    MaxForms           =       40;
  28.    MaxFormLength      =       66;
  29.    MaxFormWidth       =      272;
  30.    row:                               integer = 0;
  31.    FileTop:                           integer = 0;
  32.    BackupFileTop:                     integer = 0;
  33.    SortTop:                           integer = 0;
  34.    BackupSortTop:                     integer = 0;
  35.    commentTop:                        integer = 0;
  36.    RecordNum:                         integer = 0;
  37.    I:                                 integer = 0;
  38.    J:                                 integer = 0;
  39.    K:                                 integer = 0;
  40.    FirstDisplay:                      longint = 0;
  41.    LastDisplay:                       longint = 0;
  42.    ProgramUse:                        integer = 0;
  43.    ActivePrinter:                     integer = 0;
  44.    ActiveForm:                        integer = 0;
  45.    ShowMode:                          integer = 0;
  46.    PrinterMode:                       integer = 0;
  47.  
  48. const
  49.    FieldLen:      array [0..FinalLine] of integer = (1,40,20,30,30,30,20,2,10,12,12,40,1);
  50.    Description:   array [1..LastDescription] of string[20] = ( 'Addressee', 'Title',
  51.                                                         'Company',
  52.                                                         'Aux. address line',
  53.                                                         'Mailing address',
  54.                                                         'City', 'State',
  55.                                                         'Zip code',
  56.                                                         'Phone number 1',
  57.                                                         'Phone number 2',
  58.                                                         'Comments');
  59.  
  60. type
  61.     s1  = char;
  62.     S2  = string[2];
  63.     s5  = string[5];
  64.     S10 = string[10];
  65.     s12 = string[12];
  66.     s20 = string[20];
  67.     s25 = string[25];
  68.     S30 = string[30];
  69.     s40 = string[40];
  70.     S80 = string[80];
  71.     Line = string[80];
  72.     IntArray        = array [1..SubDivisionTop] of integer;
  73.     code_arr    = array [0..DivisionTop,0..SubDivisionTop] of S30;
  74.     BlockArray  = array [1..MaxList] of integer;
  75.     SetType =                       set of char;
  76.  
  77. MainRecordType = record
  78.                          Addressee:            s40;
  79.                          AuxAddress:           S30;
  80.                          MailAddress:          S30;
  81.                          City:                 s20;
  82.                          State:                S2;
  83.                          ZipCode:              S10;
  84.                          Phone1:               s12;
  85.                          Phone2:               s12;
  86.                          Comments:             s40;
  87.                          waste:                byte;
  88.                          Division:             char;
  89.                          waste2:               byte;
  90.                          SubDivision:          char;
  91.                          Title:                s20;
  92.                          Company:              S30;
  93.                          end;
  94.  
  95. FormRecord   =  record
  96.                 Description:         S30;
  97.                 FormLen:         integer;
  98.                 FormWidth:        integer;
  99.                 ReturnColOffset:          integer;
  100.                 ReturnRowOffset:          integer;
  101.                 ColOffset:           integer;
  102.                 RowOffset:           integer;
  103.                 PlaceArray:    array [1..LastDescription, 1..MaxFieldLine] of integer;
  104.                 end;
  105.  
  106. var
  107.    TempMainFile,
  108.    AddressFile:      file of MainRecordType;
  109.    FormFile:         file of FormRecord;
  110.    Entry,
  111.    ReturnAddress,
  112.    HoldEntry:        MainRecordType;
  113.    Compress1,
  114.    Compress2,
  115.    DeCompress1,
  116.    DeCompress2:      array [1..MostPrinters] of integer;
  117.    Printers:         array [1..MostPrinters] of S80;
  118.    Ch:               char;
  119.    DataDrive:        S2;
  120.    TempFileLine,
  121.    TestName,
  122.    Device,
  123.    BlankLine:        Line;
  124.    WriteState,
  125.    Komma,
  126.    Continue,
  127.    FunctionKey:      boolean;
  128.    blank:            S30;
  129.    FindName:         s25;
  130.    IntFile:          file of integer;
  131.    rfile:            file of real;
  132.    AlphaCodeFile:    file of S30;
  133.    DriveFile:        file of S2;  (* make empty slot in mode *)
  134.    TextFile,
  135.    OutPutDevice:     text;
  136.    AlphaCode:              code_arr;
  137.    Form:             array [0..MaxForms] of FormRecord;
  138.    Frame:            array [0..43,0..FinalLine] of char;
  139.  
  140. implementation
  141.  
  142. end.
  143. 
  144.