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

 
Output of file : LR4SC.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;
package INTEGER_IO is
new TEXT_IO.INTEGER_IO(INTEGER);
with TEXT_IO, INTEGER_IO; use TEXT_IO, INTEGER_IO;

with LRM_TYPES; use LRM_TYPES;


package LRM_GLOBAL is




CHAP_POINTERS : CHAP_POINTER_LIST(C1 .. C14S7P3);
CHAP_POINTERS_FILE_NAME : STRING(1 .. 35);
CREDITS_FILE_NAME : STRING(1 .. 35);
EXPLANATION_FILE_NAME : STRING(1 .. 35);

FILE_NAMES_DATA_FILE_NAME : STRING(1 .. 9) := "LRMinit. ";

LRM_FILE_NAME_PREFIX : STRING(1 .. 35);
LRM_FILE_NAME_PREFIX_LENGTH : INTEGER range 1 .. 35;
LRM_READER_SAVE_FILE_NAME : STRING(1 .. 35);
MENU_MAIN_FILE_NAME : STRING(1 .. 35);
MENU_ANNEX_FILE_NAME : STRING(1 .. 35);
MENU_CHAPTER_FILE_NAME : STRING(1 .. 35);
SAVE_FILE : FILE_TYPE; -- save LRM text into this file
WELCOME_MSG_FILE_NAME : STRING(1 .. 35);




procedure GENERATE_CHAP_POINTERS(CHAP_POINTERS : in out CHAP_POINTER_LIST);


procedure VALIDATE_CITATION(CITATION_REQUESTED : in STRING;
REQUEST_LENGTH : in NATURAL;
CITATION_TO_GET : out LEGAL_CITATIONS);

procedure READ_IN_FILE_NAMES(FILE_NAMES_DATA_FILE_NAME : in STRING);


end LRM_GLOBAL;


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