@L}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}SD R DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T @  ɐ     }D <;j LD:STARTUP.EXC;LHLL=LlD1:D:STARTUP.EXCCARBBNIT.COM!}@INITREE SECTORSNIT.COM ,0 ,0@P @  @ E: 4K   V "}0: @L lMN9]&8ʈ90.9 PHOH`<;;<ll` :#}" (  LfD 1:LfMOC.REMCARENDSCRNOSRENPROUNPSAVLOARUNERADIR& e}hlp#$}$!  Lf l  Lv l: *. Lv Lf J 0 J ` ɛ  Lf%} l 0%      Lf Lf l (Lf;j 0$  n kɈ l &}Lf` -j 0  @ 8Ln  lȌ lHh)@ Lf'})L @ɢ 8J 0a) )ύ L %  H &  L h0,p J `(}L)  )@LLCXE.JH 4hLH lhL 0 @ 8 L JL B VCɀ`)} Lf'! 88iLB Lf @ܩL8 @ީED`IH` 8$U$HHH o) #ȥ̥V$l$̄m$$0>}/*'(E([()" ɛ ! /*\(s( (L(`t((H" ( /* (" /*"((hL\(° ((?}`L)Æ R3((. & &(( G() o) o) 3#˥))ʄ o) #ͥ@}̥)0)ȑL;)Ųű1)H)Ģ I)_)`ɛ l)m)`)v) 5*l)m)`+w)) ,+A}@,))8†))ȱ`L#6))ͱ̅ȱ̥̅͑ȑ̈))` *'B}ʈ)*L,' o) # &̪͑**ȑ̠`0*1* j L& #8` P)2*I*`2  *Lh* #J*_*L *I C}*S *P #`*w* *> * #*BDx**EHILVE** *R ** B**HIDE VD}**` c4 ٥ *`**:8j *+…栩Ʃ :++©`+++`,+C+xԆE} +r2D+Z+ O+腼([+q+ͱ$ ) Ir++IŢȆǤ++8ʆ$F}++Ǒ̄ȥȑ̈L+IL+++X`++j +,++Ɠ$,,IG} jȱ,.,ܤ +, +,M/,F,`Iȱ̥̅G,^, ̤چˆ͘jӱ_,u,$Ъʑ̥ ʆȱ̪H}v,,̥ʆˆˆ ,,нj#ʪ$вȱ ,,ʥ L,LK,$̾,,Џ̪Iȱㆷ,,̥ I}̐ȦˆL~,,-` * "--L&` * "L&L7"-3- & * o)4-J-` & " KJ}-b- *`hhhL7"c-z-88 A- #L-{-- A-( "` #--` &05` &-- m4 *섍K} 4 `ڥ-- *0ąˤ`-- &5 "1ͱ̅ȱ̅-. & #ᤝ &.. #L-`L# & ".6L}.L**LP# * "07.L. &"M.d.L'ȱ " *򤅦`e.|.ȑ`ơ`}.. **P0*M})1*Ɠ..L**0*11*L** **..L** **L** BL... * 0 * "( &*..EDBԝJ Vԩ./N} L3L7" 0ԅ // * 0ԅ 0 * "݈/6/ &*EDBJ7/L/ԝKL. *&B .M/c/*LԽM 3O}d/z/*Nԩ 3L)-{// *%B 0*ԝLՑ//M 0*)NL.// " & #// &LP}/``// 0 0?0pB/0>D0EJK .00# *' 60L&p E0#Ɉ020ɛ * *30I0Q}L0p .L**D1:*.*BJ0a0DEIHL.b0y0p* .# 0z00` *'* .Ɛ00 U' & " U' $R}İ00者Ʃ .pL.` .00ʈ 0) 00)Ԣ`*0L"/S:01 c4LѦ *' *'11S} *' %141!҆ф & #51K1 &҄ % &L1c1 &҄Ѥ` L7" &d1y1j &T}z11L1ѪѨφ҄ &j11 &ĝݠ`*11BHI V0` .11`8` & "0ģ11 U}*` L7"12 1L# 1L3# )22 & & 272 )L2 &L&XԠơ82O2L7"xԤ¥ V}2P2g2ˆĈׄºr2r2h22x2h22hXԤ`xԘ22r22222W}r2r222м 2L28822ȥ͑̊򨥗ȥ̤̈́23` ,+&&e3$3e…8凅ԥ刅X} %3;3L3} *L**Ʃ*<3S3  (L\(T3k3 ؐ`hh 3L!)l33DŽ &ȄǠԑȑ33Y}`ћ33䂐 ,+ ơL7"33L7" y3i`33 30ȱ0 *)33 *`ȱZ}34󅝩4'4L " & #(4>4 &L4`?4V4 " & #䤙 &W4n4L?4[}` &0LFڠo44ȱՠ`44 &0LFڠȱ44` c4 4 fڲ44L3 c4 L3 c4 44L\}3 c4 4L` 4L344 40`` 044ԍ4L**45 0) 0 5+5 0 )L** G5,5C54 L*]}* G5`B .D5[5L** 0ԅUՅV 0ԅT4\5r5` 0) 0ԅs55 0 0Ҋ55L** 0Ԧխ^} 55L**UVL** 055ԅԄ L3 c4 ٦ԥ55 c4 ٥Ԡ` c456 4 L3 c4 4 (L366 c4 f_}J $ 6-6 D `L3ơr2.6D6#L" &E6[6Ԣp** .# \6r6 6` E#s66`} &; *' $ 666 & ' 6 & #Մ66 6 ' 666 E#*pL. #' * E#66) *L#( * #La}#L7"66 &* " c4 ٥67ԅƞ0Ɲ &7,7`8f & &-7D7` &` &E7[7$0b} &ěङ$0\7s7L& Ӎө Ӎ 0t77)jӰ)J77JJJԩ Ly3 077)`L**c} &77L**j0 & )77 ( \( )78 &L&L7"88 & &0j &808d} (L\(18G8 &+ * *H8_8 E#` & $`8u8 )-L$ԅ * "v88 8 L3 *e}ȍ88 &`NILT().88'QUOTELAMBDANLAMBDA88SUBRNSUBRRESETRETURN88MACROEVAL#GETD#88CAR,CDR f}-PRINT@#89PRIN1'.PRIN2K#CONS-9,9APPEND2SETx-DEFINEf--9B9EQ-STICK_7STRIG7C9X9READS'QUOTE*COND-Y9p9SUBRg},BAKTRACE18APPLY*q99P8READA'XIO/NOTE99?/POINTy/RPLACA199RPLACD1UNPACK7PACK997PLOT'5COL4DRAW559h}9SETCOL4SOUND`5TAB599PEEK5POKE5ATOM.#9:-+4SUB4*5/5INT:%:6>4EXP4LOG4@6&:;:LISTc.CLOSEi}.OPEN.<:S:LOADa0DIR/SAVE<6IN#T:j:{.PR#.ASSOC7MEMBERk::7LAST8LENGTHf8PROGN::/DEFINEQa-SETQk-::RESETj}r.BREAK%"NEW"::OBLIST/GR0TERPRI$*::PROG0GO]1RETURN#MEM::2PAGE(3READC23OR4:;AND54S= k}; ; *L;#% !;6;6  D<7;M; *8 (N;d;˱+e;|;Ȅl}˱Рڢ8};; ( "+++;; "ܢ8 ;;; 3#;; 3# 3# 3# ;;;m} ;襬;< L< ( < <˪!<7<L<˱L<8>> INTER-LISP/65 < "))) (QUOTE EX)) (RETURt}N (QUOTE EXIT)))) (POKE 128 63) (COND ((EQ X (QUOTE T)) (GO T)) ((MEMBER X COMMANDS) (APPLY* X)) ((PRIN2 (LIST (QUOTE ILL) (Qu}UOTE COMMAND-->) X)) (TERPRI))) (GO LOOP))))(DEFINEQ E '(LAMBDA NIL ((LAMBDA (X) (PROGN (SETQ S-EXP (COND ((EVAL X)) (T (POv}KE 128 0) (PRIN1 (QUOTE -->)) (PRINT X) (SET X (GETLST (GETCMD (QUOTE "> "))))))) (GO T))) (READ))))(DEFINEQ Ew}F '(LAMBDA NIL ((LAMBDA (X) (PROGN (SETQ S-EXP (COND ((GETD X)) (T (POKE 128 0) (PRIN1 (QUOTE -->)) (PRINT X) (DEFINEx} X (GETLST (GETCMD (QUOTE "> "))))))) (GO T))) (READ))))(DEFINEQ H '(LAMBDA NIL (PRIN1 (LIST (QUOTE COMMANDS:) COMMANDy}S))))(DEFINEQ L '(LAMBDA NIL ((LAMBDA (FILE) (PROGN (LOAD FILE) (PRIN1 (QUOTE "--> ")) (PRINT (EVAL FILE)))) (GETCMD z}(QUOTE "> ")))))(DEFINEQ S '(LAMBDA NIL (PROGN (SAVE (EVAL (GETCMD (QUOTE "> "))) (GETCMD (QUOTE "> "))) {}(PRINT (QUOTE )))))(DEFINEQ C '(LAMBDA NIL (DIR (READ))))(SETQ X 'S)(DEFINEQ X '(LAMBDA NIL (PROGN (PASTE CURR (RE|}AD) (READ)) (PSET CURR))))(DEFINEQ PASTE '(LAMBDA (X Y Z) (COND ((EQUAL X)) ((ATOM X)) ((EQUAL (CAR X) Y) (RPLACA X Z) (PAS}}TE (CDR X) Y Z)) (T (PASTE (CAR X) Y Z) (PASTE (CDR X) Y Z)))))(DEFINEQ EQUAL '(LAMBDA (X Y) (COND ((ATOM X) (EQ X Y)) ((AT~}OM Y) (EQ X Y)) ((AND (EQUAL (CAR X) (CAR Y)) (EQUAL (CDR X) (CDR Y)))))))(DEFINEQ GETCMD '(LAMBDA (X) (PROGN (POKE 128 0) }(TERPRI) (PRIN1 X) (READ))))(DEFINEQ MAPCAR '(LAMBDA (X FN) (COND ((EQ X) NIL) (T (CONS (APPLY* FN (CAR X)) (MAPCAR (CDR X)} FN))))))(SETQ COMMANDS '(A D B P R DEL I G LI RE PP PRE C E EF X S L H PU LOCK UNLOCK))(DEFINEQ PSET '(LAMBDA (L) (PRINT} (CAR (SETQ CURR L)))))(DEFINEQ SETP '(LAMBDA (FUNCTION) (COND ((ATOM (APPLY* FUNCTION CURR)) (PRINT (QUOTE ))) }(T (SETQ PREV (CONS CURR PREV)) (PSET (APPLY* FUNCTION CURR))))))(DEFINEQ R '(LAMBDA NIL (PRINT (CAR (RPLACA CURR (READ))))}))(SETQ A '(A))(DEFINEQ A '(LAMBDA NIL (SETP (QUOTE CDR))))(DEFINEQ D '(LAMBDA NIL (SETP (QUOTE CAR))))(DEFINEQ B '(L}AMBDA NIL (COND ((EQ (CDR PREV)) (PRINT (QUOTE )) (PSET CURR)) (T (PSET (CAR PREV)) (SETQ PREV (CDR PREV))))))(D}EFINEQ LI '(LAMBDA NIL (PSET (RPLACA CURR (LIST (CAR CURR))))))(DEFINEQ RE '(LAMBDA NIL (COND ((ATOM (CAR CURR)) (PRIN1 (QU}OTE )) (TERPRI)) (T (PROG NIL (NCONC (CAR CURR) (CDR CURR)) (PSET (CONZ CURR (CAR (CAR CURR)) (CDR (CAR CURR)))))))}))(DEFINEQ CONZ '(LAMBDA (X Y Z) (RPLACA (RPLACD X Z) Y)))(DEFINEQ PRE '(LAMBDA NIL (PSET (RPLACA CURR (CONS (READ) (LIST} (CAR CURR)))))))(DEFINEQ I '(LAMBDA NIL (PROG NIL (RPLACD CURR (CONS (READ) (CDR CURR))) (A))))(DEFINEQ DEL '(LAMBDA NIL} (PROG NIL ((LAMBDA (X) (COND ((EQ CURR X) (CONZ CURR (CAR (CDR CURR)) (CDR (CDR CURR)))) ((EQ CURR (CDR X)) (RPLACD X (CDR C}URR))) (T (RPLACA X (CDR CURR))))) (CAR PREV)) (B))))(DEFINEQ G '(LAMBDA NIL (PROG (X Y) (SETQ Y CURR) L (SETQ X (GETCMD (Q}UOTE "> "))) (COND ((EQ X (QUOTE A)) (COND ((EQ (CDR Y)) (PRINT (QUOTE ))) (T (PRINT (CAR (SETQ Y (CDR Y)))))})) ((EQ X (QUOTE G)) (RETURN (COND ((EQ CURR Y) (LI)) (T (CONZ CURR (CONS (CAR CURR) (CDR CURR)) (CDR Y)) (RPLACD Y NIL) (PRI}NT (CAR CURR)))))) (T (RETURN (PRINT (QUOTE ))))) (GO L))))(DEFINEQ PP '(LAMBDA NIL (PPRINT S-EXP 2)))(DEFINEQ P '}(LAMBDA NIL (PPRINT (CAR CURR) 2)))(DEFINEQ PPRINT '(LAMBDA (X IND) (PROG (TFLG) (PPAUX X IND) (TERPRI))))(DEFINEQ PPAUX }'(LAMBDA (X INDTN) (COND ((ATOM X) (PRIN2 X) (SETQ TFLG)) ((ATOM (CAR X)) ((LAMBDA (Y) (COND (Y (MULTARGS X INDTN (CDR Y))) (}(PROGN (PRIN1 LPAR) (PRIN2 (CAR X)) (PPARGS (CDR X) INDTN) (PRIN1 RPAR) (SETQ TFLG))))) (ASSOC (CAR X) FORMATS))) (((LAMBDA (}IND1) (PROGN (PRIN1 LPAR) (SETQ TFLG T) (PPAUX (CAR X) IND1) (TABRET INDTN) (PPARGS (CDR X) IND1) (PRIN1 RPAR) (SETQ TFLG))) }(+ INDTN))))))(DEFINEQ MULTARGS '(LAMBDA (X INDTN L) ((LAMBDA (INDTN2) (PROGN (TABRET INDTN) (PRIN1 LPAR) (PRIN2 (CAR X)) (}PRIN1 BLANK) (PPAUX (CAR (CDR X)) INDTN2) (COND ((CDR (CDR X)) (MAPCAR (CDR (CDR X)) (QUOTE (LAMBDA (Y) (PROG NIL (TABRET IND}TN2) (PPAUX Y INDTN2))))))) (PRIN1 RPAR) (SETQ TFLG))) (+ INDTN (CAR L)))))(DEFINEQ PPARGS '(LAMBDA (X INDTN) (PROG NIL LOO}P (COND ((EQ X) (RETURN))) (PRIN1 BLANK) (PPAUX (CAR X) INDTN) (SETQ X (CDR X)) (GO LOOP))))(DEFINEQ TABRET '(LAMBDA (N) (P}ROG NIL (COND (TFLG (RETURN)) ((TERPRI))) (SETQ TFLG T) (COND ((> N LINE-WIDTH) (TERPRI) (TAB (SUB N LINE-WIDTH))) ((TAB N)))})))(SETQ FORMATS '((COND 6) (LAMBDA 2) (PROG 6) (PROGN 7) (AND 5) (OR 4) (MAPCAR 8) (NLAMBDA 2) (MACRO 2)))(SETQ LPAR '"(}")(SETQ BLANK '" ")(SETQ RPAR '))(SETQ LINE-WIDTH '39)(DEFINEQ NCONC '(LAMBDA (X Y) (PROGN (RPLACD (LAST X) Y) X)))}(DEFINEQ PU '(LAMBDA NIL ((LAMBDA (X) (PROGN (COND ((EQ (GETCMD (QUOTE "٧> ")) (QUOTE Y)) (XIO 33 7 0 0 X) }(CLOSE 7))) (DIR))) (READ))))(DEFINEQ LOCK '(LAMBDA NIL ((LAMBDA (X) (PROGN (XIO 35 7 0 0 X) (CLOSE 7))) (READ))))(DEFINE}Q UNLOCK '(LAMBDA NIL ((LAMBDA (X) (PROG (STAT) (SETQ STAT (XIO 36 7 0 0 X)) (COND ((EQ STAT 1)) (T (PRIN1 (QUOTE ͠}Һ)) (PRINT STAT))) (CLOSE 7))) (READ))))(DEFINEQ GETLST '(LAMBDA (X) (COND ((ATOM X) (LIST X)) (X))))NILPAUX MULTARGS Pn(FUNCALL DEFPROP PUTPROP NCONC GET MAPCAR EQUAL DELETE SUBST REVERSE REMPROP CONZ GENSYM DEFUN MACFNS)(DEFINEQ FUNCALL '(MAC }RO (S) (CONS (QUOTE APPLY*) (CDR S))))(DEFINEQ DEFPROP '(NLAMBDA (A) ((LAMBDA (ID PROP NAME) (PROGN (COND ((ASSOC NAME MACF }NS) (DEFINE ID (CONS (CAR (CDR (ASSOC NAME MACFNS))) (CDR PROP)))) ((EQ (EVAL ID)) (SET ID (LIST NAME PROP))) (T (SET ID (CON }S NAME (CONS PROP (EVAL ID)))))) ID)) (CAR A) (CAR (CDR A)) (CAR (CDR (CDR A))))))(DEFINEQ PUTPROP '(LAMBDA (ID PROP NAME) }(PROGN (COND ((ASSOC NAME MACFNS) (DEFINE ID (CONS (CAR (CDR (ASSOC NAME MACFNS))) (CDR PROP)))) ((EQ (EVAL ID)) (SET ID (LIS }T NAME PROP))) (T (SET ID (CONS NAME (CONS PROP (EVAL ID)))))) ID)))(DEFINEQ NCONC '(LAMBDA (X Y) (PROGN (RPLACD (LAST X) Y }) X)))(DEFINEQ GET '(LAMBDA (ID NAME) (COND ((ASSOC NAME MACFNS) (CONS (QUOTE LAMBDA) (CDR (GETD ID)))) ((CAR (CDR (MEMBER }NAME (EVAL ID))))))))(DEFINEQ MAPCAR '(LAMBDA (X FN) (COND ((EQ X) NIL) (T (CONS (APPLY* FN (CAR X)) (MAPCAR (CDR X) FN)))) }))(DEFINEQ EQUAL '(LAMBDA (X Y) (COND ((ATOM X) (EQ X Y)) ((ATOM Y) (EQ X Y)) ((AND (EQUAL (CAR X) (CAR Y)) (EQUAL (CDR X) }(CDR Y)))))))(DEFINEQ DELETE '(LAMBDA (X Y) (COND ((EQ Y) NIL) ((EQUAL X (CAR Y)) (DELETE X (CDR Y))) ((CONZ Y (CAR Y) (DEL }ETE X (CDR Y)))))))(DEFINEQ SUBST '(LAMBDA (X Y Z) (COND ((EQUAL Y Z) X) ((ATOM Z) Z) ((CONS (SUBST X Y (CAR Z)) (SUBST X Y } (CDR Z)))))))(DEFINEQ REVERSE '(LAMBDA (X) (COND ((ATOM X) X) ((APPEND (REVERSE (CDR X)) (LIST (CAR X)))))))(DEFINEQ REM }PROP '(LAMBDA (ID NAME) (COND ((ASSOC NAME MACFNS) (DEFINE ID NIL) ID) (T ((LAMBDA (Y) (COND ((EQ Y) Y) (T ((LAMBDA (Z) (CONZ } Z (CAR (CDR Z)) (CDR (CDR Z)))) (DELETE (CAR (CDR Y)) Y)) ID))) (MEMBER NAME (EVAL ID)))))))(DEFINEQ CONZ '(LAMBDA (X Y Z) } (RPLACA (RPLACD X Z) Y)))(DEFINEQ GENSYM '(LAMBDA NIL (PACK (CONS (QUOTE G0) (RPLACA (QUOTE (0)) (+ (CAR (CAR (CDR (CAR (C }DR (CAR (CDR (CDR (CAR (CDR (CAR (CDR (CDR (GETD (QUOTE GENSYM))))))))))))))) 1))))))(DEFINEQ DEFUN '(MACRO (S) (CONS (QUOT }E DEFPROP) (CONS (CAR (CDR S)) ((LAMBDA (X) (COND ((ASSOC X MACFNS) (LIST (CONS (QUOTE LAMBDA) (CDR (CDR (CDR S)))) X)) ((LIS }T (CONS (QUOTE LAMBDA) (CDR (CDR S))) (QUOTE EXPR))))) (CAR (CDR (CDR S))))))))(SETQ MACFNS '((EXPR LAMBDA) (FEXPR NLAMBDA) } (MACRO MACRO)))NILOP NCONC GET MAPCAR EQUAL DELETE SUBST REVERSE REMPROP CONZ GENSYM DEFUN MACFNS)(DEFINEQ FUNCALL '(MAC (CLISP TRANSLATE WEIGHT OPCODE)(DEFINEQ CLISP '(LAMBDA (FUN) (DEFINE FUN (TRANSLATE (GETD FUN)))))(DEFINEQ TRANSLATE '(LAM}BDA (S-EXP) (PROG (OPERANDS OPERATORS) (COND ((ATOM S-EXP) (RETURN S-EXP))) (COND ((EQ (OPCODE (CAR (CDR S-EXP)))) (RETURN (M}APCAR S-EXP (QUOTE TRANSLATE))))) (SETQ OPERATORS (QUOTE (DUMMY))) STUFF (COND ((EQ S-EXP) (COND ((EQ (CAR OPERATORS) (QUOTE }DUMMY)) (RETURN (QUOTE *ERROR*))) (T (RETURN (LIST (TRANSLATE (CAR OPERANDS)) (TRANSLATE (CAR OPERATORS)))))))) (SETQ OPERAND}S (CONS (COND ((ATOM (CAR S-EXP)) (CAR S-EXP)) ((TRANSLATE (CAR S-EXP)))) OPERANDS)) (SETQ S-EXP (CDR S-EXP)) SCAN (COND ((AN}D (EQ S-EXP) (EQ (CAR OPERATORS) (QUOTE DUMMY))) (RETURN (CAR OPERANDS)))) (COND ((OR (EQ S-EXP) (EQ (> (WEIGHT (CAR S-EXP)) }(WEIGHT (CAR OPERATORS))))) (SETQ OPERANDS ((LAMBDA (X) (COND ((EQ X) (CONS (LIST (CAR (CDR OPERANDS)) (CAR OPERATORS) (CAR O}PERANDS)) (CDR (CDR OPERANDS)))) (T (CONS (LIST X (CAR (CDR OPERANDS)) (CAR OPERANDS)) (CDR (CDR OPERANDS)))))) (OPCODE (CAR }OPERATORS)))) (SETQ OPERATORS (CDR OPERATORS)) (GO SCAN)) (T (SETQ OPERATORS (CONS (CAR S-EXP) OPERATORS)) (SETQ S-EXP (CDR S}-EXP)) (GO STUFF))))))(DEFINEQ WEIGHT '(LAMBDA (OP) (COND ((EQ OP (QUOTE DUMMY)) -1) ((EQ OP (QUOTE =)) 0) ((EQ OP (QUOTE +})) 1) ((EQ OP (QUOTE -)) 1) ((EQ OP (QUOTE *)) 2) ((EQ OP (QUOTE /)) 2) (T 4))))(DEFINEQ OPCODE '(LAMBDA (OP) (COND ((EQ OP} (QUOTE DUMMY)) (QUOTE DUMMY)) ((EQ OP (QUOTE =)) (QUOTE SETQ)) ((EQ OP (QUOTE +)) (QUOTE +)) ((EQ OP (QUOTE -)) (QUOTE SUB))} ((EQ OP (QUOTE *)) (QUOTE *)) ((EQ OP (QUOTE /)) (QUOTE /)))))NIL FUN (TRANSLATE (GETD FUN)))))(DEFINEQ TRANSLATE '(LAME(RAN GOXY VTAB TIME MOD HLIN VLIN REFLECT NORMAL)(DEFINEQ RAN '(LAMBDA (RANGE) (* RANGE (/ (+ (PEEK 53770) (* 256 (PEEK 5377}0))) 65536))))(DEFINEQ GOXY '(LAMBDA (X Y) (PROGN (VTAB Y) (TAB X))))(DEFINEQ VTAB '(LAMBDA (R) (POKE 656 R)))(DEFINEQ }TIME '(LAMBDA NIL (PROG (TIME HOURS MINUTES SECONDS) (SETQ TIME (INT (/ (+ (* (PEEK 18) 4048) (+ (* (PEEK 19) 256) (PEEK 20))}) 60))) (SETQ HOURS (INT (SUB (/ TIME 3600) .5))) (SETQ MINUTES (INT (SUB (/ (SUB TIME (* 3600 HOURS)) 60) .5))) (SETQ SECOND}S (SUB TIME (+ (* HOURS 3600) (* MINUTES 60)))) (COND ((> 10 HOURS) (PRIN1 0))) (PRIN1 HOURS) (PRIN1 (QUOTE :)) (COND ((> 10 }MINUTES) (PRIN1 0))) (PRIN1 MINUTES) (PRIN1 (QUOTE :)) (COND ((> 10 SECONDS) (PRIN1 0))) (PRINT SECONDS) (RETURN TIME))))(D}EFINEQ MOD '(LAMBDA (X Y) (SUB X (* (INT (SUB (/ X Y) .5)) Y))))(DEFINEQ HLIN '(LAMBDA (X1 X2 Y) (PROGN (PLOT X1 Y) (DRAW X}2 Y))))(DEFINEQ VLIN '(LAMBDA (Y1 Y2 X) (PROGN (PLOT X Y1) (DRAW X Y2))))(DEFINEQ REFLECT '(LAMBDA NIL (POKE 755 4)))(D}EFINEQ NORMAL '(LAMBDA NIL (POKE 755 2)))NILL)(DEFINEQ RAN '(LAMBDA (RANGE) (* RANGE (/ (+ (PEEK 53770) (* 256 (PEEK 5377/(CALC PUSH POP BINARY UNARY - E N L S D P)(DEFINEQ CALC '(LAMBDA NIL (PROG (X Y OP STACK) LOOP (POKE 128 0) (TERPRI) (PRINT }STACK) (TERPRI) (PRIN1 (QUOTE "> ")) (SETQ IN (READ)) (COND ((# IN) (PUSH IN)) ((MEMBER IN BINARY) (PUSH (APPLY* IN (POP}) (POP)))) ((MEMBER IN UNARY) (PUSH (APPLY* IN (POP)))) ((EQ IN (QUOTE Q)) (RETURN)) (T (PRIN1 (QUOTE "")))) (GO LOOP))))(}DEFINEQ PUSH '(LAMBDA (ITEM) (SETQ STACK (CONS ITEM STACK))))(DEFINEQ POP '(LAMBDA NIL (PROG (X) (SETQ X (CAR STACK)) (SETQ} STACK (CDR STACK)) X)))(SETQ BINARY '(+ * - / P))(SETQ UNARY '(E L N D S))(DEFINEQ - '(LAMBDA (X Y) (SUB X Y)))(DEFI}NEQ E '(LAMBDA (X) (EXP X)))(DEFINEQ N '(LAMBDA (X) (SUB 0 X)))(DEFINEQ L '(LAMBDA (X) (LOG X)))(DEFINEQ S '(LAMBDA (X)} (EXP (/ (LOG X) 2))))(DEFINEQ D '(LAMBDA (X) (PROGN (PUSH X) X)))(DEFINEQ P '(LAMBDA (X Y) (EXP (* Y (LOG X)))))NILT {(HANOI OTHER MOVE DISPLAY HLIN CADR LOC VTAB GOXY)(DEFINEQ HANOI '(LAMBDA NIL (PROG (ONE TWO THREE) (GR 20) (PAGE) (POKE 752} 1) (TAB 4) (PRIN1 (QUOTE -ONE-)) (TAB 17) (PRIN1 (QUOTE -TWO-)) (TAB 29) (PRINT (QUOTE -THREE-)) (COL 1) (HLIN 13 13 20) (HL}IN 11 15 22) (HLIN 9 17 24) (HLIN 7 19 26) (HLIN 5 21 28) (HLIN 3 23 30) (HLIN 1 25 32) (SETQ ONE (QUOTE (0 1 2 3 4 5 6))) (M}OVE 7 (QUOTE ONE) (QUOTE THREE)) (READC) (SOUND 0 0 0 0) (POKE 752 0))))(DEFINEQ OTHER '(LAMBDA (X Y) (COND ((EQ X (QUOTE O}NE)) (COND ((EQ Y (QUOTE TWO)) (QUOTE THREE)) (T (QUOTE TWO)))) ((EQ X (QUOTE TWO)) (COND ((EQ Y (QUOTE ONE)) (QUOTE THREE)) }(T (QUOTE ONE)))) ((EQ X (QUOTE THREE)) (COND ((EQ Y (QUOTE ONE)) (QUOTE TWO)) (T (QUOTE ONE)))))))(DEFINEQ MOVE '(LAMBDA (}D E F) (COND ((EQ D 1) (PROGN (SET F (CONS (CAR (EVAL E)) (EVAL F))) (SET E (CDR (EVAL E))) (DISPLAY E F))) (T (PROGN (MOVE (}SUB D 1) E (OTHER E F)) (SET F (CONS (CAR (EVAL E)) (EVAL F))) (SET E (CDR (EVAL E))) (DISPLAY E F) (MOVE (SUB D 1) (OTHER E }F) F))))))(DEFINEQ DISPLAY '(LAMBDA (X Y) (PROG NIL (SETQ Z (CAR (EVAL Y))) (COL 0) (HLIN (SUB (CADR (ASSOC X LOC)) (+ Z Z)}) (+ (CADR (ASSOC X LOC)) (+ Z Z)) (+ (+ Z Z) 20)) (COL 1) (HLIN (SUB (CADR (ASSOC Y LOC)) (+ Z Z)) (+ (CADR (ASSOC Y LOC)) (}+ Z Z)) (+ (+ Z Z) 20)) (GOXY 10 2) (PRIN1 (LIST (QUOTE MOVE) X (QUOTE TO) Y)) (PRIN1 (QUOTE " ")) (SOUND 0 (+ 120 (* 10 Z))} 10 15))))(DEFINEQ HLIN '(LAMBDA (X1 X2 Y) (PROGN (PLOT X1 Y) (DRAW X2 Y))))(DEFINEQ CADR '(LAMBDA (X) (CAR (CDR X))))(}SETQ LOC '((ONE 13) (TWO 40) (THREE 66)))(DEFINEQ VTAB '(LAMBDA (R) (POKE 656 R)))(DEFINEQ GOXY '(LAMBDA (X Y) (PROGN (VT}AB Y) (TAB X))))NILLAY HLIN CADR LOC VTAB GOXY)(DEFINEQ HANOI '(LAMBDA NIL (PROG (ONE TWO THREE) (GR 20) (PAGE) (POKE 752B+DOS SYSBB/LISP COMB,qEDIT LISBMACLISP LISB CLISP LISB UTILS LISBCALC LISBHANOI LIS