Category : Miscellaneous Language Source Code
Archive   : ADA-LRM3.ZIP
Filename : LR8VC.SRC

 
Output of file : LR8VC.SRC contained in archive : ADA-LRM3.ZIP

-- Ada LRM Reader







with TEXT_IO; use TEXT_IO;
with LRM_TYPES; use LRM_TYPES;
with MACHINE_SPECIFIC; use MACHINE_SPECIFIC;
with LRM_GLOBAL; use LRM_GLOBAL;


-- If using DEC VAX VMS and a VT100 or better terminal,
-- instantiate LRM_SMG
-- If using any other configuation,
-- instantiate LRM_NON_SMG

with LRM_NON_SMG; use LRM_NON_SMG;


procedure LRM is




-----------------------------------------------------------------------
-- main task code --
-----------------------------------------------------------------------

begin

--- read_in_file_names("LRMinit");
READ_IN_FILE_NAMES(FILE_NAMES_DATA_FILE_NAME);

INITIALIZE;
CLS;
NEW_LINE(3);
PUT_LINE("Welcome to the Ada Language Reference Manual.");
PUT_LINE("Please be patient during initialization.");

GENERATE_CHAP_POINTERS(CHAP_POINTERS);
WELCOME(WELCOME_MSG_FILE_NAME);
DISPLAY_EXPLAIN(EXPLANATION_FILE_NAME);

if USING_DEC_TERMINAL then
DISPLAY_MAIN_MENU(MENU_MAIN_FILE_NAME);
end if;

loop
SELECT_FROM_MAIN_MENU(MAIN_MENU_CHOICE);
case MAIN_MENU_CHOICE(1) is
when '1' =>
SCROLL_TEXT(LRM_FILE_NAME_PREFIX(1 .. LRM_FILE_NAME_PREFIX_LENGTH) &
"foreward.doc", "Foreword ", SAVE_FILE);
when '2' =>
SCROLL_TEXT(LRM_FILE_NAME_PREFIX(1 .. LRM_FILE_NAME_PREFIX_LENGTH) &
"toc.doc", "Table of Contents", SAVE_FILE);
when '3' =>
DO_CHAPTER_MENU(SAVE_FILE);
when '4' =>
DO_ANNEX_MENU(SAVE_FILE);
when '5' =>
SCROLL_TEXT(LRM_FILE_NAME_PREFIX(1 .. LRM_FILE_NAME_PREFIX_LENGTH) &
"postscrpt.doc", "Postscripts ", SAVE_FILE);
when '6' =>
CREDITS(SAVE_FILE);
when '7' | 'q' | 'Q' | 'e' | 'E' =>
exit;
when others =>
null;
end case;
end loop;

TERMINATE_LRM;


end LRM;


  3 Responses to “Category : Miscellaneous Language Source Code
Archive   : ADA-LRM3.ZIP
Filename : LR8VC.SRC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/