home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S1.ARC / DISPLYBS.MOD < prev    next >
Encoding:
Text File  |  1987-12-02  |  2.1 KB  |  49 lines
  1. (*----------------------------------------------------------------------*)
  2. (*   Display_Batch_Transfer_Window --- Display batch transfer window    *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Display_Batch_Window;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Display_Batch_Window;                                *)
  10. (*                                                                      *)
  11. (*     Purpose:    Initializes display for batch transfer window        *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Display_Batch_Window                                          *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. VAR
  20.    Tname       : STRING[20];
  21.    Batch_Title : AnyStr;
  22.  
  23. BEGIN (* Display_Batch_Window *)
  24.                                    (* Save current screen image *)
  25.    Save_Screen( Batch_Screen_Ptr );
  26.                                    (* Construct title based upon *)
  27.                                    (* transfer type              *)
  28.    CASE Transfer_Protocol OF
  29.       Telink       : Tname := 'Telink';
  30.       Modem7_Chk   : Tname := 'Modem7 (Checksum)';
  31.       Modem7_CRC   : Tname := 'Modem7 (CRC)';
  32.       Ymodem_Batch : Tname := 'Ymodem Batch';
  33.       Ymodem_G     : Tname := 'Ymodem G Batch';
  34.       SeaLink      : Tname := 'SEALink';
  35.       Rlink        : Tname := 'Rlink';
  36.    END (* CASE *);
  37.                                    (* Draw menu frame            *)
  38.  
  39.    Batch_Title := 'Batch file upload using ' + Tname;
  40.  
  41.    Draw_Menu_Frame( 2, 2, 79, 24, Menu_Frame_Color, Menu_Title_Color,
  42.                     Menu_Text_Color, Batch_Title );
  43.  
  44.    Write_Log( Batch_Title , FALSE , FALSE );
  45.  
  46.    PibTerm_Window( 3, 3, 78, 23 );
  47.  
  48. END   (* Display_Batch_Window *);
  49.