home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / ADA_LRM3.ZIP / LR8VC.SRC < prev    next >
Encoding:
Text File  |  1989-03-30  |  2.0 KB  |  81 lines
  1.  
  2. --              Ada LRM Reader
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10. with TEXT_IO; use TEXT_IO; 
  11. with LRM_TYPES; use LRM_TYPES; 
  12. with MACHINE_SPECIFIC; use MACHINE_SPECIFIC; 
  13. with LRM_GLOBAL; use LRM_GLOBAL; 
  14.  
  15.  
  16. -- If using DEC VAX VMS and a VT100 or better terminal,
  17. --   instantiate LRM_SMG
  18. -- If using any other configuation,
  19. --   instantiate LRM_NON_SMG 
  20.  
  21. with LRM_NON_SMG; use LRM_NON_SMG; 
  22.  
  23.  
  24. procedure LRM is 
  25.  
  26.  
  27.  
  28.  
  29. -----------------------------------------------------------------------
  30. --      main task code                                               --
  31. -----------------------------------------------------------------------
  32.  
  33. begin
  34.  
  35.   --- read_in_file_names("LRMinit");
  36.   READ_IN_FILE_NAMES(FILE_NAMES_DATA_FILE_NAME); 
  37.  
  38.   INITIALIZE; 
  39.   CLS; 
  40.   NEW_LINE(3); 
  41.   PUT_LINE("Welcome to the Ada Language Reference Manual."); 
  42.   PUT_LINE("Please be patient during initialization."); 
  43.  
  44.   GENERATE_CHAP_POINTERS(CHAP_POINTERS); 
  45.   WELCOME(WELCOME_MSG_FILE_NAME); 
  46.   DISPLAY_EXPLAIN(EXPLANATION_FILE_NAME); 
  47.  
  48.   if USING_DEC_TERMINAL then 
  49.     DISPLAY_MAIN_MENU(MENU_MAIN_FILE_NAME); 
  50.   end if; 
  51.  
  52.   loop
  53.     SELECT_FROM_MAIN_MENU(MAIN_MENU_CHOICE); 
  54.     case MAIN_MENU_CHOICE(1) is 
  55.       when '1' => 
  56.         SCROLL_TEXT(LRM_FILE_NAME_PREFIX(1 .. LRM_FILE_NAME_PREFIX_LENGTH) & 
  57.           "foreward.doc", "Foreword         ", SAVE_FILE); 
  58.       when '2' => 
  59.         SCROLL_TEXT(LRM_FILE_NAME_PREFIX(1 .. LRM_FILE_NAME_PREFIX_LENGTH) & 
  60.           "toc.doc", "Table of Contents", SAVE_FILE); 
  61.       when '3' => 
  62.         DO_CHAPTER_MENU(SAVE_FILE); 
  63.       when '4' => 
  64.         DO_ANNEX_MENU(SAVE_FILE); 
  65.       when '5' => 
  66.         SCROLL_TEXT(LRM_FILE_NAME_PREFIX(1 .. LRM_FILE_NAME_PREFIX_LENGTH) & 
  67.           "postscrpt.doc", "Postscripts      ", SAVE_FILE); 
  68.       when '6' => 
  69.         CREDITS(SAVE_FILE); 
  70.       when '7' | 'q' | 'Q' | 'e' | 'E' => 
  71.         exit; 
  72.       when others => 
  73.         null; 
  74.     end case; 
  75.   end loop; 
  76.  
  77.   TERMINATE_LRM; 
  78.  
  79.  
  80. end LRM; 
  81.