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

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

-- Ada LRM Reader






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

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

with LRM_SMG; use LRM_SMG;


procedure LRMWITHSMG is



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

begin

READ_IN_FILE_NAMES(FILE_NAMES_DATA_FILE_NAME);

---read_in_file_names("LRMinit");
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);

INITIALIZE;

if USING_DEC_TERMINAL then

WELCOME(WELCOME_MSG_FILE_NAME);

DISPLAY_EXPLAIN(EXPLANATION_FILE_NAME);

DISPLAY_MAIN_MENU(MENU_MAIN_FILE_NAME);

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' | 'e' | 'E' | 'q' | 'Q' =>
exit;
when others =>
null;
end case;
end loop;

end if;

TERMINATE_LRM;

end LRMWITHSMG;


  3 Responses to “Category : Miscellaneous Language Source Code
Archive   : ADA-LRM3.ZIP
Filename : LR8VT.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/