home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TKERMIT.LBR / K.PQS / K.PAS
Pascal/Delphi Source File  |  2000-06-30  |  2KB  |  49 lines
  1.  
  2.  program kermit;
  3.  
  4. {$I kinit}
  5. {$I kdir}
  6. {$I kopen}
  7. {$I kdisplay}
  8. {$I khelp}
  9. {$I krec}
  10. {$I kterm}
  11. {$I ksend}
  12. {$I krec1}
  13. {$I kcmd}
  14.  
  15.   begin (* main *)
  16.     lowvideo;
  17.     file_type_var := ascii;
  18.     parity_type_var := no_parity;
  19.     port_type_var := comm;  (* default communications port (reader/punch) *)
  20.     timeout := 5; (* value for timeout, not implemented *)
  21.     chk_type := '1'; (* we can only do type 1 checks *)
  22.     repeat_char := '~'; (* not used right now *)
  23.     done := false;  (* dummy variable for main repeat, stop is via quit proc *)
  24.     base_iobyte := iobyte; (* get the initial iobyte *)
  25.     port := 2; (* port is comm *)
  26.     port_iobyte := (base_iobyte and $fc) or port; (* set port iobyte *)
  27.     debug := false; (* debug mode is off *)
  28.     printing := false; (* print logging is off *)
  29.     file_open := false; (* no files open *)
  30.     print_mode := 'off'; (* print mode string for show *)
  31.     debug_mode := 'off'; (* debug mode string for show *)
  32.     maxtry := 5; (* default maximum retries *)
  33.  
  34.     repeat
  35.       (* The following parameters are reset on each command *)
  36.       packet_size := init_packet_size; (* our default packet size *)
  37.       repeating := false; (* make sure we don't try repeat prefixing *)
  38.       npad := 0;   (* I don't need padding *)
  39.       pad := chr(0); (* but if I did I'd want null *)
  40.       my_pad_num := 0; (* I won't send padding unless requested *)
  41.       end_of_line := 13; (* expected end of line character *)
  42.       send_eol := 13; (* I'll send a cr to start with *)
  43.       quote_char := '#'; (* I'll use the default quote *)
  44.       quote_8 := '&';    (* I'll use the default 8 bit quote *)
  45.       quoting := false;  (* but I won't ask for it unless binary with parity *)
  46.       prompt; (* send prompt *)
  47.       get_cmd_line; (* execute typed command *)
  48.     until done = true; (* Done is never set, it's just for the loop *)
  49.   end.  (* main *)