home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / packet / kam300 / kam-var.pas < prev    next >
Pascal/Delphi Source File  |  1988-03-31  |  2KB  |  96 lines
  1. var
  2.    state : machine_state;
  3.    mode  : kam_mode;
  4.  
  5.    capture : boolean;
  6.    capture_file : file;
  7.    capture_file_name : file_type;
  8.    capture_pointer : integer;
  9.    capture_buffer : array[0..2047] of char;
  10.  
  11.    xmt_wpm, rcv_wpm : str2;
  12.  
  13.    cw_off_delay,
  14.    xmt_on_delay,
  15.    xmt_off_delay,
  16.    xmt_time_out,
  17.    baud,
  18.    shift,
  19.    xmt_port,
  20.    a_hold, b_hold,
  21.    inp_ptr, out_ptr,
  22.    xout, yout, xkbd, ykbd,
  23.    index, nbr,
  24.    xin, yin,
  25.    rcv_bottom,
  26.    curs_x, curs_y,
  27.    int_wpm,
  28.    kam_baud_rate,
  29.    status_line,
  30.    inp_start_line,
  31.    inp_end_line,
  32.    aux_line,
  33.    out_start_line,
  34.    out_end_line,
  35.    lead_attr           : integer;
  36.  
  37.    xmt_enabled,
  38.    xmt_ON,
  39.    auto_switch,
  40.    rcv_interrupt,
  41.    send_interrupt,
  42.    invert,
  43.    quit_flag,
  44.    stop_flag,
  45.    pause_flag,
  46.    viewing_help,
  47.    rcv_flag : boolean;
  48.  
  49.    key, qkey,
  50.    out_chr,
  51.    msg_nbr,
  52.    last_char_sent : char;
  53.    kbd_buffer : array[0..buf_size] of char;
  54.  
  55.    logfile : text;
  56.    msg : array[0..9] of msg_type;
  57.    msg_file_name,
  58.    msg_file_0     : file_type;
  59.    logbook : array[1..100] of log_type;
  60.    qso_nbr,
  61.    time_zone : integer;
  62.    rcv_buffer : array[0..$7FF] of char;
  63.    rcv_cnt : integer;
  64.  
  65.  
  66.    image,
  67.    screen1,
  68.    param_scr,
  69.    help_scr,
  70.    qsig_scr,
  71.    rst_scr   : screen;
  72.    mono_screen : screen absolute $0B000:$0000;
  73.    color_screen : screen absolute $0B800:$0000;
  74.    attr_pos : integer;
  75.    vid_type : integer;
  76.  
  77.    b_clr : array[0..5] of integer;
  78.    f_clr : array[0..5] of integer;
  79.  
  80.    hour, min, year, month, day : integer;
  81.  
  82.    border,
  83.    old_border,
  84.    xmt_attrib,
  85.    rcv_attrib,
  86.    status_attrib,
  87.    prompt_attrib,
  88.    aux_attrib,
  89.    help_attrib: byte;
  90.  
  91.    old_time : string[5];
  92.  
  93.    cw_log_file,
  94.    rtty_log_file,
  95.    ascii_log_file  : file_type;
  96.