LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031873. :SYSTEM-TYPE :LOGICAL :VERSION 12. :TYPE "LISP" :NAME "DEFSYSTEM" :DIRECTORY ("REL3-SOURCE" "PRINTER") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758742716. :AUTHOR "REL3" :LENGTH-IN-BYTES 2131. :LENGTH-IN-BLOCKS 3. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ;;;-*- Mode:common-LISP; Package:USER; Base:10 -*-;;;                           RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;                     TEXAS INSTRUMENTS INCORPORATED.;;;                              P.O. BOX 2909;;;                           AUSTIN, TEXAS 78769;;;                                 MS 2151;;; Copyright (c) 1984,1987 Texas Instruments Incorporated  All Rights Reserved ;;;  02/02/87  HW  Added make-package.;;; 03.05.87  DAB  Changed :patchable and added :warnings-pathname-default(MAKE-PACKAGE "PRINTER" :SIZE 600 :use '("LISP" "TICL"))(DEFSYSTEM PRINTER  (:PACKAGE PRINTER)  (:NAME "Printer")  (:SHORT-NAME "PRNTER")  (:PATHNAME-DEFAULT "SYS: PRINTER;")  (:patchable "sys: patch.printer;" PATCH) ;03.05.87 DAB  (:warnings-pathname-default "SYS: CWARNS; printer.lisp") ;03.05.87 DAB  (:MODULE utils "utilities")  (:MODULE requests "requests")  (:MODULE server "server")  (:MODULE print-funcs "print-functions")  (:MODULE screen "screen-image")  (:MODULE menu "system-menu")  (:MODULE basic-printer "basic-printer-device")  (:MODULE ti855 "ti855")  (:MODULE ti880 "ti880")  (:MODULE ti2015 "ti2015")  (:MODULE ti820 "ti820")  (:MODULE talaris "talaris")  (:MODULE exports "exports")  (:COMPILE-LOAD utils)   (:COMPILE-LOAD requests (:FASLOAD utils))  (:COMPILE-LOAD server (:FASLOAD utils requests))  (:COMPILE-LOAD print-funcs (:FASLOAD utils requests))  (:COMPILE-LOAD screen (:FASLOAD utils requests))  (:COMPILE-LOAD menu (:FASLOAD utils requests screen))  (:COMPILE-LOAD basic-printer (:FASLOAD utils))  (:COMPILE-LOAD ti855 (:FASLOAD utils basic-printer))  (:COMPILE-LOAD ti880 (:FASLOAD utils basic-printer))  (:COMPILE-LOAD ti820 (:FASLOAD utils basic-printer))  (:COMPILE-LOAD ti2015 (:FASLOAD utils basic-printer ti855))  (:COMPILE-LOAD talaris (:FASLOAD utils basic-printer))  (:COMPILE-LOAD exports)  );; before loading PRINTER, must load SERIAL --mjfYO-RAW NUL))) (DEFMETHOD (BASIC-PRINTER :START-NEW-PAGE) (&OPTIONAL OVERRIDE-PAGE-HEADING)  "Send a form feed and possibly print a page heading"  (SEND SELF :FORM)  (WHEN PAGE-WAIT    (FORMAT T "~&Type any character when ready for next page:")    (TYI))  (SETQ LINE-COUNT 0)  (SETQ CHAR-COUNT 0)  (UNLESS OVERRIDE-PAGE-HEADING    (SEND SELF :DO-PAGE-HEADING))) (DEFMETHOD (BASIC-PRINTER :DO-PAGE-HEADING) ()  (WHEN PAGE-HEADING    (SEND SELF :PRINT-PAGE-HEADING))) (DEFMETHOD (BASIC-PRINTER :FORM) ()  (SEND SELF :TYO-RAW FF)  (SEND PRINTER-STREAM :FORCE-OUTPUT);Get this started ASAP  (DOTIMES (I FFPAD);This delay is how old non-paced printers     (SEND SELF :TYO-RAW NUL))) ;were kept from overruning.  For TI855,;parallel & serial, this isn't needed.(DEFMETHOD (BASIC-PRINTER :CR) ()  (SEND SELF :TYO-RAW CR)) (DEFMETHOD (BASIC-PRINTER :TAB) (&AUX TAB-COUNT)  (SETQ TAB-COUNT (- 8 (REM CHAR-COUN