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

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


-- ON-LINE Ada LANGUAGE REFERENCE MANUAL
-- Developed at Nofolk State University
-- Development funded by a grant from the U. S. Army
-- Project ReDTEA
-- Version 1.0 released December 1988
-- Programmer: Esther M. Lumsdon
-- Project Director: George C. Harrison, PhD



with TEXT_IO; use TEXT_IO;

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




package LRM_NON_SMG is

MAIN_MENU_CHOICE : STRING(1 .. 4);
USING_DEC_TERMINAL : BOOLEAN := FALSE;
-- false when not using DEC or compatible terminal, or when not using
-- DEC VAX VMS system. Used for SMG$ calls.


procedure INITIALIZE;

procedure WELCOME(IN_FILE_NAME : in STRING);

procedure DISPLAY_EXPLAIN(IN_FILE_NAME : in STRING);

procedure DISPLAY_MAIN_MENU(IN_FILE_NAME : in STRING);

procedure SELECT_FROM_MAIN_MENU(MAIN_MENU_CHOICE : out STRING);

procedure TERMINATE_LRM;

procedure SCROLL_TEXT(IN_FILE_NAME : in STRING;
SAVE_TITLE : in STRING;
SAVE_FILE : in out FILE_TYPE);

procedure DO_CHAPTER_MENU(SAVE_FILE : in out FILE_TYPE);

procedure DO_ANNEX_MENU(SAVE_FILE : in out FILE_TYPE);

procedure CREDITS(SAVE_FILE : in out FILE_TYPE);


end LRM_NON_SMG;


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