type

    machine_state = (receive, transmit);
    kam_mode      = (ASCII, RTTY, CW, AMTOR);

    alpha = array[0..127] of byte;
    str2 = string[2];
    msg_type  =  string[80];
    file_type =  string[24];
    log_type  =  record
                   callsign,
                   date,
                   time,
                   freq,
                   power : string[10];
                   rst_out,
                   rst_in : string[3];
                   comments : string[30];
                 end;
    DateStr = string[8];
    TimeString = string[8];

    attribute = shortint;

    screen = array[0..1999] of record
                                 c : char;
                                 a : attribute;
                               end;
