home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 September
/
Simtel20_Sept92.cdr
/
msdos
/
ada
/
ada_lrm3.arc
/
LR6AVCS.SRC
< prev
next >
Wrap
Text File
|
1989-03-28
|
1KB
|
54 lines
-- 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;