{ PICSMAIN.INC - Pascal Integrated Communications System mainline code}
{ 5/25/87 Ver 1.6 Copyright 1987 by Les Archambault }

begin { PICS }
  system_init;
  cold_start;
  setup;
  wait_for_user;
  check_300_restrict;
  while not fini do
    begin
      login;
      if online and in_use then Set_Initial_areas;
      while online and in_use do
        begin
          if op_chat
            then op_chat := chat;
          check_time;
          make_prompt;
          writeln(USR);
          write_status_line;
          st:=prompt(st,50,'ES?M');
          if length(st)=1 then ch := st[1]
          else ch:=' ';
          if (not op_chat) then
            begin
              case mode of
                message_mode: process_messages;
                  files_mode: process_files;
                utility_mode: process_utility;
                  sysop_mode: process_sysop;
              end;
            end;
        end;
      exit_system;
      wait_for_user;
      check_300_restrict;
    end;
  system_de_init
end.

{End of PICSmain.inc }