perm filename XGP[1,LMM]1 blob sn#026769 filedate 1973-02-24 generic text, type T, neo UTF8
  (PROGN (LISPXPRIN1 (QUOTE "FILE CREATED ")
                     T)
         (LISPXPRIN1 (QUOTE "24-FEB-73 04:48:02")
                     T)
         (LISPXTERPRI T))
  (LISPXPRINT (QUOTE XGPVARS)
              T)
  (RPAQQ XGPVARS ((FNS III REQUIRE PROTECT PAVECT AIVECT AVECT MARGIN MOVBITS SELFONT SETFONT MAKNUM)
          (VARS CRLF RARROW LAM RUB)))
(DEFINEQ

(III
  [LAMBDA (FIL REL)
    (PRIN1 (CONCAT RUB "⊗" (CHARACTER (FIX (FTIMES (OR REL 1)
                                                    64.0)))
                   FIL CRLF])

(REQUIRE
  [LAMBDA (FIL)
    (PRIN1 (CONCAT RUB "@" FIL CRLF])

(PROTECT
  [LAMBDA NIL
    (PRIN1 "≠"])

(PAVECT
  [LAMBDA (N1 N2)
    (PRIN1 (CONCAT RUB "P" (MAKNUM N1)
                   (MAKNUM N2])

(AIVECT
  [LAMBDA (N1 N2)
    (PRIN1 (CONCAT RUB "I" (MAKNUM N1)
                   (MAKNUM N2])

(AVECT
  [LAMBDA (N1 N2)
    (PRIN1 (CONCAT RUB "V" (MAKNUM N1)
                   (MAKNUM N2])

(MARGIN
  [NLAMBDA (TYPE NUM)
    (PRIN1 (CONCAT RUB "M" (NTHCHAR TYPE 1)
                   (MAKNUM (EVAL NUM])

(MOVBITS
  [LAMBDA (BITS)
    (PRIN1 (COND
             [(MINUSP BITS)
               (CONCAT RUB RUB (CHARACTER (MINUS BITS]
             (T (CONCAT RUB " " (CHARACTER BITS])

(SELFONT
  [LAMBDA (DIG)
    (PRIN1 (CONCAT RUB DIG])

(SETFONT
  [LAMBDA (FIL DIG)
    (PRIN1 (COND
             ((STRPOS ".XAP[XGP" FIL)
               (CONCAT RUB LAM FIL RARROW DIG))
             (T (CONCAT RUB LAM FIL ".XAP[XGP,TVR]" RARROW DIG])

(MAKNUM
  [LAMBDA (I)
    (CONCAT (CHARACTER (IQUOTIENT I 200Q)
                       100Q)
            (CHARACTER (LOGAND I 177Q])
)
  (RPAQQ CRLF "
")
  (RPAQQ RARROW →)
  (RPAQQ LAM λ)
  (RPAQQ RUB ␈)
STOP