home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / WXTERMSR.ZIP / WXTERM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-10-16  |  4.7 KB  |  150 lines
  1. {$U-,C-,R-}
  2. program wxterm;
  3. {
  4. Scott Murphy
  5. 77 So. Adams St. #301
  6. Denver, CO 80209
  7. Compuserve 70156,263
  8. }
  9. Const
  10.      VERSION = '3.0';
  11.      BELL_FREQ = 440;                  {frequncy for bell sound}
  12.      BELL_DELAY = 100;                 {duration of bell sound}
  13.      DEFAULT_BAUD = 1200;               {Serial port speed at start-up}
  14.  
  15. type
  16.     bigstring        = string[80];    {general purpose}
  17.     cset              = set of 0..127;
  18. var
  19.    pcjrmode              : boolean;
  20.    exit,
  21.    xtnd  : boolean;
  22.    a     : byte;
  23.    c,i   : integer;
  24.    ch : char;
  25.  
  26. {$C-,R-,U-,K-}
  27. {$I WXTMPORT.INC}
  28. {$I WXTMMISC.INC}
  29.  
  30. procedure processcom;
  31. var
  32.    c    :   integer;
  33. begin
  34.      c := cgetc(0);
  35.      case c of
  36.          -1 : begin
  37.               end; {no action}
  38.           9 : {tab}
  39.               begin
  40.                    for c := WhereX to (WhereX div 8 + 1)*8 do
  41.                        write(' ');
  42.                    c := 9
  43.               end;
  44.           7 : {bell}
  45.                begin
  46.                     sound(BELL_FREQ);
  47.                     delay(BELL_DELAY);
  48.                     NoSound
  49.                end;
  50.           12 : {form-feed}
  51.                ClrScr;
  52.          else  write(chr(c and $7F));
  53.      end;
  54. end;
  55. {$I WXTMWIND.INC}
  56. {$I WXTMXFER.INC}
  57. {$I WXTMDIAL.INC}
  58.  
  59.  
  60. begin
  61.      ScreenBase := $B000;                       {assume monochrome}
  62.      MemW[ ScreenBase:0000 ]   := 69;
  63.      if Mem[ ScreenBase:0000 ] <> 69 then
  64.         ScreenBase := $B800;
  65.      ClrScr;
  66.      InitWindow(StatWin,1,1,80,2);
  67.      InitWindow(TermWin,1,3,80,25);
  68.      CurrentWin := TermWin;
  69.      UsePermWindow(TermWin);
  70.      status(1,'WXTERM ver: ' + VERSION);
  71.      status(2,'Initializing');
  72.      setup;
  73.      init_port;
  74.      term_ready(true);
  75.      set_up_recv_buffer;
  76.      remove_port;
  77.      init_port;
  78.      term_ready(true);
  79.      set_up_recv_buffer;
  80.      exit := false;
  81.      GotoXY(1,1);
  82.      if carrier then
  83.         status(2,'On-Line/Ready')
  84.      else
  85.         status(2,'Off-Line/Ready');
  86.      status(3,'[Home] for help');
  87.      writeln('Press [Home] for help');
  88.      while not exit do
  89.      begin
  90.           if scan(xtnd,a) then
  91.           begin
  92.                if xtnd then
  93.                begin
  94.                   case a of
  95.                        19   : {alt-R}
  96.                               recv_wcp;
  97.                        45   : {alt-X}
  98.                               begin
  99.                                    OpenTemp(20,18,60,22,1);
  100.                                    writeln('───WXTERM───');
  101.                                    write('Do you really want to exit (Y/N)? ');
  102.                                    readln(ch);
  103.                                    if upcase(ch) = 'Y' then
  104.                                       exit := TRUE;
  105.                                    CloseTemp
  106.                               end;
  107.                        31   : {alt-S}
  108.                               send_wcp;
  109.                        35   : {alt-H}
  110.                               begin
  111.                                    writeln('───WXTERM───');
  112.                                    status(2,'Disconnecting');
  113.                                    term_ready(FALSE);
  114.                                    delay(500);
  115.                                    term_ready(TRUE);
  116.                                    status(2,'Off-Line/Ready')
  117.                               end;
  118.                        46   : {alt-C}
  119.                               ClrScr;
  120.                        48   : {alt-B}
  121.                               break;
  122.                        25   : {alt-P}
  123.                               NewParms;
  124.                        72   : {Cursor up}
  125.                               PushPage;
  126.                        80   : {Cursor Down}
  127.                               PopPage;
  128.                        71   : {Home}
  129.                               begin
  130.                                 OpenTemp(40,3,80,10,2);
  131.                                 writeln('Alt-X exit         Alt-H hang up');
  132.                                 writeln('Alt-R Xmodem recv  Alt-S Xmodem send');
  133.                                 writeln('Alt-B send break   Alt-C clear screen');
  134.                                 writeln('        Alt-P comm params  ');
  135.                                 writeln('      Press any key to continue');
  136.                                 repeat
  137.                                 until (keypressed);
  138.                                 Clrscr;
  139.                                 CloseTemp;
  140.                              end;
  141.                   end; {case}
  142.                end     {if extended key}
  143.                else    {not extended}
  144.                   send(a);
  145.           end; {if KeyPressed}
  146.           processcom;
  147.      end; {while not exit}
  148.      remove_port;
  149. end.
  150.