(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)


(FILECREATED "27-Jul-2026 17:29:13" {DSK}<Users>larry>il>medley>internal>loadups>LOADUP-FULL.;2
 5629   

      :EDIT-BY "lmm"

      :CHANGES-TO (VARS LOADUP-FULLCOMS)

      :PREVIOUS-DATE "28-Apr-2026 10:01:06" 
{DSK}<Users>larry>il>medley>internal>loadups>LOADUP-FULL.;1)


(PRETTYCOMPRINT LOADUP-FULLCOMS)

(RPAQQ LOADUP-FULLCOMS
 ((FNS LOADFULLFONTS LOADUP-FULL)))
(DEFINEQ

(LOADFULLFONTS

  [LAMBDA NIL
                                                (* ; "Edited 16-Apr-2026 09:37 by rmk")


                                                             (* ; "Edited 20-Sep-2025 14:17 by rmk")


                                                             (* ; "Edited  2-Sep-2025 20:06 by rmk")


                                                             (* ; "Edited 13-Jul-2025 11:40 by rmk")


                                                             (* ; "Edited 30-Jun-2025 00:04 by rmk")


                                                             (* ; "Edited 20-Jun-2025 11:16 by rmk")


                                                             (* ; "Edited 16-Jun-2025 15:34 by rmk")


                                                             (* ; "Edited 23-Apr-2025 05:13 by lmm")


                                                           (* ; "Edited 13-Feb-2021 22:51 by larry")


    (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")


    (PRINTOUT T T "Loading FULL fonts..." T)
    (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
    (for
 FAMILY in
 '(CLASSIC MODERN TERMINAL)
       do
 (PRINTOUT T "  Loading " FAMILY " ")
          [for
 SIZE in
 '(8 10 12)
             do
 (PRINTOUT T SIZE " ")
                (for
 FACE in
 '(MRR BRR MIR)
                   do
 (FONTCREATE FAMILY SIZE FACE 0 'DISPLAY NIL 0)
                      (for
 CSET in
 '("41" "42" "43" "356" "357" "361")
                         do
 (NLSETQ (FONTCREATE FAMILY SIZE FACE 0 'DISPLAY NIL CSET]
          (PRINTOUT T T))
    (PRINTOUT T "  Loading postscript fonts" T)
    (for
 F in
 (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
                             ">c0>*.PSCFONT")) do
 (PSCFONT.READFONT F))
    (PRINTOUT T "FULL fonts loaded" T])

(LOADUP-FULL

  [LAMBDA (DRIBBLEFILE)
                                      (* ; "Edited 28-Apr-2026 10:00 by rmk")


                                                             (* ; "Edited 14-Feb-2026 00:42 by rmk")


                                                             (* ; "Edited  5-Feb-2026 10:26 by rmk")


                                                             (* ; "Edited 28-Dec-2025 12:06 by rmk")


                                                             (* ; "Edited  1-Sep-2025 11:59 by rmk")


                                                             (* ; "Edited 18-Aug-2025 12:09 by rmk")


                                                             (* ; "Edited 21-Jun-2025 23:33 by rmk")


                                                             (* ; "Edited 18-Jan-2023 16:22 by FGH")


                                                             (* ; "Edited 12-Aug-2022 11:17 by lmm")


                                                             (* ; "Edited 14-Jul-2022 12:32 by rmk")


                                                             (* ; "Edited 12-Jul-2022 21:57 by rmk")


                                                           (* ; "Edited  7-Mar-2022 21:06 by larry")


                                                           (* ; "Edited  2-Mar-2022 13:58 by larry")

                                                             (* ; "Edited 15-Jan-2022 15:48 ")

                                                             (* ; "Edited 29-Apr-2021 22:27 by rmk:")

                                                             (* ; 

                                                             "Edited 14-May-2018 15:01 by kaplan")

                                                             (* ; "Edited 28-Sep-2020 12:35 by rmk:")

                                                             (* ; "Edited 21-Apr-2018 07:27 by rmk:")

                                                             (* ; "Edited 23-Feb-94 15:04 by bvm")

    (PROGN (SETQ MEDLEYDIR)
           (CNDIR (MEDLEYDIR)))
    (MEDLEY-INIT-VARS)
    (DRIBBLE DRIBBLEFILE)

    (* ;; "BKSYSBUF stops page holding ")


    (BKSYSBUF " ")
    (PRINTOUT T T "Full loadup started at " (DATE)
           " while connected to "
           (DIRECTORYNAME T)
           T T)                                              (* ; "For FONTSAVAILABLE lookup")

    (LOADUP '(POSTSCRIPTSTREAM))                             (* ; " to get PSCFONT.READFONT")

    (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
    (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)

    (* ;; "RMK: 2025:  PRESS was after CHAT")


    (LOADUP '(CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES 
                   GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT HELPSYS 
                   DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM UNIXCHAT))
    (LOADFULLFONTS
)
    (COND
       ((WINDOWP *WHO-LINE*)
        (CLOSEW *WHO-LINE*)))
    (DRIBBLE])
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (452 5606 (LOADFULLFONTS 462 . 2445) (LOADUP-FULL 2447 . 5604)))))
STOP