home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / ucsdibmpc.zip / setshow.text < prev    next >
Text File  |  1984-05-23  |  4KB  |  124 lines
  1. procedure write_bool(s: string255; b: boolean);
  2.  
  3. (* writes message & 'on' if b, 'off' if not b *)
  4.   begin
  5.     write(s);
  6.     case b of
  7.         true: writeln('on');
  8.         false: writeln('off');
  9.       end; (* case *)
  10.   end; (* write_bool *)
  11.  
  12. procedure show_parms;
  13.  
  14. (* shows the various settable parameters *)
  15.  
  16. begin
  17.    case noun of
  18.       allsym: begin
  19.                  write_bool('Debugging is ',debug);
  20.                  writeln('Escape character is ^',ctl(esc_char));
  21.                  write_bool('File warning is ',fwarn);
  22.                  write_bool('IBM is ',ibm);
  23.                  write_bool('Local echo is ',halfduplex);
  24.                  write_bool('Emulate DataMedia is ', emulating );
  25.                  case parity of
  26.                     evenpar: write('Even');
  27.                     markpar: write('Mark');
  28.                     nopar: write('No');
  29.                     oddpar: write('Odd');
  30.                     spacepar: write('Space');
  31.                  end; (* case *)
  32.                  writeln(' parity');
  33.                  writeln( 'Baud rate is ', baud:5 );
  34.               end; (* allsym *)
  35.  
  36.       debugsym:    write_bool('Debugging is ',debug);
  37.  
  38.       escsym:      writeln('Escape character is ^',ctl(esc_char));
  39.  
  40.       filewarnsym: write_bool('File warning is ',fwarn);
  41.  
  42.       ibmsym:      write_bool('IBM is ',ibm);
  43.  
  44.       localsym:    write_bool('Local echo is ',halfduplex);
  45.  
  46.       emulatesym:  write_bool('Emulate DataMedia is ', emulating );
  47.  
  48.       baudsym:     writeln( 'Baud rate is ', baud:5 );
  49.  
  50.       paritysym:   begin
  51.                       case parity of
  52.                          evenpar: write('Even');
  53.                          markpar: write('Mark');
  54.                          nopar: write('No');
  55.                          oddpar: write('Odd');
  56.                          spacepar: write('Space');
  57.                       end; (* case *)
  58.                       writeln(' parity');
  59.                       end; (* paritysym *)
  60.                    end; (* case *)
  61. end; (* show_sym *)
  62.  
  63.  
  64. procedure set_parms;
  65.  
  66. (* sets the parameters *)
  67.  
  68.   begin
  69.     case noun of
  70.         debugsym: case adj of
  71.                       onsym: begin
  72.                           debug := true;
  73.                           (*$I-*)
  74.                           rewrite(debf,'CONSOLE:')
  75.                           (*I+*)
  76.                         end; (* onsym *)
  77.                       offsym: debug := false
  78.                     end; (* case adj *)
  79.         escsym: escchar := newescchar;
  80.         filewarnsym: fwarn := (adj = onsym);
  81.         ibmsym: case adj of
  82.                     onsym: begin
  83.                         ibm := true;
  84.                         parity := markpar;
  85.                         half_duplex := true;
  86.                         fillparityarray
  87.                       end; (* onsym *)
  88.                     offsym: begin
  89.                         ibm := false;
  90.                         parity := nopar;
  91.                         half_duplex := false;
  92.                         fillparityarray
  93.                       end; (* onsym *)
  94.                   end; (* case adj *)
  95.         localsym: halfduplex := (adj = onsym);
  96.         emulatesym: emulating := (adj = onsym);
  97.         paritysym: begin
  98.               case adj of
  99.                   evensym: parity := evenpar;
  100.                   marksym: parity := markpar;
  101.                   nonesym: parity := nopar;
  102.                   oddsym: parity := oddpar;
  103.                   spacesym: parity := spacepar;
  104.                 end; (* case *)
  105.               fill_parity_array;
  106.              end; (* paritysym *)
  107.         baudsym: begin
  108.             if newbaud=110 then
  109.                baud := 110
  110.             else if newbaud=300 then
  111.                baud := 300
  112.             else if newbaud=1200 then
  113.                baud := 1200
  114.             else if newbaud=2400 then
  115.                baud := 2400
  116.             else if newbaud=4800 then
  117.                baud := 4800
  118.             else if newbaud=9600 then
  119.                baud := 9600;
  120.             setup_comm
  121.          end { baudsym }
  122.       end; (* case *)
  123.   end; (* set_parms *)
  124.