home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PIBT41S1.ZIP / DISPHELP.MOD < prev    next >
Encoding:
Text File  |  1988-03-07  |  5.7 KB  |  142 lines
  1. (*----------------------------------------------------------------------*)
  2. (*                Display_Help --- Display Command List                 *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Display_Help( FirstTime : BOOLEAN );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Display_Help                                         *)
  10. (*                                                                      *)
  11. (*     Purpose:    Displays Command List                                *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Display_Help( FirstTime : BOOLEAN );                          *)
  16. (*                                                                      *)
  17. (*           FirstTime --- TRUE for first call, else FALSE              *)
  18. (*                                                                      *)
  19. (*     Calls:    PibTerm_KeyPressed                                             *)
  20. (*               Async_Send                                             *)
  21. (*               Restore_Screen                                         *)
  22. (*               Save_Screen                                            *)
  23. (*               Draw_Menu_Frame                                        *)
  24. (*               Read_Kbd                                               *)
  25. (*                                                                      *)
  26. (*----------------------------------------------------------------------*)
  27.  
  28. VAR
  29.    Ch: CHAR;
  30.  
  31. (*----------------------------------------------------------------------*)
  32.  
  33. PROCEDURE Write_Help( Command_Ch : CHAR;
  34.                       Help_Text  : AnyStr;
  35.                       XPos       : INTEGER;
  36.                       YPos       : INTEGER );
  37.  
  38. BEGIN (* Write_Help *)
  39.  
  40.    WriteSXY( ' <ALT>' + Command_Ch + ':  ', XPos + 2, YPos + 6, Menu_Text_Color_2 );
  41.    WriteSXY( Help_Text, XPos + 12, YPos + 6, Menu_Text_Color );
  42.  
  43. END   (* Write_Help *);
  44.  
  45. (*----------------------------------------------------------------------*)
  46.  
  47. BEGIN (* Display_Help *)
  48.                                    (* Tell host to stop sending *)
  49.    IF Do_Xon_Xoff_Checks THEN
  50.       Async_Send( CHR( XOFF ) );
  51.                                    (* Save current screen image *)
  52.    Save_Screen( Saved_Screen );
  53.                                    (* Display help information  *)
  54.  
  55.    Draw_Menu_Frame( 2, 1, 78, 24, Menu_Frame_Color, Menu_Title_Color,
  56.                     Menu_Text_Color, ' Available Commands ' );
  57.  
  58.    TextColor( Menu_Text_Color_2 );
  59.  
  60.    WRITELN;
  61.    WRITELN( '  PibTerm Version ', PibTerm_Version);
  62.    WRITELN( '  ' , PibTerm_Date);
  63.    WRITELN( '  ' , CopyRight_Notice);
  64.  
  65.    Write_Help( 'A', 'Edit line on screen', 1 , 1 );
  66.    Write_Help( 'B', 'Send Break',          38, 1 );
  67.  
  68.    Write_Help( 'C', 'Clear Screen',        1,  2 );
  69.    Write_Help( 'D', 'Dial a number',       38, 2 );
  70.  
  71.    IF Local_Echo THEN
  72.       Write_Help( 'E', 'Toggle local echo (now ON)' , 1, 3 )
  73.    ELSE
  74.       Write_Help( 'E', 'Toggle local echo (now OFF)', 1, 3 );
  75.    Write_Help( 'F', 'File manipulation', 38, 3 );
  76.  
  77.    Write_Help( 'G', 'Execute script',    1,  4 );
  78.    Write_Help( 'H', 'Hang up the phone', 38, 4 );
  79.  
  80.    Write_Help( 'I', 'Produce this command list', 1,  5 );
  81.    Write_Help( 'J', 'Jump to DOS',               38, 5 );
  82.  
  83.    Write_Help( 'K', 'Set function keys',         1,  6 );
  84.  
  85.    IF Printer_On THEN
  86.       Write_Help( 'L', 'Log to printer (now ON)',  38, 6 )
  87.    ELSE
  88.       Write_Help( 'L', 'Log to printer (now OFF)', 38, 6 );
  89.  
  90.    IF Silent_Mode THEN
  91.       Write_Help( 'M', 'Toggle Mute Mode (now ON)',  1,  7  )
  92.    ELSE
  93.       Write_Help( 'M', 'Toggle Mute Mode (now OFF)', 1,  7  );
  94.    Write_Help( 'N', 'New comm. parameters',         38, 7  );
  95.  
  96.    IF Capture_On THEN
  97.       Write_Help( 'O', 'Capture session (now ON)',  1,  8  )
  98.    ELSE
  99.       Write_Help( 'O', 'Capture session (now OFF)', 1,  8  );
  100.  
  101.    Write_Help( 'P', 'Set parameters',               38, 8  );
  102.  
  103.    Write_Help( 'Q', 'Redial last number dialed',    1,  9  );
  104.    Write_Help( 'R', 'Receive file from remote',     38, 9  );
  105.  
  106.    Write_Help( 'S', 'Send file to remote',          1,  10 );
  107.    Write_Help( 'T', 'Get translate table',          38, 10 );
  108.  
  109.    Write_Help( 'U', 'Screen dump to file',          1,  11 );
  110.    Write_Help( 'V', 'View captured text',           38, 11 );
  111.  
  112.    Write_Help( 'W', 'Enter host mode',              1,  12 );
  113.    Write_Help( 'X', 'Exit PibTerm',                 38, 12 );
  114.  
  115.    Write_Help( 'Y', 'Display session information',  1,  13 );
  116.    Write_Help( 'Z', 'Get area code',                38, 13 );
  117.  
  118.    GoToXY( 3 , 20 );
  119.    TextColor( Menu_Text_Color_2 );
  120.  
  121.    WRITE('Hit ESC to continue, or Alt-letter to execute command.');
  122.    TextColor( Menu_Text_Color );
  123.  
  124.                                    (* Wait for key to be hit        *)
  125.  
  126.    Read_Kbd( Ch );                 (* Read 2 chars if 1st was ESC   *)
  127.  
  128.    IF ( ( Ch = CHR( ESC ) ) AND PibTerm_KeyPressed ) THEN
  129.       BEGIN
  130.          Read_Kbd( Ch );
  131.          IF ORD( Ch ) IN Alt_Let_Set THEN
  132.             Keyboard_Buffer := Keyboard_Buffer + #$E0 + #$E0 + Ch;
  133.       END;
  134.                                    (* Tell host to continue sending *)
  135.    IF Do_Xon_Xoff_Checks THEN
  136.       Async_Send( CHR( XON ) );
  137.                                    (* Restore previous screen image *)
  138.  
  139.    Restore_Screen_And_Colors( Saved_Screen );
  140.  
  141. END   (* Display_Help *);
  142.