Home » Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF » s\wRAM/LISPb
s\wRAM/LISPb
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF |
| Filename: | s\wRAM/LISPb |
| Read OK: | ✔ |
| File size: | 4000 bytes |
| Load address: | 3000 |
| Exec address: | 3000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF » s\wRAM/LISPb
- Personal collection » Acorn hard disk » zipped_disks » elk03 » sideways/s.wRAM/LISPb
File contents
L.�� Serial Rom 0 (C) 1982 Acorn Computer �
��� `H {������������� }���h� `h`H�0 {����� �������LN���I�)� ���Ld���I�)`**LISP202* ��� �*ADVENTE �� ��( SETQ EQUAL '(LAMBDA
(A B)
(COND
((EQ A B) T)
((OR (ATOM A) (ATOM B))
NIL)
((EQUAL (CAR A) (CAR B))
(EQUAL
(CDR A)
(CDR B)))
(T NIL)))
)
( SETQ DELETE '(LAMBDA
(A L)
(COND
((NULL L) NIL)
((EQUAL A (CAR L))
(CDR L))
(T
(CONS
(CAR L)
(DELETE A (CDR L)))))Z#)
)
( SETQ MOVE-TO '(LAMBDA
(DIRECTION)
(SETQ
LOCATION
(GET LOCATION WORD)))
)
( SETQ PICK-UP '(LAMBDA
(WORD)
(PUT
LOCATION
(QUOTE OBJECTS)
(DELETE
WORD
(GET
LOCATION
(QUOTE OBJECTS))))
(SETQ
CARRYING
(CONS WORD CARRYING))
(LPRI
(LIST (QUOTE GOT) WORD)�\#))
)
( SETQ DROP '(LAMBDA
(WORD)
(SETQ
CARRYING
(DELETE WORD CARRYING))
(PUT
LOCATION
(QUOTE OBJECTS)
(CONS
WORD
(GET
LOCATION
(QUOTE OBJECTS))))
(LPRI
(LIST
(QUOTE DROPPED)
WORD)))
)
( SETQ MEMBER '(LAMBDA
(A L)
(COND
((NULL L) NIL)
((EQUAL A (CAR L))�y# T)
(T (MEMBER A (CDR L)))))
)
( SETQ LPRI '(LAMBDA
(L)
(LOOP
(WHILE L (PRINT))
(PRINC (CAR L) BLANK)
(SETQ L (CDR L))))
)
( SETQ MAKE-MOVE '(LAMBDA
(WORD)
(COND
((MEMBER WORD CARRYING)
(DROP WORD))
((MEMBER
WORD
(GET
LOCATION
(QUOTE OBJECTS)))
(PICK-U%�#P WORD))
((AND
(GET LOCATION WORD)
(CHARP
(GET
LOCATION
WORD))
(MOVE-TO WORD)))
(T
(LPRI
(LIST
WORD
(QUOTE NOT)
(QUOTE
UNDERSTOOD))))))
)
( SETQ DISPLAY-POSITION '(LAMBDA
NIL
(PRINT)
(PRINC (QUOTE AT:) BLANK)
(LPRI
(GET
LOCATION
(QUOTE DESCRIPTION)))
(MAPa�#C
(QUOTE
(LAMBDA
(ITEM)
(LPRI
(LIST
(QUOTE YOU)
(QUOTE ARE)
(QUOTE
CARRYING)
ITEM))))
CARRYING)
(MAPC
(QUOTE
(LAMBDA
(ITEM)
(LPRI
(LIST
(QUOTE YOU)
(QUOTE SEE)
ITEM))))
(GET
LOCATION
(QUOTE OBJECTS)))
(PRINC (QUOTE EXITS:))
(MAPC
(QUOTE
(LAMBDA
(DIR)
(COND�R#
((GET
LOCATION
DIR)
(PRINC
BLANK
DIR)))))
(QUOTE
(NORTH
SOUTH
EAST
WEST
UP
DOWN)))
(PRINT))
)
( SETQ ADVENTURE '(LAMBDA
NIL
(READLINE)
(PRINC
(QUOTE
(WELCOME TO THE MAZE)))
(SETQ
LOCATION
(QUOTE START))
(SETQ CARRYING NIL)
(LOOP
(DISPLAY-POSITION)
(UNTIL1#L
(EQ
LOCATION
(QUOTE FINISH))
(QUOTE
CONGRATULATIONS))
(MAKE-MOVE (READLINE))))
)
(PUT 'START 'DESCRIPTION '(THE ENTRY TO A MAZE))
(PUT 'HALL 'DESCRIPTION '(A FINE GOTHIC HALLWAY))
(PUT 'TWIST 'DESCRIPTION '(A TWISTY PASSAGE))
(PUT 'DEAD 'DESCRIPTION |#'(DEAD END))
(PUT 'CAVE 'DESCRIPTION '(ALADDINS CAVE))
(PUT 'FINISH 'DESCRIPTION '(CASTLE SPLENDID))
(PUT 'START 'NORTH 'HALL)
(PUT 'HALL 'EAST 'TWIST)
(PUT 'TWIST 'UP 'CAVE)
(PUT 'CAVE 'EAST 'DEAD)
(PUT 'CAVE 'WEST 'FINISH)
(PUT 'HALL 'SOUTH 'STAR�*ADVENTE � ��� �4T)
(PUT 'TWIST 'NORTH 'HALL)
(PUT 'CAVE 'DOWN 'TWIST)
(PUT 'DEAD 'DOWN 'CAVE)
(PUT 'START 'OBJECTS '(LANTERN LASERGUN))
(PUT 'TWIST 'OBJECTS '(KEYS MAP))
(PUT 'CAVE 'OBJECTS '(TREASURE))
%�*ANIMALS �� ��( SETQ GIVE-UP '(LAMBDA
(I-THOUGHT
(NEW-ANIMAL)
(NEW-QUESTION))
(LPRI (QUOTE (I GIVE UP)))
(LPRI
(QUOTE (WHAT WAS IT?)))
(SETQ NEW-ANIMAL (READ))
(LPRI
(QUOTE
(PLEASE
TYPE
IN
A
QUESTION
THAT
WOULD)))
(LPRI
(LIST
(QUOTE DISTINGUISH)
(QUOTE A)
NEW-ANIMAL
(QU_�#OTE FROM)
(QUOTE A)
I-THOUGHT))
(READLINE)
(SETQ
NEW-QUESTION
(READLINE))
(LPRI (QUOTE (THANK YOU)))
(CONS
NEW-QUESTION
(CONS
NEW-ANIMAL
I-THOUGHT)))
)
( SETQ YESP '(LAMBDA
(A)
(OR (EQ A (QUOTE YES))
(EQ A (QUOTE Y))))
)
( SETQ I-GUESS '(LAMBDA
(CREATU��#RE)
(LPRI
(LIST
(QUOTE IS)
(QUOTE IT)
(QUOTE A)
CREATURE))
(COND
((YESP (READ))
(PRINTC
(QUOTE HURRAH))
CREATURE)
(T (GIVE-UP CREATURE))))
)
( SETQ LPRI '(LAMBDA
(L)
(LOOP
(UNTIL (NULL L) (PRINT))
(PRINC (CAR L) BLANK)
(SETQ L (CDR L))))
)
( SETQ GUESS# '(LAMBDA
(KNOWN-ANIMALS)
(COND
((ATOM KNOWN-ANIMALS)
(I-GUESS
KNOWN-ANIMALS))
(T
(PRINC
(CAR
KNOWN-ANIMALS))
(COND
((YESP (READ))
(RPLACA
(CDR
KNOWN-ANIMALS)
(GUESS
(CADR
KNOWN-ANIMALS))))
(T
(RPLACD
(CDR
KNOWN-ANIMALS)
(GUESS
(CDDR
KNOWN-ANIMALS)))))
KNO�m#WN-ANIMALS)))
)
( SETQ KNOWN-ANIMALS '(DOES! IT! HAVE! A! LONG! NECK?
(DOES! IT! LIVE! IN! AFRICA
GIRAFFE.SWAN)
DOES! IT! HAVE! BIG! EARS?
(DOES! IT! HAVE! A! BIG! NOSE
ELEPHANT.RABBIT).CROCODILE)
)
( SETQ SAY-HELLO '(LAMBDA
NIL
(PRINT)
(LPRI
(QUOTE
(T�*ANIMALS � ��� �HINK
OF
AN
ANIMAL
-
I
WILL
GUESS
IT)))
(PRINT))
)
( SETQ ANIMAL '(LAMBDA
NIL
(LOOP
(SAY-HELLO)
(SETQ
KNOWN-ANIMALS
(GUESS KNOWN-ANIMALS))))
)
v�*ARITH �� 9v( SETQ PERFORM-ARITHMETIC '(LAMBDA
(OPERATOR ARG1 ARG2)
(COND
((EQ OPERATOR (QUOTE +))
(PLUS ARG1 ARG2))
((EQ OPERATOR (QUOTE -))
(DIFFERENCE
ARG1
ARG2))
((EQ OPERATOR (QUOTE *))
(TIMES ARG1 ARG2))
((EQ OPERATOR (QUOTE /))
(QUOTIENT ARG1 ARG2))
(T
(ERROR
(M�#LIST
OPERATOR
(QUOTE UNKNOWN))))))
)
( SETQ ARG-2-PART '(LAMBDA
(EXPRESSION)
(CADDR EXPRESSION))
)
( SETQ ARG-1-PART '(LAMBDA
(EXPRESSION)
(CADR EXPRESSION))
)
( SETQ OPERATOR-PART '(LAMBDA
(EXPRESSION)
(CAR EXPRESSION))
)
( SETQ EVALUATE-COMPOUND-]r#EXPRESSION '(LAMBDA
(OPERATOR ARG1 ARG2)
(PERFORM-ARITHMETIC
OPERATOR
(EVALUATE ARG1)
(EVALUATE ARG2)))
)
( SETQ EVALUATE '(LAMBDA
(EXPRESSION)
(COND
((NUMBERP EXPRESSION)
EXPRESSION)
(T
(EVALUATE-COMPOUND-EXPRESSION
(OPERATOR-PART
EXPRESSION)
(ARG-1-PAR�S*ARITH - ��� ��T
EXPRESSION)
(ARG-2-PART
EXPRESSION)))))
)
�;*BIG ٚ ϛ( SETQ BIG-POWER-OF-2 '(LAMBDA
(N)
(PRINTC
(LIST
2
(QUOTE TO)
(QUOTE THE)
(QUOTE POWER)
N
(QUOTE IS)))
(BIG-PRINT
(BIG-EXPT 2 N))
(QUOTE DONE))
)
( SETQ SUBFUNCTION-FOR-BIG-EXPT '(LAMBDA
(A APOWER NREM)
(COND
((EQUAL NREM 0)
(BIG-TIMES
APOWER
APOWER))
(T�C#
(BIG-TIMES
(BIG-TIMES
A
APOWER)
APOWER))))
)
( SETQ EQUAL '(LAMBDA
(A B)
(COND
((EQ A B) T)
((OR (ATOM A) (ATOM B))
NIL)
((EQUAL (CAR A) (CAR B))
(EQUAL
(CDR A)
(CDR B)))
(T NIL)))
)
( SETQ BIG-EXPT '(LAMBDA
(A N)
(COND
((EQUAL N 0)
1)
(T
(SUBFUNCTION9�#-FOR-BIG-EXPT
A
(BIG-EXPT
A
(QUOTIENT
N
2))
(REMAINDER
N
2)))))
)
( SETQ SMALL-TIMES-BIG '(LAMBDA
(A B)
(COND
((NUMBERP B)
(BIG-NUMBER
(TIMES A B)))
(T
(JOIN-DIGIT
(TIMES A (CAR B))
(SMALL-TIMES-BIG
A
(CDR B))))))
)
( SETQ BIG-TIMES '(LAMBDA
(A B)
(CON`�#D
((NUMBERP A)
(SMALL-TIMES-BIG A B))
((NUMBERP B)
(SMALL-TIMES-BIG B A))
(T
(BIG-PLUS
(SMALL-TIMES-BIG
(CAR B)
A)
(CONS
0
(BIG-TIMES
A
(CDR B)))))))
)
( SETQ BIG-NUMBER '(LAMBDA
(N)
(COND
((LESSP N 100) N)
(T
(CONS
(REMAINDER
N
100)
(BIG-NUMBER
(QUOTIEN��#T
N
100))))))
)
( SETQ JOIN-DIGIT '(LAMBDA
(N A)
(COND
((LESSP N 100)
(CONS N A))
(T
(CONS
(REMAINDER
N
100)
(SMALL-PLUS-BIG
(QUOTIENT
N
100)
A)))))
)
( SETQ SMALL-PLUS-BIG '(LAMBDA
(A B)
(COND
((NUMBERP B)
(BIG-NUMBER
(PLUS A B)))
(T
(JOIN-DIGIT
(PLUS��# A (CAR B))
(CDR B)))))
)
( SETQ BIG-PLUS '(LAMBDA
(A B)
(COND
((NUMBERP A)
(SMALL-PLUS-BIG A B))
((NUMBERP B)
(SMALL-PLUS-BIG B A))
(T
(JOIN-DIGIT
(PLUS
(CAR A)
(CAR B))
(BIG-PLUS
(CDR A)
(CDR B))))))
)
( SETQ PRINT-TWO-DIGITS '(LAMBDA
(N)
(PRINC (QUO;�*BIG � �ٚ \iTIENT N 10))
(PRINC
(REMAINDER N 10)))
)
( SETQ BIG-PRINT '(LAMBDA
(N)
(COND
((NUMBERP N) (PRINC N))
(T
(BIG-PRINT (CDR N))
(PRINT-TWO-DIGITS
(CAR N)))))
)
Z�*CODEGEN �� �( SETQ CG '(LAMBDA
(X)
(COND
((NUMBERP X)
(PRINTC
(QUOTE LDA)
BLANK
(QUOTE #)
BLANK
X))
((ATOM X)
(PRINTC
(QUOTE LDA)
BLANK
X))
(T
(CG (CADR X))
(PRINTC (QUOTE PHA))
(CG (CADDR X))
(PRINTC
(QUOTE STA)
BLANK
(QUOTE TEMP))
(PRINTC (QUOTE PLA))
(PRINTC
(GET
(�_*CODEGEN � ��� ��CAR X)
(QUOTE OPCODE))
BLANK
(QUOTE TEMP)))))
)
(PUT '+ 'OPCODE 'ADC)
(PUT '- 'OPCODE 'SBC)
(PUT '& 'OPCODE 'AND)
(PUT '| 'OPCODE 'ORA)
̹*GRAPH զ NJ( SETQ SPIDER '(LAMBDA
(N)
(COND
((MINUSP N) NIL)
(T
(ADD
(CIRCLE N)
(SPIDER
(DIFFERENCE
N
20))))))
)
( SETQ BLACK '(LAMBDA (X) (COLOUR X 0))
)
( SETQ RED '(LAMBDA (X) (COLOUR X 1))
)
( SETQ YELLOW '(LAMBDA (X) (COLOUR X 2))
)
( SETQ WHITE '(LAMBDA1s# (X) (COLOUR X 3))
)
( SETQ MKPIC '(LAMBDA
(X)
(CONS (QUOTE PIC) X))
)
( SETQ ADD '(LAMBDA
(A B)
(COND
((PICP A)
(COND
((PICP B)
(MKPIC
(LIST
(QUOTE
ADD)
(CDR A)
(CDR B))))
(T A)))
((PICP B) B)
(T (LIST A B))))
)
( SETQ COLOUR '(LAMBDA
(X N)
(COND
(('2#PICP X)
(MKPIC
(LIST
(QUOTE COLOUR)
(CDR X)
N)))
(T X)))
)
( SETQ SHIFT '(LAMBDA
(P X Y)
(COND
((PICP P)
(MKPIC
(LIST
(QUOTE SHIFT)
(CDR P)
X
Y)))
(T P)))
)
( SETQ CIRCLE '(LAMBDA
(A)
(MKPIC
(LIST (QUOTE CIRCLE) A)))
)
( SETQ PLOT '(LAMBDA
(N X Y)
(V�{#DU
25
N
(REMAINDER
(SETQ
X
(PLUS X 16384))
256)
(DIFFERENCE
(QUOTIENT X 256)
64)
(REMAINDER
(SETQ
Y
(PLUS Y 16384))
256)
(DIFFERENCE
(QUOTIENT Y 256)
64)))
)
( SETQ BOX '(LAMBDA
(A B)
(MKPIC
(LIST (QUOTE BOX) A B)))
)
( SETQ DRAW '(LAMBDA
(X)
(COND
((A$�#TOM X) NIL)
(T
((GET
(CAR X)
(QUOTE DRAW))
(CDR X)))))
)
( SETQ CLEAR-SCREEN '(LAMBDA
NIL
(VDU
18
0
7
18
0
128
16
25
4
0
2
0
2))
)
( SETQ PICP '(LAMBDA
(X)
(AND
(NOT (ATOM X))
(EQ (CAR X) (QUOTE PIC))))
)
( SETQ GPRINT '(LAMBDA
(X)
(COND
((PICP X)
(C� #LEAR-SCREEN)
(DRAW (CDR X)))
(T (PRINT X))))
)
( SETQ GSUPER '(LAMBDA
((U))
(SET-GRAPHICS)
(LOOP
(LOOP
(LOOP
(PRINT
(QUOTE Eval:))
(SETQ
U
(ERRORSET
(READ)))
(WHILE (ATOM U)))
(SETQ
U
(ERRORSET
(EVAL (CAR U))))
(WHILE (ATOM U)))
(UNTIL
(EQ
(SETQ U (CAR U�r#))
(QUOTE FIN)))
(ERRORSET (GPRINT U)))
(END-GRAPHICS))
)
( SETQ END-GRAPHICS '(LAMBDA
NIL
(VDU 22 4))
)
( SETQ SET-GRAPHICS '(LAMBDA
NIL
(VDU
22
5
28
0
5
19
0))
)
(PUT 'BOX 'DRAW
'(LAMBDA (X (Y))
(SETQ Y (CADR X))
(SETQ X (CAR X))
(PLOT 0 (MINUS (QUO�S#TIENT X 2))
(MINUS (QUOTIENT Y 2)))
(PLOT 1 X 0)
(PLOT 1 0 Y)
(PLOT 1 (MINUS X) 0)
(PLOT 1 0 (MINUS Y))
(PLOT 0 (QUOTIENT X 2) (QUOTIENT Y 2))))
(PUT 'ADD 'DRAW '(LAMBDA (A)
(LOOP (WHILE A) (DRAW (CAR A)) (SETQ A (CDR A)))))
(PUT 'SHIFT 'DRAW
'(LAMBDA (AAV#)
(PLOT 0 (CADR A) (CADDR A))
(DRAW (CAR A))
(PLOT 0 (MINUS (CADR A)) (MINUS (CADDR A)))))
(PUT 'CIRCLE 'DRAW
'(LAMBDA (X (W) (Z))
(SETQ X (CAR X))
(SETQ W (QUOTIENT (TIMES X 7) 10))
(SETQ Z (DIFFERENCE X W))
(PLOT 0 X 0)
(PLOT 1 (MINUS Z) W)
(PLOT 1 (MIN� *GRAPH � �զ 2�US W) Z)
(PLOT 1 (MINUS W) (MINUS Z))
(PLOT 1 (MINUS Z) (MINUS W))
(PLOT 1 Z (MINUS W))
(PLOT 1 W (MINUS Z))
(PLOT 1 W Z)
(PLOT 1 Z W)
(PLOT 0 (MINUS X) 0)))
(PUT 'COLOUR 'DRAW
'(LAMBDA (X) (VDU 18 0 (CADR X)) (DRAW (CAR X))))
�E*PARSER �� �{( SETQ PARSER '
(LAMBDA
((CURSYM))
(NEXTSYM)
(EXPRESSION)))
( SETQ FACTOR '
(LAMBDA
((TREE))
(COND
((EQ CURSYM LPAR)
(NEXTSYM)
(SETQ
TREE
(EXPRESSION))
(NEXTSYM)
TREE)
(T (NEXTSYM)))))
( SETQ NEXTSYM '
(LAMBDA
((PREV))
(SETQ PREV CURSYM)
(LOOP
(SETQ CUI�#RSYM (GETCHAR))
(PRINC CURSYM)
(WHILE
(EQ CURSYM BLANK)
PREV))))
( SETQ TERM '
(LAMBDA
((TREE))
(SETQ TREE (FACTOR))
(LOOP
(WHILE
(OR
(EQ
CURSYM
(QUOTE *))
(EQ
CURSYM
(QUOTE /)))
TREE)
(SETQ
TREE
(LIST
(NEXTSYM)
TREE
(FACTOR))))))
( SETQ EXPRESSION '
(5�*PARSER � ��� klLAMBDA
((TREE))
(SETQ TREE (TERM))
(LOOP
(WHILE
(OR
(EQ
CURSYM
(QUOTE +))
(EQ
CURSYM
(QUOTE -)))
TREE)
(SETQ
TREE
(LIST
(NEXTSYM)
TREE
(TERM))))))
�*PRETTY i� u( SETQ SUPER-SUB '(LAMBDA
(X
LEFTMARGIN
(SEPCHAR)
(SPECIAL))
(COND
((CHARP (CAR X))
(SETQ
SPECIAL
(GET
(CAR X)
(QUOTE SPECIAL)))))
(LOOP
(UNTIL
(NULL X)
(PRINC RPAR))
(UNTIL
(ATOM X)
(PRINC
BLANK
PERIOD
BLANK
X
RPAR))
(COND
((NULL SEPCHAR)
(PRINC LPAR)
(SEtf#TQ SEPCHAR T))
(SPECIAL
(PRINC BLANK)
(COND
((MINUSP
(SETQ
SPECIAL
(SUB1
SPECIAL)))
(SETQ
SPECIAL
NIL))))
((NULL SUPER)
(PRINC BLANK))
(T
(PRINT)
(SPACES
LEFTMARGIN)))
(SUPERPRIN
(CAR X)
LEFTMARGIN)
(SETQ X (CDR X))))
)
( SETQ SUPERPRIN '(LAMBDA
(X LEFTMR#ARGIN (SUPER))
(COND
((ATOM X) (PRIN X))
((QUOTEP X)
(PRINC
(CHARACTER 39))
(SUPERPRIN
(CADR X)
(ADD1 LEFTMARGIN)))
((WILL-FIT
X
(DIFFERENCE
LINELENGTH
LEFTMARGIN))
(SUPER-SUB
X
(PLUS
LEFTMARGIN
3)))
(T
(SETQ SUPER T)
(SUPER-SUB
X
(PLUS
LEFTMARGIN
3)))))
)\#
( SETQ SUPERPRINT '(LAMBDA
(X (LEFTMARGIN . 0))
(SUPERPRIN X LEFTMARGIN)
(PRINT)
X)
)
( SETQ LINELENGTH '60
)
( SETQ SPACES '(LAMBDA
(N)
(LOOP
(UNTIL
(MINUSP
(SETQ N (SUB1 N))))
(PRINC BLANK)))
)
( SETQ WILL-FIT '(LAMBDA
(X W)
(NOT
(MINUSP
(SUBTRAp\#CT-WIDTH X W))))
)
( SETQ SUBTRACT-WIDTH-OF-LIST '(LAMBDA
(X W)
(LOOP
(UNTIL
(OR
(NULL X)
(MINUSP W))
W)
(UNTIL
(ATOM X)
(DIFFERENCE
W
(PLUS
2
(WIDTH-OF-ATOM
X))))
(SETQ
W
(SUBTRACT-WIDTH
(CAR X)
(SUB1 W)))
(SETQ X (CDR X))))
)
( SETQ QUOTEP '(LAMBDA
(Њ#X)
(AND
(NOT (ATOM X))
(EQ
(CAR X)
(QUOTE QUOTE))
(NOT (ATOM (CDR X)))
(NULL (CDDR X))))
)
( SETQ SUBTRACT-WIDTH '(LAMBDA
(X W)
(COND
((ATOM X)
(DIFFERENCE
W
(WIDTH-OF-ATOM X)))
((QUOTEP X)
(SUBTRACT-WIDTH-OF-LIST
(CADR X)
(SUB1 W)))
(T
(SUBTRACT-WIDTH-O�D#F-LIST
X
(SUB1 W)))))
)
( SETQ WIDTH-OF-ATOM '(LAMBDA
(X)
(COND
((NUMBERP X)
(WIDTH-OF-NUMBER X))
(T (CHARS X))))
)
( SETQ WIDTH-OF-NUMBER '(LAMBDA
(N)
(COND
((MINUSP N)
(ADD1
(WIDTH-OF-NUMBER
(MINUS N))))
((LESSP N 10)
1)
(T
(ADD1
(WIDTH-OF-NUMBER
(QUz=*PRETTY x �i� �bOTIENT
N
10))))))
)
(PUT 'SETQ 'SPECIAL '0)
(PUT 'DEFUN 'SPECIAL '1)
(PUT 'T 'SPECIAL '0)
(PUT 'LAMBDA 'SPECIAL '0)
rm*SORT �� �( SETQ ORDERP1 '(LAMBDA
(AL BL)
(COND
((NULL AL) T)
((NULL BL) NIL)
((EQ (CAR AL) (CAR BL))
(ORDERP1
(CDR AL)
(CDR BL)))
(T
(LESSP
(ORDINAL (CAR AL))
(ORDINAL (CAR BL))))))
)
( SETQ PUT-IN-RIGHT-SUBTREE '(LAMBDA
(ITEM TREE)
(MAKE-NODE
(ITEM-IN-NODE TREE) �#
(LEFT-SUBTREE TREE)
(ADD-ITEM
ITEM
(RIGHT-SUBTREE TREE))))
)
( SETQ PUT-IN-LEFT-SUBTREE '(LAMBDA
(ITEM TREE)
(MAKE-NODE
(ITEM-IN-NODE TREE)
(ADD-ITEM
ITEM
(LEFT-SUBTREE TREE))
(RIGHT-SUBTREE TREE)))
)
( SETQ ORDERP '(LAMBDA
(A B)
(ORDERP1
(EXPLODE A)
�#(EXPLODE B)))
)
( SETQ ADD-ITEM '(LAMBDA
(ITEM TREE)
(COND
((NULL TREE)
(MAKE-NODE
ITEM
NIL
NIL))
((ORDERP
ITEM
(ITEM-IN-NODE TREE))
(PUT-IN-LEFT-SUBTREE
ITEM
TREE))
(T
(PUT-IN-RIGHT-SUBTREE
ITEM
TREE))))
)
( SETQ SORT '(LAMBDA
(ITEM-LIST (TREE))
(LOOPi#
(UNTIL
(NULL ITEM-LIST)
(PRINT-TREE TREE))
(SETQ
TREE
(ADD-ITEM
(CAR ITEM-LIST)
TREE))
(SETQ
ITEM-LIST
(CDR ITEM-LIST))))
)
( SETQ PRINT-TREE '(LAMBDA
(TREE)
(COND
((NULL TREE) NIL)
(T
(PRINT-TREE
(LEFT-SUBTREE
TREE))
(PRINT
(ITEM-IN-NODE
TREE))
(PRINT-{Q#TREE
(RIGHT-SUBTREE
TREE)))))
)
( SETQ ITEM-IN-NODE '(LAMBDA (TREE) (CADR TREE))
)
( SETQ RIGHT-SUBTREE '(LAMBDA (TREE) (CADDR TREE))
)
( SETQ LEFT-SUBTREE '(LAMBDA (TREE) (CAR TREE))
)
( SETQ MAKE-NODE '(LAMBDA
(VAL LEFT RIGHT)
(LIST LEFT VAL RIGH��*SORT ��� $T))
)
pS*UTILS � J�( SETQ UNTRACE '(LAMBDA
FN
(SETQ FN (CAR FN))
(SET
FN
(GET FN (QUOTE OLDDEF)))
(REMPROP FN (QUOTE OLDDEF))
(LIST FN (QUOTE UNTRACED)))
)
( SETQ TRACE '(LAMBDA
FN
(SETQ FN (CAR FN))
(PUT
FN
(QUOTE OLDDEF)
(EVAL FN))
(SET
FN
(SUBST
FN
(QUOTE FN)
(QUOTE
(LA0-#MBDA
*X
(SETQ
*X
(MAPC
EVAL
*X))
(PRINTC
(QUOTE FN)
BLANK
*X)
(SETQ
*X
(APPLY
(GET
(QUOTE
FN)
(QUOTE
OLDDEF))
*X))
(PRINT
(QUOTE FN)
(QUOTE =)
*X)
*X))))
FN)
)
( SETQ SUBST '(LAMBDA
(A B C)
(COND
((EQ B C) A)
((ATOM C) C)
(T
(CONS
(SUBST
A
B
(CAR C))
(SU�f#BST
A
B
(CDR C))))))
)
( SETQ REVERSE '(LAMBDA
(X (W))
(LOOP
(WHILE X W)
(SETQ
W
(CONS (CAR X) W))
(SETQ X (CDR X))))
)
( SETQ RDF '(LAMBDA
(NAME (HANDLE))
(SETQ HANDLE (OPEN NAME T))
(LOOP
(UNTIL
(ATOM
(ERRORSET
(EVAL
(READ
HANDLE))))))
(CLOSE HANDLE)�#)
)
( SETQ NUMOB '(LAMBDA
(L (N . 0))
(LOOP
(WHILE L N)
(SETQ
N
(PLUS
(TIMES N 10)
(DIFFERENCE
(ORDINAL
(CAR L))
48)))
(SETQ L (CDR L))))
)
( SETQ MEMBER '(LAMBDA
(A L)
(COND
((NULL L) NIL)
((EQUAL A (CAR L)) T)
(T (MEMBER A (CDR L)))))
)
( SETQ LAST,�# '(LAMBDA
(L)
(COND
((NULL (CDR L)) (CAR L))
(T (LAST (CDR L)))))
)
( SETQ FLATTEN '(LAMBDA
(A (L))
(COND
((NULL A) L)
((ATOM A) (CONS A L))
(T
(FLATTEN
(CAR A)
(FLATTEN
(CDR A)
L)))))
)
( SETQ DIGIT '(LAMBDA
(CH)
(SETQ CH (ORDINAL CH))
(COND
((OR
(LES�%#SP CH 48)
(GREATERP CH 57))
NIL)
(T
(DIFFERENCE
CH
48))))
)
( SETQ EQUAL '(LAMBDA
(A B)
(COND
((EQ A B) T)
((OR (ATOM A) (ATOM B))
NIL)
((EQUAL (CAR A) (CAR B))
(EQUAL
(CDR A)
(CDR B)))
(T NIL)))
)
( SETQ DELETE '(LAMBDA
(A L)
(COND
((NULL L) NIL)
((EQ�*UTILS � �� =�UAL A (CAR L))
(CDR L))
(T
(CONS
(CAR L)
(DELETE A (CDR L))))))
)
( SETQ CONCAT '(LAMBDA
(A B)
(IMPLODE
(APPEND
(EXPLODE A)
(EXPLODE B))))
)
( SETQ APPEND '(LAMBDA
(A B)
(COND
((NULL A) B)
(T
(CONS
(CAR A)
(APPEND (CDR A) B)))))
)
E�+���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� 00000000 00 00 00 4c 2e 80 82 15 00 53 65 72 69 61 6c 20 |...L.....Serial |
00000010 52 6f 6d 00 30 00 28 43 29 20 31 39 38 32 20 41 |Rom.0.(C) 1982 A|
00000020 63 6f 72 6e 20 43 6f 6d 70 75 74 65 72 00 c9 0d |corn Computer...|
00000030 f0 05 c9 0e f0 1e 60 48 20 7b 80 c5 f4 90 13 a9 |......`H {......|
00000040 82 85 f6 a9 80 85 f7 a5 f4 20 7d 80 85 f5 68 a9 |......... }...h.|
00000050 00 60 68 60 48 98 30 15 20 7b 80 c5 f4 d0 f3 a0 |.`h`H.0. {......|
00000060 00 b1 f6 a8 e6 f6 d0 e6 e6 f7 4c 4e 80 a5 f5 49 |..........LN...I|
00000070 ff 29 0f a8 20 b9 ff a8 4c 64 80 a5 f5 49 ff 29 |.).. ...Ld...I.)|
00000080 0f 60 2a 2a 4c 49 53 50 32 30 32 2a 00 00 00 00 |.`**LISP202*....|
00000090 00 00 00 00 00 00 00 00 00 81 a0 80 00 00 a0 07 |................|
000000a0 2a 41 44 56 45 4e 54 45 00 00 00 00 00 00 00 00 |*ADVENTE........|
000000b0 00 00 00 00 01 00 b5 8a 00 00 ec ec 28 20 53 45 |............( SE|
000000c0 54 51 20 45 51 55 41 4c 20 27 28 4c 41 4d 42 44 |TQ EQUAL '(LAMBD|
000000d0 41 0d 28 41 20 42 29 0d 28 43 4f 4e 44 0d 28 28 |A.(A B).(COND.((|
000000e0 45 51 20 41 20 42 29 20 54 29 0d 28 28 4f 52 20 |EQ A B) T).((OR |
000000f0 28 41 54 4f 4d 20 41 29 20 28 41 54 4f 4d 20 42 |(ATOM A) (ATOM B|
00000100 29 29 0d 4e 49 4c 29 0d 28 28 45 51 55 41 4c 20 |)).NIL).((EQUAL |
00000110 28 43 41 52 20 41 29 20 28 43 41 52 20 42 29 29 |(CAR A) (CAR B))|
00000120 0d 28 45 51 55 41 4c 0d 28 43 44 52 20 41 29 0d |.(EQUAL.(CDR A).|
00000130 28 43 44 52 20 42 29 29 29 0d 28 54 20 4e 49 4c |(CDR B))).(T NIL|
00000140 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 44 |))).)...( SETQ D|
00000150 45 4c 45 54 45 20 27 28 4c 41 4d 42 44 41 0d 28 |ELETE '(LAMBDA.(|
00000160 41 20 4c 29 0d 28 43 4f 4e 44 0d 28 28 4e 55 4c |A L).(COND.((NUL|
00000170 4c 20 4c 29 20 4e 49 4c 29 0d 28 28 45 51 55 41 |L L) NIL).((EQUA|
00000180 4c 20 41 20 28 43 41 52 20 4c 29 29 0d 28 43 44 |L A (CAR L)).(CD|
00000190 52 20 4c 29 29 0d 28 54 0d 28 43 4f 4e 53 0d 28 |R L)).(T.(CONS.(|
000001a0 43 41 52 20 4c 29 0d 28 44 45 4c 45 54 45 20 41 |CAR L).(DELETE A|
000001b0 20 28 43 44 52 20 4c 29 29 29 29 29 5a 02 23 29 | (CDR L)))))Z.#)|
000001c0 0d 29 0d 0d 0d 28 20 53 45 54 51 20 4d 4f 56 45 |.)...( SETQ MOVE|
000001d0 2d 54 4f 20 27 28 4c 41 4d 42 44 41 0d 28 44 49 |-TO '(LAMBDA.(DI|
000001e0 52 45 43 54 49 4f 4e 29 0d 28 53 45 54 51 0d 4c |RECTION).(SETQ.L|
000001f0 4f 43 41 54 49 4f 4e 0d 28 47 45 54 20 4c 4f 43 |OCATION.(GET LOC|
00000200 41 54 49 4f 4e 20 57 4f 52 44 29 29 29 0d 29 0d |ATION WORD))).).|
00000210 0d 0d 28 20 53 45 54 51 20 50 49 43 4b 2d 55 50 |..( SETQ PICK-UP|
00000220 20 27 28 4c 41 4d 42 44 41 0d 28 57 4f 52 44 29 | '(LAMBDA.(WORD)|
00000230 0d 28 50 55 54 0d 4c 4f 43 41 54 49 4f 4e 0d 28 |.(PUT.LOCATION.(|
00000240 51 55 4f 54 45 20 4f 42 4a 45 43 54 53 29 0d 28 |QUOTE OBJECTS).(|
00000250 44 45 4c 45 54 45 0d 57 4f 52 44 0d 28 47 45 54 |DELETE.WORD.(GET|
00000260 0d 4c 4f 43 41 54 49 4f 4e 0d 28 51 55 4f 54 45 |.LOCATION.(QUOTE|
00000270 20 4f 42 4a 45 43 54 53 29 29 29 29 0d 28 53 45 | OBJECTS)))).(SE|
00000280 54 51 0d 43 41 52 52 59 49 4e 47 0d 28 43 4f 4e |TQ.CARRYING.(CON|
00000290 53 20 57 4f 52 44 20 43 41 52 52 59 49 4e 47 29 |S WORD CARRYING)|
000002a0 29 0d 28 4c 50 52 49 0d 28 4c 49 53 54 20 28 51 |).(LPRI.(LIST (Q|
000002b0 55 4f 54 45 20 47 4f 54 29 20 57 4f 52 44 29 c6 |UOTE GOT) WORD).|
000002c0 5c 23 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 |\#)).)...( SETQ |
000002d0 44 52 4f 50 20 27 28 4c 41 4d 42 44 41 0d 28 57 |DROP '(LAMBDA.(W|
000002e0 4f 52 44 29 0d 28 53 45 54 51 0d 43 41 52 52 59 |ORD).(SETQ.CARRY|
000002f0 49 4e 47 0d 28 44 45 4c 45 54 45 20 57 4f 52 44 |ING.(DELETE WORD|
00000300 20 43 41 52 52 59 49 4e 47 29 29 0d 28 50 55 54 | CARRYING)).(PUT|
00000310 0d 4c 4f 43 41 54 49 4f 4e 0d 28 51 55 4f 54 45 |.LOCATION.(QUOTE|
00000320 20 4f 42 4a 45 43 54 53 29 0d 28 43 4f 4e 53 0d | OBJECTS).(CONS.|
00000330 57 4f 52 44 0d 28 47 45 54 0d 4c 4f 43 41 54 49 |WORD.(GET.LOCATI|
00000340 4f 4e 0d 28 51 55 4f 54 45 20 4f 42 4a 45 43 54 |ON.(QUOTE OBJECT|
00000350 53 29 29 29 29 0d 28 4c 50 52 49 0d 28 4c 49 53 |S)))).(LPRI.(LIS|
00000360 54 0d 28 51 55 4f 54 45 20 44 52 4f 50 50 45 44 |T.(QUOTE DROPPED|
00000370 29 0d 57 4f 52 44 29 29 29 0d 29 0d 0d 0d 28 20 |).WORD))).)...( |
00000380 53 45 54 51 20 4d 45 4d 42 45 52 20 27 28 4c 41 |SETQ MEMBER '(LA|
00000390 4d 42 44 41 0d 28 41 20 4c 29 0d 28 43 4f 4e 44 |MBDA.(A L).(COND|
000003a0 0d 28 28 4e 55 4c 4c 20 4c 29 20 4e 49 4c 29 0d |.((NULL L) NIL).|
000003b0 28 28 45 51 55 41 4c 20 41 20 28 43 41 52 20 4c |((EQUAL A (CAR L|
000003c0 29 29 be 79 23 20 54 29 0d 28 54 20 28 4d 45 4d |)).y# T).(T (MEM|
000003d0 42 45 52 20 41 20 28 43 44 52 20 4c 29 29 29 29 |BER A (CDR L))))|
000003e0 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 4c 50 52 |).)...( SETQ LPR|
000003f0 49 20 27 28 4c 41 4d 42 44 41 0d 28 4c 29 0d 28 |I '(LAMBDA.(L).(|
00000400 4c 4f 4f 50 0d 28 57 48 49 4c 45 20 4c 20 28 50 |LOOP.(WHILE L (P|
00000410 52 49 4e 54 29 29 0d 28 50 52 49 4e 43 20 28 43 |RINT)).(PRINC (C|
00000420 41 52 20 4c 29 20 42 4c 41 4e 4b 29 0d 28 53 45 |AR L) BLANK).(SE|
00000430 54 51 20 4c 20 28 43 44 52 20 4c 29 29 29 29 0d |TQ L (CDR L)))).|
00000440 29 0d 0d 0d 28 20 53 45 54 51 20 4d 41 4b 45 2d |)...( SETQ MAKE-|
00000450 4d 4f 56 45 20 27 28 4c 41 4d 42 44 41 0d 28 57 |MOVE '(LAMBDA.(W|
00000460 4f 52 44 29 0d 28 43 4f 4e 44 0d 28 28 4d 45 4d |ORD).(COND.((MEM|
00000470 42 45 52 20 57 4f 52 44 20 43 41 52 52 59 49 4e |BER WORD CARRYIN|
00000480 47 29 0d 28 44 52 4f 50 20 57 4f 52 44 29 29 0d |G).(DROP WORD)).|
00000490 28 28 4d 45 4d 42 45 52 0d 57 4f 52 44 0d 28 47 |((MEMBER.WORD.(G|
000004a0 45 54 0d 4c 4f 43 41 54 49 4f 4e 0d 28 51 55 4f |ET.LOCATION.(QUO|
000004b0 54 45 20 4f 42 4a 45 43 54 53 29 29 29 0d 28 50 |TE OBJECTS))).(P|
000004c0 49 43 4b 2d 55 25 b0 23 50 20 57 4f 52 44 29 29 |ICK-U%.#P WORD))|
000004d0 0d 28 28 41 4e 44 0d 28 47 45 54 20 4c 4f 43 41 |.((AND.(GET LOCA|
000004e0 54 49 4f 4e 20 57 4f 52 44 29 0d 28 43 48 41 52 |TION WORD).(CHAR|
000004f0 50 0d 28 47 45 54 0d 4c 4f 43 41 54 49 4f 4e 0d |P.(GET.LOCATION.|
00000500 57 4f 52 44 29 29 0d 28 4d 4f 56 45 2d 54 4f 20 |WORD)).(MOVE-TO |
00000510 57 4f 52 44 29 29 29 0d 28 54 0d 28 4c 50 52 49 |WORD))).(T.(LPRI|
00000520 0d 28 4c 49 53 54 0d 57 4f 52 44 0d 28 51 55 4f |.(LIST.WORD.(QUO|
00000530 54 45 20 4e 4f 54 29 0d 28 51 55 4f 54 45 0d 55 |TE NOT).(QUOTE.U|
00000540 4e 44 45 52 53 54 4f 4f 44 29 29 29 29 29 29 0d |NDERSTOOD)))))).|
00000550 29 0d 0d 28 20 53 45 54 51 20 44 49 53 50 4c 41 |)..( SETQ DISPLA|
00000560 59 2d 50 4f 53 49 54 49 4f 4e 20 27 28 4c 41 4d |Y-POSITION '(LAM|
00000570 42 44 41 0d 4e 49 4c 0d 28 50 52 49 4e 54 29 0d |BDA.NIL.(PRINT).|
00000580 28 50 52 49 4e 43 20 28 51 55 4f 54 45 20 41 54 |(PRINC (QUOTE AT|
00000590 3a 29 20 42 4c 41 4e 4b 29 0d 28 4c 50 52 49 0d |:) BLANK).(LPRI.|
000005a0 28 47 45 54 0d 4c 4f 43 41 54 49 4f 4e 0d 28 51 |(GET.LOCATION.(Q|
000005b0 55 4f 54 45 20 44 45 53 43 52 49 50 54 49 4f 4e |UOTE DESCRIPTION|
000005c0 29 29 29 0d 28 4d 41 50 61 cf 23 43 0d 28 51 55 |))).(MAPa.#C.(QU|
000005d0 4f 54 45 0d 28 4c 41 4d 42 44 41 0d 28 49 54 45 |OTE.(LAMBDA.(ITE|
000005e0 4d 29 0d 28 4c 50 52 49 0d 28 4c 49 53 54 0d 28 |M).(LPRI.(LIST.(|
000005f0 51 55 4f 54 45 20 59 4f 55 29 0d 28 51 55 4f 54 |QUOTE YOU).(QUOT|
00000600 45 20 41 52 45 29 0d 28 51 55 4f 54 45 0d 43 41 |E ARE).(QUOTE.CA|
00000610 52 52 59 49 4e 47 29 0d 49 54 45 4d 29 29 29 29 |RRYING).ITEM))))|
00000620 0d 43 41 52 52 59 49 4e 47 29 0d 28 4d 41 50 43 |.CARRYING).(MAPC|
00000630 0d 28 51 55 4f 54 45 0d 28 4c 41 4d 42 44 41 0d |.(QUOTE.(LAMBDA.|
00000640 28 49 54 45 4d 29 0d 28 4c 50 52 49 0d 28 4c 49 |(ITEM).(LPRI.(LI|
00000650 53 54 0d 28 51 55 4f 54 45 20 59 4f 55 29 0d 28 |ST.(QUOTE YOU).(|
00000660 51 55 4f 54 45 20 53 45 45 29 0d 49 54 45 4d 29 |QUOTE SEE).ITEM)|
00000670 29 29 29 0d 28 47 45 54 0d 4c 4f 43 41 54 49 4f |))).(GET.LOCATIO|
00000680 4e 0d 28 51 55 4f 54 45 20 4f 42 4a 45 43 54 53 |N.(QUOTE OBJECTS|
00000690 29 29 29 0d 28 50 52 49 4e 43 20 28 51 55 4f 54 |))).(PRINC (QUOT|
000006a0 45 20 45 58 49 54 53 3a 29 29 0d 28 4d 41 50 43 |E EXITS:)).(MAPC|
000006b0 0d 28 51 55 4f 54 45 0d 28 4c 41 4d 42 44 41 0d |.(QUOTE.(LAMBDA.|
000006c0 28 44 49 52 29 0d 28 43 4f 4e 44 df 52 23 0d 28 |(DIR).(COND.R#.(|
000006d0 28 47 45 54 0d 4c 4f 43 41 54 49 4f 4e 0d 44 49 |(GET.LOCATION.DI|
000006e0 52 29 0d 28 50 52 49 4e 43 0d 42 4c 41 4e 4b 0d |R).(PRINC.BLANK.|
000006f0 44 49 52 29 29 29 29 29 0d 28 51 55 4f 54 45 0d |DIR))))).(QUOTE.|
00000700 28 4e 4f 52 54 48 0d 53 4f 55 54 48 0d 45 41 53 |(NORTH.SOUTH.EAS|
00000710 54 0d 57 45 53 54 0d 55 50 0d 44 4f 57 4e 29 29 |T.WEST.UP.DOWN))|
00000720 29 0d 28 50 52 49 4e 54 29 29 0d 29 0d 0d 0d 28 |).(PRINT)).)...(|
00000730 20 53 45 54 51 20 41 44 56 45 4e 54 55 52 45 20 | SETQ ADVENTURE |
00000740 27 28 4c 41 4d 42 44 41 0d 4e 49 4c 0d 28 52 45 |'(LAMBDA.NIL.(RE|
00000750 41 44 4c 49 4e 45 29 0d 28 50 52 49 4e 43 0d 28 |ADLINE).(PRINC.(|
00000760 51 55 4f 54 45 0d 28 57 45 4c 43 4f 4d 45 20 54 |QUOTE.(WELCOME T|
00000770 4f 20 54 48 45 20 4d 41 5a 45 29 29 29 0d 28 53 |O THE MAZE))).(S|
00000780 45 54 51 0d 4c 4f 43 41 54 49 4f 4e 0d 28 51 55 |ETQ.LOCATION.(QU|
00000790 4f 54 45 20 53 54 41 52 54 29 29 0d 28 53 45 54 |OTE START)).(SET|
000007a0 51 20 43 41 52 52 59 49 4e 47 20 4e 49 4c 29 0d |Q CARRYING NIL).|
000007b0 28 4c 4f 4f 50 0d 28 44 49 53 50 4c 41 59 2d 50 |(LOOP.(DISPLAY-P|
000007c0 4f 53 49 54 49 4f 4e 29 0d 28 55 4e 54 49 4c 31 |OSITION).(UNTIL1|
000007d0 23 4c 0d 28 45 51 0d 4c 4f 43 41 54 49 4f 4e 0d |#L.(EQ.LOCATION.|
000007e0 28 51 55 4f 54 45 20 46 49 4e 49 53 48 29 29 0d |(QUOTE FINISH)).|
000007f0 28 51 55 4f 54 45 0d 43 4f 4e 47 52 41 54 55 4c |(QUOTE.CONGRATUL|
00000800 41 54 49 4f 4e 53 29 29 0d 28 4d 41 4b 45 2d 4d |ATIONS)).(MAKE-M|
00000810 4f 56 45 20 28 52 45 41 44 4c 49 4e 45 29 29 29 |OVE (READLINE)))|
00000820 29 0d 29 0d 0d 28 50 55 54 20 27 53 54 41 52 54 |).)..(PUT 'START|
00000830 20 27 44 45 53 43 52 49 50 54 49 4f 4e 20 27 28 | 'DESCRIPTION '(|
00000840 54 48 45 20 45 4e 54 52 59 20 54 4f 20 41 20 4d |THE ENTRY TO A M|
00000850 41 5a 45 29 29 0d 0d 28 50 55 54 20 27 48 41 4c |AZE))..(PUT 'HAL|
00000860 4c 20 27 44 45 53 43 52 49 50 54 49 4f 4e 20 27 |L 'DESCRIPTION '|
00000870 28 41 20 46 49 4e 45 20 47 4f 54 48 49 43 20 48 |(A FINE GOTHIC H|
00000880 41 4c 4c 57 41 59 29 29 0d 0d 28 50 55 54 20 27 |ALLWAY))..(PUT '|
00000890 54 57 49 53 54 20 27 44 45 53 43 52 49 50 54 49 |TWIST 'DESCRIPTI|
000008a0 4f 4e 20 27 28 41 20 54 57 49 53 54 59 20 50 41 |ON '(A TWISTY PA|
000008b0 53 53 41 47 45 29 29 0d 0d 28 50 55 54 20 27 44 |SSAGE))..(PUT 'D|
000008c0 45 41 44 20 27 44 45 53 43 52 49 50 54 49 4f 4e |EAD 'DESCRIPTION|
000008d0 20 7c 02 23 27 28 44 45 41 44 20 45 4e 44 29 29 | |.#'(DEAD END))|
000008e0 0d 0d 28 50 55 54 20 27 43 41 56 45 20 27 44 45 |..(PUT 'CAVE 'DE|
000008f0 53 43 52 49 50 54 49 4f 4e 20 27 28 41 4c 41 44 |SCRIPTION '(ALAD|
00000900 44 49 4e 53 20 43 41 56 45 29 29 0d 0d 28 50 55 |DINS CAVE))..(PU|
00000910 54 20 27 46 49 4e 49 53 48 20 27 44 45 53 43 52 |T 'FINISH 'DESCR|
00000920 49 50 54 49 4f 4e 20 27 28 43 41 53 54 4c 45 20 |IPTION '(CASTLE |
00000930 53 50 4c 45 4e 44 49 44 29 29 0d 0d 28 50 55 54 |SPLENDID))..(PUT|
00000940 20 27 53 54 41 52 54 20 27 4e 4f 52 54 48 20 27 | 'START 'NORTH '|
00000950 48 41 4c 4c 29 0d 0d 28 50 55 54 20 27 48 41 4c |HALL)..(PUT 'HAL|
00000960 4c 20 27 45 41 53 54 20 27 54 57 49 53 54 29 0d |L 'EAST 'TWIST).|
00000970 0d 28 50 55 54 20 27 54 57 49 53 54 20 27 55 50 |.(PUT 'TWIST 'UP|
00000980 20 27 43 41 56 45 29 0d 0d 28 50 55 54 20 27 43 | 'CAVE)..(PUT 'C|
00000990 41 56 45 20 27 45 41 53 54 20 27 44 45 41 44 29 |AVE 'EAST 'DEAD)|
000009a0 0d 0d 28 50 55 54 20 27 43 41 56 45 20 27 57 45 |..(PUT 'CAVE 'WE|
000009b0 53 54 20 27 46 49 4e 49 53 48 29 0d 0d 28 50 55 |ST 'FINISH)..(PU|
000009c0 54 20 27 48 41 4c 4c 20 27 53 4f 55 54 48 20 27 |T 'HALL 'SOUTH '|
000009d0 53 54 41 52 ee 91 2a 41 44 56 45 4e 54 45 00 00 |STAR..*ADVENTE..|
000009e0 00 00 00 00 00 00 00 09 00 c1 00 80 b5 8a 00 00 |................|
000009f0 87 34 54 29 0d 0d 28 50 55 54 20 27 54 57 49 53 |.4T)..(PUT 'TWIS|
00000a00 54 20 27 4e 4f 52 54 48 20 27 48 41 4c 4c 29 0d |T 'NORTH 'HALL).|
00000a10 0d 28 50 55 54 20 27 43 41 56 45 20 27 44 4f 57 |.(PUT 'CAVE 'DOW|
00000a20 4e 20 27 54 57 49 53 54 29 0d 0d 28 50 55 54 20 |N 'TWIST)..(PUT |
00000a30 27 44 45 41 44 20 27 44 4f 57 4e 20 27 43 41 56 |'DEAD 'DOWN 'CAV|
00000a40 45 29 0d 0d 28 50 55 54 20 27 53 54 41 52 54 20 |E)..(PUT 'START |
00000a50 27 4f 42 4a 45 43 54 53 20 27 28 4c 41 4e 54 45 |'OBJECTS '(LANTE|
00000a60 52 4e 20 4c 41 53 45 52 47 55 4e 29 29 0d 0d 28 |RN LASERGUN))..(|
00000a70 50 55 54 20 27 54 57 49 53 54 20 27 4f 42 4a 45 |PUT 'TWIST 'OBJE|
00000a80 43 54 53 20 27 28 4b 45 59 53 20 4d 41 50 29 29 |CTS '(KEYS MAP))|
00000a90 0d 0d 28 50 55 54 20 27 43 41 56 45 20 27 4f 42 |..(PUT 'CAVE 'OB|
00000aa0 4a 45 43 54 53 20 27 28 54 52 45 41 53 55 52 45 |JECTS '(TREASURE|
00000ab0 29 29 0d 25 bd 2a 41 4e 49 4d 41 4c 53 00 00 00 |)).%.*ANIMALS...|
00000ac0 00 00 00 00 00 00 00 00 00 01 00 8d 90 00 00 9e |................|
00000ad0 e4 28 20 53 45 54 51 20 47 49 56 45 2d 55 50 20 |.( SETQ GIVE-UP |
00000ae0 27 28 4c 41 4d 42 44 41 0d 28 49 2d 54 48 4f 55 |'(LAMBDA.(I-THOU|
00000af0 47 48 54 0d 28 4e 45 57 2d 41 4e 49 4d 41 4c 29 |GHT.(NEW-ANIMAL)|
00000b00 0d 28 4e 45 57 2d 51 55 45 53 54 49 4f 4e 29 29 |.(NEW-QUESTION))|
00000b10 0d 28 4c 50 52 49 20 28 51 55 4f 54 45 20 28 49 |.(LPRI (QUOTE (I|
00000b20 20 47 49 56 45 20 55 50 29 29 29 0d 28 4c 50 52 | GIVE UP))).(LPR|
00000b30 49 0d 28 51 55 4f 54 45 20 28 57 48 41 54 20 57 |I.(QUOTE (WHAT W|
00000b40 41 53 20 49 54 3f 29 29 29 0d 28 53 45 54 51 20 |AS IT?))).(SETQ |
00000b50 4e 45 57 2d 41 4e 49 4d 41 4c 20 28 52 45 41 44 |NEW-ANIMAL (READ|
00000b60 29 29 0d 28 4c 50 52 49 0d 28 51 55 4f 54 45 0d |)).(LPRI.(QUOTE.|
00000b70 28 50 4c 45 41 53 45 0d 54 59 50 45 0d 49 4e 0d |(PLEASE.TYPE.IN.|
00000b80 41 0d 51 55 45 53 54 49 4f 4e 0d 54 48 41 54 0d |A.QUESTION.THAT.|
00000b90 57 4f 55 4c 44 29 29 29 0d 28 4c 50 52 49 0d 28 |WOULD))).(LPRI.(|
00000ba0 4c 49 53 54 0d 28 51 55 4f 54 45 20 44 49 53 54 |LIST.(QUOTE DIST|
00000bb0 49 4e 47 55 49 53 48 29 0d 28 51 55 4f 54 45 20 |INGUISH).(QUOTE |
00000bc0 41 29 0d 4e 45 57 2d 41 4e 49 4d 41 4c 0d 28 51 |A).NEW-ANIMAL.(Q|
00000bd0 55 5f 90 23 4f 54 45 20 46 52 4f 4d 29 0d 28 51 |U_.#OTE FROM).(Q|
00000be0 55 4f 54 45 20 41 29 0d 49 2d 54 48 4f 55 47 48 |UOTE A).I-THOUGH|
00000bf0 54 29 29 0d 28 52 45 41 44 4c 49 4e 45 29 0d 28 |T)).(READLINE).(|
00000c00 53 45 54 51 0d 4e 45 57 2d 51 55 45 53 54 49 4f |SETQ.NEW-QUESTIO|
00000c10 4e 0d 28 52 45 41 44 4c 49 4e 45 29 29 0d 28 4c |N.(READLINE)).(L|
00000c20 50 52 49 20 28 51 55 4f 54 45 20 28 54 48 41 4e |PRI (QUOTE (THAN|
00000c30 4b 20 59 4f 55 29 29 29 0d 28 43 4f 4e 53 0d 4e |K YOU))).(CONS.N|
00000c40 45 57 2d 51 55 45 53 54 49 4f 4e 0d 28 43 4f 4e |EW-QUESTION.(CON|
00000c50 53 0d 4e 45 57 2d 41 4e 49 4d 41 4c 0d 49 2d 54 |S.NEW-ANIMAL.I-T|
00000c60 48 4f 55 47 48 54 29 29 29 0d 29 0d 0d 0d 28 20 |HOUGHT))).)...( |
00000c70 53 45 54 51 20 59 45 53 50 20 27 28 4c 41 4d 42 |SETQ YESP '(LAMB|
00000c80 44 41 0d 28 41 29 0d 28 4f 52 20 28 45 51 20 41 |DA.(A).(OR (EQ A|
00000c90 20 28 51 55 4f 54 45 20 59 45 53 29 29 0d 28 45 | (QUOTE YES)).(E|
00000ca0 51 20 41 20 28 51 55 4f 54 45 20 59 29 29 29 29 |Q A (QUOTE Y))))|
00000cb0 0d 29 0d 0d 0d 28 20 53 45 54 51 20 49 2d 47 55 |.)...( SETQ I-GU|
00000cc0 45 53 53 20 27 28 4c 41 4d 42 44 41 0d 28 43 52 |ESS '(LAMBDA.(CR|
00000cd0 45 41 54 55 90 f9 23 52 45 29 0d 28 4c 50 52 49 |EATU..#RE).(LPRI|
00000ce0 0d 28 4c 49 53 54 0d 28 51 55 4f 54 45 20 49 53 |.(LIST.(QUOTE IS|
00000cf0 29 0d 28 51 55 4f 54 45 20 49 54 29 0d 28 51 55 |).(QUOTE IT).(QU|
00000d00 4f 54 45 20 41 29 0d 43 52 45 41 54 55 52 45 29 |OTE A).CREATURE)|
00000d10 29 0d 28 43 4f 4e 44 0d 28 28 59 45 53 50 20 28 |).(COND.((YESP (|
00000d20 52 45 41 44 29 29 0d 28 50 52 49 4e 54 43 0d 28 |READ)).(PRINTC.(|
00000d30 51 55 4f 54 45 20 48 55 52 52 41 48 29 29 0d 43 |QUOTE HURRAH)).C|
00000d40 52 45 41 54 55 52 45 29 0d 28 54 20 28 47 49 56 |REATURE).(T (GIV|
00000d50 45 2d 55 50 20 43 52 45 41 54 55 52 45 29 29 29 |E-UP CREATURE)))|
00000d60 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 4c 50 52 |).)...( SETQ LPR|
00000d70 49 20 27 28 4c 41 4d 42 44 41 0d 28 4c 29 0d 28 |I '(LAMBDA.(L).(|
00000d80 4c 4f 4f 50 0d 28 55 4e 54 49 4c 20 28 4e 55 4c |LOOP.(UNTIL (NUL|
00000d90 4c 20 4c 29 20 28 50 52 49 4e 54 29 29 0d 28 50 |L L) (PRINT)).(P|
00000da0 52 49 4e 43 20 28 43 41 52 20 4c 29 20 42 4c 41 |RINC (CAR L) BLA|
00000db0 4e 4b 29 0d 28 53 45 54 51 20 4c 20 28 43 44 52 |NK).(SETQ L (CDR|
00000dc0 20 4c 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 | L)))).)...( SET|
00000dd0 51 20 47 55 45 53 53 08 07 23 20 27 28 4c 41 4d |Q GUESS..# '(LAM|
00000de0 42 44 41 0d 28 4b 4e 4f 57 4e 2d 41 4e 49 4d 41 |BDA.(KNOWN-ANIMA|
00000df0 4c 53 29 0d 28 43 4f 4e 44 0d 28 28 41 54 4f 4d |LS).(COND.((ATOM|
00000e00 20 4b 4e 4f 57 4e 2d 41 4e 49 4d 41 4c 53 29 0d | KNOWN-ANIMALS).|
00000e10 28 49 2d 47 55 45 53 53 0d 4b 4e 4f 57 4e 2d 41 |(I-GUESS.KNOWN-A|
00000e20 4e 49 4d 41 4c 53 29 29 0d 28 54 0d 28 50 52 49 |NIMALS)).(T.(PRI|
00000e30 4e 43 0d 28 43 41 52 0d 4b 4e 4f 57 4e 2d 41 4e |NC.(CAR.KNOWN-AN|
00000e40 49 4d 41 4c 53 29 29 0d 28 43 4f 4e 44 0d 28 28 |IMALS)).(COND.((|
00000e50 59 45 53 50 20 28 52 45 41 44 29 29 0d 28 52 50 |YESP (READ)).(RP|
00000e60 4c 41 43 41 0d 28 43 44 52 0d 4b 4e 4f 57 4e 2d |LACA.(CDR.KNOWN-|
00000e70 41 4e 49 4d 41 4c 53 29 0d 28 47 55 45 53 53 0d |ANIMALS).(GUESS.|
00000e80 28 43 41 44 52 0d 4b 4e 4f 57 4e 2d 41 4e 49 4d |(CADR.KNOWN-ANIM|
00000e90 41 4c 53 29 29 29 29 0d 28 54 0d 28 52 50 4c 41 |ALS)))).(T.(RPLA|
00000ea0 43 44 0d 28 43 44 52 0d 4b 4e 4f 57 4e 2d 41 4e |CD.(CDR.KNOWN-AN|
00000eb0 49 4d 41 4c 53 29 0d 28 47 55 45 53 53 0d 28 43 |IMALS).(GUESS.(C|
00000ec0 44 44 52 0d 4b 4e 4f 57 4e 2d 41 4e 49 4d 41 4c |DDR.KNOWN-ANIMAL|
00000ed0 53 29 29 29 29 29 0d 4b 4e 4f d4 6d 23 57 4e 2d |S))))).KNO.m#WN-|
00000ee0 41 4e 49 4d 41 4c 53 29 29 29 0d 29 0d 0d 0d 28 |ANIMALS))).)...(|
00000ef0 20 53 45 54 51 20 4b 4e 4f 57 4e 2d 41 4e 49 4d | SETQ KNOWN-ANIM|
00000f00 41 4c 53 20 27 28 44 4f 45 53 21 20 49 54 21 20 |ALS '(DOES! IT! |
00000f10 48 41 56 45 21 20 41 21 20 4c 4f 4e 47 21 20 4e |HAVE! A! LONG! N|
00000f20 45 43 4b 3f 0d 28 44 4f 45 53 21 20 49 54 21 20 |ECK?.(DOES! IT! |
00000f30 4c 49 56 45 21 20 49 4e 21 20 41 46 52 49 43 41 |LIVE! IN! AFRICA|
00000f40 0d 47 49 52 41 46 46 45 2e 53 57 41 4e 29 0d 44 |.GIRAFFE.SWAN).D|
00000f50 4f 45 53 21 20 49 54 21 20 48 41 56 45 21 20 42 |OES! IT! HAVE! B|
00000f60 49 47 21 20 45 41 52 53 3f 0d 28 44 4f 45 53 21 |IG! EARS?.(DOES!|
00000f70 20 49 54 21 20 48 41 56 45 21 20 41 21 20 42 49 | IT! HAVE! A! BI|
00000f80 47 21 20 4e 4f 53 45 0d 45 4c 45 50 48 41 4e 54 |G! NOSE.ELEPHANT|
00000f90 2e 52 41 42 42 49 54 29 2e 43 52 4f 43 4f 44 49 |.RABBIT).CROCODI|
00000fa0 4c 45 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 53 |LE).)...( SETQ S|
00000fb0 41 59 2d 48 45 4c 4c 4f 20 27 28 4c 41 4d 42 44 |AY-HELLO '(LAMBD|
00000fc0 41 0d 4e 49 4c 0d 28 50 52 49 4e 54 29 0d 28 4c |A.NIL.(PRINT).(L|
00000fd0 50 52 49 0d 28 51 55 4f 54 45 0d 28 54 06 8b 2a |PRI.(QUOTE.(T..*|
00000fe0 41 4e 49 4d 41 4c 53 00 00 00 00 00 00 00 00 00 |ANIMALS.........|
00000ff0 05 00 90 00 80 8d 90 00 00 12 da 48 49 4e 4b 0d |...........HINK.|
00001000 4f 46 0d 41 4e 0d 41 4e 49 4d 41 4c 0d 2d 0d 49 |OF.AN.ANIMAL.-.I|
00001010 0d 57 49 4c 4c 0d 47 55 45 53 53 0d 49 54 29 29 |.WILL.GUESS.IT))|
00001020 29 0d 28 50 52 49 4e 54 29 29 0d 29 0d 0d 0d 28 |).(PRINT)).)...(|
00001030 20 53 45 54 51 20 41 4e 49 4d 41 4c 20 27 28 4c | SETQ ANIMAL '(L|
00001040 41 4d 42 44 41 0d 4e 49 4c 0d 28 4c 4f 4f 50 0d |AMBDA.NIL.(LOOP.|
00001050 28 53 41 59 2d 48 45 4c 4c 4f 29 0d 28 53 45 54 |(SAY-HELLO).(SET|
00001060 51 0d 4b 4e 4f 57 4e 2d 41 4e 49 4d 41 4c 53 0d |Q.KNOWN-ANIMALS.|
00001070 28 47 55 45 53 53 20 4b 4e 4f 57 4e 2d 41 4e 49 |(GUESS KNOWN-ANI|
00001080 4d 41 4c 53 29 29 29 29 0d 29 0d 76 9e 2a 41 52 |MALS)))).).v.*AR|
00001090 49 54 48 00 00 00 00 00 00 00 00 00 00 00 00 01 |ITH.............|
000010a0 00 f8 93 00 00 39 76 28 20 53 45 54 51 20 50 45 |.....9v( SETQ PE|
000010b0 52 46 4f 52 4d 2d 41 52 49 54 48 4d 45 54 49 43 |RFORM-ARITHMETIC|
000010c0 20 27 28 4c 41 4d 42 44 41 0d 28 4f 50 45 52 41 | '(LAMBDA.(OPERA|
000010d0 54 4f 52 20 41 52 47 31 20 41 52 47 32 29 0d 28 |TOR ARG1 ARG2).(|
000010e0 43 4f 4e 44 0d 28 28 45 51 20 4f 50 45 52 41 54 |COND.((EQ OPERAT|
000010f0 4f 52 20 28 51 55 4f 54 45 20 2b 29 29 0d 28 50 |OR (QUOTE +)).(P|
00001100 4c 55 53 20 41 52 47 31 20 41 52 47 32 29 29 0d |LUS ARG1 ARG2)).|
00001110 28 28 45 51 20 4f 50 45 52 41 54 4f 52 20 28 51 |((EQ OPERATOR (Q|
00001120 55 4f 54 45 20 2d 29 29 0d 28 44 49 46 46 45 52 |UOTE -)).(DIFFER|
00001130 45 4e 43 45 0d 41 52 47 31 0d 41 52 47 32 29 29 |ENCE.ARG1.ARG2))|
00001140 0d 28 28 45 51 20 4f 50 45 52 41 54 4f 52 20 28 |.((EQ OPERATOR (|
00001150 51 55 4f 54 45 20 2a 29 29 0d 28 54 49 4d 45 53 |QUOTE *)).(TIMES|
00001160 20 41 52 47 31 20 41 52 47 32 29 29 0d 28 28 45 | ARG1 ARG2)).((E|
00001170 51 20 4f 50 45 52 41 54 4f 52 20 28 51 55 4f 54 |Q OPERATOR (QUOT|
00001180 45 20 2f 29 29 0d 28 51 55 4f 54 49 45 4e 54 20 |E /)).(QUOTIENT |
00001190 41 52 47 31 20 41 52 47 32 29 29 0d 28 54 0d 28 |ARG1 ARG2)).(T.(|
000011a0 45 52 52 4f 52 0d 28 4d e0 23 4c 49 53 54 0d 4f |ERROR.(M.#LIST.O|
000011b0 50 45 52 41 54 4f 52 0d 28 51 55 4f 54 45 20 55 |PERATOR.(QUOTE U|
000011c0 4e 4b 4e 4f 57 4e 29 29 29 29 29 29 0d 29 0d 0d |NKNOWN)))))).)..|
000011d0 0d 28 20 53 45 54 51 20 41 52 47 2d 32 2d 50 41 |.( SETQ ARG-2-PA|
000011e0 52 54 20 27 28 4c 41 4d 42 44 41 0d 28 45 58 50 |RT '(LAMBDA.(EXP|
000011f0 52 45 53 53 49 4f 4e 29 0d 28 43 41 44 44 52 20 |RESSION).(CADDR |
00001200 45 58 50 52 45 53 53 49 4f 4e 29 29 0d 29 0d 0d |EXPRESSION)).)..|
00001210 0d 28 20 53 45 54 51 20 41 52 47 2d 31 2d 50 41 |.( SETQ ARG-1-PA|
00001220 52 54 20 27 28 4c 41 4d 42 44 41 0d 28 45 58 50 |RT '(LAMBDA.(EXP|
00001230 52 45 53 53 49 4f 4e 29 0d 28 43 41 44 52 20 45 |RESSION).(CADR E|
00001240 58 50 52 45 53 53 49 4f 4e 29 29 0d 29 0d 0d 0d |XPRESSION)).)...|
00001250 28 20 53 45 54 51 20 4f 50 45 52 41 54 4f 52 2d |( SETQ OPERATOR-|
00001260 50 41 52 54 20 27 28 4c 41 4d 42 44 41 0d 28 45 |PART '(LAMBDA.(E|
00001270 58 50 52 45 53 53 49 4f 4e 29 0d 28 43 41 52 20 |XPRESSION).(CAR |
00001280 45 58 50 52 45 53 53 49 4f 4e 29 29 0d 29 0d 0d |EXPRESSION)).)..|
00001290 0d 28 20 53 45 54 51 20 45 56 41 4c 55 41 54 45 |.( SETQ EVALUATE|
000012a0 2d 43 4f 4d 50 4f 55 4e 44 2d 5d 72 23 45 58 50 |-COMPOUND-]r#EXP|
000012b0 52 45 53 53 49 4f 4e 20 27 28 4c 41 4d 42 44 41 |RESSION '(LAMBDA|
000012c0 0d 28 4f 50 45 52 41 54 4f 52 20 41 52 47 31 20 |.(OPERATOR ARG1 |
000012d0 41 52 47 32 29 0d 28 50 45 52 46 4f 52 4d 2d 41 |ARG2).(PERFORM-A|
000012e0 52 49 54 48 4d 45 54 49 43 0d 4f 50 45 52 41 54 |RITHMETIC.OPERAT|
000012f0 4f 52 0d 28 45 56 41 4c 55 41 54 45 20 41 52 47 |OR.(EVALUATE ARG|
00001300 31 29 0d 28 45 56 41 4c 55 41 54 45 20 41 52 47 |1).(EVALUATE ARG|
00001310 32 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 |2))).)...( SETQ |
00001320 45 56 41 4c 55 41 54 45 20 27 28 4c 41 4d 42 44 |EVALUATE '(LAMBD|
00001330 41 0d 28 45 58 50 52 45 53 53 49 4f 4e 29 0d 28 |A.(EXPRESSION).(|
00001340 43 4f 4e 44 0d 28 28 4e 55 4d 42 45 52 50 20 45 |COND.((NUMBERP E|
00001350 58 50 52 45 53 53 49 4f 4e 29 0d 45 58 50 52 45 |XPRESSION).EXPRE|
00001360 53 53 49 4f 4e 29 0d 28 54 0d 28 45 56 41 4c 55 |SSION).(T.(EVALU|
00001370 41 54 45 2d 43 4f 4d 50 4f 55 4e 44 2d 45 58 50 |ATE-COMPOUND-EXP|
00001380 52 45 53 53 49 4f 4e 0d 28 4f 50 45 52 41 54 4f |RESSION.(OPERATO|
00001390 52 2d 50 41 52 54 0d 45 58 50 52 45 53 53 49 4f |R-PART.EXPRESSIO|
000013a0 4e 29 0d 28 41 52 47 2d 31 2d 50 41 52 d9 53 2a |N).(ARG-1-PAR.S*|
000013b0 41 52 49 54 48 00 00 00 00 00 00 00 00 00 03 00 |ARITH...........|
000013c0 2d 00 80 f8 93 00 00 f7 be 54 0d 45 58 50 52 45 |-........T.EXPRE|
000013d0 53 53 49 4f 4e 29 0d 28 41 52 47 2d 32 2d 50 41 |SSION).(ARG-2-PA|
000013e0 52 54 0d 45 58 50 52 45 53 53 49 4f 4e 29 29 29 |RT.EXPRESSION)))|
000013f0 29 29 0d 29 0d 0d ea 3b 2a 42 49 47 00 00 00 00 |)).)...;*BIG....|
00001400 00 00 00 00 00 00 00 00 01 00 d9 9a 00 00 cf 9b |................|
00001410 28 20 53 45 54 51 20 42 49 47 2d 50 4f 57 45 52 |( SETQ BIG-POWER|
00001420 2d 4f 46 2d 32 20 27 28 4c 41 4d 42 44 41 0d 28 |-OF-2 '(LAMBDA.(|
00001430 4e 29 0d 28 50 52 49 4e 54 43 0d 28 4c 49 53 54 |N).(PRINTC.(LIST|
00001440 0d 32 0d 28 51 55 4f 54 45 20 54 4f 29 0d 28 51 |.2.(QUOTE TO).(Q|
00001450 55 4f 54 45 20 54 48 45 29 0d 28 51 55 4f 54 45 |UOTE THE).(QUOTE|
00001460 20 50 4f 57 45 52 29 0d 4e 0d 28 51 55 4f 54 45 | POWER).N.(QUOTE|
00001470 20 49 53 29 29 29 0d 28 42 49 47 2d 50 52 49 4e | IS))).(BIG-PRIN|
00001480 54 0d 28 42 49 47 2d 45 58 50 54 20 32 20 4e 29 |T.(BIG-EXPT 2 N)|
00001490 29 0d 28 51 55 4f 54 45 20 44 4f 4e 45 29 29 0d |).(QUOTE DONE)).|
000014a0 29 0d 0d 0d 28 20 53 45 54 51 20 53 55 42 46 55 |)...( SETQ SUBFU|
000014b0 4e 43 54 49 4f 4e 2d 46 4f 52 2d 42 49 47 2d 45 |NCTION-FOR-BIG-E|
000014c0 58 50 54 20 27 28 4c 41 4d 42 44 41 0d 28 41 20 |XPT '(LAMBDA.(A |
000014d0 41 50 4f 57 45 52 20 4e 52 45 4d 29 0d 28 43 4f |APOWER NREM).(CO|
000014e0 4e 44 0d 28 28 45 51 55 41 4c 20 4e 52 45 4d 20 |ND.((EQUAL NREM |
000014f0 30 29 0d 28 42 49 47 2d 54 49 4d 45 53 0d 41 50 |0).(BIG-TIMES.AP|
00001500 4f 57 45 52 0d 41 50 4f 57 45 52 29 29 0d 28 54 |OWER.APOWER)).(T|
00001510 b6 43 23 0d 28 42 49 47 2d 54 49 4d 45 53 0d 28 |.C#.(BIG-TIMES.(|
00001520 42 49 47 2d 54 49 4d 45 53 0d 41 0d 41 50 4f 57 |BIG-TIMES.A.APOW|
00001530 45 52 29 0d 41 50 4f 57 45 52 29 29 29 29 0d 29 |ER).APOWER)))).)|
00001540 0d 0d 0d 28 20 53 45 54 51 20 45 51 55 41 4c 20 |...( SETQ EQUAL |
00001550 27 28 4c 41 4d 42 44 41 0d 28 41 20 42 29 0d 28 |'(LAMBDA.(A B).(|
00001560 43 4f 4e 44 0d 28 28 45 51 20 41 20 42 29 20 54 |COND.((EQ A B) T|
00001570 29 0d 28 28 4f 52 20 28 41 54 4f 4d 20 41 29 20 |).((OR (ATOM A) |
00001580 28 41 54 4f 4d 20 42 29 29 0d 4e 49 4c 29 0d 28 |(ATOM B)).NIL).(|
00001590 28 45 51 55 41 4c 20 28 43 41 52 20 41 29 20 28 |(EQUAL (CAR A) (|
000015a0 43 41 52 20 42 29 29 0d 28 45 51 55 41 4c 0d 28 |CAR B)).(EQUAL.(|
000015b0 43 44 52 20 41 29 0d 28 43 44 52 20 42 29 29 29 |CDR A).(CDR B)))|
000015c0 0d 28 54 20 4e 49 4c 29 29 29 0d 29 0d 0d 0d 28 |.(T NIL))).)...(|
000015d0 20 53 45 54 51 20 42 49 47 2d 45 58 50 54 20 27 | SETQ BIG-EXPT '|
000015e0 28 4c 41 4d 42 44 41 0d 28 41 20 4e 29 0d 28 43 |(LAMBDA.(A N).(C|
000015f0 4f 4e 44 0d 28 28 45 51 55 41 4c 20 4e 20 30 29 |OND.((EQUAL N 0)|
00001600 0d 31 29 0d 28 54 0d 28 53 55 42 46 55 4e 43 54 |.1).(T.(SUBFUNCT|
00001610 49 4f 4e 39 ce 23 2d 46 4f 52 2d 42 49 47 2d 45 |ION9.#-FOR-BIG-E|
00001620 58 50 54 0d 41 0d 28 42 49 47 2d 45 58 50 54 0d |XPT.A.(BIG-EXPT.|
00001630 41 0d 28 51 55 4f 54 49 45 4e 54 0d 4e 0d 32 29 |A.(QUOTIENT.N.2)|
00001640 29 0d 28 52 45 4d 41 49 4e 44 45 52 0d 4e 0d 32 |).(REMAINDER.N.2|
00001650 29 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 |))))).)...( SETQ|
00001660 20 53 4d 41 4c 4c 2d 54 49 4d 45 53 2d 42 49 47 | SMALL-TIMES-BIG|
00001670 20 27 28 4c 41 4d 42 44 41 0d 28 41 20 42 29 0d | '(LAMBDA.(A B).|
00001680 28 43 4f 4e 44 0d 28 28 4e 55 4d 42 45 52 50 20 |(COND.((NUMBERP |
00001690 42 29 0d 28 42 49 47 2d 4e 55 4d 42 45 52 0d 28 |B).(BIG-NUMBER.(|
000016a0 54 49 4d 45 53 20 41 20 42 29 29 29 0d 28 54 0d |TIMES A B))).(T.|
000016b0 28 4a 4f 49 4e 2d 44 49 47 49 54 0d 28 54 49 4d |(JOIN-DIGIT.(TIM|
000016c0 45 53 20 41 20 28 43 41 52 20 42 29 29 0d 28 53 |ES A (CAR B)).(S|
000016d0 4d 41 4c 4c 2d 54 49 4d 45 53 2d 42 49 47 0d 41 |MALL-TIMES-BIG.A|
000016e0 0d 28 43 44 52 20 42 29 29 29 29 29 29 0d 29 0d |.(CDR B)))))).).|
000016f0 0d 0d 28 20 53 45 54 51 20 42 49 47 2d 54 49 4d |..( SETQ BIG-TIM|
00001700 45 53 20 27 28 4c 41 4d 42 44 41 0d 28 41 20 42 |ES '(LAMBDA.(A B|
00001710 29 0d 28 43 4f 4e 60 bd 23 44 0d 28 28 4e 55 4d |).(CON`.#D.((NUM|
00001720 42 45 52 50 20 41 29 0d 28 53 4d 41 4c 4c 2d 54 |BERP A).(SMALL-T|
00001730 49 4d 45 53 2d 42 49 47 20 41 20 42 29 29 0d 28 |IMES-BIG A B)).(|
00001740 28 4e 55 4d 42 45 52 50 20 42 29 0d 28 53 4d 41 |(NUMBERP B).(SMA|
00001750 4c 4c 2d 54 49 4d 45 53 2d 42 49 47 20 42 20 41 |LL-TIMES-BIG B A|
00001760 29 29 0d 28 54 0d 28 42 49 47 2d 50 4c 55 53 0d |)).(T.(BIG-PLUS.|
00001770 28 53 4d 41 4c 4c 2d 54 49 4d 45 53 2d 42 49 47 |(SMALL-TIMES-BIG|
00001780 0d 28 43 41 52 20 42 29 0d 41 29 0d 28 43 4f 4e |.(CAR B).A).(CON|
00001790 53 0d 30 0d 28 42 49 47 2d 54 49 4d 45 53 0d 41 |S.0.(BIG-TIMES.A|
000017a0 0d 28 43 44 52 20 42 29 29 29 29 29 29 29 0d 29 |.(CDR B))))))).)|
000017b0 0d 0d 0d 28 20 53 45 54 51 20 42 49 47 2d 4e 55 |...( SETQ BIG-NU|
000017c0 4d 42 45 52 20 27 28 4c 41 4d 42 44 41 0d 28 4e |MBER '(LAMBDA.(N|
000017d0 29 0d 28 43 4f 4e 44 0d 28 28 4c 45 53 53 50 20 |).(COND.((LESSP |
000017e0 4e 20 31 30 30 29 20 4e 29 0d 28 54 0d 28 43 4f |N 100) N).(T.(CO|
000017f0 4e 53 0d 28 52 45 4d 41 49 4e 44 45 52 0d 4e 0d |NS.(REMAINDER.N.|
00001800 31 30 30 29 0d 28 42 49 47 2d 4e 55 4d 42 45 52 |100).(BIG-NUMBER|
00001810 0d 28 51 55 4f 54 49 45 4e 80 da 23 54 0d 4e 0d |.(QUOTIEN..#T.N.|
00001820 31 30 30 29 29 29 29 29 29 0d 29 0d 0d 0d 28 20 |100)))))).)...( |
00001830 53 45 54 51 20 4a 4f 49 4e 2d 44 49 47 49 54 20 |SETQ JOIN-DIGIT |
00001840 27 28 4c 41 4d 42 44 41 0d 28 4e 20 41 29 0d 28 |'(LAMBDA.(N A).(|
00001850 43 4f 4e 44 0d 28 28 4c 45 53 53 50 20 4e 20 31 |COND.((LESSP N 1|
00001860 30 30 29 0d 28 43 4f 4e 53 20 4e 20 41 29 29 0d |00).(CONS N A)).|
00001870 28 54 0d 28 43 4f 4e 53 0d 28 52 45 4d 41 49 4e |(T.(CONS.(REMAIN|
00001880 44 45 52 0d 4e 0d 31 30 30 29 0d 28 53 4d 41 4c |DER.N.100).(SMAL|
00001890 4c 2d 50 4c 55 53 2d 42 49 47 0d 28 51 55 4f 54 |L-PLUS-BIG.(QUOT|
000018a0 49 45 4e 54 0d 4e 0d 31 30 30 29 0d 41 29 29 29 |IENT.N.100).A)))|
000018b0 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 53 4d |)).)...( SETQ SM|
000018c0 41 4c 4c 2d 50 4c 55 53 2d 42 49 47 20 27 28 4c |ALL-PLUS-BIG '(L|
000018d0 41 4d 42 44 41 0d 28 41 20 42 29 0d 28 43 4f 4e |AMBDA.(A B).(CON|
000018e0 44 0d 28 28 4e 55 4d 42 45 52 50 20 42 29 0d 28 |D.((NUMBERP B).(|
000018f0 42 49 47 2d 4e 55 4d 42 45 52 0d 28 50 4c 55 53 |BIG-NUMBER.(PLUS|
00001900 20 41 20 42 29 29 29 0d 28 54 0d 28 4a 4f 49 4e | A B))).(T.(JOIN|
00001910 2d 44 49 47 49 54 0d 28 50 4c 55 53 f6 a5 23 20 |-DIGIT.(PLUS..# |
00001920 41 20 28 43 41 52 20 42 29 29 0d 28 43 44 52 20 |A (CAR B)).(CDR |
00001930 42 29 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 |B))))).)...( SET|
00001940 51 20 42 49 47 2d 50 4c 55 53 20 27 28 4c 41 4d |Q BIG-PLUS '(LAM|
00001950 42 44 41 0d 28 41 20 42 29 0d 28 43 4f 4e 44 0d |BDA.(A B).(COND.|
00001960 28 28 4e 55 4d 42 45 52 50 20 41 29 0d 28 53 4d |((NUMBERP A).(SM|
00001970 41 4c 4c 2d 50 4c 55 53 2d 42 49 47 20 41 20 42 |ALL-PLUS-BIG A B|
00001980 29 29 0d 28 28 4e 55 4d 42 45 52 50 20 42 29 0d |)).((NUMBERP B).|
00001990 28 53 4d 41 4c 4c 2d 50 4c 55 53 2d 42 49 47 20 |(SMALL-PLUS-BIG |
000019a0 42 20 41 29 29 0d 28 54 0d 28 4a 4f 49 4e 2d 44 |B A)).(T.(JOIN-D|
000019b0 49 47 49 54 0d 28 50 4c 55 53 0d 28 43 41 52 20 |IGIT.(PLUS.(CAR |
000019c0 41 29 0d 28 43 41 52 20 42 29 29 0d 28 42 49 47 |A).(CAR B)).(BIG|
000019d0 2d 50 4c 55 53 0d 28 43 44 52 20 41 29 0d 28 43 |-PLUS.(CDR A).(C|
000019e0 44 52 20 42 29 29 29 29 29 29 0d 29 0d 0d 0d 28 |DR B)))))).)...(|
000019f0 20 53 45 54 51 20 50 52 49 4e 54 2d 54 57 4f 2d | SETQ PRINT-TWO-|
00001a00 44 49 47 49 54 53 20 27 28 4c 41 4d 42 44 41 0d |DIGITS '(LAMBDA.|
00001a10 28 4e 29 0d 28 50 52 49 4e 43 20 28 51 55 4f 3b |(N).(PRINC (QUO;|
00001a20 cb 2a 42 49 47 00 00 00 00 00 00 00 00 00 06 00 |.*BIG...........|
00001a30 9e 00 80 d9 9a 00 00 5c 69 54 49 45 4e 54 20 4e |.......\iTIENT N|
00001a40 20 31 30 29 29 0d 28 50 52 49 4e 43 0d 28 52 45 | 10)).(PRINC.(RE|
00001a50 4d 41 49 4e 44 45 52 20 4e 20 31 30 29 29 29 0d |MAINDER N 10))).|
00001a60 29 0d 0d 0d 28 20 53 45 54 51 20 42 49 47 2d 50 |)...( SETQ BIG-P|
00001a70 52 49 4e 54 20 27 28 4c 41 4d 42 44 41 0d 28 4e |RINT '(LAMBDA.(N|
00001a80 29 0d 28 43 4f 4e 44 0d 28 28 4e 55 4d 42 45 52 |).(COND.((NUMBER|
00001a90 50 20 4e 29 20 28 50 52 49 4e 43 20 4e 29 29 0d |P N) (PRINC N)).|
00001aa0 28 54 0d 28 42 49 47 2d 50 52 49 4e 54 20 28 43 |(T.(BIG-PRINT (C|
00001ab0 44 52 20 4e 29 29 0d 28 50 52 49 4e 54 2d 54 57 |DR N)).(PRINT-TW|
00001ac0 4f 2d 44 49 47 49 54 53 0d 28 43 41 52 20 4e 29 |O-DIGITS.(CAR N)|
00001ad0 29 29 29 29 0d 29 0d 5a 94 2a 43 4f 44 45 47 45 |)))).).Z.*CODEGE|
00001ae0 4e 00 00 00 00 00 00 00 00 00 00 00 00 01 00 a1 |N...............|
00001af0 9c 00 00 ea 13 28 20 53 45 54 51 20 43 47 20 27 |.....( SETQ CG '|
00001b00 28 4c 41 4d 42 44 41 0d 28 58 29 0d 28 43 4f 4e |(LAMBDA.(X).(CON|
00001b10 44 0d 28 28 4e 55 4d 42 45 52 50 20 58 29 0d 28 |D.((NUMBERP X).(|
00001b20 50 52 49 4e 54 43 0d 28 51 55 4f 54 45 20 4c 44 |PRINTC.(QUOTE LD|
00001b30 41 29 0d 42 4c 41 4e 4b 0d 28 51 55 4f 54 45 20 |A).BLANK.(QUOTE |
00001b40 23 29 0d 42 4c 41 4e 4b 0d 58 29 29 0d 28 28 41 |#).BLANK.X)).((A|
00001b50 54 4f 4d 20 58 29 0d 28 50 52 49 4e 54 43 0d 28 |TOM X).(PRINTC.(|
00001b60 51 55 4f 54 45 20 4c 44 41 29 0d 42 4c 41 4e 4b |QUOTE LDA).BLANK|
00001b70 0d 58 29 29 0d 28 54 0d 28 43 47 20 28 43 41 44 |.X)).(T.(CG (CAD|
00001b80 52 20 58 29 29 0d 28 50 52 49 4e 54 43 20 28 51 |R X)).(PRINTC (Q|
00001b90 55 4f 54 45 20 50 48 41 29 29 0d 28 43 47 20 28 |UOTE PHA)).(CG (|
00001ba0 43 41 44 44 52 20 58 29 29 0d 28 50 52 49 4e 54 |CADDR X)).(PRINT|
00001bb0 43 0d 28 51 55 4f 54 45 20 53 54 41 29 0d 42 4c |C.(QUOTE STA).BL|
00001bc0 41 4e 4b 0d 28 51 55 4f 54 45 20 54 45 4d 50 29 |ANK.(QUOTE TEMP)|
00001bd0 29 0d 28 50 52 49 4e 54 43 20 28 51 55 4f 54 45 |).(PRINTC (QUOTE|
00001be0 20 50 4c 41 29 29 0d 28 50 52 49 4e 54 43 0d 28 | PLA)).(PRINTC.(|
00001bf0 47 45 54 0d 28 c2 5f 2a 43 4f 44 45 47 45 4e 00 |GET.(._*CODEGEN.|
00001c00 00 00 00 00 00 00 00 00 01 00 8c 00 80 a1 9c 00 |................|
00001c10 00 9f d2 43 41 52 20 58 29 0d 28 51 55 4f 54 45 |...CAR X).(QUOTE|
00001c20 20 4f 50 43 4f 44 45 29 29 0d 42 4c 41 4e 4b 0d | OPCODE)).BLANK.|
00001c30 28 51 55 4f 54 45 20 54 45 4d 50 29 29 29 29 29 |(QUOTE TEMP)))))|
00001c40 0d 29 0d 0d 28 50 55 54 20 27 2b 20 27 4f 50 43 |.)..(PUT '+ 'OPC|
00001c50 4f 44 45 20 27 41 44 43 29 0d 0d 28 50 55 54 20 |ODE 'ADC)..(PUT |
00001c60 27 2d 20 27 4f 50 43 4f 44 45 20 27 53 42 43 29 |'- 'OPCODE 'SBC)|
00001c70 0d 0d 28 50 55 54 20 27 26 20 27 4f 50 43 4f 44 |..(PUT '& 'OPCOD|
00001c80 45 20 27 41 4e 44 29 0d 0d 28 50 55 54 20 27 7c |E 'AND)..(PUT '||
00001c90 20 27 4f 50 43 4f 44 45 20 27 4f 52 41 29 0d cc | 'OPCODE 'ORA)..|
00001ca0 b9 2a 47 52 41 50 48 00 00 00 00 00 00 00 00 00 |.*GRAPH.........|
00001cb0 00 00 00 01 00 d5 a6 00 00 4e 4a 28 20 53 45 54 |.........NJ( SET|
00001cc0 51 20 53 50 49 44 45 52 20 27 28 4c 41 4d 42 44 |Q SPIDER '(LAMBD|
00001cd0 41 0d 28 4e 29 0d 28 43 4f 4e 44 0d 28 28 4d 49 |A.(N).(COND.((MI|
00001ce0 4e 55 53 50 20 4e 29 20 4e 49 4c 29 0d 28 54 0d |NUSP N) NIL).(T.|
00001cf0 28 41 44 44 0d 28 43 49 52 43 4c 45 20 4e 29 0d |(ADD.(CIRCLE N).|
00001d00 28 53 50 49 44 45 52 0d 28 44 49 46 46 45 52 45 |(SPIDER.(DIFFERE|
00001d10 4e 43 45 0d 4e 0d 32 30 29 29 29 29 29 29 0d 29 |NCE.N.20)))))).)|
00001d20 0d 0d 0d 28 20 53 45 54 51 20 42 4c 41 43 4b 20 |...( SETQ BLACK |
00001d30 27 28 4c 41 4d 42 44 41 20 28 58 29 20 28 43 4f |'(LAMBDA (X) (CO|
00001d40 4c 4f 55 52 20 58 20 30 29 29 0d 29 0d 0d 0d 28 |LOUR X 0)).)...(|
00001d50 20 53 45 54 51 20 52 45 44 20 27 28 4c 41 4d 42 | SETQ RED '(LAMB|
00001d60 44 41 20 28 58 29 20 28 43 4f 4c 4f 55 52 20 58 |DA (X) (COLOUR X|
00001d70 20 31 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 | 1)).)...( SETQ |
00001d80 59 45 4c 4c 4f 57 20 27 28 4c 41 4d 42 44 41 20 |YELLOW '(LAMBDA |
00001d90 28 58 29 20 28 43 4f 4c 4f 55 52 20 58 20 32 29 |(X) (COLOUR X 2)|
00001da0 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 57 48 49 |).)...( SETQ WHI|
00001db0 54 45 20 27 28 4c 41 4d 42 44 41 31 73 23 20 28 |TE '(LAMBDA1s# (|
00001dc0 58 29 20 28 43 4f 4c 4f 55 52 20 58 20 33 29 29 |X) (COLOUR X 3))|
00001dd0 0d 29 0d 0d 0d 28 20 53 45 54 51 20 4d 4b 50 49 |.)...( SETQ MKPI|
00001de0 43 20 27 28 4c 41 4d 42 44 41 0d 28 58 29 0d 28 |C '(LAMBDA.(X).(|
00001df0 43 4f 4e 53 20 28 51 55 4f 54 45 20 50 49 43 29 |CONS (QUOTE PIC)|
00001e00 20 58 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 | X)).)...( SETQ |
00001e10 41 44 44 20 27 28 4c 41 4d 42 44 41 0d 28 41 20 |ADD '(LAMBDA.(A |
00001e20 42 29 0d 28 43 4f 4e 44 0d 28 28 50 49 43 50 20 |B).(COND.((PICP |
00001e30 41 29 0d 28 43 4f 4e 44 0d 28 28 50 49 43 50 20 |A).(COND.((PICP |
00001e40 42 29 0d 28 4d 4b 50 49 43 0d 28 4c 49 53 54 0d |B).(MKPIC.(LIST.|
00001e50 28 51 55 4f 54 45 0d 41 44 44 29 0d 28 43 44 52 |(QUOTE.ADD).(CDR|
00001e60 20 41 29 0d 28 43 44 52 20 42 29 29 29 29 0d 28 | A).(CDR B)))).(|
00001e70 54 20 41 29 29 29 0d 28 28 50 49 43 50 20 42 29 |T A))).((PICP B)|
00001e80 20 42 29 0d 28 54 20 28 4c 49 53 54 20 41 20 42 | B).(T (LIST A B|
00001e90 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 |)))).)...( SETQ |
00001ea0 43 4f 4c 4f 55 52 20 27 28 4c 41 4d 42 44 41 0d |COLOUR '(LAMBDA.|
00001eb0 28 58 20 4e 29 0d 28 43 4f 4e 44 0d 28 28 27 32 |(X N).(COND.(('2|
00001ec0 23 50 49 43 50 20 58 29 0d 28 4d 4b 50 49 43 0d |#PICP X).(MKPIC.|
00001ed0 28 4c 49 53 54 0d 28 51 55 4f 54 45 20 43 4f 4c |(LIST.(QUOTE COL|
00001ee0 4f 55 52 29 0d 28 43 44 52 20 58 29 0d 4e 29 29 |OUR).(CDR X).N))|
00001ef0 29 0d 28 54 20 58 29 29 29 0d 29 0d 0d 0d 28 20 |).(T X))).)...( |
00001f00 53 45 54 51 20 53 48 49 46 54 20 27 28 4c 41 4d |SETQ SHIFT '(LAM|
00001f10 42 44 41 0d 28 50 20 58 20 59 29 0d 28 43 4f 4e |BDA.(P X Y).(CON|
00001f20 44 0d 28 28 50 49 43 50 20 50 29 0d 28 4d 4b 50 |D.((PICP P).(MKP|
00001f30 49 43 0d 28 4c 49 53 54 0d 28 51 55 4f 54 45 20 |IC.(LIST.(QUOTE |
00001f40 53 48 49 46 54 29 0d 28 43 44 52 20 50 29 0d 58 |SHIFT).(CDR P).X|
00001f50 0d 59 29 29 29 0d 28 54 20 50 29 29 29 0d 29 0d |.Y))).(T P))).).|
00001f60 0d 0d 28 20 53 45 54 51 20 43 49 52 43 4c 45 20 |..( SETQ CIRCLE |
00001f70 27 28 4c 41 4d 42 44 41 0d 28 41 29 0d 28 4d 4b |'(LAMBDA.(A).(MK|
00001f80 50 49 43 0d 28 4c 49 53 54 20 28 51 55 4f 54 45 |PIC.(LIST (QUOTE|
00001f90 20 43 49 52 43 4c 45 29 20 41 29 29 29 0d 29 0d | CIRCLE) A))).).|
00001fa0 0d 0d 28 20 53 45 54 51 20 50 4c 4f 54 20 27 28 |..( SETQ PLOT '(|
00001fb0 4c 41 4d 42 44 41 0d 28 4e 20 58 20 59 29 0d 28 |LAMBDA.(N X Y).(|
00001fc0 56 d2 7b 23 44 55 0d 32 35 0d 4e 0d 28 52 45 4d |V.{#DU.25.N.(REM|
00001fd0 41 49 4e 44 45 52 0d 28 53 45 54 51 0d 58 0d 28 |AINDER.(SETQ.X.(|
00001fe0 50 4c 55 53 20 58 20 31 36 33 38 34 29 29 0d 32 |PLUS X 16384)).2|
00001ff0 35 36 29 0d 28 44 49 46 46 45 52 45 4e 43 45 0d |56).(DIFFERENCE.|
00002000 28 51 55 4f 54 49 45 4e 54 20 58 20 32 35 36 29 |(QUOTIENT X 256)|
00002010 0d 36 34 29 0d 28 52 45 4d 41 49 4e 44 45 52 0d |.64).(REMAINDER.|
00002020 28 53 45 54 51 0d 59 0d 28 50 4c 55 53 20 59 20 |(SETQ.Y.(PLUS Y |
00002030 31 36 33 38 34 29 29 0d 32 35 36 29 0d 28 44 49 |16384)).256).(DI|
00002040 46 46 45 52 45 4e 43 45 0d 28 51 55 4f 54 49 45 |FFERENCE.(QUOTIE|
00002050 4e 54 20 59 20 32 35 36 29 0d 36 34 29 29 29 0d |NT Y 256).64))).|
00002060 29 0d 0d 0d 28 20 53 45 54 51 20 42 4f 58 20 27 |)...( SETQ BOX '|
00002070 28 4c 41 4d 42 44 41 0d 28 41 20 42 29 0d 28 4d |(LAMBDA.(A B).(M|
00002080 4b 50 49 43 0d 28 4c 49 53 54 20 28 51 55 4f 54 |KPIC.(LIST (QUOT|
00002090 45 20 42 4f 58 29 20 41 20 42 29 29 29 0d 29 0d |E BOX) A B))).).|
000020a0 0d 0d 28 20 53 45 54 51 20 44 52 41 57 20 27 28 |..( SETQ DRAW '(|
000020b0 4c 41 4d 42 44 41 0d 28 58 29 0d 28 43 4f 4e 44 |LAMBDA.(X).(COND|
000020c0 0d 28 28 41 24 ab 23 54 4f 4d 20 58 29 20 4e 49 |.((A$.#TOM X) NI|
000020d0 4c 29 0d 28 54 0d 28 28 47 45 54 0d 28 43 41 52 |L).(T.((GET.(CAR|
000020e0 20 58 29 0d 28 51 55 4f 54 45 20 44 52 41 57 29 | X).(QUOTE DRAW)|
000020f0 29 0d 28 43 44 52 20 58 29 29 29 29 29 0d 29 0d |).(CDR X))))).).|
00002100 0d 0d 28 20 53 45 54 51 20 43 4c 45 41 52 2d 53 |..( SETQ CLEAR-S|
00002110 43 52 45 45 4e 20 27 28 4c 41 4d 42 44 41 0d 4e |CREEN '(LAMBDA.N|
00002120 49 4c 0d 28 56 44 55 0d 31 38 0d 30 0d 37 0d 31 |IL.(VDU.18.0.7.1|
00002130 38 0d 30 0d 31 32 38 0d 31 36 0d 32 35 0d 34 0d |8.0.128.16.25.4.|
00002140 30 0d 32 0d 30 0d 32 29 29 0d 29 0d 0d 0d 28 20 |0.2.0.2)).)...( |
00002150 53 45 54 51 20 50 49 43 50 20 27 28 4c 41 4d 42 |SETQ PICP '(LAMB|
00002160 44 41 0d 28 58 29 0d 28 41 4e 44 0d 28 4e 4f 54 |DA.(X).(AND.(NOT|
00002170 20 28 41 54 4f 4d 20 58 29 29 0d 28 45 51 20 28 | (ATOM X)).(EQ (|
00002180 43 41 52 20 58 29 20 28 51 55 4f 54 45 20 50 49 |CAR X) (QUOTE PI|
00002190 43 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 |C)))).)...( SETQ|
000021a0 20 47 50 52 49 4e 54 20 27 28 4c 41 4d 42 44 41 | GPRINT '(LAMBDA|
000021b0 0d 28 58 29 0d 28 43 4f 4e 44 0d 28 28 50 49 43 |.(X).(COND.((PIC|
000021c0 50 20 58 29 0d 28 43 9c 00 23 4c 45 41 52 2d 53 |P X).(C..#LEAR-S|
000021d0 43 52 45 45 4e 29 0d 28 44 52 41 57 20 28 43 44 |CREEN).(DRAW (CD|
000021e0 52 20 58 29 29 29 0d 28 54 20 28 50 52 49 4e 54 |R X))).(T (PRINT|
000021f0 20 58 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 | X)))).)...( SET|
00002200 51 20 47 53 55 50 45 52 20 27 28 4c 41 4d 42 44 |Q GSUPER '(LAMBD|
00002210 41 0d 28 28 55 29 29 0d 28 53 45 54 2d 47 52 41 |A.((U)).(SET-GRA|
00002220 50 48 49 43 53 29 0d 28 4c 4f 4f 50 0d 28 4c 4f |PHICS).(LOOP.(LO|
00002230 4f 50 0d 28 4c 4f 4f 50 0d 28 50 52 49 4e 54 0d |OP.(LOOP.(PRINT.|
00002240 28 51 55 4f 54 45 20 45 76 61 6c 3a 29 29 0d 28 |(QUOTE Eval:)).(|
00002250 53 45 54 51 0d 55 0d 28 45 52 52 4f 52 53 45 54 |SETQ.U.(ERRORSET|
00002260 0d 28 52 45 41 44 29 29 29 0d 28 57 48 49 4c 45 |.(READ))).(WHILE|
00002270 20 28 41 54 4f 4d 20 55 29 29 29 0d 28 53 45 54 | (ATOM U))).(SET|
00002280 51 0d 55 0d 28 45 52 52 4f 52 53 45 54 0d 28 45 |Q.U.(ERRORSET.(E|
00002290 56 41 4c 20 28 43 41 52 20 55 29 29 29 29 0d 28 |VAL (CAR U)))).(|
000022a0 57 48 49 4c 45 20 28 41 54 4f 4d 20 55 29 29 29 |WHILE (ATOM U)))|
000022b0 0d 28 55 4e 54 49 4c 0d 28 45 51 0d 28 53 45 54 |.(UNTIL.(EQ.(SET|
000022c0 51 20 55 20 28 43 41 52 20 55 e5 72 23 29 29 0d |Q U (CAR U.r#)).|
000022d0 28 51 55 4f 54 45 20 46 49 4e 29 29 29 0d 28 45 |(QUOTE FIN))).(E|
000022e0 52 52 4f 52 53 45 54 20 28 47 50 52 49 4e 54 20 |RRORSET (GPRINT |
000022f0 55 29 29 29 0d 28 45 4e 44 2d 47 52 41 50 48 49 |U))).(END-GRAPHI|
00002300 43 53 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 |CS)).)...( SETQ |
00002310 45 4e 44 2d 47 52 41 50 48 49 43 53 20 27 28 4c |END-GRAPHICS '(L|
00002320 41 4d 42 44 41 0d 4e 49 4c 0d 28 56 44 55 20 32 |AMBDA.NIL.(VDU 2|
00002330 32 20 34 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 |2 4)).)...( SETQ|
00002340 20 53 45 54 2d 47 52 41 50 48 49 43 53 20 27 28 | SET-GRAPHICS '(|
00002350 4c 41 4d 42 44 41 0d 4e 49 4c 0d 28 56 44 55 0d |LAMBDA.NIL.(VDU.|
00002360 32 32 0d 35 0d 32 38 0d 30 0d 35 0d 31 39 0d 30 |22.5.28.0.5.19.0|
00002370 29 29 0d 29 0d 0d 28 50 55 54 20 27 42 4f 58 20 |)).)..(PUT 'BOX |
00002380 27 44 52 41 57 0d 27 28 4c 41 4d 42 44 41 20 28 |'DRAW.'(LAMBDA (|
00002390 58 20 28 59 29 29 0d 28 53 45 54 51 20 59 20 28 |X (Y)).(SETQ Y (|
000023a0 43 41 44 52 20 58 29 29 0d 28 53 45 54 51 20 58 |CADR X)).(SETQ X|
000023b0 20 28 43 41 52 20 58 29 29 0d 28 50 4c 4f 54 20 | (CAR X)).(PLOT |
000023c0 30 20 28 4d 49 4e 55 53 20 28 51 55 4f ec 53 23 |0 (MINUS (QUO.S#|
000023d0 54 49 45 4e 54 20 58 20 32 29 29 0d 28 4d 49 4e |TIENT X 2)).(MIN|
000023e0 55 53 20 28 51 55 4f 54 49 45 4e 54 20 59 20 32 |US (QUOTIENT Y 2|
000023f0 29 29 29 0d 28 50 4c 4f 54 20 31 20 58 20 30 29 |))).(PLOT 1 X 0)|
00002400 0d 28 50 4c 4f 54 20 31 20 30 20 59 29 0d 28 50 |.(PLOT 1 0 Y).(P|
00002410 4c 4f 54 20 31 20 28 4d 49 4e 55 53 20 58 29 20 |LOT 1 (MINUS X) |
00002420 30 29 0d 28 50 4c 4f 54 20 31 20 30 20 28 4d 49 |0).(PLOT 1 0 (MI|
00002430 4e 55 53 20 59 29 29 0d 28 50 4c 4f 54 20 30 20 |NUS Y)).(PLOT 0 |
00002440 28 51 55 4f 54 49 45 4e 54 20 58 20 32 29 20 28 |(QUOTIENT X 2) (|
00002450 51 55 4f 54 49 45 4e 54 20 59 20 32 29 29 29 29 |QUOTIENT Y 2))))|
00002460 0d 0d 28 50 55 54 20 27 41 44 44 20 27 44 52 41 |..(PUT 'ADD 'DRA|
00002470 57 20 27 28 4c 41 4d 42 44 41 20 28 41 29 0d 28 |W '(LAMBDA (A).(|
00002480 4c 4f 4f 50 20 28 57 48 49 4c 45 20 41 29 20 28 |LOOP (WHILE A) (|
00002490 44 52 41 57 20 28 43 41 52 20 41 29 29 20 28 53 |DRAW (CAR A)) (S|
000024a0 45 54 51 20 41 20 28 43 44 52 20 41 29 29 29 29 |ETQ A (CDR A))))|
000024b0 29 0d 0d 28 50 55 54 20 27 53 48 49 46 54 20 27 |)..(PUT 'SHIFT '|
000024c0 44 52 41 57 0d 27 28 4c 41 4d 42 44 41 20 28 41 |DRAW.'(LAMBDA (A|
000024d0 41 56 23 29 0d 28 50 4c 4f 54 20 30 20 28 43 41 |AV#).(PLOT 0 (CA|
000024e0 44 52 20 41 29 20 28 43 41 44 44 52 20 41 29 29 |DR A) (CADDR A))|
000024f0 0d 28 44 52 41 57 20 28 43 41 52 20 41 29 29 0d |.(DRAW (CAR A)).|
00002500 28 50 4c 4f 54 20 30 20 28 4d 49 4e 55 53 20 28 |(PLOT 0 (MINUS (|
00002510 43 41 44 52 20 41 29 29 20 28 4d 49 4e 55 53 20 |CADR A)) (MINUS |
00002520 28 43 41 44 44 52 20 41 29 29 29 29 29 0d 0d 28 |(CADDR A)))))..(|
00002530 50 55 54 20 27 43 49 52 43 4c 45 20 27 44 52 41 |PUT 'CIRCLE 'DRA|
00002540 57 0d 27 28 4c 41 4d 42 44 41 20 28 58 20 28 57 |W.'(LAMBDA (X (W|
00002550 29 20 28 5a 29 29 0d 28 53 45 54 51 20 58 20 28 |) (Z)).(SETQ X (|
00002560 43 41 52 20 58 29 29 0d 28 53 45 54 51 20 57 20 |CAR X)).(SETQ W |
00002570 28 51 55 4f 54 49 45 4e 54 20 28 54 49 4d 45 53 |(QUOTIENT (TIMES|
00002580 20 58 20 37 29 20 31 30 29 29 0d 28 53 45 54 51 | X 7) 10)).(SETQ|
00002590 20 5a 20 28 44 49 46 46 45 52 45 4e 43 45 20 58 | Z (DIFFERENCE X|
000025a0 20 57 29 29 0d 28 50 4c 4f 54 20 30 20 58 20 30 | W)).(PLOT 0 X 0|
000025b0 29 0d 28 50 4c 4f 54 20 31 20 28 4d 49 4e 55 53 |).(PLOT 1 (MINUS|
000025c0 20 5a 29 20 57 29 0d 28 50 4c 4f 54 20 31 20 28 | Z) W).(PLOT 1 (|
000025d0 4d 49 4e 93 09 2a 47 52 41 50 48 00 00 00 00 00 |MIN..*GRAPH.....|
000025e0 00 00 00 00 09 00 e4 00 80 d5 a6 00 00 32 c3 55 |.............2.U|
000025f0 53 20 57 29 20 5a 29 0d 28 50 4c 4f 54 20 31 20 |S W) Z).(PLOT 1 |
00002600 28 4d 49 4e 55 53 20 57 29 20 28 4d 49 4e 55 53 |(MINUS W) (MINUS|
00002610 20 5a 29 29 0d 28 50 4c 4f 54 20 31 20 28 4d 49 | Z)).(PLOT 1 (MI|
00002620 4e 55 53 20 5a 29 20 28 4d 49 4e 55 53 20 57 29 |NUS Z) (MINUS W)|
00002630 29 0d 28 50 4c 4f 54 20 31 20 5a 20 28 4d 49 4e |).(PLOT 1 Z (MIN|
00002640 55 53 20 57 29 29 0d 28 50 4c 4f 54 20 31 20 57 |US W)).(PLOT 1 W|
00002650 20 28 4d 49 4e 55 53 20 5a 29 29 0d 28 50 4c 4f | (MINUS Z)).(PLO|
00002660 54 20 31 20 57 20 5a 29 0d 28 50 4c 4f 54 20 31 |T 1 W Z).(PLOT 1|
00002670 20 5a 20 57 29 0d 28 50 4c 4f 54 20 30 20 28 4d | Z W).(PLOT 0 (M|
00002680 49 4e 55 53 20 58 29 20 30 29 29 29 0d 0d 28 50 |INUS X) 0)))..(P|
00002690 55 54 20 27 43 4f 4c 4f 55 52 20 27 44 52 41 57 |UT 'COLOUR 'DRAW|
000026a0 0d 27 28 4c 41 4d 42 44 41 20 28 58 29 20 28 56 |.'(LAMBDA (X) (V|
000026b0 44 55 20 31 38 20 30 20 28 43 41 44 52 20 58 29 |DU 18 0 (CADR X)|
000026c0 29 20 28 44 52 41 57 20 28 43 41 52 20 58 29 29 |) (DRAW (CAR X))|
000026d0 29 29 0d bb 45 2a 50 41 52 53 45 52 00 00 00 00 |))..E*PARSER....|
000026e0 00 00 00 00 00 00 00 00 01 00 a5 a9 00 00 8e 7b |...............{|
000026f0 28 20 53 45 54 51 20 50 41 52 53 45 52 20 27 0d |( SETQ PARSER '.|
00002700 28 4c 41 4d 42 44 41 0d 28 28 43 55 52 53 59 4d |(LAMBDA.((CURSYM|
00002710 29 29 0d 28 4e 45 58 54 53 59 4d 29 0d 28 45 58 |)).(NEXTSYM).(EX|
00002720 50 52 45 53 53 49 4f 4e 29 29 29 0d 0d 0d 28 20 |PRESSION)))...( |
00002730 53 45 54 51 20 46 41 43 54 4f 52 20 27 0d 28 4c |SETQ FACTOR '.(L|
00002740 41 4d 42 44 41 0d 28 28 54 52 45 45 29 29 0d 28 |AMBDA.((TREE)).(|
00002750 43 4f 4e 44 0d 28 28 45 51 20 43 55 52 53 59 4d |COND.((EQ CURSYM|
00002760 20 4c 50 41 52 29 0d 28 4e 45 58 54 53 59 4d 29 | LPAR).(NEXTSYM)|
00002770 0d 28 53 45 54 51 0d 54 52 45 45 0d 28 45 58 50 |.(SETQ.TREE.(EXP|
00002780 52 45 53 53 49 4f 4e 29 29 0d 28 4e 45 58 54 53 |RESSION)).(NEXTS|
00002790 59 4d 29 0d 54 52 45 45 29 0d 28 54 20 28 4e 45 |YM).TREE).(T (NE|
000027a0 58 54 53 59 4d 29 29 29 29 29 0d 0d 0d 28 20 53 |XTSYM)))))...( S|
000027b0 45 54 51 20 4e 45 58 54 53 59 4d 20 27 0d 28 4c |ETQ NEXTSYM '.(L|
000027c0 41 4d 42 44 41 0d 28 28 50 52 45 56 29 29 0d 28 |AMBDA.((PREV)).(|
000027d0 53 45 54 51 20 50 52 45 56 20 43 55 52 53 59 4d |SETQ PREV CURSYM|
000027e0 29 0d 28 4c 4f 4f 50 0d 28 53 45 54 51 20 43 55 |).(LOOP.(SETQ CU|
000027f0 49 ea 23 52 53 59 4d 20 28 47 45 54 43 48 41 52 |I.#RSYM (GETCHAR|
00002800 29 29 0d 28 50 52 49 4e 43 20 43 55 52 53 59 4d |)).(PRINC CURSYM|
00002810 29 0d 28 57 48 49 4c 45 0d 28 45 51 20 43 55 52 |).(WHILE.(EQ CUR|
00002820 53 59 4d 20 42 4c 41 4e 4b 29 0d 50 52 45 56 29 |SYM BLANK).PREV)|
00002830 29 29 29 0d 0d 0d 28 20 53 45 54 51 20 54 45 52 |)))...( SETQ TER|
00002840 4d 20 27 0d 28 4c 41 4d 42 44 41 0d 28 28 54 52 |M '.(LAMBDA.((TR|
00002850 45 45 29 29 0d 28 53 45 54 51 20 54 52 45 45 20 |EE)).(SETQ TREE |
00002860 28 46 41 43 54 4f 52 29 29 0d 28 4c 4f 4f 50 0d |(FACTOR)).(LOOP.|
00002870 28 57 48 49 4c 45 0d 28 4f 52 0d 28 45 51 0d 43 |(WHILE.(OR.(EQ.C|
00002880 55 52 53 59 4d 0d 28 51 55 4f 54 45 20 2a 29 29 |URSYM.(QUOTE *))|
00002890 0d 28 45 51 0d 43 55 52 53 59 4d 0d 28 51 55 4f |.(EQ.CURSYM.(QUO|
000028a0 54 45 20 2f 29 29 29 0d 54 52 45 45 29 0d 28 53 |TE /))).TREE).(S|
000028b0 45 54 51 0d 54 52 45 45 0d 28 4c 49 53 54 0d 28 |ETQ.TREE.(LIST.(|
000028c0 4e 45 58 54 53 59 4d 29 0d 54 52 45 45 0d 28 46 |NEXTSYM).TREE.(F|
000028d0 41 43 54 4f 52 29 29 29 29 29 29 0d 0d 0d 28 20 |ACTOR))))))...( |
000028e0 53 45 54 51 20 45 58 50 52 45 53 53 49 4f 4e 20 |SETQ EXPRESSION |
000028f0 27 0d 28 35 8a 2a 50 41 52 53 45 52 00 00 00 00 |'.(5.*PARSER....|
00002900 00 00 00 00 00 02 00 93 00 80 a5 a9 00 00 6b 6c |..............kl|
00002910 4c 41 4d 42 44 41 0d 28 28 54 52 45 45 29 29 0d |LAMBDA.((TREE)).|
00002920 28 53 45 54 51 20 54 52 45 45 20 28 54 45 52 4d |(SETQ TREE (TERM|
00002930 29 29 0d 28 4c 4f 4f 50 0d 28 57 48 49 4c 45 0d |)).(LOOP.(WHILE.|
00002940 28 4f 52 0d 28 45 51 0d 43 55 52 53 59 4d 0d 28 |(OR.(EQ.CURSYM.(|
00002950 51 55 4f 54 45 20 2b 29 29 0d 28 45 51 0d 43 55 |QUOTE +)).(EQ.CU|
00002960 52 53 59 4d 0d 28 51 55 4f 54 45 20 2d 29 29 29 |RSYM.(QUOTE -)))|
00002970 0d 54 52 45 45 29 0d 28 53 45 54 51 0d 54 52 45 |.TREE).(SETQ.TRE|
00002980 45 0d 28 4c 49 53 54 0d 28 4e 45 58 54 53 59 4d |E.(LIST.(NEXTSYM|
00002990 29 0d 54 52 45 45 0d 28 54 45 52 4d 29 29 29 29 |).TREE.(TERM))))|
000029a0 29 29 0d 1e be 2a 50 52 45 54 54 59 00 00 00 00 |))...*PRETTY....|
000029b0 00 00 00 00 00 00 00 00 01 00 69 b1 00 00 1e 75 |..........i....u|
000029c0 28 20 53 45 54 51 20 53 55 50 45 52 2d 53 55 42 |( SETQ SUPER-SUB|
000029d0 20 27 28 4c 41 4d 42 44 41 0d 28 58 0d 4c 45 46 | '(LAMBDA.(X.LEF|
000029e0 54 4d 41 52 47 49 4e 0d 28 53 45 50 43 48 41 52 |TMARGIN.(SEPCHAR|
000029f0 29 0d 28 53 50 45 43 49 41 4c 29 29 0d 28 43 4f |).(SPECIAL)).(CO|
00002a00 4e 44 0d 28 28 43 48 41 52 50 20 28 43 41 52 20 |ND.((CHARP (CAR |
00002a10 58 29 29 0d 28 53 45 54 51 0d 53 50 45 43 49 41 |X)).(SETQ.SPECIA|
00002a20 4c 0d 28 47 45 54 0d 28 43 41 52 20 58 29 0d 28 |L.(GET.(CAR X).(|
00002a30 51 55 4f 54 45 20 53 50 45 43 49 41 4c 29 29 29 |QUOTE SPECIAL)))|
00002a40 29 29 0d 28 4c 4f 4f 50 0d 28 55 4e 54 49 4c 0d |)).(LOOP.(UNTIL.|
00002a50 28 4e 55 4c 4c 20 58 29 0d 28 50 52 49 4e 43 20 |(NULL X).(PRINC |
00002a60 52 50 41 52 29 29 0d 28 55 4e 54 49 4c 0d 28 41 |RPAR)).(UNTIL.(A|
00002a70 54 4f 4d 20 58 29 0d 28 50 52 49 4e 43 0d 42 4c |TOM X).(PRINC.BL|
00002a80 41 4e 4b 0d 50 45 52 49 4f 44 0d 42 4c 41 4e 4b |ANK.PERIOD.BLANK|
00002a90 0d 58 0d 52 50 41 52 29 29 0d 28 43 4f 4e 44 0d |.X.RPAR)).(COND.|
00002aa0 28 28 4e 55 4c 4c 20 53 45 50 43 48 41 52 29 0d |((NULL SEPCHAR).|
00002ab0 28 50 52 49 4e 43 20 4c 50 41 52 29 0d 28 53 45 |(PRINC LPAR).(SE|
00002ac0 74 66 23 54 51 20 53 45 50 43 48 41 52 20 54 29 |tf#TQ SEPCHAR T)|
00002ad0 29 0d 28 53 50 45 43 49 41 4c 0d 28 50 52 49 4e |).(SPECIAL.(PRIN|
00002ae0 43 20 42 4c 41 4e 4b 29 0d 28 43 4f 4e 44 0d 28 |C BLANK).(COND.(|
00002af0 28 4d 49 4e 55 53 50 0d 28 53 45 54 51 0d 53 50 |(MINUSP.(SETQ.SP|
00002b00 45 43 49 41 4c 0d 28 53 55 42 31 0d 53 50 45 43 |ECIAL.(SUB1.SPEC|
00002b10 49 41 4c 29 29 29 0d 28 53 45 54 51 0d 53 50 45 |IAL))).(SETQ.SPE|
00002b20 43 49 41 4c 0d 4e 49 4c 29 29 29 29 0d 28 28 4e |CIAL.NIL)))).((N|
00002b30 55 4c 4c 20 53 55 50 45 52 29 0d 28 50 52 49 4e |ULL SUPER).(PRIN|
00002b40 43 20 42 4c 41 4e 4b 29 29 0d 28 54 0d 28 50 52 |C BLANK)).(T.(PR|
00002b50 49 4e 54 29 0d 28 53 50 41 43 45 53 0d 4c 45 46 |INT).(SPACES.LEF|
00002b60 54 4d 41 52 47 49 4e 29 29 29 0d 28 53 55 50 45 |TMARGIN))).(SUPE|
00002b70 52 50 52 49 4e 0d 28 43 41 52 20 58 29 0d 4c 45 |RPRIN.(CAR X).LE|
00002b80 46 54 4d 41 52 47 49 4e 29 0d 28 53 45 54 51 20 |FTMARGIN).(SETQ |
00002b90 58 20 28 43 44 52 20 58 29 29 29 29 0d 29 0d 0d |X (CDR X)))).)..|
00002ba0 0d 28 20 53 45 54 51 20 53 55 50 45 52 50 52 49 |.( SETQ SUPERPRI|
00002bb0 4e 20 27 28 4c 41 4d 42 44 41 0d 28 58 20 4c 45 |N '(LAMBDA.(X LE|
00002bc0 46 54 4d 52 04 23 41 52 47 49 4e 20 28 53 55 50 |FTMR.#ARGIN (SUP|
00002bd0 45 52 29 29 0d 28 43 4f 4e 44 0d 28 28 41 54 4f |ER)).(COND.((ATO|
00002be0 4d 20 58 29 20 28 50 52 49 4e 20 58 29 29 0d 28 |M X) (PRIN X)).(|
00002bf0 28 51 55 4f 54 45 50 20 58 29 0d 28 50 52 49 4e |(QUOTEP X).(PRIN|
00002c00 43 0d 28 43 48 41 52 41 43 54 45 52 20 33 39 29 |C.(CHARACTER 39)|
00002c10 29 0d 28 53 55 50 45 52 50 52 49 4e 0d 28 43 41 |).(SUPERPRIN.(CA|
00002c20 44 52 20 58 29 0d 28 41 44 44 31 20 4c 45 46 54 |DR X).(ADD1 LEFT|
00002c30 4d 41 52 47 49 4e 29 29 29 0d 28 28 57 49 4c 4c |MARGIN))).((WILL|
00002c40 2d 46 49 54 0d 58 0d 28 44 49 46 46 45 52 45 4e |-FIT.X.(DIFFEREN|
00002c50 43 45 0d 4c 49 4e 45 4c 45 4e 47 54 48 0d 4c 45 |CE.LINELENGTH.LE|
00002c60 46 54 4d 41 52 47 49 4e 29 29 0d 28 53 55 50 45 |FTMARGIN)).(SUPE|
00002c70 52 2d 53 55 42 0d 58 0d 28 50 4c 55 53 0d 4c 45 |R-SUB.X.(PLUS.LE|
00002c80 46 54 4d 41 52 47 49 4e 0d 33 29 29 29 0d 28 54 |FTMARGIN.3))).(T|
00002c90 0d 28 53 45 54 51 20 53 55 50 45 52 20 54 29 0d |.(SETQ SUPER T).|
00002ca0 28 53 55 50 45 52 2d 53 55 42 0d 58 0d 28 50 4c |(SUPER-SUB.X.(PL|
00002cb0 55 53 0d 4c 45 46 54 4d 41 52 47 49 4e 0d 33 29 |US.LEFTMARGIN.3)|
00002cc0 29 29 29 29 0d 29 5c 04 23 0d 0d 0d 28 20 53 45 |)))).)\.#...( SE|
00002cd0 54 51 20 53 55 50 45 52 50 52 49 4e 54 20 27 28 |TQ SUPERPRINT '(|
00002ce0 4c 41 4d 42 44 41 0d 28 58 20 28 4c 45 46 54 4d |LAMBDA.(X (LEFTM|
00002cf0 41 52 47 49 4e 20 2e 20 30 29 29 0d 28 53 55 50 |ARGIN . 0)).(SUP|
00002d00 45 52 50 52 49 4e 20 58 20 4c 45 46 54 4d 41 52 |ERPRIN X LEFTMAR|
00002d10 47 49 4e 29 0d 28 50 52 49 4e 54 29 0d 58 29 0d |GIN).(PRINT).X).|
00002d20 29 0d 0d 0d 28 20 53 45 54 51 20 4c 49 4e 45 4c |)...( SETQ LINEL|
00002d30 45 4e 47 54 48 20 27 36 30 0d 29 0d 0d 0d 28 20 |ENGTH '60.)...( |
00002d40 53 45 54 51 20 53 50 41 43 45 53 20 27 28 4c 41 |SETQ SPACES '(LA|
00002d50 4d 42 44 41 0d 28 4e 29 0d 28 4c 4f 4f 50 0d 28 |MBDA.(N).(LOOP.(|
00002d60 55 4e 54 49 4c 0d 28 4d 49 4e 55 53 50 0d 28 53 |UNTIL.(MINUSP.(S|
00002d70 45 54 51 20 4e 20 28 53 55 42 31 20 4e 29 29 29 |ETQ N (SUB1 N)))|
00002d80 29 0d 28 50 52 49 4e 43 20 42 4c 41 4e 4b 29 29 |).(PRINC BLANK))|
00002d90 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 57 49 4c |).)...( SETQ WIL|
00002da0 4c 2d 46 49 54 20 27 28 4c 41 4d 42 44 41 0d 28 |L-FIT '(LAMBDA.(|
00002db0 58 20 57 29 0d 28 4e 4f 54 0d 28 4d 49 4e 55 53 |X W).(NOT.(MINUS|
00002dc0 50 0d 28 53 55 42 54 52 41 70 5c 23 43 54 2d 57 |P.(SUBTRAp\#CT-W|
00002dd0 49 44 54 48 20 58 20 57 29 29 29 29 0d 29 0d 0d |IDTH X W)))).)..|
00002de0 0d 28 20 53 45 54 51 20 53 55 42 54 52 41 43 54 |.( SETQ SUBTRACT|
00002df0 2d 57 49 44 54 48 2d 4f 46 2d 4c 49 53 54 20 27 |-WIDTH-OF-LIST '|
00002e00 28 4c 41 4d 42 44 41 0d 28 58 20 57 29 0d 28 4c |(LAMBDA.(X W).(L|
00002e10 4f 4f 50 0d 28 55 4e 54 49 4c 0d 28 4f 52 0d 28 |OOP.(UNTIL.(OR.(|
00002e20 4e 55 4c 4c 20 58 29 0d 28 4d 49 4e 55 53 50 20 |NULL X).(MINUSP |
00002e30 57 29 29 0d 57 29 0d 28 55 4e 54 49 4c 0d 28 41 |W)).W).(UNTIL.(A|
00002e40 54 4f 4d 20 58 29 0d 28 44 49 46 46 45 52 45 4e |TOM X).(DIFFEREN|
00002e50 43 45 0d 57 0d 28 50 4c 55 53 0d 32 0d 28 57 49 |CE.W.(PLUS.2.(WI|
00002e60 44 54 48 2d 4f 46 2d 41 54 4f 4d 0d 58 29 29 29 |DTH-OF-ATOM.X)))|
00002e70 29 0d 28 53 45 54 51 0d 57 0d 28 53 55 42 54 52 |).(SETQ.W.(SUBTR|
00002e80 41 43 54 2d 57 49 44 54 48 0d 28 43 41 52 20 58 |ACT-WIDTH.(CAR X|
00002e90 29 0d 28 53 55 42 31 20 57 29 29 29 0d 28 53 45 |).(SUB1 W))).(SE|
00002ea0 54 51 20 58 20 28 43 44 52 20 58 29 29 29 29 0d |TQ X (CDR X)))).|
00002eb0 29 0d 0d 0d 28 20 53 45 54 51 20 51 55 4f 54 45 |)...( SETQ QUOTE|
00002ec0 50 20 27 28 4c 41 4d 42 44 41 0d 28 d0 8a 23 58 |P '(LAMBDA.(..#X|
00002ed0 29 0d 28 41 4e 44 0d 28 4e 4f 54 20 28 41 54 4f |).(AND.(NOT (ATO|
00002ee0 4d 20 58 29 29 0d 28 45 51 0d 28 43 41 52 20 58 |M X)).(EQ.(CAR X|
00002ef0 29 0d 28 51 55 4f 54 45 20 51 55 4f 54 45 29 29 |).(QUOTE QUOTE))|
00002f00 0d 28 4e 4f 54 20 28 41 54 4f 4d 20 28 43 44 52 |.(NOT (ATOM (CDR|
00002f10 20 58 29 29 29 0d 28 4e 55 4c 4c 20 28 43 44 44 | X))).(NULL (CDD|
00002f20 52 20 58 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 |R X)))).)...( SE|
00002f30 54 51 20 53 55 42 54 52 41 43 54 2d 57 49 44 54 |TQ SUBTRACT-WIDT|
00002f40 48 20 27 28 4c 41 4d 42 44 41 0d 28 58 20 57 29 |H '(LAMBDA.(X W)|
00002f50 0d 28 43 4f 4e 44 0d 28 28 41 54 4f 4d 20 58 29 |.(COND.((ATOM X)|
00002f60 0d 28 44 49 46 46 45 52 45 4e 43 45 0d 57 0d 28 |.(DIFFERENCE.W.(|
00002f70 57 49 44 54 48 2d 4f 46 2d 41 54 4f 4d 20 58 29 |WIDTH-OF-ATOM X)|
00002f80 29 29 0d 28 28 51 55 4f 54 45 50 20 58 29 0d 28 |)).((QUOTEP X).(|
00002f90 53 55 42 54 52 41 43 54 2d 57 49 44 54 48 2d 4f |SUBTRACT-WIDTH-O|
00002fa0 46 2d 4c 49 53 54 0d 28 43 41 44 52 20 58 29 0d |F-LIST.(CADR X).|
00002fb0 28 53 55 42 31 20 57 29 29 29 0d 28 54 0d 28 53 |(SUB1 W))).(T.(S|
00002fc0 55 42 54 52 41 43 54 2d 57 49 44 54 48 2d 4f d2 |UBTRACT-WIDTH-O.|
00002fd0 44 23 46 2d 4c 49 53 54 0d 58 0d 28 53 55 42 31 |D#F-LIST.X.(SUB1|
00002fe0 20 57 29 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 | W))))).)...( SE|
00002ff0 54 51 20 57 49 44 54 48 2d 4f 46 2d 41 54 4f 4d |TQ WIDTH-OF-ATOM|
00003000 20 27 28 4c 41 4d 42 44 41 0d 28 58 29 0d 28 43 | '(LAMBDA.(X).(C|
00003010 4f 4e 44 0d 28 28 4e 55 4d 42 45 52 50 20 58 29 |OND.((NUMBERP X)|
00003020 0d 28 57 49 44 54 48 2d 4f 46 2d 4e 55 4d 42 45 |.(WIDTH-OF-NUMBE|
00003030 52 20 58 29 29 0d 28 54 20 28 43 48 41 52 53 20 |R X)).(T (CHARS |
00003040 58 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 |X)))).)...( SETQ|
00003050 20 57 49 44 54 48 2d 4f 46 2d 4e 55 4d 42 45 52 | WIDTH-OF-NUMBER|
00003060 20 27 28 4c 41 4d 42 44 41 0d 28 4e 29 0d 28 43 | '(LAMBDA.(N).(C|
00003070 4f 4e 44 0d 28 28 4d 49 4e 55 53 50 20 4e 29 0d |OND.((MINUSP N).|
00003080 28 41 44 44 31 0d 28 57 49 44 54 48 2d 4f 46 2d |(ADD1.(WIDTH-OF-|
00003090 4e 55 4d 42 45 52 0d 28 4d 49 4e 55 53 20 4e 29 |NUMBER.(MINUS N)|
000030a0 29 29 29 0d 28 28 4c 45 53 53 50 20 4e 20 31 30 |))).((LESSP N 10|
000030b0 29 0d 31 29 0d 28 54 0d 28 41 44 44 31 0d 28 57 |).1).(T.(ADD1.(W|
000030c0 49 44 54 48 2d 4f 46 2d 4e 55 4d 42 45 52 0d 28 |IDTH-OF-NUMBER.(|
000030d0 51 55 7a 3d 2a 50 52 45 54 54 59 00 00 00 00 00 |QUz=*PRETTY.....|
000030e0 00 00 00 00 07 00 78 00 80 69 b1 00 00 df 62 4f |......x..i....bO|
000030f0 54 49 45 4e 54 0d 4e 0d 31 30 29 29 29 29 29 29 |TIENT.N.10))))))|
00003100 0d 29 0d 0d 28 50 55 54 20 27 53 45 54 51 20 27 |.)..(PUT 'SETQ '|
00003110 53 50 45 43 49 41 4c 20 27 30 29 0d 0d 28 50 55 |SPECIAL '0)..(PU|
00003120 54 20 27 44 45 46 55 4e 20 27 53 50 45 43 49 41 |T 'DEFUN 'SPECIA|
00003130 4c 20 27 31 29 0d 0d 28 50 55 54 20 27 54 20 27 |L '1)..(PUT 'T '|
00003140 53 50 45 43 49 41 4c 20 27 30 29 0d 0d 28 50 55 |SPECIAL '0)..(PU|
00003150 54 20 27 4c 41 4d 42 44 41 20 27 53 50 45 43 49 |T 'LAMBDA 'SPECI|
00003160 41 4c 20 27 30 29 0d 72 6d 2a 53 4f 52 54 00 00 |AL '0).rm*SORT..|
00003170 00 00 00 00 00 00 00 00 00 00 01 00 b2 b6 00 00 |................|
00003180 12 dc 28 20 53 45 54 51 20 4f 52 44 45 52 50 31 |..( SETQ ORDERP1|
00003190 20 27 28 4c 41 4d 42 44 41 0d 28 41 4c 20 42 4c | '(LAMBDA.(AL BL|
000031a0 29 0d 28 43 4f 4e 44 0d 28 28 4e 55 4c 4c 20 41 |).(COND.((NULL A|
000031b0 4c 29 20 54 29 0d 28 28 4e 55 4c 4c 20 42 4c 29 |L) T).((NULL BL)|
000031c0 20 4e 49 4c 29 0d 28 28 45 51 20 28 43 41 52 20 | NIL).((EQ (CAR |
000031d0 41 4c 29 20 28 43 41 52 20 42 4c 29 29 0d 28 4f |AL) (CAR BL)).(O|
000031e0 52 44 45 52 50 31 0d 28 43 44 52 20 41 4c 29 0d |RDERP1.(CDR AL).|
000031f0 28 43 44 52 20 42 4c 29 29 29 0d 28 54 0d 28 4c |(CDR BL))).(T.(L|
00003200 45 53 53 50 0d 28 4f 52 44 49 4e 41 4c 20 28 43 |ESSP.(ORDINAL (C|
00003210 41 52 20 41 4c 29 29 0d 28 4f 52 44 49 4e 41 4c |AR AL)).(ORDINAL|
00003220 20 28 43 41 52 20 42 4c 29 29 29 29 29 29 0d 29 | (CAR BL)))))).)|
00003230 0d 0d 0d 28 20 53 45 54 51 20 50 55 54 2d 49 4e |...( SETQ PUT-IN|
00003240 2d 52 49 47 48 54 2d 53 55 42 54 52 45 45 20 27 |-RIGHT-SUBTREE '|
00003250 28 4c 41 4d 42 44 41 0d 28 49 54 45 4d 20 54 52 |(LAMBDA.(ITEM TR|
00003260 45 45 29 0d 28 4d 41 4b 45 2d 4e 4f 44 45 0d 28 |EE).(MAKE-NODE.(|
00003270 49 54 45 4d 2d 49 4e 2d 4e 4f 44 45 20 54 52 45 |ITEM-IN-NODE TRE|
00003280 45 29 0b c8 23 0d 28 4c 45 46 54 2d 53 55 42 54 |E)..#.(LEFT-SUBT|
00003290 52 45 45 20 54 52 45 45 29 0d 28 41 44 44 2d 49 |REE TREE).(ADD-I|
000032a0 54 45 4d 0d 49 54 45 4d 0d 28 52 49 47 48 54 2d |TEM.ITEM.(RIGHT-|
000032b0 53 55 42 54 52 45 45 20 54 52 45 45 29 29 29 29 |SUBTREE TREE))))|
000032c0 0d 29 0d 0d 0d 28 20 53 45 54 51 20 50 55 54 2d |.)...( SETQ PUT-|
000032d0 49 4e 2d 4c 45 46 54 2d 53 55 42 54 52 45 45 20 |IN-LEFT-SUBTREE |
000032e0 27 28 4c 41 4d 42 44 41 0d 28 49 54 45 4d 20 54 |'(LAMBDA.(ITEM T|
000032f0 52 45 45 29 0d 28 4d 41 4b 45 2d 4e 4f 44 45 0d |REE).(MAKE-NODE.|
00003300 28 49 54 45 4d 2d 49 4e 2d 4e 4f 44 45 20 54 52 |(ITEM-IN-NODE TR|
00003310 45 45 29 0d 28 41 44 44 2d 49 54 45 4d 0d 49 54 |EE).(ADD-ITEM.IT|
00003320 45 4d 0d 28 4c 45 46 54 2d 53 55 42 54 52 45 45 |EM.(LEFT-SUBTREE|
00003330 20 54 52 45 45 29 29 0d 28 52 49 47 48 54 2d 53 | TREE)).(RIGHT-S|
00003340 55 42 54 52 45 45 20 54 52 45 45 29 29 29 0d 29 |UBTREE TREE))).)|
00003350 0d 0d 0d 28 20 53 45 54 51 20 4f 52 44 45 52 50 |...( SETQ ORDERP|
00003360 20 27 28 4c 41 4d 42 44 41 0d 28 41 20 42 29 0d | '(LAMBDA.(A B).|
00003370 28 4f 52 44 45 52 50 31 0d 28 45 58 50 4c 4f 44 |(ORDERP1.(EXPLOD|
00003380 45 20 41 29 0d aa 01 23 28 45 58 50 4c 4f 44 45 |E A)...#(EXPLODE|
00003390 20 42 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 | B))).)...( SETQ|
000033a0 20 41 44 44 2d 49 54 45 4d 20 27 28 4c 41 4d 42 | ADD-ITEM '(LAMB|
000033b0 44 41 0d 28 49 54 45 4d 20 54 52 45 45 29 0d 28 |DA.(ITEM TREE).(|
000033c0 43 4f 4e 44 0d 28 28 4e 55 4c 4c 20 54 52 45 45 |COND.((NULL TREE|
000033d0 29 0d 28 4d 41 4b 45 2d 4e 4f 44 45 0d 49 54 45 |).(MAKE-NODE.ITE|
000033e0 4d 0d 4e 49 4c 0d 4e 49 4c 29 29 0d 28 28 4f 52 |M.NIL.NIL)).((OR|
000033f0 44 45 52 50 0d 49 54 45 4d 0d 28 49 54 45 4d 2d |DERP.ITEM.(ITEM-|
00003400 49 4e 2d 4e 4f 44 45 20 54 52 45 45 29 29 0d 28 |IN-NODE TREE)).(|
00003410 50 55 54 2d 49 4e 2d 4c 45 46 54 2d 53 55 42 54 |PUT-IN-LEFT-SUBT|
00003420 52 45 45 0d 49 54 45 4d 0d 54 52 45 45 29 29 0d |REE.ITEM.TREE)).|
00003430 28 54 0d 28 50 55 54 2d 49 4e 2d 52 49 47 48 54 |(T.(PUT-IN-RIGHT|
00003440 2d 53 55 42 54 52 45 45 0d 49 54 45 4d 0d 54 52 |-SUBTREE.ITEM.TR|
00003450 45 45 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 |EE)))).)...( SET|
00003460 51 20 53 4f 52 54 20 27 28 4c 41 4d 42 44 41 0d |Q SORT '(LAMBDA.|
00003470 28 49 54 45 4d 2d 4c 49 53 54 20 28 54 52 45 45 |(ITEM-LIST (TREE|
00003480 29 29 0d 28 4c 4f 4f 50 13 69 23 0d 28 55 4e 54 |)).(LOOP.i#.(UNT|
00003490 49 4c 0d 28 4e 55 4c 4c 20 49 54 45 4d 2d 4c 49 |IL.(NULL ITEM-LI|
000034a0 53 54 29 0d 28 50 52 49 4e 54 2d 54 52 45 45 20 |ST).(PRINT-TREE |
000034b0 54 52 45 45 29 29 0d 28 53 45 54 51 0d 54 52 45 |TREE)).(SETQ.TRE|
000034c0 45 0d 28 41 44 44 2d 49 54 45 4d 0d 28 43 41 52 |E.(ADD-ITEM.(CAR|
000034d0 20 49 54 45 4d 2d 4c 49 53 54 29 0d 54 52 45 45 | ITEM-LIST).TREE|
000034e0 29 29 0d 28 53 45 54 51 0d 49 54 45 4d 2d 4c 49 |)).(SETQ.ITEM-LI|
000034f0 53 54 0d 28 43 44 52 20 49 54 45 4d 2d 4c 49 53 |ST.(CDR ITEM-LIS|
00003500 54 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 |T)))).)...( SETQ|
00003510 20 50 52 49 4e 54 2d 54 52 45 45 20 27 28 4c 41 | PRINT-TREE '(LA|
00003520 4d 42 44 41 0d 28 54 52 45 45 29 0d 28 43 4f 4e |MBDA.(TREE).(CON|
00003530 44 0d 28 28 4e 55 4c 4c 20 54 52 45 45 29 20 4e |D.((NULL TREE) N|
00003540 49 4c 29 0d 28 54 0d 28 50 52 49 4e 54 2d 54 52 |IL).(T.(PRINT-TR|
00003550 45 45 0d 28 4c 45 46 54 2d 53 55 42 54 52 45 45 |EE.(LEFT-SUBTREE|
00003560 0d 54 52 45 45 29 29 0d 28 50 52 49 4e 54 0d 28 |.TREE)).(PRINT.(|
00003570 49 54 45 4d 2d 49 4e 2d 4e 4f 44 45 0d 54 52 45 |ITEM-IN-NODE.TRE|
00003580 45 29 29 0d 28 50 52 49 4e 54 2d 7b 51 23 54 52 |E)).(PRINT-{Q#TR|
00003590 45 45 0d 28 52 49 47 48 54 2d 53 55 42 54 52 45 |EE.(RIGHT-SUBTRE|
000035a0 45 0d 54 52 45 45 29 29 29 29 29 0d 29 0d 0d 0d |E.TREE))))).)...|
000035b0 28 20 53 45 54 51 20 49 54 45 4d 2d 49 4e 2d 4e |( SETQ ITEM-IN-N|
000035c0 4f 44 45 20 27 28 4c 41 4d 42 44 41 20 28 54 52 |ODE '(LAMBDA (TR|
000035d0 45 45 29 20 28 43 41 44 52 20 54 52 45 45 29 29 |EE) (CADR TREE))|
000035e0 0d 29 0d 0d 0d 28 20 53 45 54 51 20 52 49 47 48 |.)...( SETQ RIGH|
000035f0 54 2d 53 55 42 54 52 45 45 20 27 28 4c 41 4d 42 |T-SUBTREE '(LAMB|
00003600 44 41 20 28 54 52 45 45 29 20 28 43 41 44 44 52 |DA (TREE) (CADDR|
00003610 20 54 52 45 45 29 29 0d 29 0d 0d 0d 28 20 53 45 | TREE)).)...( SE|
00003620 54 51 20 4c 45 46 54 2d 53 55 42 54 52 45 45 20 |TQ LEFT-SUBTREE |
00003630 27 28 4c 41 4d 42 44 41 20 28 54 52 45 45 29 20 |'(LAMBDA (TREE) |
00003640 28 43 41 52 20 54 52 45 45 29 29 0d 29 0d 0d 0d |(CAR TREE)).)...|
00003650 28 20 53 45 54 51 20 4d 41 4b 45 2d 4e 4f 44 45 |( SETQ MAKE-NODE|
00003660 20 27 28 4c 41 4d 42 44 41 0d 28 56 41 4c 20 4c | '(LAMBDA.(VAL L|
00003670 45 46 54 20 52 49 47 48 54 29 0d 28 4c 49 53 54 |EFT RIGHT).(LIST|
00003680 20 4c 45 46 54 20 56 41 4c 20 52 49 47 48 95 af | LEFT VAL RIGH..|
00003690 2a 53 4f 52 54 00 00 00 00 00 00 00 00 00 05 00 |*SORT...........|
000036a0 07 00 80 b2 b6 00 00 1b 24 54 29 29 0d 29 0d 0d |........$T)).)..|
000036b0 70 53 2a 55 54 49 4c 53 00 00 00 00 00 00 00 00 |pS*UTILS........|
000036c0 00 00 00 00 01 00 e5 bd 00 00 4a 93 28 20 53 45 |..........J.( SE|
000036d0 54 51 20 55 4e 54 52 41 43 45 20 27 28 4c 41 4d |TQ UNTRACE '(LAM|
000036e0 42 44 41 0d 46 4e 0d 28 53 45 54 51 20 46 4e 20 |BDA.FN.(SETQ FN |
000036f0 28 43 41 52 20 46 4e 29 29 0d 28 53 45 54 0d 46 |(CAR FN)).(SET.F|
00003700 4e 0d 28 47 45 54 20 46 4e 20 28 51 55 4f 54 45 |N.(GET FN (QUOTE|
00003710 20 4f 4c 44 44 45 46 29 29 29 0d 28 52 45 4d 50 | OLDDEF))).(REMP|
00003720 52 4f 50 20 46 4e 20 28 51 55 4f 54 45 20 4f 4c |ROP FN (QUOTE OL|
00003730 44 44 45 46 29 29 0d 28 4c 49 53 54 20 46 4e 20 |DDEF)).(LIST FN |
00003740 28 51 55 4f 54 45 20 55 4e 54 52 41 43 45 44 29 |(QUOTE UNTRACED)|
00003750 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 54 52 |)).)...( SETQ TR|
00003760 41 43 45 20 27 28 4c 41 4d 42 44 41 0d 46 4e 0d |ACE '(LAMBDA.FN.|
00003770 28 53 45 54 51 20 46 4e 20 28 43 41 52 20 46 4e |(SETQ FN (CAR FN|
00003780 29 29 0d 28 50 55 54 0d 46 4e 0d 28 51 55 4f 54 |)).(PUT.FN.(QUOT|
00003790 45 20 4f 4c 44 44 45 46 29 0d 28 45 56 41 4c 20 |E OLDDEF).(EVAL |
000037a0 46 4e 29 29 0d 28 53 45 54 0d 46 4e 0d 28 53 55 |FN)).(SET.FN.(SU|
000037b0 42 53 54 0d 46 4e 0d 28 51 55 4f 54 45 20 46 4e |BST.FN.(QUOTE FN|
000037c0 29 0d 28 51 55 4f 54 45 0d 28 4c 41 30 2d 23 4d |).(QUOTE.(LA0-#M|
000037d0 42 44 41 0d 2a 58 0d 28 53 45 54 51 0d 2a 58 0d |BDA.*X.(SETQ.*X.|
000037e0 28 4d 41 50 43 0d 45 56 41 4c 0d 2a 58 29 29 0d |(MAPC.EVAL.*X)).|
000037f0 28 50 52 49 4e 54 43 0d 28 51 55 4f 54 45 20 46 |(PRINTC.(QUOTE F|
00003800 4e 29 0d 42 4c 41 4e 4b 0d 2a 58 29 0d 28 53 45 |N).BLANK.*X).(SE|
00003810 54 51 0d 2a 58 0d 28 41 50 50 4c 59 0d 28 47 45 |TQ.*X.(APPLY.(GE|
00003820 54 0d 28 51 55 4f 54 45 0d 46 4e 29 0d 28 51 55 |T.(QUOTE.FN).(QU|
00003830 4f 54 45 0d 4f 4c 44 44 45 46 29 29 0d 2a 58 29 |OTE.OLDDEF)).*X)|
00003840 29 0d 28 50 52 49 4e 54 0d 28 51 55 4f 54 45 20 |).(PRINT.(QUOTE |
00003850 46 4e 29 0d 28 51 55 4f 54 45 20 3d 29 0d 2a 58 |FN).(QUOTE =).*X|
00003860 29 0d 2a 58 29 29 29 29 0d 46 4e 29 0d 29 0d 0d |).*X)))).FN).)..|
00003870 0d 28 20 53 45 54 51 20 53 55 42 53 54 20 27 28 |.( SETQ SUBST '(|
00003880 4c 41 4d 42 44 41 0d 28 41 20 42 20 43 29 0d 28 |LAMBDA.(A B C).(|
00003890 43 4f 4e 44 0d 28 28 45 51 20 42 20 43 29 20 41 |COND.((EQ B C) A|
000038a0 29 0d 28 28 41 54 4f 4d 20 43 29 20 43 29 0d 28 |).((ATOM C) C).(|
000038b0 54 0d 28 43 4f 4e 53 0d 28 53 55 42 53 54 0d 41 |T.(CONS.(SUBST.A|
000038c0 0d 42 0d 28 43 41 52 20 43 29 29 0d 28 53 55 95 |.B.(CAR C)).(SU.|
000038d0 66 23 42 53 54 0d 41 0d 42 0d 28 43 44 52 20 43 |f#BST.A.B.(CDR C|
000038e0 29 29 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 |)))))).)...( SET|
000038f0 51 20 52 45 56 45 52 53 45 20 27 28 4c 41 4d 42 |Q REVERSE '(LAMB|
00003900 44 41 0d 28 58 20 28 57 29 29 0d 28 4c 4f 4f 50 |DA.(X (W)).(LOOP|
00003910 0d 28 57 48 49 4c 45 20 58 20 57 29 0d 28 53 45 |.(WHILE X W).(SE|
00003920 54 51 0d 57 0d 28 43 4f 4e 53 20 28 43 41 52 20 |TQ.W.(CONS (CAR |
00003930 58 29 20 57 29 29 0d 28 53 45 54 51 20 58 20 28 |X) W)).(SETQ X (|
00003940 43 44 52 20 58 29 29 29 29 0d 29 0d 0d 0d 28 20 |CDR X)))).)...( |
00003950 53 45 54 51 20 52 44 46 20 27 28 4c 41 4d 42 44 |SETQ RDF '(LAMBD|
00003960 41 0d 28 4e 41 4d 45 20 28 48 41 4e 44 4c 45 29 |A.(NAME (HANDLE)|
00003970 29 0d 28 53 45 54 51 20 48 41 4e 44 4c 45 20 28 |).(SETQ HANDLE (|
00003980 4f 50 45 4e 20 4e 41 4d 45 20 54 29 29 0d 28 4c |OPEN NAME T)).(L|
00003990 4f 4f 50 0d 28 55 4e 54 49 4c 0d 28 41 54 4f 4d |OOP.(UNTIL.(ATOM|
000039a0 0d 28 45 52 52 4f 52 53 45 54 0d 28 45 56 41 4c |.(ERRORSET.(EVAL|
000039b0 0d 28 52 45 41 44 0d 48 41 4e 44 4c 45 29 29 29 |.(READ.HANDLE)))|
000039c0 29 29 29 0d 28 43 4c 4f 53 45 20 48 41 4e 44 4c |))).(CLOSE HANDL|
000039d0 45 29 dc fc 23 29 0d 29 0d 0d 0d 28 20 53 45 54 |E)..#).)...( SET|
000039e0 51 20 4e 55 4d 4f 42 20 27 28 4c 41 4d 42 44 41 |Q NUMOB '(LAMBDA|
000039f0 0d 28 4c 20 28 4e 20 2e 20 30 29 29 0d 28 4c 4f |.(L (N . 0)).(LO|
00003a00 4f 50 0d 28 57 48 49 4c 45 20 4c 20 4e 29 0d 28 |OP.(WHILE L N).(|
00003a10 53 45 54 51 0d 4e 0d 28 50 4c 55 53 0d 28 54 49 |SETQ.N.(PLUS.(TI|
00003a20 4d 45 53 20 4e 20 31 30 29 0d 28 44 49 46 46 45 |MES N 10).(DIFFE|
00003a30 52 45 4e 43 45 0d 28 4f 52 44 49 4e 41 4c 0d 28 |RENCE.(ORDINAL.(|
00003a40 43 41 52 20 4c 29 29 0d 34 38 29 29 29 0d 28 53 |CAR L)).48))).(S|
00003a50 45 54 51 20 4c 20 28 43 44 52 20 4c 29 29 29 29 |ETQ L (CDR L))))|
00003a60 0d 29 0d 0d 0d 28 20 53 45 54 51 20 4d 45 4d 42 |.)...( SETQ MEMB|
00003a70 45 52 20 27 28 4c 41 4d 42 44 41 0d 28 41 20 4c |ER '(LAMBDA.(A L|
00003a80 29 0d 28 43 4f 4e 44 0d 28 28 4e 55 4c 4c 20 4c |).(COND.((NULL L|
00003a90 29 20 4e 49 4c 29 0d 28 28 45 51 55 41 4c 20 41 |) NIL).((EQUAL A|
00003aa0 20 28 43 41 52 20 4c 29 29 20 54 29 0d 28 54 20 | (CAR L)) T).(T |
00003ab0 28 4d 45 4d 42 45 52 20 41 20 28 43 44 52 20 4c |(MEMBER A (CDR L|
00003ac0 29 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 |))))).)...( SETQ|
00003ad0 20 4c 41 53 54 2c 82 23 20 27 28 4c 41 4d 42 44 | LAST,.# '(LAMBD|
00003ae0 41 0d 28 4c 29 0d 28 43 4f 4e 44 0d 28 28 4e 55 |A.(L).(COND.((NU|
00003af0 4c 4c 20 28 43 44 52 20 4c 29 29 20 28 43 41 52 |LL (CDR L)) (CAR|
00003b00 20 4c 29 29 0d 28 54 20 28 4c 41 53 54 20 28 43 | L)).(T (LAST (C|
00003b10 44 52 20 4c 29 29 29 29 29 0d 29 0d 0d 0d 28 20 |DR L))))).)...( |
00003b20 53 45 54 51 20 46 4c 41 54 54 45 4e 20 27 28 4c |SETQ FLATTEN '(L|
00003b30 41 4d 42 44 41 0d 28 41 20 28 4c 29 29 0d 28 43 |AMBDA.(A (L)).(C|
00003b40 4f 4e 44 0d 28 28 4e 55 4c 4c 20 41 29 20 4c 29 |OND.((NULL A) L)|
00003b50 0d 28 28 41 54 4f 4d 20 41 29 20 28 43 4f 4e 53 |.((ATOM A) (CONS|
00003b60 20 41 20 4c 29 29 0d 28 54 0d 28 46 4c 41 54 54 | A L)).(T.(FLATT|
00003b70 45 4e 0d 28 43 41 52 20 41 29 0d 28 46 4c 41 54 |EN.(CAR A).(FLAT|
00003b80 54 45 4e 0d 28 43 44 52 20 41 29 0d 4c 29 29 29 |TEN.(CDR A).L)))|
00003b90 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 44 49 |)).)...( SETQ DI|
00003ba0 47 49 54 20 27 28 4c 41 4d 42 44 41 0d 28 43 48 |GIT '(LAMBDA.(CH|
00003bb0 29 0d 28 53 45 54 51 20 43 48 20 28 4f 52 44 49 |).(SETQ CH (ORDI|
00003bc0 4e 41 4c 20 43 48 29 29 0d 28 43 4f 4e 44 0d 28 |NAL CH)).(COND.(|
00003bd0 28 4f 52 0d 28 4c 45 53 bb 25 23 53 50 20 43 48 |(OR.(LES.%#SP CH|
00003be0 20 34 38 29 0d 28 47 52 45 41 54 45 52 50 20 43 | 48).(GREATERP C|
00003bf0 48 20 35 37 29 29 0d 4e 49 4c 29 0d 28 54 0d 28 |H 57)).NIL).(T.(|
00003c00 44 49 46 46 45 52 45 4e 43 45 0d 43 48 0d 34 38 |DIFFERENCE.CH.48|
00003c10 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 |)))).)...( SETQ |
00003c20 45 51 55 41 4c 20 27 28 4c 41 4d 42 44 41 0d 28 |EQUAL '(LAMBDA.(|
00003c30 41 20 42 29 0d 28 43 4f 4e 44 0d 28 28 45 51 20 |A B).(COND.((EQ |
00003c40 41 20 42 29 20 54 29 0d 28 28 4f 52 20 28 41 54 |A B) T).((OR (AT|
00003c50 4f 4d 20 41 29 20 28 41 54 4f 4d 20 42 29 29 0d |OM A) (ATOM B)).|
00003c60 4e 49 4c 29 0d 28 28 45 51 55 41 4c 20 28 43 41 |NIL).((EQUAL (CA|
00003c70 52 20 41 29 20 28 43 41 52 20 42 29 29 0d 28 45 |R A) (CAR B)).(E|
00003c80 51 55 41 4c 0d 28 43 44 52 20 41 29 0d 28 43 44 |QUAL.(CDR A).(CD|
00003c90 52 20 42 29 29 29 0d 28 54 20 4e 49 4c 29 29 29 |R B))).(T NIL)))|
00003ca0 0d 29 0d 0d 0d 28 20 53 45 54 51 20 44 45 4c 45 |.)...( SETQ DELE|
00003cb0 54 45 20 27 28 4c 41 4d 42 44 41 0d 28 41 20 4c |TE '(LAMBDA.(A L|
00003cc0 29 0d 28 43 4f 4e 44 0d 28 28 4e 55 4c 4c 20 4c |).(COND.((NULL L|
00003cd0 29 20 4e 49 4c 29 0d 28 28 45 51 e4 fc 2a 55 54 |) NIL).((EQ..*UT|
00003ce0 49 4c 53 00 00 00 00 00 00 00 00 00 06 00 ec 00 |ILS.............|
00003cf0 80 e5 bd 00 00 3d e3 55 41 4c 20 41 20 28 43 41 |.....=.UAL A (CA|
00003d00 52 20 4c 29 29 0d 28 43 44 52 20 4c 29 29 0d 28 |R L)).(CDR L)).(|
00003d10 54 0d 28 43 4f 4e 53 0d 28 43 41 52 20 4c 29 0d |T.(CONS.(CAR L).|
00003d20 28 44 45 4c 45 54 45 20 41 20 28 43 44 52 20 4c |(DELETE A (CDR L|
00003d30 29 29 29 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 |)))))).)...( SET|
00003d40 51 20 43 4f 4e 43 41 54 20 27 28 4c 41 4d 42 44 |Q CONCAT '(LAMBD|
00003d50 41 0d 28 41 20 42 29 0d 28 49 4d 50 4c 4f 44 45 |A.(A B).(IMPLODE|
00003d60 0d 28 41 50 50 45 4e 44 0d 28 45 58 50 4c 4f 44 |.(APPEND.(EXPLOD|
00003d70 45 20 41 29 0d 28 45 58 50 4c 4f 44 45 20 42 29 |E A).(EXPLODE B)|
00003d80 29 29 29 0d 29 0d 0d 0d 28 20 53 45 54 51 20 41 |))).)...( SETQ A|
00003d90 50 50 45 4e 44 20 27 28 4c 41 4d 42 44 41 0d 28 |PPEND '(LAMBDA.(|
00003da0 41 20 42 29 0d 28 43 4f 4e 44 0d 28 28 4e 55 4c |A B).(COND.((NUL|
00003db0 4c 20 41 29 20 42 29 0d 28 54 0d 28 43 4f 4e 53 |L A) B).(T.(CONS|
00003dc0 0d 28 43 41 52 20 41 29 0d 28 41 50 50 45 4e 44 |.(CAR A).(APPEND|
00003dd0 20 28 43 44 52 20 41 29 20 42 29 29 29 29 29 0d | (CDR A) B))))).|
00003de0 29 0d 0d 45 e4 2b ff ff ff ff ff ff ff ff ff ff |)..E.+..........|
00003df0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff |................|
*
00004000 
s\wRAM/LISPb.m0
s\wRAM/LISPb.m1
s\wRAM/LISPb.m2
s\wRAM/LISPb.m4
s\wRAM/LISPb.m5
.