home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / dos / terminal / depty309 / scripts.exe / AUTO.DSL next >
Encoding:
Text File  |  1993-10-15  |  1.7 KB  |  55 lines
  1. Script Auto;  (* NOVICE MODE    Michael Spalter V.1.00  
  2.                                 This will automatically 
  3.                                 run when DCD is low and 
  4.                                 novice mode is enabled.
  5.                                 (setup - miscellaneous) *)
  6. VAR 
  7. Reply : INTEGER;
  8. WindowHandle : INTEGER;
  9.  
  10. PROCEDURE HelpScreen;
  11. BEGIN
  12. WindowHandle:=Window(10,6,53,14,'',27);
  13. UseWindow(WindowHandle);
  14. Foregnd(LCyan); 
  15. Backgnd(Blue); ClrScr;
  16. Write('                WELCOME TO DEPUTY !              \n\r\n');
  17. Write(" You're currently  running  Deputy in  NOVICE MODE\n\r"); 
  18. Write(' Novice mode  is ideal  for any  users who are not\n\r');
  19. Write(" familiar with comms software. Not all of Deputy's\n\r");
  20. Write(' features are available in Novice Mode.  If you do\n\r');
  21. Write(' not use novice mode,  then instead of the initial\n\r');
  22. Write(' menu with four choices,  you operate Deputy using\n\r');
  23. Write(" 'HOT-KEYS' and  more  complex menus.  To  disable\n\r");
  24. Write(' novice mode,  select SETUP-MISCELLANEOUS and then\n\r');
  25. Write(' set the NOVICE MODE option to OFF.\n\r\n' );
  26. Write('              Press a key to continue......');
  27. REPEAT UNTIL KeyPressed;
  28. CloseWindow(WindowHandle);
  29. END;
  30.  
  31. BEGIN
  32.  
  33. Escape(FALSE);
  34. BackGnd(Black);
  35. ClrScr;
  36.  
  37. WindowHandle:=Window(11,15,53,2,'',27);
  38. UseWindow(WindowHandle);
  39. Foregnd(LCyan); 
  40. Backgnd(Blue);
  41. Write(' Move using cursor keys then press ENTER to select ');
  42. Reply:=Menu(28,8,18,"",
  43.        "  Call a Service", "  Setup ", "  Help", "  Exit ", 0);
  44. CloseWindow(WindowHandle);  
  45.  
  46. CASE (Reply+1) OF
  47. 1 : PushKey(131H); (* Alt-N *) |
  48. 2 : PushKey(11FH); (* Alt-S *) |
  49. 3 : HelpScreen; |
  50. 4 : HaltDeputy; |
  51. END; 
  52.  
  53.  
  54. END Auto;
  55.