.NONUMBER
.TITLE RULES - TO DISPLAY FILE CONTENTS 23 LINES/SCREEN.
.PAGE
.INDENT 50
RULES
.SKIP 1
.CENTER
RULES - TO DISPLAY FILE CONTENTS 23 LINES/SCREEN.
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: RULES\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\^PROMPTS THE TERMINAL WITH THE QUESTION:
  ^^DO YOU NEED INSTRUCTIONS?\\. ANY ANSWER THAT DOES NOT START WITH THE LETTER 'Y' 
CAUSES <RULES TO RETURN IMMEDIATELY
OTHERWISE <RULES FILLS THE SCREEN WITH THE NEXT 23 RECORDS OF A CARD
 IMMAGE FILE FOLLOWED BY THE
PROMPT.:
.SKIP;.I 5
  ^^HIT RETURN FOR MORE RULES\\
.SK
 ^A CONTROL-^Z AT THIS TIME WILL CAUSE RULES TO CLOSE THE RULES
FILE AND RETURN WITHOUT PRINTING MORE RULES.
^THERE IS SOME SYNTAX THAT CAN CONTROL THE OUTPUT TO THE
SCREEN.  ^A HAT (_^) IN COL 1 OF THE DISPLAY FILE WILL CAUSE RULES TO
QUIT BEFORE 23 LINES AND PROMPT AGAIN.  ^A SEMICOLON
IN COL 1 CAUSES THAT LINE TO BE IGNORED.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM ^^FORTRAN--CALL RULES(FILENAME)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\
.SKIP;.INDENT -9
^^FILENAME-T\\HE FILENAME SPECIFIER--^STANDARD ^FILES-11
FORMAT MAY BE AN ARRAY OR A QUOTED STRING.
.SKIP 1
.INDENT -10
^^FEATURES:\\ USES NAMED COMMON </CONSOLE/ AS THE <TI: - TERMINAL <LUN. ^USES THE LABELED
COMMON <SCRAT2 TO OPEN THE RULES FILE.  ^SEE <BATDEF FOR A DESCRIPTION OF ALL
THE SPECIAL <LUNS IN NAMED COMMONS.
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^JULY 1978
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^FORTRAN
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^RULES
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ NONE
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^MIKE ^HIGGINS OR ^JACK ^MARTINELLI
.SKIP 1
.INDENT -10