;	Tuesday  Dec 7,1982  17:27  FM+7D.5H.34M.14S.  -*- Lisp -*-

(or (get 'lan 'request) (load '((nilman) manual bolio)))

(setq XGP-VSP-MILLS 30.
      TOP-HEADING-VPOS 500.
      TOP-TEXT-VPOS 500.
      ALARM-VPOS 10500.
      BOTTOM-HEADING-VPOS 10500.)

(setq *alternating-pages? nil
      *document-heading nil
      ODD-LEFT-MARGIN 1000.
      EVEN-LEFT-MARGIN 1000.
      ODD-RIGHT-MARGIN 7500.
      EVEN-RIGHT-MARGIN 7500.
      ENABLE-PAGE-HEADING-ALTERNATION nil
      ODD-TOP-LEFT-HEADING (STRING '|(nil)|)
      EVEN-TOP-LEFT-HEADING ODD-TOP-LEFT-HEADING
      ODD-TOP-RIGHT-HEADING ODD-TOP-LEFT-HEADING
      EVEN-TOP-RIGHT-HEADING ODD-TOP-LEFT-HEADING)

(defun style-finalize ()
  (format t "~&(Page number = ~D...)~%" page-number)
  ())

(setq min-white-space-after-item 0)

(DEFUN ITEM1-REQUEST ()
  (CHECK-ENV 'TABLE 'ITEM)
  (CHECK-FONT-STATUS TEXT-FONT)
  (DO ((STR (GET-LINE-STRING))
       (JIN-CUR-FONT TABLE-ITEM-FONT)
       (LEFT-INDENT (- LEFT-INDENT TABLE-ITEM-WIDTH)))
      NIL
    (AND CHARS-ON-THIS-LINE-P (LINE-ADVANCE))
    (AND TABLE-ITEM-INDEX-NAME (ADD-TO-LISTING STR TABLE-ITEM-INDEX-NAME))
    (AND ITEM-KINDEX-FLAG
	 (ADD-TO-LISTING (STRING-APPEND STR '|  (for | ITEM-KINDEX-FLAG '|)|)
			 'KEYWORD-INDEX))
    (SET-HPOS (+ LEFT-MARGIN LEFT-INDENT))
    (PUT-STRING-FLUSH-LEFT STR))
  (SETQ BEGIN-NEW-PARAGRAPH NIL)
  (COND ((AND (< (+ CUR-HPOS (CONVERT-MILLS MIN-WHITE-SPACE-AFTER-ITEM))
		 (+ LEFT-MARGIN LEFT-INDENT))
	      (NOT (= (JIN-TYIPEEK) #o56)))	;Dot-command causes a break
	 ) ;Next line starts at LEFT-INDENT on this line
	(T (LINE-ADVANCE)	;Item too wide, next line starts on next line
	   (OUTPUT-LEADING TABLE-ITEM-POST-LEADING))))


(sstatus uuolin)

